===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
guile-3.0-3.0.4/NEWS-2588-*** 'scm_c_read' on ISO-8859-1 (e.g. binary) unbuffered ports is faster.
guile-3.0-3.0.4/NEWS:2589:*** New inline asm for VM fixnum multiply, for faster overflow checking.
guile-3.0-3.0.4/NEWS:2590:*** New inline asm for VM fixnum operations on ARM and 32-bit x86.
guile-3.0-3.0.4/NEWS-2591-*** 'positive?' and 'negative?' are now compiled to VM primitives.
##############################################
guile-3.0-3.0.4/NEWS-2775- (http://bugs.gnu.org/14905)
guile-3.0-3.0.4/NEWS:2776:** Fix inline asm for VM fixnum operations on x32.
guile-3.0-3.0.4/NEWS-2777-** Fix 'SCM_SYSCALL' to really swallow EINTR.
##############################################
guile-3.0-3.0.4/NEWS-6324-** Fix incorrect handling of the FLAGS argument of `fold-matches'
guile-3.0-3.0.4/NEWS:6325:** `guile-config link' now prints `-L$libdir' before `-lguile'
guile-3.0-3.0.4/NEWS-6326-** Fix memory corruption involving GOOPS' `class-redefinition'
##############################################
guile-3.0-3.0.4/acinclude.m4-123-], eval "ac_cv_func_$1_$2=yes", eval "ac_cv_func_$1_$2=no")])
guile-3.0-3.0.4/acinclude.m4:124:if eval "test \"`echo '$ac_cv_func_'$1'_'$2`\" = yes"; then
guile-3.0-3.0.4/acinclude.m4-125- AC_MSG_RESULT(yes)
##############################################
guile-3.0-3.0.4/build-aux/announce-gen-112- my $cmd = "du -h $f";
guile-3.0-3.0.4/build-aux/announce-gen:113: my $t = `$cmd`;
guile-3.0-3.0.4/build-aux/announce-gen-114- # FIXME-someday: give a better diagnostic, a la $PROCESS_STATUS
##############################################
guile-3.0-3.0.4/build-aux/announce-gen-337- # 'tool --version' output is the version string.
guile-3.0-3.0.4/build-aux/announce-gen:338: my ($first_line, undef) = split ("\n", `$t --version`);
guile-3.0-3.0.4/build-aux/announce-gen-339- if ($first_line =~ /.* (\d[\w.-]+)$/)
##############################################
guile-3.0-3.0.4/build-aux/config.rpath-33-host="$1"
guile-3.0-3.0.4/build-aux/config.rpath:34:host_cpu=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'`
guile-3.0-3.0.4/build-aux/config.rpath:35:host_vendor=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'`
guile-3.0-3.0.4/build-aux/config.rpath:36:host_os=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'`
guile-3.0-3.0.4/build-aux/config.rpath-37-
##############################################
guile-3.0-3.0.4/build-aux/config.rpath-47-done
guile-3.0-3.0.4/build-aux/config.rpath:48:cc_basename=`echo "$cc_temp" | sed -e 's%^.*/%%'`
guile-3.0-3.0.4/build-aux/config.rpath-49-
##############################################
guile-3.0-3.0.4/build-aux/config.rpath-94- *)
guile-3.0-3.0.4/build-aux/config.rpath:95: case `$CC -V 2>&1 | sed 5q` in
guile-3.0-3.0.4/build-aux/config.rpath-96- *Sun\ F* | *Sun*Fortran*)
##############################################
guile-3.0-3.0.4/build-aux/config.rpath-235- sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
guile-3.0-3.0.4/build-aux/config.rpath:236: case `$LD -v 2>&1` in
guile-3.0-3.0.4/build-aux/config.rpath-237- *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*)
##############################################
guile-3.0-3.0.4/build-aux/config.rpath-241- if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then
guile-3.0-3.0.4/build-aux/config.rpath:242: hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-rpath,$libdir`'
guile-3.0-3.0.4/build-aux/config.rpath-243- else
##############################################
guile-3.0-3.0.4/build-aux/config.rpath-298- case $host_os in aix4.[012]|aix4.[012].*)
guile-3.0-3.0.4/build-aux/config.rpath:299: collect2name=`${CC} -print-prog-name=collect2`
guile-3.0-3.0.4/build-aux/config.rpath-300- if test -f "$collect2name" && \
##############################################
guile-3.0-3.0.4/build-aux/config.rpath-430- hardcode_direct=yes
guile-3.0-3.0.4/build-aux/config.rpath:431: if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
guile-3.0-3.0.4/build-aux/config.rpath-432- hardcode_libdir_flag_spec='${wl}-rpath,$libdir'
##############################################
guile-3.0-3.0.4/build-aux/config.rpath-494- sysv5* | sco3.2v5* | sco5v6*)
guile-3.0-3.0.4/build-aux/config.rpath:495: hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`'
guile-3.0-3.0.4/build-aux/config.rpath-496- hardcode_libdir_separator=':'
##############################################
guile-3.0-3.0.4/build-aux/config.rpath-645-sed_quote_subst='s/\(["`$\\]\)/\\\1/g'
guile-3.0-3.0.4/build-aux/config.rpath:646:escaped_wl=`echo "X$wl" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-3.0-3.0.4/build-aux/config.rpath:647:shlibext=`echo "$shrext" | sed -e 's,^\.,,'`
guile-3.0-3.0.4/build-aux/config.rpath:648:escaped_libname_spec=`echo "X$libname_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-3.0-3.0.4/build-aux/config.rpath:649:escaped_library_names_spec=`echo "X$library_names_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-3.0-3.0.4/build-aux/config.rpath:650:escaped_hardcode_libdir_flag_spec=`echo "X$hardcode_libdir_flag_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-3.0-3.0.4/build-aux/config.rpath-651-
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-36-
guile-3.0-3.0.4/build-aux/gendocs.sh:37:prog=`basename "$0"`
guile-3.0-3.0.4/build-aux/gendocs.sh-38-srcdir=`pwd`
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-203- # but here, we use the basename of $srcfile
guile-3.0-3.0.4/build-aux/gendocs.sh:204: base=`basename "$srcfile"`
guile-3.0-3.0.4/build-aux/gendocs.sh-205- case $base in
guile-3.0-3.0.4/build-aux/gendocs.sh:206: *.txi|*.texi|*.texinfo) base=`echo "$base"|sed 's/\.[texinfo]*$//'`;;
guile-3.0-3.0.4/build-aux/gendocs.sh-207- esac
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-228-{
guile-3.0-3.0.4/build-aux/gendocs.sh:229: size=`ls -ksl $1 | awk '{print $1}'`
guile-3.0-3.0.4/build-aux/gendocs.sh-230- echo $size
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-292- ls -l "$outdir/$PACKAGE.info.tar.gz"
guile-3.0-3.0.4/build-aux/gendocs.sh:293: info_tgz_size=`calcsize "$outdir/$PACKAGE.info.tar.gz"`
guile-3.0-3.0.4/build-aux/gendocs.sh-294- # do not mv the info files, there's no point in having them available
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-304- gzip -f -9 $PACKAGE.dvi
guile-3.0-3.0.4/build-aux/gendocs.sh:305: dvi_gz_size=`calcsize $PACKAGE.dvi.gz`
guile-3.0-3.0.4/build-aux/gendocs.sh-306- mv $PACKAGE.dvi.gz "$outdir/"
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-311- eval "$cmd"
guile-3.0-3.0.4/build-aux/gendocs.sh:312: pdf_size=`calcsize $PACKAGE.pdf`
guile-3.0-3.0.4/build-aux/gendocs.sh-313- mv $PACKAGE.pdf "$outdir/"
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-322- eval "$cmd"
guile-3.0-3.0.4/build-aux/gendocs.sh:323: ascii_size=`calcsize $PACKAGE.txt`
guile-3.0-3.0.4/build-aux/gendocs.sh-324- gzip -f -9 -c $PACKAGE.txt >"$outdir/$PACKAGE.txt.gz"
guile-3.0-3.0.4/build-aux/gendocs.sh:325: ascii_gz_size=`calcsize "$outdir/$PACKAGE.txt.gz"`
guile-3.0-3.0.4/build-aux/gendocs.sh-326- mv $PACKAGE.txt "$outdir/"
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-345- )
guile-3.0-3.0.4/build-aux/gendocs.sh:346: eval html_$1_tgz_size=`calcsize "$outdir/${PACKAGE}.html_$1.tar.gz"`
guile-3.0-3.0.4/build-aux/gendocs.sh-347- rm -f "$outdir"/html_$1/*.html
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-358- eval "$cmd"
guile-3.0-3.0.4/build-aux/gendocs.sh:359: html_mono_size=`calcsize $PACKAGE.html`
guile-3.0-3.0.4/build-aux/gendocs.sh-360- gzip -f -9 -c $PACKAGE.html >"$outdir/$PACKAGE.html.gz"
guile-3.0-3.0.4/build-aux/gendocs.sh:361: html_mono_gz_size=`calcsize "$outdir/$PACKAGE.html.gz"`
guile-3.0-3.0.4/build-aux/gendocs.sh-362- copy_images "$outdir/" $PACKAGE.html
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-385- eval \
guile-3.0-3.0.4/build-aux/gendocs.sh:386: html_${split}_tgz_size=`calcsize "$outdir/$PACKAGE.html_$split.tar.gz"`
guile-3.0-3.0.4/build-aux/gendocs.sh-387- rm -rf "$outdir/html_$split/"
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-397- eval "$cmd"
guile-3.0-3.0.4/build-aux/gendocs.sh:398: html_mono_size=`calcsize $PACKAGE.html`
guile-3.0-3.0.4/build-aux/gendocs.sh-399- gzip -f -9 -c $PACKAGE.html >"$outdir/$PACKAGE.html.gz"
guile-3.0-3.0.4/build-aux/gendocs.sh:400: html_mono_gz_size=`calcsize "$outdir/$PACKAGE.html.gz"`
guile-3.0-3.0.4/build-aux/gendocs.sh-401- mv $PACKAGE.html "$outdir/"
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-410-printf "\nMaking .tar.gz for sources...\n"
guile-3.0-3.0.4/build-aux/gendocs.sh:411:d=`dirname $srcfile`
guile-3.0-3.0.4/build-aux/gendocs.sh-412-(
guile-3.0-3.0.4/build-aux/gendocs.sh-413- cd "$d"
guile-3.0-3.0.4/build-aux/gendocs.sh:414: srcfiles=`ls -d *.texinfo *.texi *.txi *.eps $source_extra 2>/dev/null` || true
guile-3.0-3.0.4/build-aux/gendocs.sh-415- tar czfh "$abs_outdir/$PACKAGE.texi.tar.gz" $srcfiles
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-417-)
guile-3.0-3.0.4/build-aux/gendocs.sh:418:texi_tgz_size=`calcsize "$outdir/$PACKAGE.texi.tar.gz"`
guile-3.0-3.0.4/build-aux/gendocs.sh-419-
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-426- eval "$cmd"
guile-3.0-3.0.4/build-aux/gendocs.sh:427: docbook_xml_size=`calcsize $PACKAGE-db.xml`
guile-3.0-3.0.4/build-aux/gendocs.sh-428- gzip -f -9 -c $PACKAGE-db.xml >"$outdir/$PACKAGE-db.xml.gz"
guile-3.0-3.0.4/build-aux/gendocs.sh:429: docbook_xml_gz_size=`calcsize "$outdir/$PACKAGE-db.xml.gz"`
guile-3.0-3.0.4/build-aux/gendocs.sh-430- mv $PACKAGE-db.xml "$outdir/"
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-440- )
guile-3.0-3.0.4/build-aux/gendocs.sh:441: html_node_db_tgz_size=`calcsize "$outdir/${PACKAGE}.html_node_db.tar.gz"`
guile-3.0-3.0.4/build-aux/gendocs.sh-442- rm -f "$outdir"/html_node_db/*.html
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-449- eval "$cmd"
guile-3.0-3.0.4/build-aux/gendocs.sh:450: docbook_ascii_size=`calcsize $PACKAGE-db.txt`
guile-3.0-3.0.4/build-aux/gendocs.sh-451- mv $PACKAGE-db.txt "$outdir/"
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-455- eval "$cmd"
guile-3.0-3.0.4/build-aux/gendocs.sh:456: docbook_pdf_size=`calcsize $PACKAGE-db.pdf`
guile-3.0-3.0.4/build-aux/gendocs.sh-457- mv $PACKAGE-db.pdf "$outdir/"
##############################################
guile-3.0-3.0.4/build-aux/gendocs.sh-469-
guile-3.0-3.0.4/build-aux/gendocs.sh:470:curdate=`$SETLANG date '+%B %d, %Y'`
guile-3.0-3.0.4/build-aux/gendocs.sh-471-sed \
##############################################
guile-3.0-3.0.4/build-aux/git-version-gen-146-then
guile-3.0-3.0.4/build-aux/git-version-gen:147: v=`cat $tarball_version_file` || v=
guile-3.0-3.0.4/build-aux/git-version-gen-148- case $v in
##############################################
guile-3.0-3.0.4/build-aux/git-version-gen-165- || git describe --abbrev=4 HEAD 2>/dev/null` \
guile-3.0-3.0.4/build-aux/git-version-gen:166: && v=`printf '%s\n' "$v" | sed "$tag_sed_script"` \
guile-3.0-3.0.4/build-aux/git-version-gen-167- && case $v in
##############################################
guile-3.0-3.0.4/build-aux/git-version-gen-182- # of git describe.
guile-3.0-3.0.4/build-aux/git-version-gen:183: vtag=`echo "$v" | sed 's/-.*//'`
guile-3.0-3.0.4/build-aux/git-version-gen:184: commit_list=`git rev-list "$vtag"..HEAD 2>/dev/null` \
guile-3.0-3.0.4/build-aux/git-version-gen-185- || { commit_list=failed;
guile-3.0-3.0.4/build-aux/git-version-gen-186- echo "$0: WARNING: git rev-list failed" 1>&2; }
guile-3.0-3.0.4/build-aux/git-version-gen:187: numcommits=`echo "$commit_list" | wc -l`
guile-3.0-3.0.4/build-aux/git-version-gen:188: v=`echo "$v" | sed "s/\(.*\)-\(.*\)/\1-$numcommits-\2/"`;
guile-3.0-3.0.4/build-aux/git-version-gen-189- test "$commit_list" = failed && v=UNKNOWN
##############################################
guile-3.0-3.0.4/build-aux/git-version-gen-194- # Remove the "g" in git describe's output string, to save a byte.
guile-3.0-3.0.4/build-aux/git-version-gen:195: v=`echo "$v" | sed 's/-/./;s/\(.*\)-g/\1-/'`;
guile-3.0-3.0.4/build-aux/git-version-gen-196- v_from_git=1
##############################################
guile-3.0-3.0.4/build-aux/git-version-gen-202-
guile-3.0-3.0.4/build-aux/git-version-gen:203:v=`echo "$v" |sed "s/^$prefix//"`
guile-3.0-3.0.4/build-aux/git-version-gen-204-
##############################################
guile-3.0-3.0.4/build-aux/gitlog-to-changelog-316- # Let $code operate on it, safely.
guile-3.0-3.0.4/build-aux/gitlog-to-changelog:317: my $r = $s->reval("$code")
guile-3.0-3.0.4/build-aux/gitlog-to-changelog-318- or die "$ME:$.:$sha: failed to eval \"$code\":\n$@\n";
##############################################
guile-3.0-3.0.4/build-aux/gnupload-117- echo "$0: Reading configuration file $conffile"
guile-3.0-3.0.4/build-aux/gnupload:118: conf=`sed 's/#.*$//;/^$/d' "$conffile" | tr "\015$nl" ' '`
guile-3.0-3.0.4/build-aux/gnupload-119- eval set x "$conf \"\$@\""
##############################################
guile-3.0-3.0.4/build-aux/gnupload-165- --symlink-regex=*)
guile-3.0-3.0.4/build-aux/gnupload:166: symlink_expr=`expr "$1" : '[^=]*=\(.*\)'`
guile-3.0-3.0.4/build-aux/gnupload-167- ;;
##############################################
guile-3.0-3.0.4/build-aux/gnupload-216-if test -n "$symlink_files"; then
guile-3.0-3.0.4/build-aux/gnupload:217: x=`echo "$symlink_files" | sed 's/[^ ]//g;s/ //g'`
guile-3.0-3.0.4/build-aux/gnupload-218- if test -n "$x"; then
##############################################
guile-3.0-3.0.4/build-aux/gnupload-237- elif test -n "$symlink_expr"; then
guile-3.0-3.0.4/build-aux/gnupload:238: linkname=`echo $file | sed "$symlink_expr"`
guile-3.0-3.0.4/build-aux/gnupload-239- if test -z "$linkname"; then
##############################################
guile-3.0-3.0.4/build-aux/gnupload-353- download.gnu.org.ua:alpha/*|download.gnu.org.ua:ftp/*)
guile-3.0-3.0.4/build-aux/gnupload:354: destdir_p1=`echo "$destdir" | sed 's,^[^/]*/,,'`
guile-3.0-3.0.4/build-aux/gnupload:355: destdir_topdir=`echo "$destdir" | sed 's,/.*,,'`
guile-3.0-3.0.4/build-aux/gnupload-356- mkdirective "$destdir_p1" "$base" "$file" "$stmt"
##############################################
guile-3.0-3.0.4/build-aux/gnupload-363- /*)
guile-3.0-3.0.4/build-aux/gnupload:364: dest_host=`echo "$dest" | sed 's,:.*,,'`
guile-3.0-3.0.4/build-aux/gnupload-365- mkdirective "$destdir" "$base" "$file" "$stmt"
##############################################
guile-3.0-3.0.4/build-aux/gnupload-383- stmt="$stmt
guile-3.0-3.0.4/build-aux/gnupload:384:`mksymlink $symlink_files`"
guile-3.0-3.0.4/build-aux/gnupload-385-fi
##############################################
guile-3.0-3.0.4/build-aux/gnupload-401- do
guile-3.0-3.0.4/build-aux/gnupload:402: destdir=`echo $dest | sed 's/[^:]*://'`
guile-3.0-3.0.4/build-aux/gnupload-403- upload "$dest" "$destdir" "`hostname`-$$" "" "$stmt"
##############################################
guile-3.0-3.0.4/build-aux/gnupload-420- files="$file $file.sig"
guile-3.0-3.0.4/build-aux/gnupload:421: destdir=`echo $dest | sed 's/[^:]*://'`
guile-3.0-3.0.4/build-aux/gnupload-422- if test -n "$symlink_expr"; then
guile-3.0-3.0.4/build-aux/gnupload:423: linkname=`echo $file | sed "$symlink_expr"`
guile-3.0-3.0.4/build-aux/gnupload-424- stmt="$stmt
##############################################
guile-3.0-3.0.4/build-aux/vc-list-files-47- --version)
guile-3.0-3.0.4/build-aux/vc-list-files:48: year=`echo "$scriptversion" | sed 's/[^0-9].*//'`
guile-3.0-3.0.4/build-aux/vc-list-files-49- cat <<EOF
##############################################
guile-3.0-3.0.4/build-aux/vc-list-files-70- && dir= sed_esc= \
guile-3.0-3.0.4/build-aux/vc-list-files:71: || { dir="$dir/"; sed_esc=`echo "$dir"|env sed 's,\([\\/]\),\\\\\1,g'`; }
guile-3.0-3.0.4/build-aux/vc-list-files-72- # Ignore git symlinks - either they point into the tree, in which case
##############################################
guile-3.0-3.0.4/build-aux/vc-list-files-96- }}'\'' \
guile-3.0-3.0.4/build-aux/vc-list-files:97: `find "$dir" -name Entries -print` /dev/null' $postprocess
guile-3.0-3.0.4/build-aux/vc-list-files-98- fi
##############################################
guile-3.0-3.0.4/config.rpath-33-host="$1"
guile-3.0-3.0.4/config.rpath:34:host_cpu=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'`
guile-3.0-3.0.4/config.rpath:35:host_vendor=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'`
guile-3.0-3.0.4/config.rpath:36:host_os=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'`
guile-3.0-3.0.4/config.rpath-37-
##############################################
guile-3.0-3.0.4/config.rpath-47-done
guile-3.0-3.0.4/config.rpath:48:cc_basename=`echo "$cc_temp" | sed -e 's%^.*/%%'`
guile-3.0-3.0.4/config.rpath-49-
##############################################
guile-3.0-3.0.4/config.rpath-91- *)
guile-3.0-3.0.4/config.rpath:92: case `$CC -V 2>&1 | sed 5q` in
guile-3.0-3.0.4/config.rpath-93- *Sun\ C*)
##############################################
guile-3.0-3.0.4/config.rpath-217- sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
guile-3.0-3.0.4/config.rpath:218: case `$LD -v 2>&1` in
guile-3.0-3.0.4/config.rpath-219- *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*)
##############################################
guile-3.0-3.0.4/config.rpath-223- if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then
guile-3.0-3.0.4/config.rpath:224: hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-rpath,$libdir`'
guile-3.0-3.0.4/config.rpath-225- else
##############################################
guile-3.0-3.0.4/config.rpath-280- case $host_os in aix4.[012]|aix4.[012].*)
guile-3.0-3.0.4/config.rpath:281: collect2name=`${CC} -print-prog-name=collect2`
guile-3.0-3.0.4/config.rpath-282- if test -f "$collect2name" && \
##############################################
guile-3.0-3.0.4/config.rpath-419- hardcode_direct=yes
guile-3.0-3.0.4/config.rpath:420: if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
guile-3.0-3.0.4/config.rpath-421- hardcode_libdir_flag_spec='${wl}-rpath,$libdir'
##############################################
guile-3.0-3.0.4/config.rpath-483- sysv5* | sco3.2v5* | sco5v6*)
guile-3.0-3.0.4/config.rpath:484: hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`'
guile-3.0-3.0.4/config.rpath-485- hardcode_libdir_separator=':'
##############################################
guile-3.0-3.0.4/config.rpath-627-sed_quote_subst='s/\(["`$\\]\)/\\\1/g'
guile-3.0-3.0.4/config.rpath:628:escaped_wl=`echo "X$wl" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-3.0-3.0.4/config.rpath:629:shlibext=`echo "$shrext" | sed -e 's,^\.,,'`
guile-3.0-3.0.4/config.rpath:630:escaped_libname_spec=`echo "X$libname_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-3.0-3.0.4/config.rpath:631:escaped_library_names_spec=`echo "X$library_names_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-3.0-3.0.4/config.rpath:632:escaped_hardcode_libdir_flag_spec=`echo "X$hardcode_libdir_flag_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-3.0-3.0.4/config.rpath-633-
##############################################
guile-3.0-3.0.4/configure.ac-1346-for file in $LIBOBJS; do
guile-3.0-3.0.4/configure.ac:1347: file=`echo "$file" | sed 's,\.[[^.]]*$,.lo,'`
guile-3.0-3.0.4/configure.ac-1348- LIBLOBJS="$LIBLOBJS libguile_${GUILE_EFFECTIVE_VERSION}_la-$file"
##############################################
guile-3.0-3.0.4/configure.ac-1351-## We also need to create corresponding .doc and .x files
guile-3.0-3.0.4/configure.ac:1352:EXTRA_DOT_DOC_FILES="`echo ${LIB@&t@OBJS} | sed 's,\.[[^.]]* ,.doc ,g;s,\.[[^.]]*$,.doc,'`"
guile-3.0-3.0.4/configure.ac:1353:EXTRA_DOT_X_FILES="`echo ${LIB@&t@OBJS} | sed 's,\.[[^.]]* ,.x ,g;s,\.[[^.]]*$,.x,'`"
guile-3.0-3.0.4/configure.ac-1354-
##############################################
guile-3.0-3.0.4/configure.ac-1412-AC_SUBST(top_builddir_absolute)
guile-3.0-3.0.4/configure.ac:1413:top_srcdir_absolute=`(cd $srcdir && pwd)`
guile-3.0-3.0.4/configure.ac-1414-AC_SUBST(top_srcdir_absolute)
##############################################
guile-3.0-3.0.4/doc/guile-api.alist-312-(SO_RCVBUF (groups k Scheme) (scan-data ""))
guile-3.0-3.0.4/doc/guile-api.alist:313:(SO_REUSEADDR (groups k Scheme) (scan-data ""))
guile-3.0-3.0.4/doc/guile-api.alist-314-(SO_SNDBUF (groups k Scheme) (scan-data ""))
##############################################
guile-3.0-3.0.4/doc/guile-api.alist-424-(caadar (groups Scheme) (scan-data "#<primitive-procedure caadar>"))
guile-3.0-3.0.4/doc/guile-api.alist:425:(caaddr (groups Scheme) (scan-data "#<primitive-procedure caaddr>"))
guile-3.0-3.0.4/doc/guile-api.alist-426-(caadr (groups Scheme) (scan-data "#<primitive-procedure caadr>"))
##############################################
guile-3.0-3.0.4/doc/guile-api.alist-432-(cadddr (groups Scheme) (scan-data "#<primitive-procedure cadddr>"))
guile-3.0-3.0.4/doc/guile-api.alist:433:(caddr (groups Scheme) (scan-data "#<primitive-procedure caddr>"))
guile-3.0-3.0.4/doc/guile-api.alist-434-(cadr (groups Scheme) (scan-data "#<primitive-procedure cadr>"))
##############################################
guile-3.0-3.0.4/doc/guile-api.alist-449-(cdadar (groups Scheme) (scan-data "#<primitive-procedure cdadar>"))
guile-3.0-3.0.4/doc/guile-api.alist:450:(cdaddr (groups Scheme) (scan-data "#<primitive-procedure cdaddr>"))
guile-3.0-3.0.4/doc/guile-api.alist-451-(cdadr (groups Scheme) (scan-data "#<primitive-procedure cdadr>"))
##############################################
guile-3.0-3.0.4/doc/guile-api.alist-742-(gethost (groups Scheme) (scan-data "#<primitive-procedure gethost>"))
guile-3.0-3.0.4/doc/guile-api.alist:743:(gethostbyaddr (groups Scheme) (scan-data "#<procedure gethostbyaddr (addr)>"))
guile-3.0-3.0.4/doc/guile-api.alist-744-(gethostbyname (groups Scheme) (scan-data "#<procedure gethostbyname (name)>"))
##############################################
guile-3.0-3.0.4/doc/guile-api.alist-749-(getnet (groups Scheme) (scan-data "#<primitive-procedure getnet>"))
guile-3.0-3.0.4/doc/guile-api.alist:750:(getnetbyaddr (groups Scheme) (scan-data "#<procedure getnetbyaddr (addr)>"))
guile-3.0-3.0.4/doc/guile-api.alist-751-(getnetbyname (groups Scheme) (scan-data "#<procedure getnetbyname (name)>"))
##############################################
guile-3.0-3.0.4/doc/guile-api.alist-785-(gh_cadar (groups guile-C-API gh C) (scan-data T))
guile-3.0-3.0.4/doc/guile-api.alist:786:(gh_caddr (groups guile-C-API gh C) (scan-data T))
guile-3.0-3.0.4/doc/guile-api.alist-787-(gh_cadr (groups guile-C-API gh C) (scan-data T))
##############################################
guile-3.0-3.0.4/doc/guile-api.alist-939-(inet-lnaof (groups Scheme) (scan-data "#<primitive-procedure inet-lnaof>"))
guile-3.0-3.0.4/doc/guile-api.alist:940:(inet-makeaddr (groups Scheme) (scan-data "#<primitive-procedure inet-makeaddr>"))
guile-3.0-3.0.4/doc/guile-api.alist-941-(inet-netof (groups Scheme) (scan-data "#<primitive-procedure inet-netof>"))
##############################################
guile-3.0-3.0.4/doc/guile-api.alist-1963-(scm_inet_aton (groups scm C) (scan-data T))
guile-3.0-3.0.4/doc/guile-api.alist:1964:(scm_inet_makeaddr (groups scm C) (scan-data T))
guile-3.0-3.0.4/doc/guile-api.alist-1965-(scm_inet_netof (groups scm C) (scan-data T))
##############################################
guile-3.0-3.0.4/doc/guile-api.alist-2982-(sloppy-assv (groups Scheme) (scan-data "#<primitive-procedure sloppy-assv>"))
guile-3.0-3.0.4/doc/guile-api.alist:2983:(sockaddr:addr (groups Scheme) (scan-data "#<procedure sockaddr:addr (obj)>"))
guile-3.0-3.0.4/doc/guile-api.alist-2984-(sockaddr:fam (groups Scheme) (scan-data "#<procedure sockaddr:fam (obj)>"))
##############################################
guile-3.0-3.0.4/doc/r5rs/r5rs.texi-5150-@format
guile-3.0-3.0.4/doc/r5rs/r5rs.texi:5151:@t{(define caddr (lambda (x) (car (cdr (cdr x)))))@r{.}
guile-3.0-3.0.4/doc/r5rs/r5rs.texi-5152-}
##############################################
guile-3.0-3.0.4/doc/ref/api-data.texi-5715-@deffnx {C Function} scm_cdaar (pair)
guile-3.0-3.0.4/doc/ref/api-data.texi:5716:@deffnx {C Function} scm_caddr (pair)
guile-3.0-3.0.4/doc/ref/api-data.texi-5717-@deffnx {C Function} scm_cadar (pair)
##############################################
guile-3.0-3.0.4/doc/ref/api-data.texi-5723-@deffnx {C Function} scm_cddaar (pair)
guile-3.0-3.0.4/doc/ref/api-data.texi:5724:@deffnx {C Function} scm_cdaddr (pair)
guile-3.0-3.0.4/doc/ref/api-data.texi-5725-@deffnx {C Function} scm_cdadar (pair)
##############################################
guile-3.0-3.0.4/doc/ref/api-data.texi-5731-@deffnx {C Function} scm_cadaar (pair)
guile-3.0-3.0.4/doc/ref/api-data.texi:5732:@deffnx {C Function} scm_caaddr (pair)
guile-3.0-3.0.4/doc/ref/api-data.texi-5733-@deffnx {C Function} scm_caadar (pair)
##############################################
guile-3.0-3.0.4/doc/ref/api-data.texi-5739-@lisp
guile-3.0-3.0.4/doc/ref/api-data.texi:5740:(define caddr (lambda (x) (car (cdr (cdr x)))))
guile-3.0-3.0.4/doc/ref/api-data.texi-5741-@end lisp
##############################################
guile-3.0-3.0.4/doc/ref/api-memory.texi-69-@c documented, because we don't think it can be implemented as a nice
guile-3.0-3.0.4/doc/ref/api-memory.texi:70:@c inline compiler directive or asm block. New _3, _4 or whatever
guile-3.0-3.0.4/doc/ref/api-memory.texi-71-@c forms could certainly be added though, if needed.
##############################################
guile-3.0-3.0.4/doc/ref/compiler.texi-1247-
guile-3.0-3.0.4/doc/ref/compiler.texi:1248:@deffn {Scheme Procedure} emit-allocate-words asm dst nwords
guile-3.0-3.0.4/doc/ref/compiler.texi-1249-@end deffn
##############################################
guile-3.0-3.0.4/doc/ref/compiler.texi-1259-
guile-3.0-3.0.4/doc/ref/compiler.texi:1260:@deffn {Scheme Procedure} emit-label asm label
guile-3.0-3.0.4/doc/ref/compiler.texi-1261-Define a label at the current program point.
##############################################
guile-3.0-3.0.4/doc/ref/compiler.texi-1263-
guile-3.0-3.0.4/doc/ref/compiler.texi:1264:@deffn {Scheme Procedure} emit-source asm source
guile-3.0-3.0.4/doc/ref/compiler.texi-1265-Associate @var{source} with the current program point.
##############################################
guile-3.0-3.0.4/doc/ref/compiler.texi-1267-
guile-3.0-3.0.4/doc/ref/compiler.texi:1268:@deffn {Scheme Procedure} emit-cache-ref asm dst key
guile-3.0-3.0.4/doc/ref/compiler.texi:1269:@deffnx {Scheme Procedure} emit-cache-set! asm key val
guile-3.0-3.0.4/doc/ref/compiler.texi-1270-Macro-instructions to implement compilation-unit caches. A single cache
##############################################
guile-3.0-3.0.4/doc/ref/compiler.texi-1274-
guile-3.0-3.0.4/doc/ref/compiler.texi:1275:@deffn {Scheme Procedure} emit-load-constant asm dst constant
guile-3.0-3.0.4/doc/ref/compiler.texi-1276-Load the Scheme datum @var{constant} into @var{dst}.
##############################################
guile-3.0-3.0.4/doc/ref/compiler.texi-1278-
guile-3.0-3.0.4/doc/ref/compiler.texi:1279:@deffn {Scheme Procedure} emit-begin-program asm label properties
guile-3.0-3.0.4/doc/ref/compiler.texi-1280-@deffnx {Scheme Procedure} emit-end-program asm
##############################################
guile-3.0-3.0.4/doc/ref/compiler.texi-1284-
guile-3.0-3.0.4/doc/ref/compiler.texi:1285:@deffn {Scheme Procedure} emit-load-static-procedure asm dst label
guile-3.0-3.0.4/doc/ref/compiler.texi-1286-Load a procedure with the given @var{label} into local @var{dst}. This
##############################################
guile-3.0-3.0.4/doc/ref/compiler.texi-1290-
guile-3.0-3.0.4/doc/ref/compiler.texi:1291:@deffn {Scheme Procedure} emit-begin-standard-arity asm req nlocals alternate
guile-3.0-3.0.4/doc/ref/compiler.texi:1292:@deffnx {Scheme Procedure} emit-begin-opt-arity asm req opt rest nlocals alternate
guile-3.0-3.0.4/doc/ref/compiler.texi:1293:@deffnx {Scheme Procedure} emit-begin-kw-arity asm req opt rest kw-indices allow-other-keys? nlocals alternate
guile-3.0-3.0.4/doc/ref/compiler.texi-1294-@deffnx {Scheme Procedure} emit-end-arity asm
##############################################
guile-3.0-3.0.4/doc/ref/compiler.texi-1306-
guile-3.0-3.0.4/doc/ref/compiler.texi:1307:@deffn {Scheme Procedure} link-assembly asm #:page-aligned?=#t
guile-3.0-3.0.4/doc/ref/compiler.texi-1308-Link an ELF image, and return the bytevector. If @var{page-aligned?} is
##############################################
guile-3.0-3.0.4/doc/ref/posix.texi-2459-@c INADDR_NONE is defined in the code, but serves no purpose.
guile-3.0-3.0.4/doc/ref/posix.texi:2460:@c inet_addr() returns it as an error indication, but that function
guile-3.0-3.0.4/doc/ref/posix.texi-2461-@c isn't provided, for the good reason that inet_aton() does the same
##############################################
guile-3.0-3.0.4/doc/ref/posix.texi-2490-@deffn {Scheme Procedure} inet-makeaddr net lna
guile-3.0-3.0.4/doc/ref/posix.texi:2491:@deffnx {C Function} scm_inet_makeaddr (net, lna)
guile-3.0-3.0.4/doc/ref/posix.texi-2492-Make an IPv4 Internet address by combining the network number
##############################################
guile-3.0-3.0.4/doc/ref/posix.texi-3076-
guile-3.0-3.0.4/doc/ref/posix.texi:3077:@deftypefn {C Function} SCM scm_from_sockaddr (const struct sockaddr *address, unsigned address_size)
guile-3.0-3.0.4/doc/ref/posix.texi-3078-Return a Scheme socket address object from the C @var{address}
##############################################
guile-3.0-3.0.4/doc/ref/posix.texi-3081-
guile-3.0-3.0.4/doc/ref/posix.texi:3082:@deftypefn {C Function} {struct sockaddr *} scm_to_sockaddr (SCM address, size_t *address_size)
guile-3.0-3.0.4/doc/ref/posix.texi-3083-Return a newly-@code{malloc}ed @code{struct sockaddr} from a Scheme
##############################################
guile-3.0-3.0.4/doc/texinfo.tex-5692- \catcode `\\=0 \catcode `\{=1 \catcode `\}=2
guile-3.0-3.0.4/doc/texinfo.tex:5693: \catcode `\$=3 \catcode `\&=4 \catcode `\#=6
guile-3.0-3.0.4/doc/texinfo.tex-5694- \catcode `\^=7 \catcode `\_=8 \catcode `\~=\active \let~=\tie
##############################################
guile-3.0-3.0.4/examples/Makefile.am-42-
guile-3.0-3.0.4/examples/Makefile.am:43:AM_CFLAGS = `PATH=$(bindir)$(PATH_SEPARATOR)$$PATH PKG_CONFIG_PATH=$(libdir)/pkgconfig $(bindir)/guile-config compile`
guile-3.0-3.0.4/examples/Makefile.am:44:AM_LIBS = `PATH=$(bindir)$(PATH_SEPARATOR)$$PATH PKG_CONFIG_PATH=$(libdir)/pkgconfig $(bindir)/guile-config link`
guile-3.0-3.0.4/examples/Makefile.am-45-
##############################################
guile-3.0-3.0.4/examples/check.test-8- echo could not find guile interpreter.
guile-3.0-3.0.4/examples/check.test:9: echo '(are you running this script from' `dirname $0` '?)'
guile-3.0-3.0.4/examples/check.test-10- echo GUILE env var: ${GUILE-not set}
##############################################
guile-3.0-3.0.4/examples/check.test-50-#
guile-3.0-3.0.4/examples/check.test:51:case `$guile -s $srcdir/scripts/fact 5` in 120) ;; *) echo $0: error: fact 5 ;; esac
guile-3.0-3.0.4/examples/check.test-52-
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-large.sch-2-(let () (begin (set! pathname-append (lambda .components|1 (let ((.construct|4 (unspecified))) (begin (set! .construct|4 (lambda (.l|5) (if (null? (let ((.x|7|10 .l|5)) (begin (.check! (pair? .x|7|10) 1 .x|7|10) (cdr:pair .x|7|10)))) .l|5 (if (string=? (let ((.x|12|15 .l|5)) (begin (.check! (pair? .x|12|15) 0 .x|12|15) (car:pair .x|12|15))) "") (.construct|4 (let ((.x|16|19 .l|5)) (begin (.check! (pair? .x|16|19) 1 .x|16|19) (cdr:pair .x|16|19)))) (if (char=? #\/ (string-ref (let ((.x|21|24 .l|5)) (begin (.check! (pair? .x|21|24) 0 .x|21|24) (car:pair .x|21|24))) (- (string-length (let ((.x|25|28 .l|5)) (begin (.check! (pair? .x|25|28) 0 .x|25|28) (car:pair .x|25|28)))) 1))) (cons (let ((.x|29|32 .l|5)) (begin (.check! (pair? .x|29|32) 0 .x|29|32) (car:pair .x|29|32))) (.construct|4 (let ((.x|33|36 .l|5)) (begin (.check! (pair? .x|33|36) 1 .x|33|36) (cdr:pair .x|33|36))))) (cons (let ((.x|38|41 .l|5)) (begin (.check! (pair? .x|38|41) 0 .x|38|41) (car:pair .x|38|41))) (cons "/" (.construct|4 (let ((.x|42|45 .l|5)) (begin (.check! (pair? .x|42|45) 1 .x|42|45) (cdr:pair .x|42|45))))))))))) (let ((.n|46 (if (null? (let ((.x|47|50 .components|1)) (begin (.check! (pair? .x|47|50) 1 .x|47|50) (cdr:pair .x|47|50)))) (let ((.x|51|54 .components|1)) (begin (.check! (pair? .x|51|54) 0 .x|51|54) (car:pair .x|51|54))) (apply string-append (.construct|4 .components|1))))) (if (not (char=? #\/ (string-ref .n|46 (- (string-length .n|46) 1)))) (string-append .n|46 "/") .n|46)))))) 'pathname-append))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-large.sch:3:(let () (begin (set! make-nbuild-parameter (lambda (.dir|1 .source?|1 .verbose?|1 .hostdir|1 .hostname|1) (let ((.make-nbuild-parameter|2 0)) (begin (set! .make-nbuild-parameter|2 (lambda (.dir|3 .source?|3 .verbose?|3 .hostdir|3 .hostname|3) (let ((.parameters|6 (.cons (.cons 'compiler (pathname-append .dir|3 "Compiler")) (.cons (.cons 'util (pathname-append .dir|3 "Util")) (.cons (.cons 'build (pathname-append .dir|3 "Rts" "Build")) (.cons (.cons 'source (pathname-append .dir|3 "Lib")) (.cons (.cons 'common-source (pathname-append .dir|3 "Lib" "Common")) (.cons (.cons 'repl-source (pathname-append .dir|3 "Repl")) (.cons (.cons 'interp-source (pathname-append .dir|3 "Eval")) (.cons (.cons 'machine-source (pathname-append .dir|3 "Lib" "Sparc")) (.cons (.cons 'common-asm (pathname-append .dir|3 "Asm" "Common")) (.cons (.cons 'sparc-asm (pathname-append .dir|3 "Asm" "Sparc")) (.cons '(target-machine . sparc) (.cons '(endianness . big) (.cons '(word-size . 32) (.cons (.cons 'always-source? .source?|3) (.cons (.cons 'verbose-load? .verbose?|3) (.cons (.cons 'compatibility (pathname-append .dir|3 "Compat" .hostdir|3)) (.cons (.cons 'host-system .hostname|3) '()))))))))))))))))))) (lambda (.key|7) (let ((.probe|10 (assq .key|7 .parameters|6))) (if .probe|10 (let ((.x|11|14 .probe|10)) (begin (.check! (pair? .x|11|14) 1 .x|11|14) (cdr:pair .x|11|14))) #f)))))) (.make-nbuild-parameter|2 .dir|1 .source?|1 .verbose?|1 .hostdir|1 .hostname|1))))) 'make-nbuild-parameter))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-large.sch-4-(let () (begin (set! nbuild-parameter (make-nbuild-parameter "" #f #f "Larceny" "Larceny")) 'nbuild-parameter))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-large.sch-798-(let () (begin '(define (.check! flag exn . args) (if (not flag) (apply error "Runtime check exception: " exn args))) #t))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-large.sch:799:(let () (let () (let ((.loop|6|8|11 (unspecified))) (begin (set! .loop|6|8|11 (lambda (.y1|1|2|12) (if (null? .y1|1|2|12) (if #f #f (unspecified)) (begin (begin #t (pass1 (let ((.x|16|19 .y1|1|2|12)) (begin (.check! (pair? .x|16|19) 0 .x|16|19) (car:pair .x|16|19))))) (.loop|6|8|11 (let ((.x|20|23 .y1|1|2|12)) (begin (.check! (pair? .x|20|23) 1 .x|20|23) (cdr:pair .x|20|23)))))))) (.loop|6|8|11 (.cons (.cons 'define-inline (.cons 'car (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(car x0) (.cons (.cons 'let (.cons '((x x0)) (.cons (.cons '.check! (.cons '(pair? x) (.cons $ex.car '(x)))) '((car:pair x))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'cdr (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(car x0) (.cons (.cons 'let (.cons '((x x0)) (.cons (.cons '.check! (.cons '(pair? x) (.cons $ex.cdr '(x)))) '((cdr:pair x))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'vector-length (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(vector-length v0) (.cons (.cons 'let (.cons '((v v0)) (.cons (.cons '.check! (.cons '(vector? v) (.cons $ex.vlen '(v)))) '((vector-length:vec v))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'vector-ref (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(vector-ref v0 i0) (.cons (.cons 'let (.cons '((v v0) (i i0)) (.cons (.cons '.check! (.cons '(fixnum? i) (.cons $ex.vref '(v i)))) (.cons (.cons '.check! (.cons '(vector? v) (.cons $ex.vref '(v i)))) (.cons (.cons '.check! (.cons '(<:fix:fix i (vector-length:vec v)) (.cons $ex.vref '(v i)))) (.cons (.cons '.check! (.cons '(>=:fix:fix i 0) (.cons $ex.vref '(v i)))) '((vector-ref:trusted v i)))))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'vector-set! (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(vector-set! v0 i0 x0) (.cons (.cons 'let (.cons '((v v0) (i i0) (x x0)) (.cons (.cons '.check! (.cons '(fixnum? i) (.cons $ex.vset '(v i x)))) (.cons (.cons '.check! (.cons '(vector? v) (.cons $ex.vset '(v i x)))) (.cons (.cons '.check! (.cons '(<:fix:fix i (vector-length:vec v)) (.cons $ex.vset '(v i x)))) (.cons (.cons '.check! (.cons '(>=:fix:fix i 0) (.cons $ex.vset '(v i x)))) '((vector-set!:trusted v i x)))))))) '())) '()))) '()))) '((define-inline list (syntax-rules () ((list) '()) ((list ?e) (cons ?e '())) ((list ?e1 ?e2 ...) (let* ((t1 ?e1) (t2 (list ?e2 ...))) (cons t1 t2))))) (define-inline vector (syntax-rules () ((vector) '#()) ((vector ?e) (make-vector 1 ?e)) ((vector ?e1 ?e2 ...) (letrec-syntax ((vector-aux1 (... (syntax-rules () ((vector-aux1 () ?n ?exps ?indexes ?temps) (vector-aux2 ?n ?exps ?indexes ?temps)) ((vector-aux1 (?exp1 ?exp2 ...) ?n ?exps ?indexes ?temps) (vector-aux1 (?exp2 ...) (+ ?n 1) (?exp1 . ?exps) (?n . ?indexes) (t . ?temps)))))) (vector-aux2 (... (syntax-rules () ((vector-aux2 ?n (?exp1 ?exp2 ...) (?n1 ?n2 ...) (?t1 ?t2 ...)) (let* ((?t1 ?exp1) (?t2 ?exp2) ... (v (make-vector ?n ?t1))) (vector-set! v ?n2 ?t2) ... v)))))) (vector-aux1 (?e1 ?e2 ...) 0 () () ()))))) (define-inline cadddr (syntax-rules () ((cadddr ?e) (car (cdr (cdr (cdr ?e))))))) (define-inline cddddr (syntax-rules () ((cddddr ?e) (cdr (cdr (cdr (cdr ?e))))))) (define-inline cdddr (syntax-rules () ((cdddr ?e) (cdr (cdr (cdr ?e)))))) (define-inline caddr (syntax-rules () ((caddr ?e) (car (cdr (cdr ?e)))))) (define-inline cddr (syntax-rules () ((cddr ?e) (cdr (cdr ?e))))) (define-inline cdar (syntax-rules () ((cdar ?e) (cdr (car ?e))))) (define-inline cadr (syntax-rules () ((cadr ?e) (car (cdr ?e))))) (define-inline caar (syntax-rules () ((caar ?e) (car (car ?e))))) (define-inline make-vector (syntax-rules () ((make-vector ?n) (make-vector ?n '())))) (define-inline make-string (syntax-rules () ((make-string ?n) (make-string ?n #\space)))) (define-inline = (syntax-rules () ((= ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (= ?e1 t) (= t ?e3 ?e4 ...)))))) (define-inline < (syntax-rules () ((< ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (< ?e1 t) (< t ?e3 ?e4 ...)))))) (define-inline > (syntax-rules () ((> ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (> ?e1 t) (> t ?e3 ?e4 ...)))))) (define-inline <= (syntax-rules () ((<= ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (<= ?e1 t) (<= t ?e3 ?e4 ...)))))) (define-inline >= (syntax-rules () ((>= ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (>= ?e1 t) (>= t ?e3 ?e4 ...)))))) (define-inline + (syntax-rules () ((+) 0) ((+ ?e) ?e) ((+ ?e1 ?e2 ?e3 ?e4 ...) (+ (+ ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline * (syntax-rules () ((*) 1) ((* ?e) ?e) ((* ?e1 ?e2 ?e3 ?e4 ...) (* (* ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline - (syntax-rules () ((- ?e) (- 0 ?e)) ((- ?e1 ?e2 ?e3 ?e4 ...) (- (- ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline / (syntax-rules () ((/ ?e) (/ 1 ?e)) ((/ ?e1 ?e2 ?e3 ?e4 ...) (/ (/ ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline abs (syntax-rules () ((abs ?z) (let ((temp ?z)) (if (< temp 0) (-- temp) temp))))) (define-inline negative? (syntax-rules () ((negative? ?x) (< ?x 0)))) (define-inline positive? (syntax-rules () ((positive? ?x) (> ?x 0)))) (define-inline eqv? (transformer (lambda (exp rename compare) (let ((arg1 (cadr exp)) (arg2 (caddr exp))) (define (constant? exp) (or (boolean? exp) (char? exp) (and (pair? exp) (= (length exp) 2) (identifier? (car exp)) (compare (car exp) (rename 'quote)) (symbol? (cadr exp))))) (if (or (constant? arg1) (constant? arg2)) (cons (rename 'eq?) (cdr exp)) exp))))) (define-inline memq (syntax-rules (quote) ((memq ?expr '(?datum ...)) (letrec-syntax ((memq0 (... (syntax-rules (quote) ((memq0 '?xx '(?d ...)) (let ((t1 '(?d ...))) (memq1 '?xx t1 (?d ...)))) ((memq0 ?e '(?d ...)) (let ((t0 ?e) (t1 '(?d ...))) (memq1 t0 t1 (?d ...))))))) (memq1 (... (syntax-rules () ((memq1 ?t0 ?t1 ()) #f) ((memq1 ?t0 ?t1 (?d1 ?d2 ...)) (if (eq? ?t0 '?d1) ?t1 (let ((?t1 (cdr ?t1))) (memq1 ?t0 ?t1 (?d2 ...))))))))) (memq0 ?expr '(?datum ...)))))) (define-inline memv (transformer (lambda (exp rename compare) (let ((arg1 (cadr exp)) (arg2 (caddr exp))) (if (or (boolean? arg1) (fixnum? arg1) (char? arg1) (and (pair? arg1) (= (length arg1) 2) (identifier? (car arg1)) (compare (car arg1) (rename 'quote)) (symbol? (cadr arg1))) (and (pair? arg2) (= (length arg2) 2) (identifier? (car arg2)) (compare (car arg2) (rename 'quote)) (every1? (lambda (x) (or (boolean? x) (fixnum? x) (char? x) (symbol? x))) (cadr arg2)))) (cons (rename 'memq) (cdr exp)) exp))))) (define-inline assv (transformer (lambda (exp rename compare) (let ((arg1 (cadr exp)) (arg2 (caddr exp))) (if (or (boolean? arg1) (char? arg1) (and (pair? arg1) (= (length arg1) 2) (identifier? (car arg1)) (compare (car arg1) (rename 'quote)) (symbol? (cadr arg1))) (and (pair? arg2) (= (length arg2) 2) (identifier? (car arg2)) (compare (car arg2) (rename 'quote)) (every1? (lambda (y) (and (pair? y) (let ((x (car y))) (or (boolean? x) (char? x) (symbol? x))))) (cadr arg2)))) (cons (rename 'assq) (cdr exp)) exp))))) (define-inline map (syntax-rules (lambda) ((map ?proc ?exp1 ?exp2 ...) (letrec-syntax ((loop (... (syntax-rules (lambda) ((loop 1 () (?y1 ?y2 ...) ?f ?exprs) (loop 2 (?y1 ?y2 ...) ?f ?exprs)) ((loop 1 (?a1 ?a2 ...) (?y2 ...) ?f ?exprs) (loop 1 (?a2 ...) (y1 ?y2 ...) ?f ?exprs)) ((loop 2 ?ys (lambda ?formals ?body) ?exprs) (loop 3 ?ys (lambda ?formals ?body) ?exprs)) ((loop 2 ?ys (?f1 . ?f2) ?exprs) (let ((f (?f1 . ?f2))) (loop 3 ?ys f ?exprs))) ((loop 2 ?ys ?f ?exprs) (loop 3 ?ys ?f ?exprs)) ((loop 3 (?y1 ?y2 ...) ?f (?e1 ?e2 ...)) (do ((?y1 ?e1 (cdr ?y1)) (?y2 ?e2 (cdr ?y2)) ... (results '() (cons (?f (car ?y1) (car ?y2) ...) results))) ((or (null? ?y1) (null? ?y2) ...) (reverse results)))))))) (loop 1 (?exp1 ?exp2 ...) () ?proc (?exp1 ?exp2 ...)))))) (define-inline for-each (syntax-rules (lambda) ((for-each ?proc ?exp1 ?exp2 ...) (letrec-syntax ((loop (... (syntax-rules (lambda) ((loop 1 () (?y1 ?y2 ...) ?f ?exprs) (loop 2 (?y1 ?y2 ...) ?f ?exprs)) ((loop 1 (?a1 ?a2 ...) (?y2 ...) ?f ?exprs) (loop 1 (?a2 ...) (y1 ?y2 ...) ?f ?exprs)) ((loop 2 ?ys (lambda ?formals ?body) ?exprs) (loop 3 ?ys (lambda ?formals ?body) ?exprs)) ((loop 2 ?ys (?f1 . ?f2) ?exprs) (let ((f (?f1 . ?f2))) (loop 3 ?ys f ?exprs))) ((loop 2 ?ys ?f ?exprs) (loop 3 ?ys ?f ?exprs)) ((loop 3 (?y1 ?y2 ...) ?f (?e1 ?e2 ...)) (do ((?y1 ?e1 (cdr ?y1)) (?y2 ?e2 (cdr ?y2)) ...) ((or (null? ?y1) (null? ?y2) ...) (if #f #f)) (?f (car ?y1) (car ?y2) ...))))))) (loop 1 (?exp1 ?exp2 ...) () ?proc (?exp1 ?exp2 ...)))))))))))))))))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-large.sch-800-(let () (begin (set! extended-syntactic-environment (syntactic-copy global-syntactic-environment)) 'extended-syntactic-environment))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-large.sch-814-(let () (begin (set! $.align (reserved-mnemonic '.align 60)) '$.align))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-large.sch:815:(let () (begin (set! $.asm (reserved-mnemonic '.asm 59)) '$.asm))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-large.sch-816-(let () (begin (set! $.proc-doc (reserved-mnemonic '.proc-doc 58)) '$.proc-doc))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-large.sch-1274-(let () (begin (set! view-segment (lambda (.segment|1) (let ((.view-segment|2 0)) (begin (set! .view-segment|2 (lambda (.segment|3) (let ((.display-bytevector|4 (unspecified))) (begin (set! .display-bytevector|4 (lambda (.bv|5) (let ((.n|8 (bytevector-length .bv|5))) (let () (let ((.loop|10|12|15 (unspecified))) (begin (set! .loop|10|12|15 (lambda (.i|16) (if (= .i|16 .n|8) (if #f #f (unspecified)) (begin (begin #t (if (zero? (remainder .i|16 4)) (write-char #\space) (unspecified)) (if (zero? (remainder .i|16 8)) (write-char #\space) (unspecified)) (if (zero? (remainder .i|16 32)) (newline) (unspecified)) (let ((.byte|21 (bytevector-ref .bv|5 .i|16))) (begin (write-char (string-ref (number->string (quotient .byte|21 16) 16) 0)) (write-char (string-ref (number->string (remainder .byte|21 16) 16) 0))))) (.loop|10|12|15 (+ .i|16 1)))))) (.loop|10|12|15 0))))))) (if (if (pair? .segment|3) (if (bytevector? (let ((.x|24|27 .segment|3)) (begin (.check! (pair? .x|24|27) 0 .x|24|27) (car:pair .x|24|27)))) (vector? (let ((.x|29|32 .segment|3)) (begin (.check! (pair? .x|29|32) 1 .x|29|32) (cdr:pair .x|29|32)))) #f) #f) (begin (.display-bytevector|4 (let ((.x|33|36 .segment|3)) (begin (.check! (pair? .x|33|36) 0 .x|33|36) (car:pair .x|33|36)))) (newline) (write (let ((.x|37|40 .segment|3)) (begin (.check! (pair? .x|37|40) 1 .x|37|40) (cdr:pair .x|37|40)))) (newline) (let () (let ((.loop|42|44|47 (unspecified))) (begin (set! .loop|42|44|47 (lambda (.constants|48) (if (let ((.temp|50|53 (null? .constants|48))) (if .temp|50|53 .temp|50|53 (null? (let ((.x|55|58 .constants|48)) (begin (.check! (pair? .x|55|58) 1 .x|55|58) (cdr:pair .x|55|58)))))) (if #f #f (unspecified)) (begin (begin #t (if (if (bytevector? (let ((.x|61|64 .constants|48)) (begin (.check! (pair? .x|61|64) 0 .x|61|64) (car:pair .x|61|64)))) (vector? (let ((.x|67|70 (let ((.x|71|74 .constants|48)) (begin (.check! (pair? .x|71|74) 1 .x|71|74) (cdr:pair .x|71|74))))) (begin (.check! (pair? .x|67|70) 0 .x|67|70) (car:pair .x|67|70)))) #f) (.view-segment|2 (cons (let ((.x|75|78 .constants|48)) (begin (.check! (pair? .x|75|78) 0 .x|75|78) (car:pair .x|75|78))) (let ((.x|80|83 (let ((.x|84|87 .constants|48)) (begin (.check! (pair? .x|84|87) 1 .x|84|87) (cdr:pair .x|84|87))))) (begin (.check! (pair? .x|80|83) 0 .x|80|83) (car:pair .x|80|83))))) (unspecified))) (.loop|42|44|47 (let ((.x|88|91 .constants|48)) (begin (.check! (pair? .x|88|91) 1 .x|88|91) (cdr:pair .x|88|91)))))))) (.loop|42|44|47 (vector->list (let ((.x|92|95 .segment|3)) (begin (.check! (pair? .x|92|95) 1 .x|92|95) (cdr:pair .x|92|95))))))))) (unspecified)))))) (.view-segment|2 .segment|1))))) 'view-segment))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-large.sch:1275:(let () (begin (set! test-asm (lambda (.emit|1) (let ((.test-asm|2 0)) (begin (set! .test-asm|2 (lambda (.emit|3) (let ((.as|6 (make-assembly-structure #f #f #f))) (begin (.emit|3 .as|6) (let ((.segment|9 (assemble-pasteup .as|6))) (begin (assemble-finalize! .as|6) (disassemble .segment|9))))))) (.test-asm|2 .emit|1))))) 'test-asm))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-large.sch-1276-(let () (begin (set! compile&assemble (lambda (.x|1) (let ((.compile&assemble|2 0)) (begin (set! .compile&assemble|2 (lambda (.x|3) (view-segment (assemble (compile .x|3))))) (.compile&assemble|2 .x|1))))) 'compile&assemble))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-large.sch-1580-(let () (begin (set! sparc.srai (sparc-instruction 'i10 39)) 'sparc.srai))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-large.sch:1581:(let () (begin (set! sparc.addr (sparc-instruction 'r10 0)) 'sparc.addr))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-large.sch-1582-(let () (begin (set! sparc.addrcc (sparc-instruction 'r10 16)) 'sparc.addrcc))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-small.sch-2-(let () (begin (set! pathname-append (lambda .components|1 (let ((.construct|4 (unspecified))) (begin (set! .construct|4 (lambda (.l|5) (if (null? (let ((.x|7|10 .l|5)) (begin (.check! (pair? .x|7|10) 1 .x|7|10) (cdr:pair .x|7|10)))) .l|5 (if (string=? (let ((.x|12|15 .l|5)) (begin (.check! (pair? .x|12|15) 0 .x|12|15) (car:pair .x|12|15))) "") (.construct|4 (let ((.x|16|19 .l|5)) (begin (.check! (pair? .x|16|19) 1 .x|16|19) (cdr:pair .x|16|19)))) (if (char=? #\/ (string-ref (let ((.x|21|24 .l|5)) (begin (.check! (pair? .x|21|24) 0 .x|21|24) (car:pair .x|21|24))) (- (string-length (let ((.x|25|28 .l|5)) (begin (.check! (pair? .x|25|28) 0 .x|25|28) (car:pair .x|25|28)))) 1))) (cons (let ((.x|29|32 .l|5)) (begin (.check! (pair? .x|29|32) 0 .x|29|32) (car:pair .x|29|32))) (.construct|4 (let ((.x|33|36 .l|5)) (begin (.check! (pair? .x|33|36) 1 .x|33|36) (cdr:pair .x|33|36))))) (cons (let ((.x|38|41 .l|5)) (begin (.check! (pair? .x|38|41) 0 .x|38|41) (car:pair .x|38|41))) (cons "/" (.construct|4 (let ((.x|42|45 .l|5)) (begin (.check! (pair? .x|42|45) 1 .x|42|45) (cdr:pair .x|42|45))))))))))) (let ((.n|46 (if (null? (let ((.x|47|50 .components|1)) (begin (.check! (pair? .x|47|50) 1 .x|47|50) (cdr:pair .x|47|50)))) (let ((.x|51|54 .components|1)) (begin (.check! (pair? .x|51|54) 0 .x|51|54) (car:pair .x|51|54))) (apply string-append (.construct|4 .components|1))))) (if (not (char=? #\/ (string-ref .n|46 (- (string-length .n|46) 1)))) (string-append .n|46 "/") .n|46)))))) 'pathname-append))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-small.sch:3:(let () (begin (set! make-nbuild-parameter (lambda (.dir|1 .source?|1 .verbose?|1 .hostdir|1 .hostname|1) (let ((.make-nbuild-parameter|2 0)) (begin (set! .make-nbuild-parameter|2 (lambda (.dir|3 .source?|3 .verbose?|3 .hostdir|3 .hostname|3) (let ((.parameters|6 (.cons (.cons 'compiler (pathname-append .dir|3 "Compiler")) (.cons (.cons 'util (pathname-append .dir|3 "Util")) (.cons (.cons 'build (pathname-append .dir|3 "Rts" "Build")) (.cons (.cons 'source (pathname-append .dir|3 "Lib")) (.cons (.cons 'common-source (pathname-append .dir|3 "Lib" "Common")) (.cons (.cons 'repl-source (pathname-append .dir|3 "Repl")) (.cons (.cons 'interp-source (pathname-append .dir|3 "Eval")) (.cons (.cons 'machine-source (pathname-append .dir|3 "Lib" "Sparc")) (.cons (.cons 'common-asm (pathname-append .dir|3 "Asm" "Common")) (.cons (.cons 'sparc-asm (pathname-append .dir|3 "Asm" "Sparc")) (.cons '(target-machine . sparc) (.cons '(endianness . big) (.cons '(word-size . 32) (.cons (.cons 'always-source? .source?|3) (.cons (.cons 'verbose-load? .verbose?|3) (.cons (.cons 'compatibility (pathname-append .dir|3 "Compat" .hostdir|3)) (.cons (.cons 'host-system .hostname|3) '()))))))))))))))))))) (lambda (.key|7) (let ((.probe|10 (assq .key|7 .parameters|6))) (if .probe|10 (let ((.x|11|14 .probe|10)) (begin (.check! (pair? .x|11|14) 1 .x|11|14) (cdr:pair .x|11|14))) #f)))))) (.make-nbuild-parameter|2 .dir|1 .source?|1 .verbose?|1 .hostdir|1 .hostname|1))))) 'make-nbuild-parameter))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-small.sch-4-(let () (begin (set! nbuild-parameter (make-nbuild-parameter "" #f #f "Larceny" "Larceny")) 'nbuild-parameter))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-small.sch-798-(let () (begin '(define (.check! flag exn . args) (if (not flag) (apply error "Runtime check exception: " exn args))) #t))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-small.sch:799:(let () (let () (let ((.loop|6|8|11 (unspecified))) (begin (set! .loop|6|8|11 (lambda (.y1|1|2|12) (if (null? .y1|1|2|12) (if #f #f (unspecified)) (begin (begin #t (pass1 (let ((.x|16|19 .y1|1|2|12)) (begin (.check! (pair? .x|16|19) 0 .x|16|19) (car:pair .x|16|19))))) (.loop|6|8|11 (let ((.x|20|23 .y1|1|2|12)) (begin (.check! (pair? .x|20|23) 1 .x|20|23) (cdr:pair .x|20|23)))))))) (.loop|6|8|11 (.cons (.cons 'define-inline (.cons 'car (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(car x0) (.cons (.cons 'let (.cons '((x x0)) (.cons (.cons '.check! (.cons '(pair? x) (.cons $ex.car '(x)))) '((car:pair x))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'cdr (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(car x0) (.cons (.cons 'let (.cons '((x x0)) (.cons (.cons '.check! (.cons '(pair? x) (.cons $ex.cdr '(x)))) '((cdr:pair x))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'vector-length (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(vector-length v0) (.cons (.cons 'let (.cons '((v v0)) (.cons (.cons '.check! (.cons '(vector? v) (.cons $ex.vlen '(v)))) '((vector-length:vec v))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'vector-ref (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(vector-ref v0 i0) (.cons (.cons 'let (.cons '((v v0) (i i0)) (.cons (.cons '.check! (.cons '(fixnum? i) (.cons $ex.vref '(v i)))) (.cons (.cons '.check! (.cons '(vector? v) (.cons $ex.vref '(v i)))) (.cons (.cons '.check! (.cons '(<:fix:fix i (vector-length:vec v)) (.cons $ex.vref '(v i)))) (.cons (.cons '.check! (.cons '(>=:fix:fix i 0) (.cons $ex.vref '(v i)))) '((vector-ref:trusted v i)))))))) '())) '()))) '()))) (.cons (.cons 'define-inline (.cons 'vector-set! (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(vector-set! v0 i0 x0) (.cons (.cons 'let (.cons '((v v0) (i i0) (x x0)) (.cons (.cons '.check! (.cons '(fixnum? i) (.cons $ex.vset '(v i x)))) (.cons (.cons '.check! (.cons '(vector? v) (.cons $ex.vset '(v i x)))) (.cons (.cons '.check! (.cons '(<:fix:fix i (vector-length:vec v)) (.cons $ex.vset '(v i x)))) (.cons (.cons '.check! (.cons '(>=:fix:fix i 0) (.cons $ex.vset '(v i x)))) '((vector-set!:trusted v i x)))))))) '())) '()))) '()))) '((define-inline list (syntax-rules () ((list) '()) ((list ?e) (cons ?e '())) ((list ?e1 ?e2 ...) (let* ((t1 ?e1) (t2 (list ?e2 ...))) (cons t1 t2))))) (define-inline vector (syntax-rules () ((vector) '#()) ((vector ?e) (make-vector 1 ?e)) ((vector ?e1 ?e2 ...) (letrec-syntax ((vector-aux1 (... (syntax-rules () ((vector-aux1 () ?n ?exps ?indexes ?temps) (vector-aux2 ?n ?exps ?indexes ?temps)) ((vector-aux1 (?exp1 ?exp2 ...) ?n ?exps ?indexes ?temps) (vector-aux1 (?exp2 ...) (+ ?n 1) (?exp1 . ?exps) (?n . ?indexes) (t . ?temps)))))) (vector-aux2 (... (syntax-rules () ((vector-aux2 ?n (?exp1 ?exp2 ...) (?n1 ?n2 ...) (?t1 ?t2 ...)) (let* ((?t1 ?exp1) (?t2 ?exp2) ... (v (make-vector ?n ?t1))) (vector-set! v ?n2 ?t2) ... v)))))) (vector-aux1 (?e1 ?e2 ...) 0 () () ()))))) (define-inline cadddr (syntax-rules () ((cadddr ?e) (car (cdr (cdr (cdr ?e))))))) (define-inline cddddr (syntax-rules () ((cddddr ?e) (cdr (cdr (cdr (cdr ?e))))))) (define-inline cdddr (syntax-rules () ((cdddr ?e) (cdr (cdr (cdr ?e)))))) (define-inline caddr (syntax-rules () ((caddr ?e) (car (cdr (cdr ?e)))))) (define-inline cddr (syntax-rules () ((cddr ?e) (cdr (cdr ?e))))) (define-inline cdar (syntax-rules () ((cdar ?e) (cdr (car ?e))))) (define-inline cadr (syntax-rules () ((cadr ?e) (car (cdr ?e))))) (define-inline caar (syntax-rules () ((caar ?e) (car (car ?e))))) (define-inline make-vector (syntax-rules () ((make-vector ?n) (make-vector ?n '())))) (define-inline make-string (syntax-rules () ((make-string ?n) (make-string ?n #\space)))) (define-inline = (syntax-rules () ((= ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (= ?e1 t) (= t ?e3 ?e4 ...)))))) (define-inline < (syntax-rules () ((< ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (< ?e1 t) (< t ?e3 ?e4 ...)))))) (define-inline > (syntax-rules () ((> ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (> ?e1 t) (> t ?e3 ?e4 ...)))))) (define-inline <= (syntax-rules () ((<= ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (<= ?e1 t) (<= t ?e3 ?e4 ...)))))) (define-inline >= (syntax-rules () ((>= ?e1 ?e2 ?e3 ?e4 ...) (let ((t ?e2)) (and (>= ?e1 t) (>= t ?e3 ?e4 ...)))))) (define-inline + (syntax-rules () ((+) 0) ((+ ?e) ?e) ((+ ?e1 ?e2 ?e3 ?e4 ...) (+ (+ ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline * (syntax-rules () ((*) 1) ((* ?e) ?e) ((* ?e1 ?e2 ?e3 ?e4 ...) (* (* ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline - (syntax-rules () ((- ?e) (- 0 ?e)) ((- ?e1 ?e2 ?e3 ?e4 ...) (- (- ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline / (syntax-rules () ((/ ?e) (/ 1 ?e)) ((/ ?e1 ?e2 ?e3 ?e4 ...) (/ (/ ?e1 ?e2) ?e3 ?e4 ...)))) (define-inline abs (syntax-rules () ((abs ?z) (let ((temp ?z)) (if (< temp 0) (-- temp) temp))))) (define-inline negative? (syntax-rules () ((negative? ?x) (< ?x 0)))) (define-inline positive? (syntax-rules () ((positive? ?x) (> ?x 0)))) (define-inline eqv? (transformer (lambda (exp rename compare) (let ((arg1 (cadr exp)) (arg2 (caddr exp))) (define (constant? exp) (or (boolean? exp) (char? exp) (and (pair? exp) (= (length exp) 2) (identifier? (car exp)) (compare (car exp) (rename 'quote)) (symbol? (cadr exp))))) (if (or (constant? arg1) (constant? arg2)) (cons (rename 'eq?) (cdr exp)) exp))))) (define-inline memq (syntax-rules (quote) ((memq ?expr '(?datum ...)) (letrec-syntax ((memq0 (... (syntax-rules (quote) ((memq0 '?xx '(?d ...)) (let ((t1 '(?d ...))) (memq1 '?xx t1 (?d ...)))) ((memq0 ?e '(?d ...)) (let ((t0 ?e) (t1 '(?d ...))) (memq1 t0 t1 (?d ...))))))) (memq1 (... (syntax-rules () ((memq1 ?t0 ?t1 ()) #f) ((memq1 ?t0 ?t1 (?d1 ?d2 ...)) (if (eq? ?t0 '?d1) ?t1 (let ((?t1 (cdr ?t1))) (memq1 ?t0 ?t1 (?d2 ...))))))))) (memq0 ?expr '(?datum ...)))))) (define-inline memv (transformer (lambda (exp rename compare) (let ((arg1 (cadr exp)) (arg2 (caddr exp))) (if (or (boolean? arg1) (fixnum? arg1) (char? arg1) (and (pair? arg1) (= (length arg1) 2) (identifier? (car arg1)) (compare (car arg1) (rename 'quote)) (symbol? (cadr arg1))) (and (pair? arg2) (= (length arg2) 2) (identifier? (car arg2)) (compare (car arg2) (rename 'quote)) (every1? (lambda (x) (or (boolean? x) (fixnum? x) (char? x) (symbol? x))) (cadr arg2)))) (cons (rename 'memq) (cdr exp)) exp))))) (define-inline assv (transformer (lambda (exp rename compare) (let ((arg1 (cadr exp)) (arg2 (caddr exp))) (if (or (boolean? arg1) (char? arg1) (and (pair? arg1) (= (length arg1) 2) (identifier? (car arg1)) (compare (car arg1) (rename 'quote)) (symbol? (cadr arg1))) (and (pair? arg2) (= (length arg2) 2) (identifier? (car arg2)) (compare (car arg2) (rename 'quote)) (every1? (lambda (y) (and (pair? y) (let ((x (car y))) (or (boolean? x) (char? x) (symbol? x))))) (cadr arg2)))) (cons (rename 'assq) (cdr exp)) exp))))) (define-inline map (syntax-rules (lambda) ((map ?proc ?exp1 ?exp2 ...) (letrec-syntax ((loop (... (syntax-rules (lambda) ((loop 1 () (?y1 ?y2 ...) ?f ?exprs) (loop 2 (?y1 ?y2 ...) ?f ?exprs)) ((loop 1 (?a1 ?a2 ...) (?y2 ...) ?f ?exprs) (loop 1 (?a2 ...) (y1 ?y2 ...) ?f ?exprs)) ((loop 2 ?ys (lambda ?formals ?body) ?exprs) (loop 3 ?ys (lambda ?formals ?body) ?exprs)) ((loop 2 ?ys (?f1 . ?f2) ?exprs) (let ((f (?f1 . ?f2))) (loop 3 ?ys f ?exprs))) ((loop 2 ?ys ?f ?exprs) (loop 3 ?ys ?f ?exprs)) ((loop 3 (?y1 ?y2 ...) ?f (?e1 ?e2 ...)) (do ((?y1 ?e1 (cdr ?y1)) (?y2 ?e2 (cdr ?y2)) ... (results '() (cons (?f (car ?y1) (car ?y2) ...) results))) ((or (null? ?y1) (null? ?y2) ...) (reverse results)))))))) (loop 1 (?exp1 ?exp2 ...) () ?proc (?exp1 ?exp2 ...)))))) (define-inline for-each (syntax-rules (lambda) ((for-each ?proc ?exp1 ?exp2 ...) (letrec-syntax ((loop (... (syntax-rules (lambda) ((loop 1 () (?y1 ?y2 ...) ?f ?exprs) (loop 2 (?y1 ?y2 ...) ?f ?exprs)) ((loop 1 (?a1 ?a2 ...) (?y2 ...) ?f ?exprs) (loop 1 (?a2 ...) (y1 ?y2 ...) ?f ?exprs)) ((loop 2 ?ys (lambda ?formals ?body) ?exprs) (loop 3 ?ys (lambda ?formals ?body) ?exprs)) ((loop 2 ?ys (?f1 . ?f2) ?exprs) (let ((f (?f1 . ?f2))) (loop 3 ?ys f ?exprs))) ((loop 2 ?ys ?f ?exprs) (loop 3 ?ys ?f ?exprs)) ((loop 3 (?y1 ?y2 ...) ?f (?e1 ?e2 ...)) (do ((?y1 ?e1 (cdr ?y1)) (?y2 ?e2 (cdr ?y2)) ...) ((or (null? ?y1) (null? ?y2) ...) (if #f #f)) (?f (car ?y1) (car ?y2) ...))))))) (loop 1 (?exp1 ?exp2 ...) () ?proc (?exp1 ?exp2 ...)))))))))))))))))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-small.sch-800-(let () (begin (set! extended-syntactic-environment (syntactic-copy global-syntactic-environment)) 'extended-syntactic-environment))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-small.sch-814-(let () (begin (set! $.align (reserved-mnemonic '.align 60)) '$.align))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-small.sch:815:(let () (begin (set! $.asm (reserved-mnemonic '.asm 59)) '$.asm))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic-input-small.sch-816-(let () (begin (set! $.proc-doc (reserved-mnemonic '.proc-doc 58)) '$.proc-doc))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic.sch-2106- tv3))))
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic.sch:2107: (cons 'caddr (forall4
guile-3.0-3.0.4/gc-benchmarks/larceny/dynamic.sch-2108- (lambda (tv1 tv2 tv3 tv4)
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/nboyer.sch-655- ((one-way-unify term (cadr (car lst)))
guile-3.0-3.0.4/gc-benchmarks/larceny/nboyer.sch:656: (rewrite (apply-subst unify-subst (caddr (car lst)))))
guile-3.0-3.0.4/gc-benchmarks/larceny/nboyer.sch-657- (else (rewrite-with-lemmas term (cdr lst)))))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/sboyer.sch-669- ((one-way-unify term (cadr (car lst)))
guile-3.0-3.0.4/gc-benchmarks/larceny/sboyer.sch:670: (rewrite (apply-subst unify-subst (caddr (car lst)))))
guile-3.0-3.0.4/gc-benchmarks/larceny/sboyer.sch-671- (else (rewrite-with-lemmas term (cdr lst)))))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/softscheme.sch-816- (let* ((code (cadr (car plist)))
guile-3.0-3.0.4/gc-benchmarks/larceny/softscheme.sch:817: (bv (caddr (car plist)))
guile-3.0-3.0.4/gc-benchmarks/larceny/softscheme.sch-818- (fail-sym (cadddr (car plist))))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/softscheme.sch-2683-(make-check-selector cadar ((_ x . _) . _))
guile-3.0-3.0.4/gc-benchmarks/larceny/softscheme.sch:2684:(make-check-selector caddr (_ _ x . _))
guile-3.0-3.0.4/gc-benchmarks/larceny/softscheme.sch-2685-(make-check-selector cdaar (((_ . x) . _) . _))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/softscheme.sch-2697- ((_ (x . _) . _) . _))
guile-3.0-3.0.4/gc-benchmarks/larceny/softscheme.sch:2698:(make-check-selector caaddr (_ _ (x . _) . _))
guile-3.0-3.0.4/gc-benchmarks/larceny/softscheme.sch-2699-(make-check-selector
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/softscheme.sch-2713- ((_ (_ . x) . _) . _))
guile-3.0-3.0.4/gc-benchmarks/larceny/softscheme.sch:2714:(make-check-selector cdaddr (_ _ (_ . x) . _))
guile-3.0-3.0.4/gc-benchmarks/larceny/softscheme.sch-2715-(make-check-selector
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/softscheme.sch-6080- (s ((_ x . _) . _)))
guile-3.0-3.0.4/gc-benchmarks/larceny/softscheme.sch:6081: (caddr ((cons d (cons c (cons a b))) -> a)
guile-3.0-3.0.4/gc-benchmarks/larceny/softscheme.sch-6082- (s (_ _ x . _)))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-67- (machine-source . ,(pathname-append dir "Lib" "Sparc"))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:68: (common-asm . ,(pathname-append dir "Asm" "Common"))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:69: (sparc-asm . ,(pathname-append dir "Asm" "Sparc"))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-70- (target-machine . SPARC)
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-1826-(define (lambda.F exp) (cadr (cadr (cadddr exp))))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:1827:(define (lambda.G exp) (caddr (cadr (cadddr exp))))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-1828-(define (lambda.decls exp) (cadddr (cadr (cadddr exp))))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-1959-(define (assignments R I)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:1960: (caddr (R-lookup R I)))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-1961-
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-6461-(define $.align (reserved-mnemonic '.align 60)) ; align code stream
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:6462:(define $.asm (reserved-mnemonic '.asm 59)) ; in-line native code
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-6463-(define $.proc-doc ; internal def proc info
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-6465-(define $.end ; end of code vector
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:6466: (reserved-mnemonic '.end 57)) ; (asm internal)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-6467-(define $.singlestep ; insert singlestep point
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:6468: (reserved-mnemonic '.singlestep 56)) ; (asm internal)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-6469-(define $.entry (reserved-mnemonic '.entry 55)) ; procedure entry point
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:6470: ; (asm internal)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-6471-
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-8821- (if (null? (cdr intervals))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:8822: (caddr (car intervals))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-8823- (let ((n (quotient (length intervals) 2)))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-8905-(define (callgraphnode.size x) (cadr (cddddr x)))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:8906:(define (callgraphnode.info x) (caddr (cddddr x)))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-8907-
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-15952-
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:15953:(define (test-asm emit)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-15954- (let ((as (make-assembly-structure #f #f #f)))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-19083- (define (is-a-delay-slot-instruction? as bv addr)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:19084: (and (not (memv addr (or (assembler-value as 'not-dsi) '())))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:19085: (< addr (bytevector-length bv))))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-19086-
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-19470-(define sparc.srai (sparc-instruction 'i10 #b100111))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:19471:(define sparc.addr (sparc-instruction 'r10 #b000000))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-19472-(define sparc.addrcc (sparc-instruction 'r10 #b010000))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-20166- (cond (lloc
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:20167: (let ((target-rel-addr (- lloc loc 8)))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-20168- (if (immediate-literal? target-rel-addr)
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-20194-(define (operand7 instruction)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch:20195: (caddr (cddddr (cdr instruction))))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-input-long.sch-20196-
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-67- (machine-source . ,(pathname-append dir "Lib" "Sparc"))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch:68: (common-asm . ,(pathname-append dir "Asm" "Common"))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch:69: (sparc-asm . ,(pathname-append dir "Asm" "Sparc"))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-70- (target-machine . SPARC)
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-1826-(define (lambda.F exp) (cadr (cadr (cadddr exp))))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch:1827:(define (lambda.G exp) (caddr (cadr (cadddr exp))))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-1828-(define (lambda.decls exp) (cadddr (cadr (cadddr exp))))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-1959-(define (assignments R I)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch:1960: (caddr (R-lookup R I)))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-1961-
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-6461-(define $.align (reserved-mnemonic '.align 60)) ; align code stream
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch:6462:(define $.asm (reserved-mnemonic '.asm 59)) ; in-line native code
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-6463-(define $.proc-doc ; internal def proc info
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-6465-(define $.end ; end of code vector
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch:6466: (reserved-mnemonic '.end 57)) ; (asm internal)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-6467-(define $.singlestep ; insert singlestep point
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch:6468: (reserved-mnemonic '.singlestep 56)) ; (asm internal)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-6469-(define $.entry (reserved-mnemonic '.entry 55)) ; procedure entry point
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch:6470: ; (asm internal)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-6471-
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-8821- (if (null? (cdr intervals))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch:8822: (caddr (car intervals))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-8823- (let ((n (quotient (length intervals) 2)))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-8905-(define (callgraphnode.size x) (cadr (cddddr x)))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch:8906:(define (callgraphnode.info x) (caddr (cddddr x)))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit-smaller.sch-8907-
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-67- (machine-source . ,(pathname-append dir "Lib" "Sparc"))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:68: (common-asm . ,(pathname-append dir "Asm" "Common"))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:69: (sparc-asm . ,(pathname-append dir "Asm" "Sparc"))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-70- (target-machine . SPARC)
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-1826-(define (lambda.F exp) (cadr (cadr (cadddr exp))))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:1827:(define (lambda.G exp) (caddr (cadr (cadddr exp))))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-1828-(define (lambda.decls exp) (cadddr (cadr (cadddr exp))))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-1959-(define (assignments R I)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:1960: (caddr (R-lookup R I)))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-1961-
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-6461-(define $.align (reserved-mnemonic '.align 60)) ; align code stream
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:6462:(define $.asm (reserved-mnemonic '.asm 59)) ; in-line native code
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-6463-(define $.proc-doc ; internal def proc info
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-6465-(define $.end ; end of code vector
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:6466: (reserved-mnemonic '.end 57)) ; (asm internal)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-6467-(define $.singlestep ; insert singlestep point
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:6468: (reserved-mnemonic '.singlestep 56)) ; (asm internal)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-6469-(define $.entry (reserved-mnemonic '.entry 55)) ; procedure entry point
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:6470: ; (asm internal)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-6471-
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-8821- (if (null? (cdr intervals))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:8822: (caddr (car intervals))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-8823- (let ((n (quotient (length intervals) 2)))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-8905-(define (callgraphnode.size x) (cadr (cddddr x)))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:8906:(define (callgraphnode.info x) (caddr (cddddr x)))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-8907-
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-15952-
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:15953:(define (test-asm emit)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-15954- (let ((as (make-assembly-structure #f #f #f)))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-19083- (define (is-a-delay-slot-instruction? as bv addr)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:19084: (and (not (memv addr (or (assembler-value as 'not-dsi) '())))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:19085: (< addr (bytevector-length bv))))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-19086-
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-19470-(define sparc.srai (sparc-instruction 'i10 #b100111))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:19471:(define sparc.addr (sparc-instruction 'r10 #b000000))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-19472-(define sparc.addrcc (sparc-instruction 'r10 #b010000))
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-20166- (cond (lloc
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:20167: (let ((target-rel-addr (- lloc loc 8)))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-20168- (if (immediate-literal? target-rel-addr)
##############################################
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-20194-(define (operand7 instruction)
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch:20195: (caddr (cddddr (cdr instruction))))
guile-3.0-3.0.4/gc-benchmarks/larceny/twobit.sch-20196-
##############################################
guile-3.0-3.0.4/gnulib-local/build-aux/git-version-gen.diff-47- || git describe --abbrev=4 HEAD 2>/dev/null` \
guile-3.0-3.0.4/gnulib-local/build-aux/git-version-gen.diff:48: && v=`printf '%s\n' "$v" | sed "$tag_sed_script"` \
guile-3.0-3.0.4/gnulib-local/build-aux/git-version-gen.diff-49- && case $v in
##############################################
guile-3.0-3.0.4/lib/config.charset-119-host="$1"
guile-3.0-3.0.4/lib/config.charset:120:os=`echo "$host" | sed -e 's/^[^-]*-[^-]*-\(.*\)$/\1/'`
guile-3.0-3.0.4/lib/config.charset-121-echo "# This file contains a table of character encoding aliases,"
##############################################
guile-3.0-3.0.4/libguile/ChangeLog-1996-1999-2560-
guile-3.0-3.0.4/libguile/ChangeLog-1996-1999:2561: * gc.c, gc.h (scm_object_address): Renamed from scm_object_addr ().
guile-3.0-3.0.4/libguile/ChangeLog-1996-1999-2562-
##############################################
guile-3.0-3.0.4/libguile/ChangeLog-1996-1999-2605-
guile-3.0-3.0.4/libguile/ChangeLog-1996-1999:2606: * __scm.h (SCM_FENCE): Fix `asm volatile' warnings for EGCS.
guile-3.0-3.0.4/libguile/ChangeLog-1996-1999-2607-
##############################################
guile-3.0-3.0.4/libguile/ChangeLog-2008-6299-
guile-3.0-3.0.4/libguile/ChangeLog-2008:6300: * gc.h (scm_remember_upto_here_1): Revise comments on the asm form.
guile-3.0-3.0.4/libguile/ChangeLog-2008-6301-
##############################################
guile-3.0-3.0.4/libguile/ChangeLog-2008-6313- * gc.h (scm_remember_upto_here_1, scm_remember_upto_here_2)
guile-3.0-3.0.4/libguile/ChangeLog-2008:6314: [__GNUC__]: Use volatile asm macros rather than a function call.
guile-3.0-3.0.4/libguile/ChangeLog-2008-6315- * gc.c (scm_remember_upto_here_1, scm_remember_upto_here_2): Undefine
##############################################
guile-3.0-3.0.4/libguile/ChangeLog-2008-6811-
guile-3.0-3.0.4/libguile/ChangeLog-2008:6812: * throw.c (scm_ithrow): Remove "asm volatile" hack. It used to
guile-3.0-3.0.4/libguile/ChangeLog-2008-6813- work around a bug in GCC 2.95.2 but is now a bug in itself.
##############################################
guile-3.0-3.0.4/libguile/ChangeLog-scm-2266-
guile-3.0-3.0.4/libguile/ChangeLog-scm:2267: * VMSBUILD.COM setjump.asm setjump.h (setjmp longjmp jmp_buf): put
guile-3.0-3.0.4/libguile/ChangeLog-scm-2268- in from comp.sources.reviewed in order to let VMS have full
##############################################
guile-3.0-3.0.4/libguile/Makefile.am-778- @BUILD_DATE="$${SOURCE_DATE_EPOCH:-`date '+%s'`}" ; \
guile-3.0-3.0.4/libguile/Makefile.am:779: echo ' { "buildstamp", "'`date -u +'%Y-%m-%d %T' -d @$$BUILD_DATE`'" }, \' >> libpath.tmp
guile-3.0-3.0.4/libguile/Makefile.am-780- @echo '}' >> libpath.tmp
##############################################
guile-3.0-3.0.4/libguile/Makefile.am-854-chknew-E chknew-SIG:
guile-3.0-3.0.4/libguile/Makefile.am:855: @bit=`echo $@ | sed s/^chknew-//` ; \
guile-3.0-3.0.4/libguile/Makefile.am-856- old="$(srcdir)/cpp-$$bit.syms" ; \
##############################################
guile-3.0-3.0.4/libguile/Makefile.am-864- cat $$old TMP | sort > $$new ; \
guile-3.0-3.0.4/libguile/Makefile.am:865: echo "$$new: `sed -n '$$=' TMP` new symbol(s)." ; \
guile-3.0-3.0.4/libguile/Makefile.am-866- sed 's/^/ /' TMP ; \
##############################################
guile-3.0-3.0.4/libguile/elf.h-1184-#define R_386_TLS_GD_CALL 26 /* Relocation for call to
guile-3.0-3.0.4/libguile/elf.h:1185: __tls_get_addr() */
guile-3.0-3.0.4/libguile/elf.h-1186-#define R_386_TLS_GD_POP 27 /* Tag for popl in GD TLS code */
##############################################
guile-3.0-3.0.4/libguile/elf.h-1190-#define R_386_TLS_LDM_CALL 30 /* Relocation for call to
guile-3.0-3.0.4/libguile/elf.h:1191: __tls_get_addr() in LDM code */
guile-3.0-3.0.4/libguile/elf.h-1192-#define R_386_TLS_LDM_POP 31 /* Tag for popl in LDM TLS code */
##############################################
guile-3.0-3.0.4/libguile/eval.c-114-#define BOOT_CLOSURE_BODY(x) CAR (BOOT_CLOSURE_CODE (x))
guile-3.0-3.0.4/libguile/eval.c:115:#define BOOT_CLOSURE_NUM_REQUIRED_ARGS(x) (SCM_I_INUM (CADDR (BOOT_CLOSURE_CODE (x))))
guile-3.0-3.0.4/libguile/eval.c-116-#define BOOT_CLOSURE_IS_FIXED(x) (scm_is_null (CDDDR (BOOT_CLOSURE_CODE (x))))
guile-3.0-3.0.4/libguile/eval.c-117-/* NB: One may only call the following accessors if the closure is not FIXED. */
guile-3.0-3.0.4/libguile/eval.c:118:#define BOOT_CLOSURE_HAS_REST_ARGS(x) scm_is_true (CADDR (SCM_CDR (BOOT_CLOSURE_CODE (x))))
guile-3.0-3.0.4/libguile/eval.c-119-#define BOOT_CLOSURE_IS_REST(x) scm_is_null (SCM_CDR (CDDDR (BOOT_CLOSURE_CODE (x))))
##############################################
guile-3.0-3.0.4/libguile/eval.c-156-#define CDDR(x) SCM_CDDR(x)
guile-3.0-3.0.4/libguile/eval.c:157:#define CADDR(x) SCM_CADDR(x)
guile-3.0-3.0.4/libguile/eval.c-158-#define CDDDR(x) SCM_CDDDR(x)
##############################################
guile-3.0-3.0.4/libguile/expand.c-106-#define CDDR(x) SCM_CDDR(x)
guile-3.0-3.0.4/libguile/expand.c:107:#define CADDR(x) SCM_CADDR(x)
guile-3.0-3.0.4/libguile/expand.c-108-#define CDDDR(x) SCM_CDDDR(x)
##############################################
guile-3.0-3.0.4/libguile/expand.c-418- ASSERT_SYNTAX (scm_ilength (CADR (expr)) > 0, s_bad_expression, expr);
guile-3.0-3.0.4/libguile/expand.c:419: ASSERT_SYNTAX (scm_is_symbol (CADDR (expr)), s_bad_expression, expr);
guile-3.0-3.0.4/libguile/expand.c-420-
guile-3.0-3.0.4/libguile/expand.c-421- return MODULE_REF (scm_source_properties (expr),
guile-3.0-3.0.4/libguile/expand.c:422: CADR (expr), CADDR (expr), SCM_BOOL_T);
guile-3.0-3.0.4/libguile/expand.c-423-}
##############################################
guile-3.0-3.0.4/libguile/expand.c-428- ASSERT_SYNTAX (scm_ilength (expr) == 3, s_bad_expression, expr);
guile-3.0-3.0.4/libguile/expand.c:429: ASSERT_SYNTAX (scm_is_symbol (CADDR (expr)), s_bad_expression, expr);
guile-3.0-3.0.4/libguile/expand.c-430-
guile-3.0-3.0.4/libguile/expand.c-431- if (scm_is_eq (CADR (expr), sym_primitive))
guile-3.0-3.0.4/libguile/expand.c:432: return PRIMITIVE_REF (scm_source_properties (expr), CADDR (expr));
guile-3.0-3.0.4/libguile/expand.c-433-
##############################################
guile-3.0-3.0.4/libguile/expand.c-435- return MODULE_REF (scm_source_properties (expr),
guile-3.0-3.0.4/libguile/expand.c:436: CADR (expr), CADDR (expr), SCM_BOOL_F);
guile-3.0-3.0.4/libguile/expand.c-437-}
##############################################
guile-3.0-3.0.4/libguile/expand.c-501- CALL (SCM_BOOL_F,
guile-3.0-3.0.4/libguile/expand.c:502: expand (CADDR (clause), new_env),
guile-3.0-3.0.4/libguile/expand.c-503- scm_list_1 (LEXICAL_REF (SCM_BOOL_F,
##############################################
guile-3.0-3.0.4/libguile/expand.c-587- expand (CADR (expr), env),
guile-3.0-3.0.4/libguile/expand.c:588: expand (CADDR (expr), env),
guile-3.0-3.0.4/libguile/expand.c-589- ((length == 3)
##############################################
guile-3.0-3.0.4/libguile/expand.c-822- else if (scm_ilength (x) == 3 && scm_is_symbol (CAR (x))
guile-3.0-3.0.4/libguile/expand.c:823: && scm_is_keyword (CADDR (x)))
guile-3.0-3.0.4/libguile/expand.c-824- {
##############################################
guile-3.0-3.0.4/libguile/expand.c-826- init = CADR (x);
guile-3.0-3.0.4/libguile/expand.c:827: k = CADDR (x);
guile-3.0-3.0.4/libguile/expand.c-828- }
##############################################
guile-3.0-3.0.4/libguile/expand.c-1144- SCM_EXPANDED_REF (vmem, LEXICAL_REF, GENSYM),
guile-3.0-3.0.4/libguile/expand.c:1145: expand (CADDR (expr), env));
guile-3.0-3.0.4/libguile/expand.c-1146- case SCM_EXPANDED_TOPLEVEL_REF:
##############################################
guile-3.0-3.0.4/libguile/expand.c-1149- SCM_EXPANDED_REF (vmem, TOPLEVEL_REF, NAME),
guile-3.0-3.0.4/libguile/expand.c:1150: expand (CADDR (expr), env));
guile-3.0-3.0.4/libguile/expand.c-1151- case SCM_EXPANDED_MODULE_REF:
##############################################
guile-3.0-3.0.4/libguile/expand.c-1155- SCM_EXPANDED_REF (vmem, MODULE_REF, PUBLIC),
guile-3.0-3.0.4/libguile/expand.c:1156: expand (CADDR (expr), env));
guile-3.0-3.0.4/libguile/expand.c-1157- default:
##############################################
guile-3.0-3.0.4/libguile/frames.c-208-
guile-3.0-3.0.4/libguile/frames.c:209: return scm_find_source_for_addr (scm_frame_instruction_pointer (frame));
guile-3.0-3.0.4/libguile/frames.c-210-}
##############################################
guile-3.0-3.0.4/libguile/gc.h-259- used on all processors and allows any memory or general register (or
guile-3.0-3.0.4/libguile/gc.h:260: immediate) operand. The actual asm syntax doesn't matter, we don't want
guile-3.0-3.0.4/libguile/gc.h-261- to use it, just ensure the operand is still alive. See "Extended Asm" in
##############################################
guile-3.0-3.0.4/libguile/jit.c-467-static jit_reloc_t
guile-3.0-3.0.4/libguile/jit.c:468:emit_mov_addr (scm_jit_state *j, jit_gpr_t r)
guile-3.0-3.0.4/libguile/jit.c-469-{
guile-3.0-3.0.4/libguile/jit.c-470- record_gpr_clobber (j, r);
guile-3.0-3.0.4/libguile/jit.c:471: return jit_mov_addr (j->jit, r);
guile-3.0-3.0.4/libguile/jit.c-472-}
##############################################
guile-3.0-3.0.4/libguile/jit.c-678- emit_lshi (j, FP, FP, 3); /* Multiply by sizeof (scm_vm_stack_element) */
guile-3.0-3.0.4/libguile/jit.c:679: emit_addr (j, FP, old_fp, FP);
guile-3.0-3.0.4/libguile/jit.c-680- set_register_state (j, FP_IN_REGISTER);
##############################################
guile-3.0-3.0.4/libguile/jit.c-773-static void
guile-3.0-3.0.4/libguile/jit.c:774:emit_get_ip_relative_addr (scm_jit_state *j, jit_gpr_t dst, jit_gpr_t ip,
guile-3.0-3.0.4/libguile/jit.c-775- uint32_t offset)
##############################################
guile-3.0-3.0.4/libguile/jit.c-780- emit_lshi (j, dst, dst, 2); /* Multiply by sizeof (uint32_t) */
guile-3.0-3.0.4/libguile/jit.c:781: emit_addr (j, dst, dst, ip);
guile-3.0-3.0.4/libguile/jit.c-782-}
##############################################
guile-3.0-3.0.4/libguile/jit.c-808- emit_get_callee_vcode (j, T0);
guile-3.0-3.0.4/libguile/jit.c:809: emit_get_ip_relative_addr (j, T1, T0, 1);
guile-3.0-3.0.4/libguile/jit.c-810- emit_ldxi (j, T1, T1, 0);
##############################################
guile-3.0-3.0.4/libguile/jit.c-1848- emit_store_ip (j, T0);
guile-3.0-3.0.4/libguile/jit.c:1849: jit_reloc_t k = jit_mov_addr (j->jit, T0);
guile-3.0-3.0.4/libguile/jit.c-1850- emit_call_2 (j, scm_vm_intrinsics.abort_to_prompt, thread_operand (),
##############################################
guile-3.0-3.0.4/libguile/jit.c-2589- jit_subi (j->jit, T0, T0, scm_tc2_int);
guile-3.0-3.0.4/libguile/jit.c:2590: add_slow_path_patch (j, jit_boaddr (j->jit, T0, T1));
guile-3.0-3.0.4/libguile/jit.c-2591- break;
##############################################
guile-3.0-3.0.4/libguile/jit.c-2903- jit_subi (j->jit, FP, FP, proc_slot * sizeof (union scm_vm_stack_element));
guile-3.0-3.0.4/libguile/jit.c:2904: jit_reloc_t mra = emit_mov_addr (j, T2);
guile-3.0-3.0.4/libguile/jit.c-2905-
##############################################
guile-3.0-3.0.4/libguile/jit.c-3279- emit_sp_ref_u64 (j, T1, b);
guile-3.0-3.0.4/libguile/jit.c:3280: emit_addr (j, T0, T0, T1);
guile-3.0-3.0.4/libguile/jit.c-3281- emit_sp_set_u64 (j, dst, T0);
##############################################
guile-3.0-3.0.4/libguile/jit.c-3329- emit_mulr (j, T3_OR_FP, T3_OR_FP, T0); /* High B times low A */
guile-3.0-3.0.4/libguile/jit.c:3330: emit_addr (j, T1, T1, T3_OR_FP); /* Add high results, throw away overflow */
guile-3.0-3.0.4/libguile/jit.c-3331- emit_qmulr_u (j, T0, T2, T0, T2); /* Low A times low B */
guile-3.0-3.0.4/libguile/jit.c:3332: emit_addr (j, T1, T1, T2); /* Add high result of low product */
guile-3.0-3.0.4/libguile/jit.c-3333- emit_sp_set_u64 (j, dst, T0, T1);
##############################################
guile-3.0-3.0.4/libguile/jit.c-3392- emit_qmulr_u (j, T0, T2, T0, T2); /* Low A times low B */
guile-3.0-3.0.4/libguile/jit.c:3393: emit_addr (j, T1, T1, T2); /* Add high result of low product */
guile-3.0-3.0.4/libguile/jit.c-3394- emit_sp_set_u64 (j, dst, T0, T1);
##############################################
guile-3.0-3.0.4/libguile/jit.c-3549- emit_rshr_u (j, T0, T0, T2);
guile-3.0-3.0.4/libguile/jit.c:3550: emit_addr (j, T0, T0, T3_OR_FP);
guile-3.0-3.0.4/libguile/jit.c-3551-
##############################################
guile-3.0-3.0.4/libguile/jit.c-3593- emit_lshr (j, T0, T0, T2);
guile-3.0-3.0.4/libguile/jit.c:3594: emit_addr (j, T1, T1, T3_OR_FP);
guile-3.0-3.0.4/libguile/jit.c-3595-
##############################################
guile-3.0-3.0.4/libguile/jit.c-3627- emit_rshi_u (j, T0, T0, b);
guile-3.0-3.0.4/libguile/jit.c:3628: emit_addr (j, T0, T0, T2);
guile-3.0-3.0.4/libguile/jit.c-3629- }
##############################################
guile-3.0-3.0.4/libguile/jit.c-3671- emit_lshi (j, T0, T0, b);
guile-3.0-3.0.4/libguile/jit.c:3672: emit_addr (j, T1, T1, T2);
guile-3.0-3.0.4/libguile/jit.c-3673- }
##############################################
guile-3.0-3.0.4/libguile/jit.c-4437- emit_rshr_u (j, T0, T0, T2);
guile-3.0-3.0.4/libguile/jit.c:4438: emit_addr (j, T0, T0, T3_OR_FP);
guile-3.0-3.0.4/libguile/jit.c-4439-
##############################################
guile-3.0-3.0.4/libguile/jit.c-4471- emit_rshi_u (j, T0, T0, b);
guile-3.0-3.0.4/libguile/jit.c:4472: emit_addr (j, T0, T0, T2);
guile-3.0-3.0.4/libguile/jit.c-4473- }
##############################################
guile-3.0-3.0.4/libguile/jit.c-4815-#else
guile-3.0-3.0.4/libguile/jit.c:4816: emit_addr (j, T0, T0, T1);
guile-3.0-3.0.4/libguile/jit.c-4817- if (BIGENDIAN)
##############################################
guile-3.0-3.0.4/libguile/jit.c-4895-#else
guile-3.0-3.0.4/libguile/jit.c:4896: jit_addr (j->jit, T0, T0, T1);
guile-3.0-3.0.4/libguile/jit.c-4897- emit_sp_ref_u64 (j, T1, T2, v);
##############################################
guile-3.0-3.0.4/libguile/libguile-3.0-gdb.scm-262- (let ((n (+ start (ash (- end start) -1))))
guile-3.0-3.0.4/libguile/libguile-3.0-gdb.scm:263: (if (value<? addr (value-field (value-add array n) "end"))
guile-3.0-3.0.4/libguile/libguile-3.0-gdb.scm-264- (lp start n)
##############################################
guile-3.0-3.0.4/libguile/libguile-3.0-gdb.scm-270-(define (vm-frame-program-debug-info frame)
guile-3.0-3.0.4/libguile/libguile-3.0-gdb.scm:271: (let ((addr (vm-frame-ip frame)))
guile-3.0-3.0.4/libguile/libguile-3.0-gdb.scm-272- (and=> (find-mapped-elf-image addr)
##############################################
guile-3.0-3.0.4/libguile/libguile-3.0-gdb.scm-282- ;; before we look for the PDI.
guile-3.0-3.0.4/libguile/libguile-3.0-gdb.scm:283: (let ((addr (+ (value->integer addr)
guile-3.0-3.0.4/libguile/libguile-3.0-gdb.scm-284- (- (debug-context-base ctx) start))))
##############################################
guile-3.0-3.0.4/libguile/libguile-3.0-gdb.scm-325- (and pdi
guile-3.0-3.0.4/libguile/libguile-3.0-gdb.scm:326: (find-source-for-addr (program-debug-info-addr pdi)
guile-3.0-3.0.4/libguile/libguile-3.0-gdb.scm-327- (program-debug-info-context pdi)))))
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-966-static void
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c:967:addr(jit_state_t *_jit, int32_t r0, int32_t r1, int32_t r2)
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-968-{
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-1498- movi(_jit, r2, i0);
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c:1499: addr(_jit, r0, r1, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-1500- if (r0 == r1)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-1582-static jit_reloc_t
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c:1583:baddr(jit_state_t *_jit, int32_t cc, int32_t r0, int32_t r1)
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-1584-{
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-1596-static jit_reloc_t
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c:1597:boaddr(jit_state_t *_jit, int32_t r0, int32_t r1)
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-1598-{
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c:1599: return baddr(_jit,BCC_VS,r0,r1);
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-1600-}
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-1610-{
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c:1611: return baddr(_jit,BCC_HS,r0,r1);
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-1612-}
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-1620-static jit_reloc_t
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c:1621:bxaddr(jit_state_t *_jit, int32_t r0, int32_t r1)
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-1622-{
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c:1623: return baddr(_jit,BCC_VC,r0,r1);
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-1624-}
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-1634-{
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c:1635: return baddr(_jit,BCC_LO,r0,r1);
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-1636-}
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-2378-static jit_reloc_t
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c:2379:mov_addr(jit_state_t *_jit, int32_t r0)
guile-3.0-3.0.4/libguile/lightening/lightening/aarch64-cpu.c-2380-{
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-1492-static jit_reloc_t
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c:1493:mov_addr(jit_state_t *_jit, int32_t r0)
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-1494-{
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-1516-static void
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c:1517:addr(jit_state_t *_jit, int32_t r0, int32_t r1, int32_t r2)
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-1518-{
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-2252-static jit_reloc_t
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c:2253:baddr(jit_state_t *_jit, int cc, int32_t r0, int32_t r1)
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-2254-{
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-2287-static jit_reloc_t
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c:2288:boaddr(jit_state_t *_jit, int32_t r0, int32_t r1)
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-2289-{
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c:2290: return baddr(_jit, ARM_CC_VS, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-2291-}
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-2301-{
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c:2302: return baddr(_jit, ARM_CC_HS, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-2303-}
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-2311-static jit_reloc_t
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c:2312:bxaddr(jit_state_t *_jit, int32_t r0, int32_t r1)
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-2313-{
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c:2314: return baddr(_jit, ARM_CC_VC, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-2315-}
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-2325-{
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c:2326: return baddr(_jit, ARM_CC_LO, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/arm-cpu.c-2327-}
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/arm-vfp.c-981- jit_gpr_t reg = get_temp_gpr(_jit);
guile-3.0-3.0.4/libguile/lightening/lightening/arm-vfp.c:982: addr(_jit, jit_gpr_regno(reg), r1, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/arm-vfp.c-983- VLDR_F32(_jit, r0, jit_gpr_regno(reg), 0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/arm-vfp.c-990- jit_gpr_t reg = get_temp_gpr(_jit);
guile-3.0-3.0.4/libguile/lightening/lightening/arm-vfp.c:991: addr(_jit, jit_gpr_regno(reg), r1, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/arm-vfp.c-992- VLDR_F64(_jit, r0, jit_gpr_regno(reg), 0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/arm-vfp.c-1073- jit_gpr_t reg = get_temp_gpr(_jit);
guile-3.0-3.0.4/libguile/lightening/lightening/arm-vfp.c:1074: addr(_jit, jit_gpr_regno(reg), r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/arm-vfp.c-1075- VSTR_F32(_jit, r2, jit_gpr_regno(reg), 0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/arm-vfp.c-1082- jit_gpr_t reg = get_temp_gpr(_jit);
guile-3.0-3.0.4/libguile/lightening/lightening/arm-vfp.c:1083: addr(_jit, jit_gpr_regno(reg), r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/arm-vfp.c-1084- VSTR_F64(_jit, r2, jit_gpr_regno(reg), 0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-391-# if __WORDSIZE == 32
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:392:# define addr(rd,rs,rt) ADDU(rd,rs,rt)
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-393-# define addiu(r0,r1,i0) ADDIU(r0,r1,i0)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-399-# else
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:400:# define addr(rd,rs,rt) DADDU(rd,rs,rt)
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-401-# define addiu(r0,r1,i0) DADDIU(r0,r1,i0)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-695-static jit_word_t _jmpi(jit_state_t*,jit_word_t);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:696:# define boaddr(i0,r0,r1) _boaddr(_jit,i0,r0,r1)
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:697:static jit_word_t _boaddr(jit_state_t*,jit_word_t,int32_t,int32_t);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-698-# define boaddi(i0,r0,i1) _boaddi(_jit,i0,r0,i1)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-703-static jit_word_t _boaddi_u(jit_state_t*,jit_word_t,int32_t,jit_word_t);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:704:# define bxaddr(i0,r0,r1) _bxaddr(_jit,i0,r0,r1)
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:705:static jit_word_t _bxaddr(jit_state_t*,jit_word_t,int32_t,int32_t);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-706-# define bxaddi(i0,r0,i1) _bxaddi(_jit,i0,r0,i1)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-812- movi(rn(reg), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:813: addr(r0, r1, rn(reg));
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-814- jit_unget_reg(reg);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-826- t0 = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:827: addr(rn(t0), r1, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-828- SLTU(rn(jit_carry), rn(t0), r1);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-832- else {
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:833: addr(r0, r1, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-834- SLTU(rn(jit_carry), r0, r1);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-850- movi(rn(t0), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:851: addr(rn(t0), r1, rn(t0));
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-852- }
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-860- movi(rn(t0), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:861: addr(r0, r1, rn(t0));
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-862- }
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1359- reg = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:1360: addr(rn(reg), r1, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1361- ldr_c(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1383- reg = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:1384: addr(rn(reg), r1, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1385- ldr_uc(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1407- reg = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:1408: addr(rn(reg), r1, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1409- ldr_s(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1431- reg = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:1432: addr(rn(reg), r1, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1433- ldr_us(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1455- reg = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:1456: addr(rn(reg), r1, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1457- ldr_i(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1480- reg = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:1481: addr(rn(reg), r1, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1482- ldr_ui(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1504- reg = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:1505: addr(rn(reg), r1, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1506- ldr_l(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1587- reg = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:1588: addr(rn(reg), r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1589- str_c(rn(reg), r2);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1611- reg = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:1612: addr(rn(reg), r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1613- str_s(rn(reg), r2);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1635- reg = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:1636: addr(rn(reg), r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1637- str_i(rn(reg), r2);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1660- reg = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:1661: addr(rn(reg), r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-1662- str_l(rn(reg), r2);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2361-static jit_word_t
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:2362:_boaddr(jit_state_t *_jit, jit_word_t i0, int32_t r0, int32_t r1)
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2363-{
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2373- SLT(rn(t0), r1, _ZERO_REGNO); /* t0 = r1 < 0 */
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:2374: addr(rn(t1), r0, r1); /* t1 = r0 + r1 */
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2375- SLT(rn(t2), rn(t1), r0); /* t2 = t1 < r0 */
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2380- /* delay slot */
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:2381: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2382- jit_unget_reg(t2);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2416- movi(rn(t0), i1);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:2417: w = boaddr(i0, r0, rn(t0));
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2418- jit_unget_reg(t0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2431- t1 = jit_get_reg(jit_class_gpr|jit_class_nospill);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:2432: addr(rn(t0), r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2433- SLTU(rn(t1), rn(t0), r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2471-static jit_word_t
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:2472:_bxaddr(jit_state_t *_jit, jit_word_t i0, int32_t r0, int32_t r1)
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2473-{
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2483- SLT(rn(t0), r1, _ZERO_REGNO); /* t0 = r1 < 0 */
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:2484: addr(rn(t1), r0, r1); /* t1 = r0 + r1 */
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2485- SLT(rn(t2), rn(t1), r0); /* t2 = t1 < r0 */
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2490- /* delay slot */
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:2491: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2492- jit_unget_reg(t2);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2526- movi(rn(t0), i1);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:2527: w = bxaddr(i0, r0, rn(t0));
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2528- jit_unget_reg(t0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2541- t1 = jit_get_reg(jit_class_gpr|jit_class_nospill);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c:2542: addr(rn(t0), r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-cpu.c-2543- SLTU(rn(t1), rn(t0), r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-fpu.c-674- reg = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-fpu.c:675: addr(rn(reg), r1, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-fpu.c-676- ldr_f(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-fpu.c-712- reg = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-fpu.c:713: addr(rn(reg), r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-fpu.c-714- str_f(rn(reg), r2);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-fpu.c-939- reg = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-fpu.c:940: addr(rn(reg), r1, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-fpu.c-941- ldr_d(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-fpu.c-1002- reg = jit_get_reg(jit_class_gpr);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-fpu.c:1003: addr(rn(reg), r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-fpu.c-1004- str_d(rn(reg), r2);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips-fpu.c-1826- andi(rn(reg), r1, 7);
guile-3.0-3.0.4/libguile/lightening/lightening/mips-fpu.c:1827: addr(r1, r1, rn(reg));
guile-3.0-3.0.4/libguile/lightening/lightening/mips-fpu.c-1828- jit_unget_reg(reg);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/mips.c-247- jit_ldxi_i(u, JIT_FP, _jitc->function->aoffoff);
guile-3.0-3.0.4/libguile/lightening/lightening/mips.c:248: jit_addr(u, u, reg);
guile-3.0-3.0.4/libguile/lightening/lightening/mips.c:249: jit_addr(JIT_SP, JIT_SP, reg);
guile-3.0-3.0.4/libguile/lightening/lightening/mips.c-250- jit_stxi_i(_jitc->function->aoffoff, JIT_FP, u);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c-529-# endif
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c:530:# define addr(r0,r1,r2) ADD(r0,r1,r2)
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c-531-# define addi(r0,r1,i0) _addi(_jit,r0,r1,i0)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c-722-static jit_word_t _bmci(jit_state_t*,jit_word_t,int32_t,jit_word_t);
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c:723:#define boaddr(i0,r0,r1) _boaddr(_jit,i0,r0,r1)
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c:724:static jit_word_t _boaddr(jit_state_t*,jit_word_t,int32_t,int32_t);
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c-725-#define boaddi(i0,r0,i1) _boaddi(_jit,i0,r0,i1)
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c-726-static jit_word_t _boaddi(jit_state_t*,jit_word_t,int32_t,jit_word_t);
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c:727:#define bxaddr(i0,r0,r1) _bxaddr(_jit,i0,r0,r1)
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c:728:static jit_word_t _bxaddr(jit_state_t*,jit_word_t,int32_t,int32_t);
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c-729-#define bxaddi(i0,r0,i1) _bxaddi(_jit,i0,r0,i1)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c-2113-static jit_word_t
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c:2114:_boaddr(jit_state_t *_jit, jit_word_t i0, int32_t r0, int32_t r1)
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c-2115-{
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c-2131- movi(rn(reg), i1);
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c:2132: w = boaddr(i0, r0, rn(reg));
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c-2133- jit_unget_reg(reg);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c-2137-static jit_word_t
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c:2138:_bxaddr(jit_state_t *_jit, jit_word_t i0, int32_t r0, int32_t r1)
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c-2139-{
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c-2155- movi(rn(reg), i1);
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c:2156: w = bxaddr(i0, r0, rn(reg));
guile-3.0-3.0.4/libguile/lightening/lightening/ppc-cpu.c-2157- jit_unget_reg(reg);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/ppc.c-227- jit_ldxi_i(u, JIT_FP, _jitc->function->aoffoff);
guile-3.0-3.0.4/libguile/lightening/lightening/ppc.c:228: jit_addr(u, u, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/ppc.c:229: jit_addr(JIT_SP, JIT_SP, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/ppc.c-230- jit_stxi_i(_jitc->function->aoffoff, JIT_FP, u);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-433-/* LOAD BYTE */
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:434:# define LGBR(R1,R2) RRE_(0xB906,R1,R2) /* disasm */
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-435-# define LB(R1,D2,X2,B2) RXY_(0xE3,R1,X2,B2,D2,0x76)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-443-# define LHY(R1,D2,X2,B2) RXY_(0xE3,R1,X2,B2,D2,0x78)
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:444:# define LGHR(R1,R2) RRE_(0xB907,R1,R2) /* disasm */
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-445-# define LGH(R1,D2,X2,B2) RXY_(0xE3,R1,X2,B2,D2,0x15)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-452-/* LOAD LOGICAL CHARACTER */
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:453:# define LLGCR(R1,R2) RRE_(0xB984,R1,R2) /* disasm */
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-454-# define LLGC(R1,D2,X2,B2) RXY_(0xE3,R1,X2,B2,D2,0x90)
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-455-/* LOAD LOGICAL HALFWORD */
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:456:# define LLGHR(R1,R2) RRE_(0xB985,R1,R2) /* disasm */
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-457-# define LLGH(R1,D2,X2,B2) RXY_(0xE3,R1,X2,B2,D2,0x91)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-926- jit_word_t,int32_t,jit_word_t);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:927:# define baddr(c,s,i0,r0,r1) _baddr(_jit,c,s,i0,r0,r1)
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:928:static void _baddr(jit_state_t*,int32_t,jit_bool_t,
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-929- jit_word_t,int32_t,int32_t);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-968-static jit_word_t _movi_p(jit_state_t*,int32_t,jit_word_t);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:969:# define addr(r0,r1,r2) _addr(_jit,r0,r1,r2)
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:970:static void _addr(jit_state_t*,int32_t,int32_t,int32_t);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-971-# define addi(r0,r1,i0) _addi(_jit,r0,r1,i0)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-1245-# define bnei_p(i0,r0,i1) bri_p(CC_NE,i0,r0,i1)
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:1246:# define boaddr(i0,r0,r1) baddr(CC_O,1,i0,r0,r1)
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-1247-# define boaddr_p(i0,r0,r1) baddr_p(CC_O,1,i0,r0,r1)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-1249-# define boaddi_p(i0,r0,i1) baddi_p(CC_O,1,i0,r0,i1)
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:1250:# define boaddr_u(i0,r0,r1) baddr(CC_NLE,0,i0,r0,r1)
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-1251-# define boaddr_u_p(i0,r0,r1) baddr_p(CC_NLE,0,i0,r0,r1)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-1253-# define boaddi_u_p(i0,r0,i1) baddi_p(CC_NLE,0,i0,r0,i1)
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:1254:# define bxaddr(i0,r0,r1) baddr(CC_NO,1,i0,r0,r1)
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-1255-# define bxaddr_p(i0,r0,r1) baddr_p(CC_NO,1,i0,r0,r1)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-1257-# define bxaddi_p(i0,r0,i1) baddi_p(CC_NO,1,i0,r0,i1)
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:1258:# define bxaddr_u(i0,r0,r1) baddr(CC_LE,0,i0,r0,r1)
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-1259-# define bxaddr_u_p(i0,r0,r1) baddr_p(CC_LE,0,i0,r0,r1)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2193-static void
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:2194:_baddr(jit_state_t *_jit, int32_t c, jit_bool_t s,
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2195- jit_word_t i0, int32_t r0, int32_t r1)
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2197- jit_word_t d;
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:2198: if (s) addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2199- else addcr(r0, r0, r1);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2215- movi(rn(reg), i1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:2216: baddr(c, s, i0, r0, rn(reg));
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2217- jit_unget_reg(reg);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2224- jit_word_t d, w;
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:2225: if (s) addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2226- else addcr(r0, r0, r1);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2445-static void
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:2446:_addr(jit_state_t *_jit, int32_t r0, int32_t r1, int32_t r2)
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2447-{
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2468- movi(rn(reg), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:2469: addr(r0, r1, rn(reg));
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2470- jit_unget_reg(reg);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2664- mulr(rn(reg), rn(reg), t3);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:2665: addr(r1, r1, rn(reg));
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2666- /**/
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2668- mulr(rn(reg), rn(reg), t2);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:2669: addr(r1, r1, rn(reg));
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2670- jit_unget_reg(reg);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2994- if (r0 == r2) {
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:2995: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2996- ldr_c(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-2999- movr(r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3000: addr(r0, r0, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3001- ldr_c(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3017- movi(r0, i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3018: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3019- ldr_c(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3023- movi(rn(reg), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3024: addr(rn(reg), rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3025- ldr_c(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3040- if (r0 == r2) {
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3041: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3042- ldr_uc(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3045- movr(r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3046: addr(r0, r0, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3047- ldr_uc(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3058- movi(r0, i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3059: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3060- ldr_uc(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3064- movi(rn(reg), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3065: addr(rn(reg), rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3066- ldr_uc(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3081- if (r0 == r2) {
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3082: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3083- ldr_s(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3086- movr(r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3087: addr(r0, r0, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3088- ldr_s(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3109- movi(r0, i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3110: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3111- ldr_s(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3115- movi(rn(reg), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3116: addr(rn(reg), rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3117- ldr_s(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3132- if (r0 == r2) {
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3133: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3134- ldr_us(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3137- movr(r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3138: addr(r0, r0, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3139- ldr_us(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3150- movi(r0, i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3151: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3152- ldr_us(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3156- movi(rn(reg), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3157: addr(rn(reg), rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3158- ldr_us(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3173- if (r0 == r2) {
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3174: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3175- ldr_i(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3178- movr(r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3179: addr(r0, r0, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3180- ldr_i(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3191- movi(r0, i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3192: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3193- ldr_i(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3197- movi(rn(reg), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3198: addr(rn(reg), rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3199- ldr_i(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3215- if (r0 == r2) {
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3216: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3217- ldr_ui(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3220- movr(r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3221: addr(r0, r0, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3222- ldr_ui(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3233- movi(r0, i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3234: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3235- ldr_ui(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3239- movi(rn(reg), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3240: addr(rn(reg), rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3241- ldr_ui(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3256- if (r0 == r2) {
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3257: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3258- ldr_l(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3261- movr(r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3262: addr(r0, r0, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3263- ldr_l(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3274- movi(r0, i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3275: addr(r0, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3276- ldr_l(r0, r0);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3280- movi(rn(reg), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3281: addr(rn(reg), rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3282- ldr_l(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3303- movr(rn(reg), r0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3304: addr(rn(reg), rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3305- str_c(rn(reg), r2);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3340- movr(rn(reg), r0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3341: addr(rn(reg), rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3342- str_s(rn(reg), r2);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3377- movr(rn(reg), r0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3378: addr(rn(reg), rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3379- str_i(rn(reg), r2);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3415- movr(rn(reg), r0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c:3416: addr(rn(reg), rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-cpu.c-3417- str_l(rn(reg), r2);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1068- movr(rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c:1069: addr(rn(reg), rn(reg), r2);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1070- ldr_f(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1079- movr(rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c:1080: addr(rn(reg), rn(reg), r2);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1081- ldr_d(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1095- movi(rn(reg), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c:1096: addr(rn(reg), rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1097- ldr_f(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1112- movi(rn(reg), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c:1113: addr(rn(reg), rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1114- ldr_d(r0, rn(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1144- movr(rn(reg), r0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c:1145: addr(rn(reg), rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1146- str_f(rn(reg), r2);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1155- movr(rn(reg), r0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c:1156: addr(rn(reg), rn(reg), r1);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1157- str_d(rn(reg), r2);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1171- movi(rn(reg), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c:1172: addr(rn(reg), rn(reg), r0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1173- str_f(rn(reg), r1);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1188- movi(rn(reg), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c:1189: addr(rn(reg), rn(reg), r0);
guile-3.0-3.0.4/libguile/lightening/lightening/s390-fpu.c-1190- str_d(rn(reg), r1);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/s390.c-223- jit_ldxi_i(u, JIT_FP, _jitc->function->aoffoff);
guile-3.0-3.0.4/libguile/lightening/lightening/s390.c:224: jit_addr(u, u, reg);
guile-3.0-3.0.4/libguile/lightening/lightening/s390.c:225: jit_addr(JIT_SP, JIT_SP, reg);
guile-3.0-3.0.4/libguile/lightening/lightening/s390.c-226- jit_stxi_i(_jitc->function->aoffoff, JIT_FP, u);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-374-static jit_reloc_t
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:375:mov_addr(jit_state_t *_jit, int32_t r0)
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-376-{
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-416-static inline void
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:417:iaddr(jit_state_t *_jit, int32_t r0, int32_t r1)
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-418-{
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-668-static void
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:669:addr(jit_state_t *_jit, int32_t r0, int32_t r1, int32_t r2)
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-670-{
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-671- if (r0 == r1)
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:672: iaddr(_jit, r0, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-673- else if (r0 == r2)
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:674: iaddr(_jit, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-675- else
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-697- movi(_jit, r0, i0);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:698: iaddr(_jit, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-699- } else {
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-701- movi(_jit, jit_gpr_regno(reg), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:702: iaddr(_jit, r0, jit_gpr_regno(reg));
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-703- unget_temp_gpr(_jit);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-710- if (r0 == r2) {
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:711: iaddr(_jit, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-712- } else {
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-713- movr(_jit, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:714: iaddr(_jit, r0, r2);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-715- }
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-727- movi(_jit, jit_gpr_regno(reg), i0);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:728: iaddr(_jit, r0, jit_gpr_regno(reg));
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-729- unget_temp_gpr(_jit);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-731- movi(_jit, r0, i0);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:732: iaddr(_jit, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-733- }
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-797- movi(_jit, r0, -i0);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:798: iaddr(_jit, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-799- } else {
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2369-static jit_reloc_t
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:2370:boaddr(jit_state_t *_jit, int32_t r0, int32_t r1)
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2371-{
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:2372: iaddr(_jit, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2373- return jo(_jit);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2385- unget_temp_gpr(_jit);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:2386: return boaddr(_jit, r0, jit_gpr_regno(reg));
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2387-}
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2391-{
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:2392: iaddr(_jit, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2393- return jc(_jit);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2409-static jit_reloc_t
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:2410:bxaddr(jit_state_t *_jit, int32_t r0, int32_t r1)
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2411-{
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:2412: iaddr(_jit, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2413- return jno(_jit);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2425- unget_temp_gpr(_jit);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:2426: return bxaddr(_jit, r0, jit_gpr_regno(reg));
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2427-}
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2431-{
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:2432: iaddr(_jit, r0, r1);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2433- return jnc(_jit);
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2548- jit_gpr_t reg = get_temp_gpr(_jit);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:2549: jit_patch_there(_jit, mov_addr(_jit, jit_gpr_regno(reg)), (void*)i0);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2550- callr(_jit, jit_gpr_regno(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2607- jit_gpr_t reg = get_temp_gpr(_jit);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c:2608: jit_patch_there(_jit, mov_addr(_jit, jit_gpr_regno(reg)), (void*)i0);
guile-3.0-3.0.4/libguile/lightening/lightening/x86-cpu.c-2609- jmpr(_jit, jit_gpr_regno(reg));
##############################################
guile-3.0-3.0.4/libguile/lightening/lightning.texi-1291- stack_pop(JIT_R1, &stack_ptr);
guile-3.0-3.0.4/libguile/lightening/lightning.texi:1292: jit_addr(JIT_R0, JIT_R1, JIT_R0);
guile-3.0-3.0.4/libguile/lightening/lightning.texi-1293- @} else if (*expr == '-') @{
##############################################
guile-3.0-3.0.4/libguile/lightening/lightning.texi-1431- jit_retval(JIT_R0); @rem{/* R0 = fib(n-2) */}
guile-3.0-3.0.4/libguile/lightening/lightning.texi:1432: jit_addr(JIT_R0, JIT_R0, JIT_V1); @rem{/* R0 = R0 + V1 */}
guile-3.0-3.0.4/libguile/lightening/lightning.texi-1433-
##############################################
guile-3.0-3.0.4/libguile/lightening/lightning.texi-1501- jit_movr (JIT_V0, JIT_R0); /* V0 = R0 */
guile-3.0-3.0.4/libguile/lightening/lightning.texi:1502: jit_addr (JIT_R0, JIT_R0, JIT_R1); /* R0 = R0 + R1 */
guile-3.0-3.0.4/libguile/lightening/lightning.texi-1503- jit_movr (JIT_R1, JIT_V0); /* R1 = V0 */
##############################################
guile-3.0-3.0.4/libguile/lightening/tests/addr.c-10-
guile-3.0-3.0.4/libguile/lightening/tests/addr.c:11: jit_addr(j, JIT_R0, JIT_R0, JIT_R1);
guile-3.0-3.0.4/libguile/lightening/tests/addr.c-12- jit_leave_jit_abi(j, 0, 0, align);
##############################################
guile-3.0-3.0.4/libguile/lightening/tests/boaddr.c-12-
guile-3.0-3.0.4/libguile/lightening/tests/boaddr.c:13: jit_reloc_t r = jit_boaddr(j, JIT_R0, JIT_R1);
guile-3.0-3.0.4/libguile/lightening/tests/boaddr.c-14- jit_leave_jit_abi(j, 0, 0, align);
##############################################
guile-3.0-3.0.4/libguile/lightening/tests/bxaddr.c-12-
guile-3.0-3.0.4/libguile/lightening/tests/bxaddr.c:13: jit_reloc_t r = jit_bxaddr(j, JIT_R0, JIT_R1);
guile-3.0-3.0.4/libguile/lightening/tests/bxaddr.c-14- jit_movi(j, JIT_R0, overflowed);
##############################################
guile-3.0-3.0.4/libguile/lightening/tests/mov_addr.c-10-
guile-3.0-3.0.4/libguile/lightening/tests/mov_addr.c:11: jit_patch_there(j, jit_mov_addr(j, JIT_R0), &thing);
guile-3.0-3.0.4/libguile/lightening/tests/mov_addr.c-12- jit_leave_jit_abi(j, 0, 0, align);
##############################################
guile-3.0-3.0.4/libguile/memoize.c-62-#define CDDR(x) SCM_CDDR(x)
guile-3.0-3.0.4/libguile/memoize.c:63:#define CADDR(x) SCM_CADDR(x)
guile-3.0-3.0.4/libguile/memoize.c-64-#define CDDDR(x) SCM_CDDDR(x)
##############################################
guile-3.0-3.0.4/libguile/memoize.c-481- CADR (args),
guile-3.0-3.0.4/libguile/memoize.c:482: CADDR (args));
guile-3.0-3.0.4/libguile/memoize.c-483- else if (nargs == 2
##############################################
guile-3.0-3.0.4/libguile/memoize.c-592- k = CAR (CAR (kw));
guile-3.0-3.0.4/libguile/memoize.c:593: idx = lookup_rib (CADDR (CAR (kw)), rib);
guile-3.0-3.0.4/libguile/memoize.c-594- indices = scm_acons (k, SCM_I_MAKINUM (idx), indices);
##############################################
guile-3.0-3.0.4/libguile/memoize.c-759- CADR (spec),
guile-3.0-3.0.4/libguile/memoize.c:760: CADDR (spec),
guile-3.0-3.0.4/libguile/memoize.c-761- CADDDR (spec),
##############################################
guile-3.0-3.0.4/libguile/memoize.c-797- scm_i_finite_list_copy (CADR (args)),
guile-3.0-3.0.4/libguile/memoize.c:798: CADDR (args));
guile-3.0-3.0.4/libguile/memoize.c-799- case SCM_M_CALL_WITH_PROMPT:
##############################################
guile-3.0-3.0.4/libguile/net_db.c-174- inad.s_addr = htonl (scm_to_ulong (host));
guile-3.0-3.0.4/libguile/net_db.c:175: entry = gethostbyaddr ((char *) &inad, sizeof (inad), AF_INET);
guile-3.0-3.0.4/libguile/net_db.c-176- }
##############################################
guile-3.0-3.0.4/libguile/net_db.c-249- unsigned long netnum = scm_to_ulong (net);
guile-3.0-3.0.4/libguile/net_db.c:250: entry = getnetbyaddr (netnum, AF_INET);
guile-3.0-3.0.4/libguile/net_db.c-251- eno = errno;
##############################################
guile-3.0-3.0.4/libguile/net_db.c-485- SCM_SIMPLE_VECTOR_SET (ai, 4,
guile-3.0-3.0.4/libguile/net_db.c:486: scm_from_sockaddr (c_ai->ai_addr, c_ai->ai_addrlen));
guile-3.0-3.0.4/libguile/net_db.c-487- SCM_SIMPLE_VECTOR_SET (ai, 5,
##############################################
guile-3.0-3.0.4/libguile/pairs.h-86-#define SCM_CDADR(OBJ) SCM_CDR (SCM_CAR (SCM_CDR (OBJ)))
guile-3.0-3.0.4/libguile/pairs.h:87:#define SCM_CADDR(OBJ) SCM_CAR (SCM_CDR (SCM_CDR (OBJ)))
guile-3.0-3.0.4/libguile/pairs.h-88-#define SCM_CDDDR(OBJ) SCM_CDR (SCM_CDR (SCM_CDR (OBJ)))
##############################################
guile-3.0-3.0.4/libguile/pairs.h-101-#define SCM_CDDADR(OBJ) SCM_CDR (SCM_CDR (SCM_CAR (SCM_CDR (OBJ))))
guile-3.0-3.0.4/libguile/pairs.h:102:#define SCM_CAADDR(OBJ) SCM_CAR (SCM_CAR (SCM_CDR (SCM_CDR (OBJ))))
guile-3.0-3.0.4/libguile/pairs.h:103:#define SCM_CDADDR(OBJ) SCM_CDR (SCM_CAR (SCM_CDR (SCM_CDR (OBJ))))
guile-3.0-3.0.4/libguile/pairs.h-104-#define SCM_CADDDR(OBJ) SCM_CAR (SCM_CDR (SCM_CDR (SCM_CDR (OBJ))))
##############################################
guile-3.0-3.0.4/libguile/pairs.h-238-SCM_API SCM scm_cdaar (SCM x);
guile-3.0-3.0.4/libguile/pairs.h:239:SCM_API SCM scm_caddr (SCM x);
guile-3.0-3.0.4/libguile/pairs.h-240-SCM_API SCM scm_cadar (SCM x);
##############################################
guile-3.0-3.0.4/libguile/pairs.h-246-SCM_API SCM scm_cddaar (SCM x);
guile-3.0-3.0.4/libguile/pairs.h:247:SCM_API SCM scm_cdaddr (SCM x);
guile-3.0-3.0.4/libguile/pairs.h-248-SCM_API SCM scm_cdadar (SCM x);
##############################################
guile-3.0-3.0.4/libguile/pairs.h-254-SCM_API SCM scm_cadaar (SCM x);
guile-3.0-3.0.4/libguile/pairs.h:255:SCM_API SCM scm_caaddr (SCM x);
guile-3.0-3.0.4/libguile/pairs.h-256-SCM_API SCM scm_caadar (SCM x);
##############################################
guile-3.0-3.0.4/libguile/procprop.c-65- *opt = scm_to_int (scm_cadr (o));
guile-3.0-3.0.4/libguile/procprop.c:66: *rest = scm_is_true (scm_caddr (o));
guile-3.0-3.0.4/libguile/procprop.c-67- return 1;
##############################################
guile-3.0-3.0.4/libguile/programs.c-199-SCM
guile-3.0-3.0.4/libguile/programs.c:200:scm_find_source_for_addr (SCM ip)
guile-3.0-3.0.4/libguile/programs.c-201-{
##############################################
guile-3.0-3.0.4/libguile/programs.c-370- *opt = scm_to_int (scm_cadr (l));
guile-3.0-3.0.4/libguile/programs.c:371: *rest = scm_is_true (scm_caddr (l));
guile-3.0-3.0.4/libguile/programs.c-372-
##############################################
guile-3.0-3.0.4/libguile/programs.h-69-
guile-3.0-3.0.4/libguile/programs.h:70:SCM_INTERNAL SCM scm_find_source_for_addr (SCM ip);
guile-3.0-3.0.4/libguile/programs.h-71-
##############################################
guile-3.0-3.0.4/libguile/random.c-155- SCM_VALIDATE_UINT_COPY (SCM_ARG1, SCM_CADR (value), w);
guile-3.0-3.0.4/libguile/random.c:156: SCM_VALIDATE_UINT_COPY (SCM_ARG1, SCM_CADDR (value), c);
guile-3.0-3.0.4/libguile/random.c-157-
##############################################
guile-3.0-3.0.4/libguile/socket.c-147- lnanum = SCM_NUM2ULONG (2, lna);
guile-3.0-3.0.4/libguile/socket.c:148: addr = inet_makeaddr (netnum, lnanum);
guile-3.0-3.0.4/libguile/socket.c-149- return scm_from_ulong (ntohl (addr.s_addr));
##############################################
guile-3.0-3.0.4/libguile/socket.c-722-static struct sockaddr *
guile-3.0-3.0.4/libguile/socket.c:723:scm_fill_sockaddr (int fam, SCM address, SCM *args, int which_arg,
guile-3.0-3.0.4/libguile/socket.c-724- const char *proc, size_t *size)
##############################################
guile-3.0-3.0.4/libguile/socket.c-861- `socket address' object. */
guile-3.0-3.0.4/libguile/socket.c:862: soka = scm_to_sockaddr (fam_or_sockaddr, &size);
guile-3.0-3.0.4/libguile/socket.c-863- else
guile-3.0-3.0.4/libguile/socket.c:864: soka = scm_fill_sockaddr (scm_to_int (fam_or_sockaddr), address,
guile-3.0-3.0.4/libguile/socket.c-865- &args, 3, FUNC_NAME, &size);
##############################################
guile-3.0-3.0.4/libguile/socket.c-932- `socket address' object. */
guile-3.0-3.0.4/libguile/socket.c:933: soka = scm_to_sockaddr (fam_or_sockaddr, &size);
guile-3.0-3.0.4/libguile/socket.c-934- else
guile-3.0-3.0.4/libguile/socket.c:935: soka = scm_fill_sockaddr (scm_to_int (fam_or_sockaddr), address,
guile-3.0-3.0.4/libguile/socket.c-936- &args, 3, FUNC_NAME, &size);
##############################################
guile-3.0-3.0.4/libguile/socket.c-974-static SCM_C_INLINE_KEYWORD SCM
guile-3.0-3.0.4/libguile/socket.c:975:_scm_from_sockaddr (const scm_t_max_sockaddr *address, unsigned addr_size,
guile-3.0-3.0.4/libguile/socket.c-976- const char *proc)
##############################################
guile-3.0-3.0.4/libguile/socket.c-1043-SCM
guile-3.0-3.0.4/libguile/socket.c:1044:scm_from_sockaddr (const struct sockaddr *address, unsigned addr_size)
guile-3.0-3.0.4/libguile/socket.c-1045-{
guile-3.0-3.0.4/libguile/socket.c:1046: return (_scm_from_sockaddr ((scm_t_max_sockaddr *) address,
guile-3.0-3.0.4/libguile/socket.c-1047- addr_size, "scm_from_sockaddr"));
##############################################
guile-3.0-3.0.4/libguile/socket.c-1050-/* Convert ADDRESS, an address object returned by either
guile-3.0-3.0.4/libguile/socket.c:1051: `scm_from_sockaddr ()' or `scm_make_socket_address ()', into its C
guile-3.0-3.0.4/libguile/socket.c-1052- representation. On success, a non-NULL pointer is returned and
##############################################
guile-3.0-3.0.4/libguile/socket.c-1055-struct sockaddr *
guile-3.0-3.0.4/libguile/socket.c:1056:scm_to_sockaddr (SCM address, size_t *address_size)
guile-3.0-3.0.4/libguile/socket.c-1057-#define FUNC_NAME "scm_to_sockaddr"
##############################################
guile-3.0-3.0.4/libguile/socket.c-1218-
guile-3.0-3.0.4/libguile/socket.c:1219: soka = scm_fill_sockaddr (scm_to_ushort (family), address, &args, 1,
guile-3.0-3.0.4/libguile/socket.c-1220- "scm_c_make_socket_address", address_size);
##############################################
guile-3.0-3.0.4/libguile/socket.c-1240- {
guile-3.0-3.0.4/libguile/socket.c:1241: result = scm_from_sockaddr (c_address, c_address_size);
guile-3.0-3.0.4/libguile/socket.c-1242- free (c_address);
##############################################
guile-3.0-3.0.4/libguile/socket.c-1286- newsock = scm_socket_fd_to_port (newfd);
guile-3.0-3.0.4/libguile/socket.c:1287: address = _scm_from_sockaddr (&addr, addr_size, FUNC_NAME);
guile-3.0-3.0.4/libguile/socket.c-1288-
##############################################
guile-3.0-3.0.4/libguile/socket.c-1315-
guile-3.0-3.0.4/libguile/socket.c:1316: return _scm_from_sockaddr (&addr, addr_size, FUNC_NAME);
guile-3.0-3.0.4/libguile/socket.c-1317-}
##############################################
guile-3.0-3.0.4/libguile/socket.c-1337-
guile-3.0-3.0.4/libguile/socket.c:1338: return _scm_from_sockaddr (&addr, addr_size, FUNC_NAME);
guile-3.0-3.0.4/libguile/socket.c-1339-}
##############################################
guile-3.0-3.0.4/libguile/socket.c-1508- if (((struct sockaddr *) &addr)->sa_family != AF_UNSPEC)
guile-3.0-3.0.4/libguile/socket.c:1509: address = _scm_from_sockaddr (&addr, addr_size, FUNC_NAME);
guile-3.0-3.0.4/libguile/socket.c-1510- else
##############################################
guile-3.0-3.0.4/libguile/socket.c-1555- ARGS_AND_FLAGS, are the `MSG_' flags. */
guile-3.0-3.0.4/libguile/socket.c:1556: soka = scm_to_sockaddr (fam_or_sockaddr, &size);
guile-3.0-3.0.4/libguile/socket.c-1557- if (!scm_is_eq (address, SCM_UNDEFINED))
##############################################
guile-3.0-3.0.4/libguile/socket.c-1560- else
guile-3.0-3.0.4/libguile/socket.c:1561: soka = scm_fill_sockaddr (scm_to_int (fam_or_sockaddr), address,
guile-3.0-3.0.4/libguile/socket.c-1562- &args_and_flags, 3, FUNC_NAME, &size);
##############################################
guile-3.0-3.0.4/libguile/socket.h-30-SCM_API SCM scm_lnaof (SCM address);
guile-3.0-3.0.4/libguile/socket.h:31:SCM_API SCM scm_inet_makeaddr (SCM net, SCM lna);
guile-3.0-3.0.4/libguile/socket.h-32-SCM_API SCM scm_inet_pton (SCM family, SCM address);
##############################################
guile-3.0-3.0.4/libguile/socket.h-53-struct sockaddr;
guile-3.0-3.0.4/libguile/socket.h:54:SCM_API SCM scm_from_sockaddr (const struct sockaddr *address,
guile-3.0-3.0.4/libguile/socket.h-55- unsigned addr_size);
guile-3.0-3.0.4/libguile/socket.h:56:SCM_API struct sockaddr *scm_to_sockaddr (SCM address, size_t *adress_size);
guile-3.0-3.0.4/libguile/socket.h-57-SCM_API struct sockaddr *scm_c_make_socket_address (SCM family, SCM address,
##############################################
guile-3.0-3.0.4/libguile/vm-engine.c-80- callee-saved. */
guile-3.0-3.0.4/libguile/vm-engine.c:81:# define JT_REG asm ("r12")
guile-3.0-3.0.4/libguile/vm-engine.c-82-# endif
##############################################
guile-3.0-3.0.4/libguile/vm-engine.c-285- static const void *jump_table_[256] = {
guile-3.0-3.0.4/libguile/vm-engine.c:286:#define LABEL_ADDR(opcode, tag, name, meta) &&op_##tag,
guile-3.0-3.0.4/libguile/vm-engine.c-287- FOR_EACH_VM_OPERATION(LABEL_ADDR)
##############################################
guile-3.0-3.0.4/libguile/vm-expand.h-25-#define VM_TAG(tag) VM_LABEL(tag):
guile-3.0-3.0.4/libguile/vm-expand.h:26:#define VM_ADDR(tag) &&VM_LABEL(tag)
guile-3.0-3.0.4/libguile/vm-expand.h-27-#else /* not HAVE_LABELS_AS_VALUES */
guile-3.0-3.0.4/libguile/vm-expand.h-28-#define VM_TAG(tag) case VM_OPCODE(tag):
guile-3.0-3.0.4/libguile/vm-expand.h:29:#define VM_ADDR(tag) NULL
guile-3.0-3.0.4/libguile/vm-expand.h-30-#endif /* not HAVE_LABELS_AS_VALUES */
##############################################
guile-3.0-3.0.4/libguile/vm-expand.h-56- */
guile-3.0-3.0.4/libguile/vm-expand.h:57:#define VM_DEFINE_INSTRUCTION(code,tag,name,len,npop,npush) jump_table[code] = VM_ADDR (tag);
guile-3.0-3.0.4/libguile/vm-expand.h-58-
##############################################
guile-3.0-3.0.4/m4/00gnulib.m4-37- [AC][_DEFUN([$1],
guile-3.0-3.0.4/m4/00gnulib.m4:38: [AC_REQUIRE([_gl_DEFUN_ONCE([$1])],
guile-3.0-3.0.4/m4/00gnulib.m4-39- [m4_indir([_gl_DEFUN_ONCE([$1])])])])]dnl
##############################################
guile-3.0-3.0.4/m4/exponentd.m4-107- word*bit*)
guile-3.0-3.0.4/m4/exponentd.m4:108: word=`echo "$gl_cv_cc_double_expbit0" | sed -e 's/word //' -e 's/ bit.*//'`
guile-3.0-3.0.4/m4/exponentd.m4:109: bit=`echo "$gl_cv_cc_double_expbit0" | sed -e 's/word.*bit //'`
guile-3.0-3.0.4/m4/exponentd.m4-110- AC_DEFINE_UNQUOTED([DBL_EXPBIT0_WORD], [$word],
##############################################
guile-3.0-3.0.4/m4/exponentf.m4-83- word*bit*)
guile-3.0-3.0.4/m4/exponentf.m4:84: word=`echo "$gl_cv_cc_float_expbit0" | sed -e 's/word //' -e 's/ bit.*//'`
guile-3.0-3.0.4/m4/exponentf.m4:85: bit=`echo "$gl_cv_cc_float_expbit0" | sed -e 's/word.*bit //'`
guile-3.0-3.0.4/m4/exponentf.m4-86- AC_DEFINE_UNQUOTED([FLT_EXPBIT0_WORD], [$word],
##############################################
guile-3.0-3.0.4/m4/exponentl.m4-89- word*bit*)
guile-3.0-3.0.4/m4/exponentl.m4:90: word=`echo "$gl_cv_cc_long_double_expbit0" | sed -e 's/word //' -e 's/ bit.*//'`
guile-3.0-3.0.4/m4/exponentl.m4:91: bit=`echo "$gl_cv_cc_long_double_expbit0" | sed -e 's/word.*bit //'`
guile-3.0-3.0.4/m4/exponentl.m4-92- AC_DEFINE_UNQUOTED([LDBL_EXPBIT0_WORD], [$word],
##############################################
guile-3.0-3.0.4/m4/gnulib-common.m4-426- AS_EXECUTABLE_P(["$ac_path_SED"]) || continue
guile-3.0-3.0.4/m4/gnulib-common.m4:427: case `"$ac_path_SED" --version 2>&1` in
guile-3.0-3.0.4/m4/gnulib-common.m4-428- *GNU*) ac_cv_path_SED=$ac_path_SED ac_path_SED_found=:;;
##############################################
guile-3.0-3.0.4/m4/gnulib-common.m4-439- diff conftest.out conftest.nl >/dev/null 2>&1 || break
guile-3.0-3.0.4/m4/gnulib-common.m4:440: ac_count=`expr $ac_count + 1`
guile-3.0-3.0.4/m4/gnulib-common.m4-441- if test $ac_count -gt ${ac_path_SED_max-0}; then
##############################################
guile-3.0-3.0.4/m4/gnulib-comp.m4-769-changequote(,)dnl
guile-3.0-3.0.4/m4/gnulib-comp.m4:770:LTALLOCA=`echo "$ALLOCA" | sed -e 's/\.[^.]* /.lo /g;s/\.[^.]*$/.lo/'`
guile-3.0-3.0.4/m4/gnulib-comp.m4-771-changequote([, ])dnl
##############################################
guile-3.0-3.0.4/m4/gnulib-comp.m4-1438- sed_drop_objext='s/\.o$//;s/\.obj$//'
guile-3.0-3.0.4/m4/gnulib-comp.m4:1439: for i in `for i in $gl_LIBOBJS; do echo "$i"; done | sed -e "$sed_drop_objext" | sort | uniq`; do
guile-3.0-3.0.4/m4/gnulib-comp.m4-1440- gl_libobjs="$gl_libobjs $i.$ac_objext"
##############################################
guile-3.0-3.0.4/m4/gnulib-comp.m4-1456-changequote(,)dnl
guile-3.0-3.0.4/m4/gnulib-comp.m4:1457: gltests_WITNESS=IN_`echo "${PACKAGE-$PACKAGE_TARNAME}" | LC_ALL=C tr abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ | LC_ALL=C sed -e 's/[^A-Z0-9_]/_/g'`_GNULIB_TESTS
guile-3.0-3.0.4/m4/gnulib-comp.m4-1458-changequote([, ])dnl
##############################################
guile-3.0-3.0.4/m4/gnulib-comp.m4-1485- sed_drop_objext='s/\.o$//;s/\.obj$//'
guile-3.0-3.0.4/m4/gnulib-comp.m4:1486: for i in `for i in $gltests_LIBOBJS; do echo "$i"; done | sed -e "$sed_drop_objext" | sort | uniq`; do
guile-3.0-3.0.4/m4/gnulib-comp.m4-1487- gltests_libobjs="$gltests_libobjs $i.$ac_objext"
##############################################
guile-3.0-3.0.4/m4/hostent.m4-9- dnl Where are gethostent(), sethostent(), endhostent(), gethostbyname(),
guile-3.0-3.0.4/m4/hostent.m4:10: dnl gethostbyaddr() defined?
guile-3.0-3.0.4/m4/hostent.m4-11- dnl - On Solaris, they are in libnsl. Ignore libxnet.
##############################################
guile-3.0-3.0.4/m4/iconv.m4-270- am_cv_proto_iconv="extern size_t iconv (iconv_t cd, $am_cv_proto_iconv_arg1 char * *inbuf, size_t *inbytesleft, char * *outbuf, size_t *outbytesleft);"])
guile-3.0-3.0.4/m4/iconv.m4:271: am_cv_proto_iconv=`echo "[$]am_cv_proto_iconv" | tr -s ' ' | sed -e 's/( /(/'`
guile-3.0-3.0.4/m4/iconv.m4-272- AC_MSG_RESULT([
##############################################
guile-3.0-3.0.4/m4/lib-ld.m4-14-[# I'd rather use --version here, but apparently some GNU lds only accept -v.
guile-3.0-3.0.4/m4/lib-ld.m4:15:case `$LD -v 2>&1 </dev/null` in
guile-3.0-3.0.4/m4/lib-ld.m4-16-*GNU* | *'with BFD'*)
##############################################
guile-3.0-3.0.4/m4/lib-ld.m4-56- # gcc leaves a trailing carriage return which upsets mingw
guile-3.0-3.0.4/m4/lib-ld.m4:57: ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;;
guile-3.0-3.0.4/m4/lib-ld.m4-58- *)
guile-3.0-3.0.4/m4/lib-ld.m4:59: ac_prog=`($CC -print-prog-name=ld) 2>&5` ;;
guile-3.0-3.0.4/m4/lib-ld.m4-60- esac
##############################################
guile-3.0-3.0.4/m4/lib-ld.m4-65- # Canonicalize the pathname of ld
guile-3.0-3.0.4/m4/lib-ld.m4:66: ac_prog=`echo "$ac_prog"| sed 's%\\\\%/%g'`
guile-3.0-3.0.4/m4/lib-ld.m4-67- while echo "$ac_prog" | grep "$re_direlt" > /dev/null 2>&1; do
guile-3.0-3.0.4/m4/lib-ld.m4:68: ac_prog=`echo $ac_prog| sed "s%$re_direlt%/%"`
guile-3.0-3.0.4/m4/lib-ld.m4-69- done
##############################################
guile-3.0-3.0.4/m4/lib-ld.m4-96- # Break only if it was the GNU/non-GNU ld that we prefer.
guile-3.0-3.0.4/m4/lib-ld.m4:97: case `"$acl_cv_path_LD" -v 2>&1 </dev/null` in
guile-3.0-3.0.4/m4/lib-ld.m4-98- *GNU* | *'with BFD'*)
##############################################
guile-3.0-3.0.4/m4/lib-link.m4-247- dnl or AC_LIB_HAVE_LINKFLAGS call.
guile-3.0-3.0.4/m4/lib-link.m4:248: uppername=`echo "$name" | sed -e 'y|abcdefghijklmnopqrstuvwxyz./+-|ABCDEFGHIJKLMNOPQRSTUVWXYZ____|'`
guile-3.0-3.0.4/m4/lib-link.m4-249- eval value=\"\$HAVE_LIB$uppername\"
##############################################
guile-3.0-3.0.4/m4/lib-link.m4-322- -L*)
guile-3.0-3.0.4/m4/lib-link.m4:323: dir=`echo "X$x" | sed -e 's/^X-L//'`
guile-3.0-3.0.4/m4/lib-link.m4-324- dnl First look for a shared library.
##############################################
guile-3.0-3.0.4/m4/lib-link.m4-466- */$acl_libdirstem | */$acl_libdirstem/)
guile-3.0-3.0.4/m4/lib-link.m4:467: basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e "s,/$acl_libdirstem/"'*$,,'`
guile-3.0-3.0.4/m4/lib-link.m4-468- if test "$name" = '$1'; then
##############################################
guile-3.0-3.0.4/m4/lib-link.m4-473- */$acl_libdirstem2 | */$acl_libdirstem2/)
guile-3.0-3.0.4/m4/lib-link.m4:474: basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e "s,/$acl_libdirstem2/"'*$,,'`
guile-3.0-3.0.4/m4/lib-link.m4-475- if test "$name" = '$1'; then
##############################################
guile-3.0-3.0.4/m4/lib-link.m4-529- -L*)
guile-3.0-3.0.4/m4/lib-link.m4:530: additional_libdir=`echo "X$dep" | sed -e 's/^X-L//'`
guile-3.0-3.0.4/m4/lib-link.m4-531- dnl Potentially add $additional_libdir to $LIBNAME and $LTLIBNAME.
##############################################
guile-3.0-3.0.4/m4/lib-link.m4-581- -R*)
guile-3.0-3.0.4/m4/lib-link.m4:582: dir=`echo "X$dep" | sed -e 's/^X-R//'`
guile-3.0-3.0.4/m4/lib-link.m4-583- if test "$enable_rpath" != no; then
##############################################
guile-3.0-3.0.4/m4/lib-link.m4-611- dnl Handle this in the next round.
guile-3.0-3.0.4/m4/lib-link.m4:612: names_next_round="$names_next_round "`echo "X$dep" | sed -e 's/^X-l//'`
guile-3.0-3.0.4/m4/lib-link.m4-613- ;;
##############################################
guile-3.0-3.0.4/m4/lib-link.m4-617- dnl option.
guile-3.0-3.0.4/m4/lib-link.m4:618: names_next_round="$names_next_round "`echo "X$dep" | sed -e 's,^X.*/,,' -e 's,^lib,,' -e 's,\.la$,,'`
guile-3.0-3.0.4/m4/lib-link.m4-619- ;;
##############################################
guile-3.0-3.0.4/m4/lib-link.m4-730- -L) next=yes ;;
guile-3.0-3.0.4/m4/lib-link.m4:731: -L*) dir=`echo "X$opt" | sed -e 's,^X-L,,'`
guile-3.0-3.0.4/m4/lib-link.m4-732- dnl No need to hardcode the standard /usr/lib.
##############################################
guile-3.0-3.0.4/m4/lib-prefix.m4-201- *)
guile-3.0-3.0.4/m4/lib-prefix.m4:202: searchpath=`(LC_ALL=C $CC -print-search-dirs) 2>/dev/null | sed -n -e 's,^libraries: ,,p' | sed -e 's,^=,,'`
guile-3.0-3.0.4/m4/lib-prefix.m4-203- if test -n "$searchpath"; then
##############################################
guile-3.0-3.0.4/m4/lib-prefix.m4-211- ;;
guile-3.0-3.0.4/m4/lib-prefix.m4:212: *) searchdir=`cd "$searchdir" && pwd`
guile-3.0-3.0.4/m4/lib-prefix.m4-213- case "$searchdir" in
##############################################
guile-3.0-3.0.4/m4/libunistring.m4-142- dnl Transform into the usual major.minor.subminor notation.
guile-3.0-3.0.4/m4/libunistring.m4:143: gl_libunistring_major=`expr $gl_libunistring_hexversion / 65536`
guile-3.0-3.0.4/m4/libunistring.m4:144: gl_libunistring_minor=`expr $gl_libunistring_hexversion / 256 % 256`
guile-3.0-3.0.4/m4/libunistring.m4:145: gl_libunistring_subminor=`expr $gl_libunistring_hexversion % 256`
guile-3.0-3.0.4/m4/libunistring.m4-146- gl_cv_libunistring_version="$gl_libunistring_major.$gl_libunistring_minor.$gl_libunistring_subminor"
##############################################
guile-3.0-3.0.4/m4/signbit.m4-316- word*bit*)
guile-3.0-3.0.4/m4/signbit.m4:317: word=`echo "$]$2[" | sed -e 's/word //' -e 's/ bit.*//'`
guile-3.0-3.0.4/m4/signbit.m4:318: bit=`echo "$]$2[" | sed -e 's/word.*bit //'`
guile-3.0-3.0.4/m4/signbit.m4-319- AC_DEFINE_UNQUOTED([$4][_SIGNBIT_WORD], [$word],
##############################################
guile-3.0-3.0.4/m4/stdint.m4-397- fi
guile-3.0-3.0.4/m4/stdint.m4:398: GLTYPE=`echo "$gltype" | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'`
guile-3.0-3.0.4/m4/stdint.m4-399- AC_DEFINE_UNQUOTED([BITSIZEOF_${GLTYPE}], [$result])
##############################################
guile-3.0-3.0.4/m4/stdint.m4-426- eval result=\$gl_cv_type_${gltype}_signed
guile-3.0-3.0.4/m4/stdint.m4:427: GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'`
guile-3.0-3.0.4/m4/stdint.m4-428- if test "$result" = yes; then
##############################################
guile-3.0-3.0.4/m4/stdint.m4-480- done])
guile-3.0-3.0.4/m4/stdint.m4:481: GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'`
guile-3.0-3.0.4/m4/stdint.m4-482- eval result=\$gl_cv_type_${gltype}_suffix
##############################################
guile-3.0-3.0.4/m4/warnings.m4-31-case $gl_positive in
guile-3.0-3.0.4/m4/warnings.m4:32: -Wno-*) gl_positive=-W`expr "X$gl_positive" : 'X-Wno-\(.*\)'` ;;
guile-3.0-3.0.4/m4/warnings.m4-33-esac
##############################################
guile-3.0-3.0.4/m4/wchar_h.m4-89- save_ac_compile="$ac_compile"
guile-3.0-3.0.4/m4/wchar_h.m4:90: ac_compile=`echo "$save_ac_compile" | sed s/conftest/conftest1/`
guile-3.0-3.0.4/m4/wchar_h.m4-91- if AC_TRY_EVAL([ac_compile]); then
##############################################
guile-3.0-3.0.4/m4/wchar_h.m4-104- dnl See note above about renaming object files.
guile-3.0-3.0.4/m4/wchar_h.m4:105: ac_compile=`echo "$save_ac_compile" | sed s/conftest/conftest2/`
guile-3.0-3.0.4/m4/wchar_h.m4-106- if AC_TRY_EVAL([ac_compile]); then
##############################################
guile-3.0-3.0.4/maint.mk-478- dummy=; : so we do not need a semicolon before each use; \
guile-3.0-3.0.4/maint.mk:479: h_esc=`echo '[<"]'"$$h"'[">]'|$(SED) 's/\./\\\\./g'`; \
guile-3.0-3.0.4/maint.mk-480- if $(VC_LIST_EXCEPT) | grep '\.c$$' > /dev/null; then \
##############################################
guile-3.0-3.0.4/maint.mk-1649- for sig in 1 2 3 13 15; do \
guile-3.0-3.0.4/maint.mk:1650: eval "trap 'v=`expr $$sig + 128`; (exit $$v); exit $$v' $$sig"; \
guile-3.0-3.0.4/maint.mk-1651- done; \
##############################################
guile-3.0-3.0.4/meta/Makefile.am-54-substitute = \
guile-3.0-3.0.4/meta/Makefile.am:55: guile="`echo guile | $(SED) -e '$(program_transform_name)'`" ; \
guile-3.0-3.0.4/meta/Makefile.am:56: guild="`echo guild | $(SED) -e '$(program_transform_name)'`" ; \
guile-3.0-3.0.4/meta/Makefile.am-57- installed_guile="@bindir@/$$guile" ; \
##############################################
guile-3.0-3.0.4/meta/guile.m4-182- AC_MSG_CHECKING(for Guile site directory)
guile-3.0-3.0.4/meta/guile.m4:183: GUILE_SITE=`$PKG_CONFIG --print-errors --variable=sitedir guile-$GUILE_EFFECTIVE_VERSION`
guile-3.0-3.0.4/meta/guile.m4-184- AC_MSG_RESULT($GUILE_SITE)
##############################################
guile-3.0-3.0.4/meta/guile.m4-189- AC_MSG_CHECKING([for Guile site-ccache directory using pkgconfig])
guile-3.0-3.0.4/meta/guile.m4:190: GUILE_SITE_CCACHE=`$PKG_CONFIG --variable=siteccachedir guile-$GUILE_EFFECTIVE_VERSION`
guile-3.0-3.0.4/meta/guile.m4-191- if test "$GUILE_SITE_CCACHE" = ""; then
##############################################
guile-3.0-3.0.4/meta/guile.m4-193- AC_MSG_CHECKING([for Guile site-ccache directory using interpreter])
guile-3.0-3.0.4/meta/guile.m4:194: GUILE_SITE_CCACHE=`$GUILE -c "(display (if (defined? '%site-ccache-dir) (%site-ccache-dir) \"\"))"`
guile-3.0-3.0.4/meta/guile.m4-195- if test $? != "0" -o "$GUILE_SITE_CCACHE" = ""; then
##############################################
guile-3.0-3.0.4/meta/guile.m4-203- AC_MSG_CHECKING(for Guile extensions directory)
guile-3.0-3.0.4/meta/guile.m4:204: GUILE_EXTENSION=`$PKG_CONFIG --print-errors --variable=extensiondir guile-$GUILE_EFFECTIVE_VERSION`
guile-3.0-3.0.4/meta/guile.m4-205- AC_MSG_RESULT($GUILE_EXTENSION)
##############################################
guile-3.0-3.0.4/meta/guile.m4-247- _tmp=
guile-3.0-3.0.4/meta/guile.m4:248: for v in `echo "$_guile_required_version" | tr . ' '`; do
guile-3.0-3.0.4/meta/guile.m4-249- if test -n "$_tmp"; then _tmp=$_tmp.; fi
##############################################
guile-3.0-3.0.4/meta/guile.m4-258-
guile-3.0-3.0.4/meta/guile.m4:259: _guile_suffix=`echo "$GUILE" | sed -e 's,^.*/guile\(.*\)$,\1,'`
guile-3.0-3.0.4/meta/guile.m4:260: _guile_effective_version=`$GUILE -c "(display (effective-version))"`
guile-3.0-3.0.4/meta/guile.m4-261- if test -z "$GUILE_EFFECTIVE_VERSION"; then
##############################################
guile-3.0-3.0.4/meta/guile.m4-266-
guile-3.0-3.0.4/meta/guile.m4:267: _guile_major_version=`$GUILE -c "(display (major-version))"`
guile-3.0-3.0.4/meta/guile.m4:268: _guile_minor_version=`$GUILE -c "(display (minor-version))"`
guile-3.0-3.0.4/meta/guile.m4:269: _guile_micro_version=`$GUILE -c "(display (micro-version))"`
guile-3.0-3.0.4/meta/guile.m4-270- _guile_prog_version="$_guile_major_version.$_guile_minor_version.$_guile_micro_version"
##############################################
guile-3.0-3.0.4/meta/guile.m4-272- AC_MSG_CHECKING([for Guile version >= $_guile_required_version])
guile-3.0-3.0.4/meta/guile.m4:273: _major_version=`echo $_guile_required_version | cut -d . -f 1`
guile-3.0-3.0.4/meta/guile.m4:274: _minor_version=`echo $_guile_required_version | cut -d . -f 2`
guile-3.0-3.0.4/meta/guile.m4:275: _micro_version=`echo $_guile_required_version | cut -d . -f 3`
guile-3.0-3.0.4/meta/guile.m4-276- if test "$_guile_major_version" -gt "$_major_version"; then
##############################################
guile-3.0-3.0.4/module/ice-9/ChangeLog-2008-4711- (feature?): new function: checks for a symbol in the features list.
guile-3.0-3.0.4/module/ice-9/ChangeLog-2008:4712: (module-local-variable): remove apparently useless (caddr (list m v
guile-3.0-3.0.4/module/ice-9/ChangeLog-2008-4713- ...))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-77-
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:78:(define (compile-function cps asm opts)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-79- (let* ((allocation (allocate-slots cps #:precolor-calls?
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-101- (unless (= dst src)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:102: (emit-mov asm (from-sp dst) (from-sp src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-103-
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-108- (unless (= frame-size nlocals)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:109: (emit-reset-frame asm nlocals)))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-110- (match exp
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-112- (for-each (match-lambda
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:113: ((src . dst) (emit-mov asm (from-sp dst) (from-sp src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-114- (lookup-parallel-moves label allocation))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-119- (for-each (match-lambda
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:120: ((src . dst) (emit-mov asm (from-sp dst) (from-sp src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-121- (lookup-parallel-moves label allocation))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-124- (emit-handle-interrupts asm)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:125: (emit-tail-call-label asm k))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-126- (($ $values args)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-127- (for-each (match-lambda
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:128: ((src . dst) (emit-mov asm (from-sp dst) (from-sp src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-129- (lookup-parallel-moves label allocation))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-140- (($ $const exp)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:141: (emit-load-constant asm (from-sp dst) exp))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-142- (($ $const-fun k)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:143: (emit-load-static-procedure asm (from-sp dst) k))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-144- (($ $code k)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:145: (emit-load-label asm (from-sp dst) k))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-146- (($ $primcall 'current-module)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:147: (emit-current-module asm (from-sp dst)))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-148- (($ $primcall 'current-thread)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:149: (emit-current-thread asm (from-sp dst)))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-150- (($ $primcall 'define! #f (mod sym))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:151: (emit-define! asm (from-sp dst)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-152- (from-sp (slot mod)) (from-sp (slot sym))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-153- (($ $primcall 'resolve (bound?) (name))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:154: (emit-resolve asm (from-sp dst) bound? (from-sp (slot name))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-155- (($ $primcall 'allocate-words annotation (nfields))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:156: (emit-allocate-words asm (from-sp dst) (from-sp (slot nfields))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-157- (($ $primcall 'allocate-words/immediate (annotation . nfields))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:158: (emit-allocate-words/immediate asm (from-sp dst) nfields))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-159- (($ $primcall 'allocate-pointerless-words annotation (nfields))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:160: (emit-allocate-pointerless-words asm (from-sp dst)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-161- (from-sp (slot nfields))))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-163- (annotation . nfields))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:164: (emit-allocate-pointerless-words/immediate asm (from-sp dst) nfields))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-165- (($ $primcall 'scm-ref annotation (obj idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:166: (emit-scm-ref asm (from-sp dst) (from-sp (slot obj))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-167- (from-sp (slot idx))))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-171- ('struct %tc3-struct))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:172: (emit-scm-ref/tag asm (from-sp dst) (from-sp (slot obj)) tag)))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-173- (($ $primcall 'scm-ref/immediate (annotation . idx) (obj))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:174: (emit-scm-ref/immediate asm (from-sp dst) (from-sp (slot obj)) idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-175- (($ $primcall 'word-ref annotation (obj idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:176: (emit-word-ref asm (from-sp dst) (from-sp (slot obj))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-177- (from-sp (slot idx))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-178- (($ $primcall 'word-ref/immediate (annotation . idx) (obj))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:179: (emit-word-ref/immediate asm (from-sp dst) (from-sp (slot obj)) idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-180- (($ $primcall 'pointer-ref/immediate (annotation . idx) (obj))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:181: (emit-pointer-ref/immediate asm (from-sp dst) (from-sp (slot obj)) idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-182- (($ $primcall 'tail-pointer-ref/immediate (annotation . idx) (obj))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:183: (emit-tail-pointer-ref/immediate asm (from-sp dst) (from-sp (slot obj))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-184- idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-185- (($ $primcall 'cache-ref key ())
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:186: (emit-cache-ref asm (from-sp dst) key))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-187- (($ $primcall 'resolve-module public? (name))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:188: (emit-resolve-module asm (from-sp dst) (from-sp (slot name)) public?))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-189- (($ $primcall 'module-variable #f (mod name))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:190: (emit-module-variable asm (from-sp dst) (from-sp (slot mod))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-191- (from-sp (slot name))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-192- (($ $primcall 'lookup #f (mod name))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:193: (emit-lookup asm (from-sp dst) (from-sp (slot mod))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-194- (from-sp (slot name))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-195- (($ $primcall 'lookup-bound #f (mod name))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:196: (emit-lookup-bound asm (from-sp dst) (from-sp (slot mod))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-197- (from-sp (slot name))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-198- (($ $primcall 'add/immediate y (x))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:199: (emit-add/immediate asm (from-sp dst) (from-sp (slot x)) y))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-200- (($ $primcall 'sub/immediate y (x))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:201: (emit-sub/immediate asm (from-sp dst) (from-sp (slot x)) y))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-202- (($ $primcall 'uadd/immediate y (x))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:203: (emit-uadd/immediate asm (from-sp dst) (from-sp (slot x)) y))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-204- (($ $primcall 'usub/immediate y (x))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:205: (emit-usub/immediate asm (from-sp dst) (from-sp (slot x)) y))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-206- (($ $primcall 'umul/immediate y (x))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:207: (emit-umul/immediate asm (from-sp dst) (from-sp (slot x)) y))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-208- (($ $primcall 'rsh (x y))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:209: (emit-rsh asm (from-sp dst) (from-sp (slot x)) (from-sp (slot y))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-210- (($ $primcall 'lsh (x y))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:211: (emit-lsh asm (from-sp dst) (from-sp (slot x)) (from-sp (slot y))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-212- (($ $primcall 'rsh/immediate y (x))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:213: (emit-rsh/immediate asm (from-sp dst) (from-sp (slot x)) y))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-214- (($ $primcall 'lsh/immediate y (x))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:215: (emit-lsh/immediate asm (from-sp dst) (from-sp (slot x)) y))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-216- (($ $primcall 'ursh/immediate y (x))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:217: (emit-ursh/immediate asm (from-sp dst) (from-sp (slot x)) y))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-218- (($ $primcall 'srsh/immediate y (x))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:219: (emit-srsh/immediate asm (from-sp dst) (from-sp (slot x)) y))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-220- (($ $primcall 'ulsh/immediate y (x))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:221: (emit-ulsh/immediate asm (from-sp dst) (from-sp (slot x)) y))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-222- (($ $primcall 'builtin-ref idx ())
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:223: (emit-builtin-ref asm (from-sp dst) idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-224- (($ $primcall 'scm->f64 #f (src))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:225: (emit-scm->f64 asm (from-sp dst) (from-sp (slot src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-226- (($ $primcall 'load-f64 val ())
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:227: (emit-load-f64 asm (from-sp dst) val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-228- (($ $primcall 'scm->u64 #f (src))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:229: (emit-scm->u64 asm (from-sp dst) (from-sp (slot src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-230- (($ $primcall 'scm->u64/truncate #f (src))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:231: (emit-scm->u64/truncate asm (from-sp dst) (from-sp (slot src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-232- (($ $primcall 'load-u64 val ())
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:233: (emit-load-u64 asm (from-sp dst) val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-234- (($ $primcall 'u64->scm #f (src))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:235: (emit-u64->scm asm (from-sp dst) (from-sp (slot src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-236- (($ $primcall 'scm->s64 #f (src))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:237: (emit-scm->s64 asm (from-sp dst) (from-sp (slot src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-238- (($ $primcall 'load-s64 val ())
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:239: (emit-load-s64 asm (from-sp dst) val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-240- (($ $primcall 's64->scm #f (src))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:241: (emit-s64->scm asm (from-sp dst) (from-sp (slot src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-242-
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-243- (($ $primcall 'u8-ref ann (obj ptr idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:244: (emit-u8-ref asm (from-sp dst) (from-sp (slot ptr))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-245- (from-sp (slot idx))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-246- (($ $primcall 's8-ref ann (obj ptr idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:247: (emit-s8-ref asm (from-sp dst) (from-sp (slot ptr))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-248- (from-sp (slot idx))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-249- (($ $primcall 'u16-ref ann (obj ptr idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:250: (emit-u16-ref asm (from-sp dst) (from-sp (slot ptr))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-251- (from-sp (slot idx))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-252- (($ $primcall 's16-ref ann (obj ptr idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:253: (emit-s16-ref asm (from-sp dst) (from-sp (slot ptr))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-254- (from-sp (slot idx))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-255- (($ $primcall 'u32-ref ann (obj ptr idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:256: (emit-u32-ref asm (from-sp dst) (from-sp (slot ptr))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-257- (from-sp (slot idx))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-258- (($ $primcall 's32-ref ann (obj ptr idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:259: (emit-s32-ref asm (from-sp dst) (from-sp (slot ptr))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-260- (from-sp (slot idx))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-261- (($ $primcall 'u64-ref ann (obj ptr idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:262: (emit-u64-ref asm (from-sp dst) (from-sp (slot ptr))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-263- (from-sp (slot idx))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-264- (($ $primcall 's64-ref ann (obj ptr idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:265: (emit-s64-ref asm (from-sp dst) (from-sp (slot ptr))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-266- (from-sp (slot idx))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-267- (($ $primcall 'f32-ref ann (obj ptr idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:268: (emit-f32-ref asm (from-sp dst) (from-sp (slot ptr))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-269- (from-sp (slot idx))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-270- (($ $primcall 'f64-ref ann (obj ptr idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:271: (emit-f64-ref asm (from-sp dst) (from-sp (slot ptr))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-272- (from-sp (slot idx))))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-274- (($ $primcall 'atomic-scm-ref/immediate (annotation . idx) (obj))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:275: (emit-atomic-scm-ref/immediate asm (from-sp dst) (from-sp (slot obj))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-276- idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-277- (($ $primcall 'atomic-scm-swap!/immediate (annotation . idx) (obj val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:278: (emit-atomic-scm-swap!/immediate asm (from-sp dst) (from-sp (slot obj))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-279- idx (from-sp (slot val))))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-282- (emit-atomic-scm-compare-and-swap!/immediate
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:283: asm (from-sp dst) (from-sp (slot obj)) idx (from-sp (slot expected))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-284- (from-sp (slot desired))))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-286- (($ $primcall 'untag-fixnum #f (src))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:287: (emit-untag-fixnum asm (from-sp dst) (from-sp (slot src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-288- (($ $primcall 'tag-fixnum #f (src))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:289: (emit-tag-fixnum asm (from-sp dst) (from-sp (slot src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-290- (($ $primcall 'untag-char #f (src))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:291: (emit-untag-char asm (from-sp dst) (from-sp (slot src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-292- (($ $primcall 'tag-char #f (src))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:293: (emit-tag-char asm (from-sp dst) (from-sp (slot src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-294- (($ $primcall name #f args)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-295- ;; FIXME: Inline all the cases.
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:296: (emit-text asm `((,name ,(from-sp dst)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-297- ,@(map (compose from-sp slot) args)))))))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-302- (($ $primcall 'cache-set! key (val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:303: (emit-cache-set! asm key (from-sp (slot val))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-304- (($ $primcall 'scm-set! annotation (obj idx val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:305: (emit-scm-set! asm (from-sp (slot obj)) (from-sp (slot idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-306- (from-sp (slot val))))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-310- ('struct %tc3-struct))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:311: (emit-scm-set!/tag asm (from-sp (slot obj)) tag
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-312- (from-sp (slot val)))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-313- (($ $primcall 'scm-set!/immediate (annotation . idx) (obj val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:314: (emit-scm-set!/immediate asm (from-sp (slot obj)) idx
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-315- (from-sp (slot val))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-316- (($ $primcall 'word-set! annotation (obj idx val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:317: (emit-word-set! asm (from-sp (slot obj)) (from-sp (slot idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-318- (from-sp (slot val))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-319- (($ $primcall 'word-set!/immediate (annotation . idx) (obj val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:320: (emit-word-set!/immediate asm (from-sp (slot obj)) idx
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-321- (from-sp (slot val))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-322- (($ $primcall 'pointer-set!/immediate (annotation . idx) (obj val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:323: (emit-pointer-set!/immediate asm (from-sp (slot obj)) idx
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-324- (from-sp (slot val))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-325- (($ $primcall 'string-set! #f (string index char))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:326: (emit-string-set! asm (from-sp (slot string)) (from-sp (slot index))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-327- (from-sp (slot char))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-328- (($ $primcall 'push-fluid #f (fluid val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:329: (emit-push-fluid asm (from-sp (slot fluid)) (from-sp (slot val))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-330- (($ $primcall 'pop-fluid #f ())
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-332- (($ $primcall 'push-dynamic-state #f (state))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:333: (emit-push-dynamic-state asm (from-sp (slot state))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-334- (($ $primcall 'pop-dynamic-state #f ())
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-336- (($ $primcall 'wind #f (winder unwinder))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:337: (emit-wind asm (from-sp (slot winder)) (from-sp (slot unwinder))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-338-
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-339- (($ $primcall 'u8-set! ann (obj ptr idx val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:340: (emit-u8-set! asm (from-sp (slot ptr)) (from-sp (slot idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-341- (from-sp (slot val))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-342- (($ $primcall 's8-set! ann (obj ptr idx val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:343: (emit-s8-set! asm (from-sp (slot ptr)) (from-sp (slot idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-344- (from-sp (slot val))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-345- (($ $primcall 'u16-set! ann (obj ptr idx val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:346: (emit-u16-set! asm (from-sp (slot ptr)) (from-sp (slot idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-347- (from-sp (slot val))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-348- (($ $primcall 's16-set! ann (obj ptr idx val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:349: (emit-s16-set! asm (from-sp (slot ptr)) (from-sp (slot idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-350- (from-sp (slot val))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-351- (($ $primcall 'u32-set! ann (obj ptr idx val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:352: (emit-u32-set! asm (from-sp (slot ptr)) (from-sp (slot idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-353- (from-sp (slot val))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-354- (($ $primcall 's32-set! ann (obj ptr idx val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:355: (emit-s32-set! asm (from-sp (slot ptr)) (from-sp (slot idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-356- (from-sp (slot val))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-357- (($ $primcall 'u64-set! ann (obj ptr idx val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:358: (emit-u64-set! asm (from-sp (slot ptr)) (from-sp (slot idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-359- (from-sp (slot val))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-360- (($ $primcall 's64-set! ann (obj ptr idx val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:361: (emit-s64-set! asm (from-sp (slot ptr)) (from-sp (slot idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-362- (from-sp (slot val))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-363- (($ $primcall 'f32-set! ann (obj ptr idx val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:364: (emit-f32-set! asm (from-sp (slot ptr)) (from-sp (slot idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-365- (from-sp (slot val))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-366- (($ $primcall 'f64-set! ann (obj ptr idx val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:367: (emit-f64-set! asm (from-sp (slot ptr)) (from-sp (slot idx))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-368- (from-sp (slot val))))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-372- (($ $primcall 'fluid-set! #f (fluid value))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:373: (emit-fluid-set! asm (from-sp (slot fluid)) (from-sp (slot value))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-374- (($ $primcall 'atomic-scm-set!/immediate (annotation . idx) (obj val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:375: (emit-atomic-scm-set!/immediate asm (from-sp (slot obj)) idx
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-376- (from-sp (slot val))))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-383- (#('throw #f (key args))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:384: (emit-throw asm (from-sp (slot key)) (from-sp (slot args))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-385- (#('throw/value param (val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:386: (emit-throw/value asm (from-sp (slot val)) param))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-387- (#('throw/value+data param (val))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:388: (emit-throw/value+data asm (from-sp (slot val)) param))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-389-
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-398- moves))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:399: (emit-reset-frame asm nlocals)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-400- (lp moves #t))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-404- (((src . dst) . moves)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:405: (emit-fmov asm dst src)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-406- (lp moves reset-frame?)))))))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-413- (proc-slot (lookup-call-proc-slot label allocation)))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:414: (emit-prompt asm (from-sp (slot tag)) escape? proc-slot
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-415- receive-args)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:416: (emit-j asm k)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:417: (emit-label asm receive-args)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-418- (unless (and rest (zero? nreq))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:419: (emit-receive-values asm proc-slot (->bool rest) nreq))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-420- (when (and rest
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-423- (maybe-slot rest))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:424: (emit-bind-rest asm (+ proc-slot nreq)))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-425- (emit-parallel-moves-after-return-and-reset-frame kh frame-size)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:426: (emit-j asm (forward-label khandler-body))))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-427-
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-431- (for-each (match-lambda
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:432: ((src . dst) (emit-mov asm (from-sp dst) (from-sp src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-433- (lookup-parallel-moves label allocation)))))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-446- ((eq? kt next-label)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:447: (emit-jf asm kf))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-448- ((eq? kf next-label)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:449: (emit-jt asm kt))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-450- ((prefer-true?)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:451: (emit-jt asm kt)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:452: (emit-j asm kf))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-453- (else
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:454: (emit-jf asm kf)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:455: (emit-j asm kt))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-456- (define (unary op a)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:457: (op asm (from-sp (slot a)))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-458- (emit-branch emit-je emit-jne))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-459- (define (binary op emit-jt emit-jf a b)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:460: (op asm (from-sp (slot a)) (from-sp (slot b)))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-461- (emit-branch emit-jt emit-jf))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-468- (define (binary-test/imm op a b)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:469: (op asm (from-sp (slot a)) b)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-470- (emit-branch emit-je emit-jne))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-471- (define (binary-</imm op a b)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:472: (op asm (from-sp (slot a)) b)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-473- (emit-branch emit-jl emit-jnl))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-548- (for-each (match-lambda
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:549: ((src . dst) (emit-mov asm (from-sp dst) (from-sp src))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-550- (lookup-parallel-moves label allocation))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-551- (emit-handle-interrupts asm)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:552: (emit-call asm proc-slot nargs)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:553: (emit-slot-map asm proc-slot (lookup-slot-map label allocation))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-554- (cond
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-562- => (lambda (dst)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:563: (emit-receive asm dst proc-slot frame-size)))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-564- (else
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-565- (unless (and (zero? nreq) rest-var)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:566: (emit-receive-values asm proc-slot (->bool rest-var) nreq))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-567- (when (and rest-var (maybe-slot rest-var))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:568: (emit-bind-rest asm (+ proc-slot nreq)))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-569- (emit-parallel-moves-after-return-and-reset-frame k frame-size)))))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-572- (do-call proc args
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:573: (lambda (asm proc-slot nargs)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:574: (emit-call asm proc-slot nargs))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-575- (($ $callk k proc args)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-576- (do-call proc args
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:577: (lambda (asm proc-slot nargs)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:578: (emit-call-label asm proc-slot nargs k))))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-579-
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-589- (unless fallthrough?
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:590: (emit-j asm forwarded-k)))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-591- (match (intmap-ref cps k)
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-613- (unless fallthrough?
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:614: (emit-j asm kargs)))))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-615-
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-619- (when src
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:620: (emit-source asm src))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-621- (unless (elide-cont? label)
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-624- (when src
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:625: (emit-source asm src))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-626- (compile-test label (skip-elided-conts (1+ label))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-630- (when src
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:631: (emit-source asm src))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-632- (compile-prompt label (skip-elided-conts k) kh escape? tag))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-634- (when src
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:635: (emit-source asm src))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-636- (compile-throw op param args))))
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-641- (when src
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:642: (emit-source asm src))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:643: (emit-begin-program asm label meta))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-644- (($ $kclause ($ $arity req opt rest kw allow-other-keys?) body alt)
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-655- (emit-end-arity asm))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:656: (emit-label asm label)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:657: (emit-begin-kw-arity asm has-closure? req opt rest kw-indices
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-658- allow-other-keys? frame-size alt)
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-660- ;; Most arities define a closure binding in slot 0.
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:661: (emit-definition asm 'closure 0 'scm))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-662- ;; Usually we just fall through, but it could be the body is
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-665- (unless (= body (skip-elided-conts (1+ label)))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:666: (emit-j asm body)))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-667- (($ $kargs names vars term)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:668: (emit-label asm label)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-669- (for-each (lambda (name var)
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-672- (let ((repr (lookup-representation var allocation)))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:673: (emit-definition asm name slot repr)))))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-674- names vars)
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-676- (($ $kreceive arity kargs)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:677: (emit-label asm label))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-678- (($ $ktail)
##############################################
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-684-(define (compile-bytecode exp env opts)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:685: (let ((asm (make-assembler)))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-686- (intmap-for-each (lambda (kfun body)
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:687: (compile-function (intmap-select exp body) asm opts))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-688- (compute-reachable-functions exp 0))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm:689: (values (link-assembly asm #:page-aligned? (kw-arg-ref opts #:to-file? #f))
guile-3.0-3.0.4/module/language/cps/compile-bytecode.scm-690- env
##############################################
guile-3.0-3.0.4/module/language/scheme/decompile-tree-il.scm-318- ,@(map list
guile-3.0-3.0.4/module/language/scheme/decompile-tree-il.scm:319: (map output-name (map caddr (cdr kw)))
guile-3.0-3.0.4/module/language/scheme/decompile-tree-il.scm-320- (map recurse
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-43-
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:44:(define (emit-box asm dst src)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-45- (cond
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-46- ((= src dst)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:47: (emit-mov asm 1 src)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:48: (emit-box asm dst 1))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-49- (else
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-50- (let ((tmp 0))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:51: (emit-allocate-words/immediate asm dst 2)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:52: (emit-load-u64 asm tmp %tc7-variable)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:53: (emit-word-set!/immediate asm dst 0 tmp)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:54: (emit-word-set!/immediate asm dst 1 src)))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:55:(define (emit-box-set! asm loc val)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:56: (emit-scm-set!/immediate asm loc 1 val))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:57:(define (emit-box-ref asm dst loc)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:58: (emit-scm-ref/immediate asm dst loc 1))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:59:(define (emit-cons asm dst car cdr)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-60- (cond
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-61- ((= car dst)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:62: (emit-mov asm 1 car)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:63: (emit-cons asm dst 1 (if (= cdr dst) 1 cdr)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-64- ((= cdr dst)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:65: (emit-mov asm 1 cdr)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:66: (emit-cons asm dst car 1))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-67- (else
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:68: (emit-allocate-words/immediate asm dst 2)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:69: (emit-scm-set!/immediate asm dst 0 car)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:70: (emit-scm-set!/immediate asm dst 1 cdr))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-71-
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:72:(define (emit-cached-module-box asm dst mod name public? bound? tmp)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-73- (define key (cons mod name))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-74- (define cached (gensym "cached"))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:75: (emit-cache-ref asm dst key)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:76: (emit-heap-object? asm dst)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:77: (emit-je asm cached)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:78: (emit-load-constant asm dst mod)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:79: (emit-resolve-module asm dst dst public?)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:80: (emit-load-constant asm tmp name)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-81- (if bound?
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:82: (emit-lookup-bound asm dst dst tmp)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:83: (emit-lookup asm dst dst tmp))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:84: (emit-cache-set! asm key dst)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:85: (emit-label asm cached))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:86:(define (emit-cached-toplevel-box asm dst scope name bound? tmp)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-87- (define key (cons scope name))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-88- (define cached (gensym "cached"))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:89: (emit-cache-ref asm dst key)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:90: (emit-heap-object? asm dst)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:91: (emit-je asm cached)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:92: (emit-cache-ref asm dst scope)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:93: (emit-load-constant asm tmp name)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-94- (if bound?
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:95: (emit-lookup-bound asm dst dst tmp)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:96: (emit-lookup asm dst dst tmp))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:97: (emit-cache-set! asm key dst)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:98: (emit-label asm cached))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:99:(define (emit-toplevel-box asm dst name bound? tmp)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:100: (emit-current-module asm dst)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:101: (emit-load-constant asm tmp name)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-102- (if bound?
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:103: (emit-lookup-bound asm dst dst tmp)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:104: (emit-lookup asm dst dst tmp)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-105-
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-106-(define closure-header-words 2)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:107:(define (emit-allocate-closure asm dst nfree label tmp)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-108- (let ((nwords (+ nfree closure-header-words)))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-110- ((u12? nwords)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:111: (emit-allocate-words/immediate asm dst nwords))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-112- (else
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:113: (emit-load-u64 asm tmp nwords)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:114: (emit-allocate-words asm dst tmp)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:115: (emit-load-u64 asm tmp (+ %tc7-program (ash nfree 16)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:116: (emit-word-set!/immediate asm dst 0 tmp)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:117: (emit-load-label asm tmp label)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:118: (emit-word-set!/immediate asm dst 1 tmp)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:119:(define (emit-maybe-allocate-closure asm dst nfree label tmp)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-120- (if (zero? nfree)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:121: (emit-load-static-procedure asm dst label)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:122: (emit-allocate-closure asm dst nfree label tmp)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:123:(define (emit-load-free-variable asm dst src idx tmp)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-124- (let ((idx (+ idx closure-header-words)))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-126- ((u8? idx)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:127: (emit-scm-ref/immediate asm dst src idx))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-128- (else
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:129: (emit-load-u64 asm tmp idx)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:130: (emit-scm-ref asm dst src tmp)))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:131:(define (emit-init-free-variable asm closure idx val tmp)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-132- (let ((idx (+ idx closure-header-words)))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-134- ((u8? idx)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:135: (emit-scm-set!/immediate asm closure idx val))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-136- (else
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:137: (emit-load-u64 asm tmp idx)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:138: (emit-scm-set! asm closure tmp val)))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-139-
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-140-(define vector-header-words 1)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:141:(define (emit-allocate-vector asm dst len tmp)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-142- (let ((nwords (+ len vector-header-words)))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-144- ((u12? nwords)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:145: (emit-allocate-words/immediate asm dst nwords))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-146- (else
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:147: (emit-load-u64 asm tmp nwords)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:148: (emit-allocate-words asm dst tmp)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:149: (emit-load-u64 asm tmp (+ %tc7-vector (ash len 8)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:150: (emit-word-set!/immediate asm dst 0 tmp)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:151:(define (emit-vector-init! asm v idx val tmp)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-152- (let ((idx (+ idx vector-header-words)))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-154- ((u8? idx)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:155: (emit-scm-set!/immediate asm v idx val))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-156- (else
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:157: (emit-load-u64 asm tmp idx)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:158: (emit-scm-set! asm v tmp val)))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-159-
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-160-(define struct-header-words 1)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:161:(define (emit-struct-init! asm s idx val tmp)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-162- (let ((idx (+ idx struct-header-words)))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-164- ((u8? idx)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:165: (emit-scm-set!/immediate asm s idx val))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-166- (else
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:167: (emit-load-u64 asm tmp idx)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:168: (emit-scm-set! asm s tmp val)))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-169-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-295-
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:296: (eq? #:nargs 2 #:predicate? #t #:emit (lambda (asm a b kf)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:297: (emit-eq? asm a b)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:298: (emit-jne asm kf)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:299: (< #:nargs 2 #:predicate? #t #:emit (lambda (asm a b kf)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:300: (emit-<? asm a b)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:301: (emit-jnl asm kf)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:302: (<= #:nargs 2 #:predicate? #t #:emit (lambda (asm a b kf)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:303: (emit-<? asm b a)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:304: (emit-jnge asm kf)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:305: (= #:nargs 2 #:predicate? #t #:emit (lambda (asm a b kf)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:306: (emit-=? asm a b)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:307: (emit-jne asm kf))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-308-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-317- ((_ pred)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:318: #`(lambda (asm a kf)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:319: (#,(id-prepend 'emit- #'pred) asm a)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:320: (emit-jne asm kf))))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-321-(define-syntax-rule (define-immediate-type-predicate name pred mask tag)
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-325- (define-primitive pred #:nargs 1 #:predicate? #t
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:326: #:emit (lambda (asm a kf)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:327: (emit-heap-object? asm a)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:328: (emit-jne asm kf)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:329: ((predicate-emitter pred) asm a kf))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-330-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-703-
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:704:(define (compile-closure asm closure assigned? lookup-closure)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-705- (define-record-type <env>
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-748- (let ((idx (env-next-local env)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:749: (emit-definition asm name (- frame-size idx 1) 'scm)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-750- (make-env env name sym idx #f (assigned? sym) (1- idx))))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-787- (unless module-scope
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:788: (emit-current-module asm 0)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:789: (emit-cache-set! asm scope 0)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-790-
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-791- (define (maybe-emit-source source)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:792: (when source (emit-source asm source)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-793-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-800- ((env-closure? loc)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:801: (emit-load-free-variable asm tmp0 (1- frame-size) idx tmp1)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:802: (emit-init-free-variable asm dst free-idx tmp0 tmp1))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-803- (else
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:804: (emit-init-free-variable asm dst free-idx idx tmp0))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-805- (lp (1+ free-idx) (cdr free-vars)))))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-812- (when (env-boxed? env)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:813: (emit-box asm (env-idx env) (env-idx env)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-814- env))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-819- (unless (and rest (zero? nreq))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:820: (emit-receive-values asm proc-slot (->bool rest) nreq))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-821- (when rest
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:822: (emit-bind-rest asm (+ proc-slot nreq)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:823: (emit-reset-frame asm frame-size)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-824- (let ((names (append req (if rest (list rest) '()))))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-837-
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:838: (emit-prompt asm tag escape-only? proc-slot khandler)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-839- (match ctx
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-849- (emit-unwind asm)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:850: (emit-j asm done)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-851-
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:852: (emit-label asm khandler)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-853- (visit-values-handler hsrc hreq hrest hsyms hbody env ctx)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-854-
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:855: (emit-label asm done)))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-856-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-867- (match args
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:868: ((a) (emit asm a kf))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:869: ((a b) (emit asm a b kf)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-870- (for-context consequent env ctx)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-871- (unless (eq? ctx 'tail)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:872: (emit-j asm kdone))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:873: (emit-label asm kf)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-874- (for-context alternate env ctx)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:875: (emit-label asm kdone)))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-876-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-889- (when (env-boxed? env)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:890: (emit-box asm (env-idx env) (env-idx env)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-891- env))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-908- (emit-maybe-allocate-closure
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:909: asm (env-idx env) (length free-vars) label 0)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-910- env))))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-963- (($ <env> _ _ _ idx #t #t) ;; Boxed closure.
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:964: (emit-load-free-variable asm 0 (1- frame-size) idx 0)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:965: (emit-box-set! asm 0 (env-idx env)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-966- (($ <env> _ _ _ idx #f #t) ;; Boxed local.
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:967: (emit-box-set! asm idx (env-idx env))))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-968-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-971- (maybe-emit-source src)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:972: (emit-cached-module-box asm 0 mod name public? #f 1)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:973: (emit-box-set! asm 0 (env-idx env))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-974-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-978- (if module-scope
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:979: (emit-cached-toplevel-box asm 0 module-scope name #f 1)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:980: (emit-toplevel-box asm 0 name #f 1))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:981: (emit-box-set! asm 0 (env-idx env))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-982-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-985- (maybe-emit-source src)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:986: (emit-current-module asm 0)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:987: (emit-load-constant asm 1 name)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:988: (emit-define! asm 0 0 1)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:989: (emit-box-set! asm 0 (env-idx env))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-990-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-996- (emit-handle-interrupts asm)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:997: (emit-call asm proc-slot (1+ (length args)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:998: (emit-reset-frame asm frame-size)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-999-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1014- (maybe-emit-source src)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1015: (emit asm a b)))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1016- ((a ($ <const> _ (? emit/immediate? b)) c)
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1020- (maybe-emit-source src)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1021: (emit asm a b c)))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1022- (_
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1025- (maybe-emit-source src)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1026: (apply emit asm args))))))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1027-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1082- (($ <env> _ _ _ idx #t #t)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1083: (emit-load-free-variable asm dst (1- frame-size) idx 0)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1084: (emit-box-ref asm dst dst))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1085- (($ <env> _ _ _ idx #t #f)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1086: (emit-load-free-variable asm dst (1- frame-size) idx 0))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1087- (($ <env> _ _ _ idx #f #t)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1088: (emit-box-ref asm dst idx))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1089- (($ <env> _ _ _ idx #f #f)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1090: (emit-mov asm dst idx))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1091-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1093- (maybe-emit-source src)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1094: (emit-load-constant asm dst val))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1095-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1097- (maybe-emit-source src)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1098: (emit-cached-module-box asm 0 mod name public? #t 1)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1099: (emit-box-ref asm dst 0))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1100-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1103- (if module-scope
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1104: (emit-cached-toplevel-box asm 0 module-scope name #t 1)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1105: (emit-toplevel-box asm 0 name #t 1))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1106: (emit-box-ref asm dst 0))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1107-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1114- (0
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1115: (emit-load-static-procedure asm dst label))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1116- (nfree
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1118- ;; vars.
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1119: (emit-allocate-closure asm 0 nfree label 1)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1120- (init-free-vars 0 free-vars env 1 2)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1121: (emit-mov asm dst 0))))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1122-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1127- (for-effect exp env)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1128: (emit-load-constant asm dst *unspecified*))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1129-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1135- (emit-handle-interrupts asm)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1136: (emit-call asm proc-slot (1+ (length args)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1137: (emit-receive asm (stack-height-under-local dst) proc-slot
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1138- frame-size)))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1145- ('list
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1146: (emit-load-constant asm 0 '())
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1147- (for-each (lambda (arg)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1148: (emit-cons asm 0 arg 0))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1149- (reverse args)))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1151- (let ((len (length args)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1152: (emit-allocate-vector asm 0 len 1)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1153- (let lp ((i 0) (args args))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1154- (when (< i len)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1155: (emit-vector-init! asm 0 i (car args) 1)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1156- (lp (1+ i) (cdr args))))))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1159- ((vtable . args)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1160: (emit-load-constant asm 0 (length args))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1161: (emit-$allocate-struct asm 0 vtable 0)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1162- (let lp ((i 0) (args args))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1165- ((arg . args)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1166: (emit-struct-init! asm 0 i arg 1)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1167- (lp (1+ i) args))))))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1168: (emit-mov asm dst 0)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1169-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1177- (for-effect exp env)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1178: (emit-load-constant asm dst *unspecified*))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1179- (else
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1183- (maybe-emit-source src)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1184: (emit asm dst a)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1185- ((a ($ <const> _ (? emit/immediate? b)))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1188- (maybe-emit-source src)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1189: (emit asm dst (env-idx a) b)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1190- (_
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1193- (maybe-emit-source src)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1194: (apply emit asm dst args))))))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1195-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1219- (let ((done (gensym "post-init")))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1220: (emit-undefined? asm idx)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1221: (emit-jne asm done)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1222- (for-value-at init env idx)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1223: (emit-label asm done)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1224- (when boxed?
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1225: (emit-box asm idx idx)))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1226-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1239- (for-value-at exp env (- frame-size height 1))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1240: (emit-reset-frame asm (1+ height)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1241-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1247- (emit-handle-interrupts asm)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1248: (emit-call asm from (1+ (length args)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1249- (unless (= from height)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1250: (emit-shuffle-down asm from height))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1251-
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1284- (lp (1- i) (env-prev env))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1285: (emit-mov asm (+ (env-idx env) base) (env-idx env))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1286: (emit-reset-frame asm (+ 1 (length args)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1287- (emit-handle-interrupts asm)
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1331- (lambda (allow-other-keys? kw-indices)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1332: (when label (emit-label asm label))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1333- (let ((has-closure? #t) (opt (or opt '())))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1334: (emit-begin-kw-arity asm has-closure? req opt rest kw-indices
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1335- allow-other-keys? frame-size alt-label))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1341- (($ <closure> label ($ <lambda> src meta body) module-scope free)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1342: (when src (emit-source asm src))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1343: (emit-begin-program asm label meta)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1344- (emit-clause #f body module-scope free)
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1353- (let* ((exp (canonicalize exp))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1354: (asm (make-assembler)))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1355- (call-with-values (lambda () (split-closures exp))
##############################################
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1365- (for-each (lambda (closure)
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1366: (compile-closure asm closure assigned? lookup-closure))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1367- closures))))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm:1368: (values (link-assembly asm #:page-aligned? (kw-arg-ref opts #:to-file? #f))
guile-3.0-3.0.4/module/language/tree-il/compile-bytecode.scm-1369- env
##############################################
guile-3.0-3.0.4/module/language/tree-il/primitives.scm-475-(define-primitive-expander cadar (x) (car (cdr (car x))))
guile-3.0-3.0.4/module/language/tree-il/primitives.scm:476:(define-primitive-expander caddr (x) (car (cdr (cdr x))))
guile-3.0-3.0.4/module/language/tree-il/primitives.scm-477-(define-primitive-expander cdaar (x) (cdr (car (car x))))
##############################################
guile-3.0-3.0.4/module/language/tree-il/primitives.scm-483-(define-primitive-expander caadar (x) (car (car (cdr (car x)))))
guile-3.0-3.0.4/module/language/tree-il/primitives.scm:484:(define-primitive-expander caaddr (x) (car (car (cdr (cdr x)))))
guile-3.0-3.0.4/module/language/tree-il/primitives.scm-485-(define-primitive-expander cadaar (x) (car (cdr (car (car x)))))
##############################################
guile-3.0-3.0.4/module/language/tree-il/primitives.scm-491-(define-primitive-expander cdadar (x) (cdr (car (cdr (car x)))))
guile-3.0-3.0.4/module/language/tree-il/primitives.scm:492:(define-primitive-expander cdaddr (x) (cdr (car (cdr (cdr x)))))
guile-3.0-3.0.4/module/language/tree-il/primitives.scm-493-(define-primitive-expander cddaar (x) (cdr (cdr (car (car x)))))
##############################################
guile-3.0-3.0.4/module/scripts/doc-snarf.scm-202- (eq? 'lambda (car (caddr form)))
guile-3.0-3.0.4/module/scripts/doc-snarf.scm:203: (string? (caddr (caddr form))))
guile-3.0-3.0.4/module/scripts/doc-snarf.scm:204: (caddr (caddr form)))
guile-3.0-3.0.4/module/scripts/doc-snarf.scm-205- (else #f))))
##############################################
guile-3.0-3.0.4/module/scripts/read-scheme-source.scm-117- (eq? 'lambda (car (caddr form)))
guile-3.0-3.0.4/module/scripts/read-scheme-source.scm:118: (string? (caddr (caddr form))))
guile-3.0-3.0.4/module/scripts/read-scheme-source.scm-119- (note! ':type 'procedure)
guile-3.0-3.0.4/module/scripts/read-scheme-source.scm-120- (note! ':signature (cons (cadr form) (cadr (caddr form))))
guile-3.0-3.0.4/module/scripts/read-scheme-source.scm:121: (note! ':std-int-doc (caddr (caddr form))))
guile-3.0-3.0.4/module/scripts/read-scheme-source.scm-122- ((and (list? form)
##############################################
guile-3.0-3.0.4/module/srfi/srfi-1.scm-347-(define (sixth x) (cadr (cddddr x)))
guile-3.0-3.0.4/module/srfi/srfi-1.scm:348:(define (seventh x) (caddr (cddddr x)))
guile-3.0-3.0.4/module/srfi/srfi-1.scm-349-(define (eighth x) (cadddr (cddddr x)))
##############################################
guile-3.0-3.0.4/module/system/base/lalr.upstream.scm-1041- (define (get-symbol-precedence sym)
guile-3.0-3.0.4/module/system/base/lalr.upstream.scm:1042: (caddr (vector-ref the-terminals/prec sym)))
guile-3.0-3.0.4/module/system/base/lalr.upstream.scm-1043- ; the operator type is either 'none, 'left, 'right, or 'nonassoc
##############################################
guile-3.0-3.0.4/module/system/repl/debug.scm-102- (when info
guile-3.0-3.0.4/module/system/repl/debug.scm:103: (let ((addr (program-debug-info-addr info)))
guile-3.0-3.0.4/module/system/repl/debug.scm:104: (format port " (#x~x + ~d * 4)" addr (/ (- ip addr) 4)))))
guile-3.0-3.0.4/module/system/repl/debug.scm-105- (newline port))
##############################################
guile-3.0-3.0.4/module/system/repl/server.scm-73- (host #f)
guile-3.0-3.0.4/module/system/repl/server.scm:74: (addr (if host
guile-3.0-3.0.4/module/system/repl/server.scm-75- (inet-pton AF_INET host)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-501-(define-record-type <asm>
guile-3.0-3.0.4/module/system/vm/assembler.scm:502: (make-asm buf pos start
guile-3.0-3.0.4/module/system/vm/assembler.scm-503- labels relocs
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-586-target."
guile-3.0-3.0.4/module/system/vm/assembler.scm:587: (make-asm (make-u32vector 1000) 0 0
guile-3.0-3.0.4/module/system/vm/assembler.scm-588- (make-hash-table) '()
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-593-
guile-3.0-3.0.4/module/system/vm/assembler.scm:594:(define (intern-section-name! asm string)
guile-3.0-3.0.4/module/system/vm/assembler.scm-595- "Add a string to the section name table (shstrtab)."
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-603- (bytevector-copy! buf 0 new 0 len)
guile-3.0-3.0.4/module/system/vm/assembler.scm:604: (set-asm-buf! asm new)
guile-3.0-3.0.4/module/system/vm/assembler.scm-605- #f))
guile-3.0-3.0.4/module/system/vm/assembler.scm-606-
guile-3.0-3.0.4/module/system/vm/assembler.scm:607:(define-inline (emit asm u32)
guile-3.0-3.0.4/module/system/vm/assembler.scm-608- "Emit one 32-bit word into the instruction stream. Assumes that there
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-610- (bytevector-u32-native-set! (asm-buf asm) (asm-pos asm) u32)
guile-3.0-3.0.4/module/system/vm/assembler.scm:611: (set-asm-pos! asm (+ (asm-pos asm) 4)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-612-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-622- "Reset the asm-start after writing the words for one instruction."
guile-3.0-3.0.4/module/system/vm/assembler.scm:623: (set-asm-start! asm (asm-pos asm)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-624-
guile-3.0-3.0.4/module/system/vm/assembler.scm:625:(define (record-label-reference asm label)
guile-3.0-3.0.4/module/system/vm/assembler.scm-626- "Record an x8-s24 local label reference. This value will get patched
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-630- (reloc (make-reloc 'x8-s24 label start (- pos start))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:631: (set-asm-relocs! asm (cons reloc (asm-relocs asm)))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-632-
guile-3.0-3.0.4/module/system/vm/assembler.scm:633:(define* (record-far-label-reference asm label #:optional (offset 0))
guile-3.0-3.0.4/module/system/vm/assembler.scm-634- "Record an s32 far label reference. This value will get patched up
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-638- (reloc (make-reloc 's32 label start (- pos start))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:639: (set-asm-relocs! asm (cons reloc (asm-relocs asm)))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-640-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-657- (syntax-case x ()
guile-3.0-3.0.4/module/system/vm/assembler.scm:658: ((_ asm name ((type arg ...) code ...) clause ...)
guile-3.0-3.0.4/module/system/vm/assembler.scm-659- #`(if (eq? name 'type)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-662- code ...))
guile-3.0-3.0.4/module/system/vm/assembler.scm:663: (op-case asm name clause ...)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:664: ((_ asm name)
guile-3.0-3.0.4/module/system/vm/assembler.scm-665- #'(error "unmatched name" name)))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-666-
guile-3.0-3.0.4/module/system/vm/assembler.scm:667: (define (pack-first-word asm opcode type)
guile-3.0-3.0.4/module/system/vm/assembler.scm-668- (with-syntax ((opcode opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-669- (op-case
guile-3.0-3.0.4/module/system/vm/assembler.scm:670: asm type
guile-3.0-3.0.4/module/system/vm/assembler.scm-671- ((X32)
guile-3.0-3.0.4/module/system/vm/assembler.scm:672: (emit asm opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-673- ((X8_S24 arg)
guile-3.0-3.0.4/module/system/vm/assembler.scm:674: (emit asm (pack-u8-u24 opcode arg)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-675- ((X8_F24 arg)
guile-3.0-3.0.4/module/system/vm/assembler.scm:676: (emit asm (pack-u8-u24 opcode arg)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-677- ((X8_C24 arg)
guile-3.0-3.0.4/module/system/vm/assembler.scm:678: (emit asm (pack-u8-u24 opcode arg)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-679- ((X8_L24 label)
guile-3.0-3.0.4/module/system/vm/assembler.scm:680: (record-label-reference asm label)
guile-3.0-3.0.4/module/system/vm/assembler.scm:681: (emit asm opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-682- ((X8_S8_I16 a imm)
guile-3.0-3.0.4/module/system/vm/assembler.scm:683: (emit asm (pack-u8-u8-u16 opcode a (immediate-bits asm imm))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-684- ((X8_S12_S12 a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:685: (emit asm (pack-u8-u12-u12 opcode a b)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-686- ((X8_S12_C12 a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:687: (emit asm (pack-u8-u12-u12 opcode a b)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-688- ((X8_S12_Z12 a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:689: (emit asm (pack-u8-u12-s12 opcode a b)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-690- ((X8_C12_C12 a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:691: (emit asm (pack-u8-u12-u12 opcode a b)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-692- ((X8_F12_F12 a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:693: (emit asm (pack-u8-u12-u12 opcode a b)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-694- ((X8_S8_S8_S8 a b c)
guile-3.0-3.0.4/module/system/vm/assembler.scm:695: (emit asm (pack-u8-u8-u8-u8 opcode a b c)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-696- ((X8_S8_S8_C8 a b c)
guile-3.0-3.0.4/module/system/vm/assembler.scm:697: (emit asm (pack-u8-u8-u8-u8 opcode a b c)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-698- ((X8_S8_C8_S8 a b c)
guile-3.0-3.0.4/module/system/vm/assembler.scm:699: (emit asm (pack-u8-u8-u8-u8 opcode a b c))))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-700-
guile-3.0-3.0.4/module/system/vm/assembler.scm:701: (define (pack-tail-word asm type)
guile-3.0-3.0.4/module/system/vm/assembler.scm-702- (op-case
guile-3.0-3.0.4/module/system/vm/assembler.scm:703: asm type
guile-3.0-3.0.4/module/system/vm/assembler.scm-704- ((C32 a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:705: (emit asm a))
guile-3.0-3.0.4/module/system/vm/assembler.scm-706- ((I32 imm)
guile-3.0-3.0.4/module/system/vm/assembler.scm:707: (let ((val (immediate-bits asm imm)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:708: (emit asm val)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-709- ((A32 imm)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-711- (error "make-long-immediate unavailable for this target"))
guile-3.0-3.0.4/module/system/vm/assembler.scm:712: (let ((bits (immediate-bits asm imm)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:713: (emit asm (ash bits -32))
guile-3.0-3.0.4/module/system/vm/assembler.scm:714: (emit asm (logand bits (1- (ash 1 32))))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-715- ((AF32 f64)
guile-3.0-3.0.4/module/system/vm/assembler.scm-716- (let ((u64 (u64vector-ref (f64vector f64) 0)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:717: (emit asm (ash u64 -32))
guile-3.0-3.0.4/module/system/vm/assembler.scm:718: (emit asm (logand u64 (1- (ash 1 32))))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-719- ((AU32 u64)
guile-3.0-3.0.4/module/system/vm/assembler.scm:720: (emit asm (ash u64 -32))
guile-3.0-3.0.4/module/system/vm/assembler.scm:721: (emit asm (logand u64 (1- (ash 1 32)))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-722- ((AS32 s64)
guile-3.0-3.0.4/module/system/vm/assembler.scm-723- (let ((u64 (u64vector-ref (s64vector s64) 0)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:724: (emit asm (ash u64 -32))
guile-3.0-3.0.4/module/system/vm/assembler.scm:725: (emit asm (logand u64 (1- (ash 1 32))))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-726- ((B32))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-730- ((N32 label)
guile-3.0-3.0.4/module/system/vm/assembler.scm:731: (record-far-label-reference asm label)
guile-3.0-3.0.4/module/system/vm/assembler.scm:732: (emit asm 0))
guile-3.0-3.0.4/module/system/vm/assembler.scm-733- ((R32 label)
guile-3.0-3.0.4/module/system/vm/assembler.scm:734: (record-far-label-reference asm label)
guile-3.0-3.0.4/module/system/vm/assembler.scm:735: (emit asm 0))
guile-3.0-3.0.4/module/system/vm/assembler.scm-736- ((L32 label)
guile-3.0-3.0.4/module/system/vm/assembler.scm:737: (record-far-label-reference asm label)
guile-3.0-3.0.4/module/system/vm/assembler.scm:738: (emit asm 0))
guile-3.0-3.0.4/module/system/vm/assembler.scm-739- ((LO32 label offset)
guile-3.0-3.0.4/module/system/vm/assembler.scm:740: (record-far-label-reference asm label
guile-3.0-3.0.4/module/system/vm/assembler.scm-741- (* offset (asm-word-size asm)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:742: (emit asm 0))
guile-3.0-3.0.4/module/system/vm/assembler.scm-743- ((C8_C24 a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:744: (emit asm (pack-u8-u24 a b)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-745- ((C8_S24 a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:746: (emit asm (pack-u8-u24 a b)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-747- ((C16_C16 a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:748: (emit asm (pack-u16-u16 a b)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-749- ((B1_X7_L24 a label)
guile-3.0-3.0.4/module/system/vm/assembler.scm:750: (record-label-reference asm label)
guile-3.0-3.0.4/module/system/vm/assembler.scm:751: (emit asm (pack-u1-u7-u24 (if a 1 0) 0 0)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-752- ((B1_C7_L24 a b label)
guile-3.0-3.0.4/module/system/vm/assembler.scm:753: (record-label-reference asm label)
guile-3.0-3.0.4/module/system/vm/assembler.scm:754: (emit asm (pack-u1-u7-u24 (if a 1 0) b 0)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-755- ((B1_X31 a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:756: (emit asm (pack-u1-u7-u24 (if a 1 0) 0 0)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-757- ((B1_X7_S24 a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:758: (emit asm (pack-u1-u7-u24 (if a 1 0) 0 b)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-759- ((B1_X7_F24 a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:760: (emit asm (pack-u1-u7-u24 (if a 1 0) 0 b)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-761- ((B1_X7_C24 a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:762: (emit asm (pack-u1-u7-u24 (if a 1 0) 0 b)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-763- ((X8_S24 a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:764: (emit asm (pack-u8-u24 0 a)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-765- ((X8_F24 a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:766: (emit asm (pack-u8-u24 0 a)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-767- ((X8_C24 a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:768: (emit asm (pack-u8-u24 0 a)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-769- ((X8_L24 label)
guile-3.0-3.0.4/module/system/vm/assembler.scm:770: (record-label-reference asm label)
guile-3.0-3.0.4/module/system/vm/assembler.scm:771: (emit asm 0))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-772-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-776- code0 ...)
guile-3.0-3.0.4/module/system/vm/assembler.scm:777: (pack-first-word #'asm #'opcode
guile-3.0-3.0.4/module/system/vm/assembler.scm-778- (syntax->datum #'word0)))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-780- code* ...) ...)
guile-3.0-3.0.4/module/system/vm/assembler.scm:781: (map (lambda (word) (pack-tail-word #'asm word))
guile-3.0-3.0.4/module/system/vm/assembler.scm-782- (syntax->datum #'(word* ...)))))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-785- ;; encoder.
guile-3.0-3.0.4/module/system/vm/assembler.scm:786: #'(lambda (asm formal0 ... formal* ... ... opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-787- (let lp ()
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-843-
guile-3.0-3.0.4/module/system/vm/assembler.scm:844:(define (encode-X8_S12_S12!/shuffle asm a b opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-845- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-846- ((< (logior a b) (ash 1 12))
guile-3.0-3.0.4/module/system/vm/assembler.scm:847: (encode-X8_S12_S12 asm a b opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-848- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:849: (emit-push asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:850: (emit-push asm (1+ b))
guile-3.0-3.0.4/module/system/vm/assembler.scm:851: (encode-X8_S12_S12 asm 1 0 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:852: (emit-drop asm 2))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:853:(define (encode-X8_S12_S12<-/shuffle asm dst a opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-854- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-855- ((< (logior dst a) (ash 1 12))
guile-3.0-3.0.4/module/system/vm/assembler.scm:856: (encode-X8_S12_S12 asm dst a opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-857- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:858: (emit-push asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:859: (encode-X8_S12_S12 asm 0 0 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:860: (emit-pop asm dst))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:861:(define (encode-X8_S12_C12!/shuffle asm a const opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-862- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-863- ((< a (ash 1 12))
guile-3.0-3.0.4/module/system/vm/assembler.scm:864: (encode-X8_S12_C12 asm a const opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-865- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:866: (emit-push asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:867: (encode-X8_S12_C12 asm 0 const opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:868: (emit-drop asm 1))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:869:(define (encode-X8_S12_C12<-/shuffle asm dst const opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-870- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-871- ((< dst (ash 1 12))
guile-3.0-3.0.4/module/system/vm/assembler.scm:872: (encode-X8_S12_C12 asm dst const opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-873- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm-874- ;; Push garbage value to make space for dst.
guile-3.0-3.0.4/module/system/vm/assembler.scm:875: (emit-push asm dst)
guile-3.0-3.0.4/module/system/vm/assembler.scm:876: (encode-X8_S12_C12 asm 0 const opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:877: (emit-pop asm dst))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:878:(define (encode-X8_S12_Z12!/shuffle asm a const opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-879- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-880- ((< a (ash 1 12))
guile-3.0-3.0.4/module/system/vm/assembler.scm:881: (encode-X8_S12_Z12 asm a const opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-882- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:883: (emit-push asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:884: (encode-X8_S12_Z12 asm 0 const opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:885: (emit-drop asm 1))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:886:(define (encode-X8_S8_I16<-/shuffle asm dst imm opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-887- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-888- ((< dst (ash 1 8))
guile-3.0-3.0.4/module/system/vm/assembler.scm:889: (encode-X8_S8_I16 asm dst imm opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-890- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm-891- ;; Push garbage value to make space for dst.
guile-3.0-3.0.4/module/system/vm/assembler.scm:892: (emit-push asm dst)
guile-3.0-3.0.4/module/system/vm/assembler.scm:893: (encode-X8_S8_I16 asm 0 imm opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:894: (emit-pop asm dst))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:895:(define (encode-X8_S8_S8_S8!/shuffle asm a b c opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-896- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-897- ((< (logior a b c) (ash 1 8))
guile-3.0-3.0.4/module/system/vm/assembler.scm:898: (encode-X8_S8_S8_S8 asm a b c opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-899- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:900: (emit-push asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:901: (emit-push asm (+ b 1))
guile-3.0-3.0.4/module/system/vm/assembler.scm:902: (emit-push asm (+ c 2))
guile-3.0-3.0.4/module/system/vm/assembler.scm:903: (encode-X8_S8_S8_S8 asm 2 1 0 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:904: (emit-drop asm 3))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:905:(define (encode-X8_S8_S8_S8<-/shuffle asm dst a b opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-906- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-907- ((< (logior dst a b) (ash 1 8))
guile-3.0-3.0.4/module/system/vm/assembler.scm:908: (encode-X8_S8_S8_S8 asm dst a b opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-909- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:910: (emit-push asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:911: (emit-push asm (1+ b))
guile-3.0-3.0.4/module/system/vm/assembler.scm:912: (encode-X8_S8_S8_S8 asm 1 1 0 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:913: (emit-drop asm 1)
guile-3.0-3.0.4/module/system/vm/assembler.scm:914: (emit-pop asm dst))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:915:(define (encode-X8_S8_S8_C8<-/shuffle asm dst a const opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-916- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-917- ((< (logior dst a) (ash 1 8))
guile-3.0-3.0.4/module/system/vm/assembler.scm:918: (encode-X8_S8_S8_C8 asm dst a const opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-919- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:920: (emit-push asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:921: (encode-X8_S8_S8_C8 asm 0 0 const opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:922: (emit-pop asm dst))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:923:(define (encode-X8_S8_C8_S8!/shuffle asm a const b opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-924- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-925- ((< (logior a b) (ash 1 8))
guile-3.0-3.0.4/module/system/vm/assembler.scm:926: (encode-X8_S8_C8_S8 asm a const b opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-927- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:928: (emit-push asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:929: (emit-push asm (1+ b))
guile-3.0-3.0.4/module/system/vm/assembler.scm:930: (encode-X8_S8_C8_S8 asm 1 const 0 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:931: (emit-drop asm 2))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:932:(define (encode-X8_S8_C8_S8<-/shuffle asm dst const a opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-933- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-934- ((< (logior dst a) (ash 1 8))
guile-3.0-3.0.4/module/system/vm/assembler.scm:935: (encode-X8_S8_C8_S8 asm dst const a opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-936- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:937: (emit-push asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:938: (encode-X8_S8_C8_S8 asm 0 const 0 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:939: (emit-pop asm dst))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:940:(define (encode-X8_S8_S8_S8-C32!/shuffle asm a b c const opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-941- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-942- ((< (logior a b c) (ash 1 8))
guile-3.0-3.0.4/module/system/vm/assembler.scm:943: (encode-X8_S8_S8_S8-C32 asm a b c const opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-944- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:945: (emit-push asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:946: (emit-push asm (+ b 1))
guile-3.0-3.0.4/module/system/vm/assembler.scm:947: (emit-push asm (+ c 2))
guile-3.0-3.0.4/module/system/vm/assembler.scm:948: (encode-X8_S8_S8_S8-C32 asm 2 1 0 const opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:949: (emit-drop asm 3))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:950:(define (encode-X8_S8_S8_S8-C32<-/shuffle asm dst a b c32 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-951- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-952- ((< (logior dst a b) (ash 1 8))
guile-3.0-3.0.4/module/system/vm/assembler.scm:953: (encode-X8_S8_S8_S8-C32 asm dst a b c32 opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-954- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:955: (emit-push asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:956: (emit-push asm (1+ b))
guile-3.0-3.0.4/module/system/vm/assembler.scm:957: (encode-X8_S8_S8_S8-C32 asm 1 1 0 c32 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:958: (emit-drop asm 1)
guile-3.0-3.0.4/module/system/vm/assembler.scm:959: (emit-pop asm dst))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:960:(define (encode-X8_S8_S8_C8-C32<-/shuffle asm dst a const c32 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-961- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-962- ((< (logior dst a) (ash 1 8))
guile-3.0-3.0.4/module/system/vm/assembler.scm:963: (encode-X8_S8_S8_C8-C32 asm dst a const c32 opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-964- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:965: (emit-push asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:966: (encode-X8_S8_S8_C8-C32 asm 0 0 const c32 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:967: (emit-pop asm dst))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:968:(define (encode-X8_S8_S8_S8-C32!/shuffle asm a b c c32 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-969- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-970- ((< (logior a b c) (ash 1 8))
guile-3.0-3.0.4/module/system/vm/assembler.scm:971: (encode-X8_S8_S8_S8-C32 asm a b c c32 opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-972- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:973: (emit-push asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:974: (emit-push asm (+ b 1))
guile-3.0-3.0.4/module/system/vm/assembler.scm:975: (emit-push asm (+ c 2))
guile-3.0-3.0.4/module/system/vm/assembler.scm:976: (encode-X8_S8_S8_S8-C32 asm 2 1 0 c32 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:977: (emit-drop asm 3))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:978:(define (encode-X8_S8_C8_S8-C32!/shuffle asm a const b c32 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-979- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-980- ((< (logior a b) (ash 1 8))
guile-3.0-3.0.4/module/system/vm/assembler.scm:981: (encode-X8_S8_C8_S8-C32 asm a const b c32 opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-982- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:983: (emit-push asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:984: (emit-push asm (+ b 1))
guile-3.0-3.0.4/module/system/vm/assembler.scm:985: (encode-X8_S8_C8_S8-C32 asm 1 const 0 c32 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:986: (emit-drop asm 2))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:987:(define (encode-X8_S12_S12-C32<-/shuffle asm dst src c32 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-988- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-989- ((< (logior dst src) (ash 1 12))
guile-3.0-3.0.4/module/system/vm/assembler.scm:990: (encode-X8_S12_S12-C32 asm dst src c32 opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-991- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:992: (emit-push asm src)
guile-3.0-3.0.4/module/system/vm/assembler.scm:993: (encode-X8_S12_S12-C32 asm 0 0 c32 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:994: (emit-pop asm dst))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:995:(define (encode-X8_S12_S12-C32!/shuffle asm a b c32 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm-996- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-997- ((< (logior a b) (ash 1 12))
guile-3.0-3.0.4/module/system/vm/assembler.scm:998: (encode-X8_S12_S12-C32 asm a b c32 opcode))
guile-3.0-3.0.4/module/system/vm/assembler.scm-999- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:1000: (emit-push asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1001: (emit-push asm b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1002: (encode-X8_S12_S12-C32 asm 1 0 c32 opcode)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1003: (emit-drop asm 2))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1004-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1079- (encode (shuffling-encoder-name #'kind #'(word ...))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1080: #'(lambda (asm formal ...)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1081: (encode asm formal ... opcode))))))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1082-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1113-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1114:(define (emit-mov* asm dst src)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1115- (if (and (< dst (ash 1 12)) (< src (ash 1 12)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1116: (emit-mov asm dst src)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1117: (emit-long-mov asm dst src)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1118-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1119:(define (emit-fmov* asm dst src)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1120: (emit-long-fmov asm dst src))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1121-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1122:(define (emit-receive* asm dst proc nlocals)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1123- (if (and (< dst (ash 1 12)) (< proc (ash 1 12)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1124: (emit-receive asm dst proc nlocals)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1125- (begin
guile-3.0-3.0.4/module/system/vm/assembler.scm:1126: (emit-receive-values asm proc #t 1)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1127: (emit-fmov* asm dst (1+ proc))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1128: (emit-reset-frame asm nlocals))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1129-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1130:(define (emit-throw/value* asm val param)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1131: (emit-throw/value asm val (intern-non-immediate asm param)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1132-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1133:(define (emit-throw/value+data* asm val param)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1134: (emit-throw/value+data asm val (intern-non-immediate asm param)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1135-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1137- (let ((meta (car (asm-meta asm))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1138: (emit-instrument-entry asm (meta-jit-data-label meta))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1139-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1141- (let ((meta (car (asm-meta asm))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1142: (emit-instrument-loop asm (meta-jit-data-label meta))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1143-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1144:(define (emit-text asm instructions)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1145- "Assemble @var{instructions} using the assembler @var{asm}.
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1169-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1170:(define (immediate-bits asm x)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1171- "Return the bit pattern to write into the buffer if @var{x} is
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1235-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1236:(define (intern-constant asm obj)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1237- "Add an object to the constant table, and return a label that can be
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1240- (define (recur obj)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1241: (intern-constant asm obj))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1242- (define (field dst n obj)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1306- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm:1307: ((immediate-bits asm obj) #f)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1308- ((vhash-assoc obj (asm-constants asm)) => cdr)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1312- (inits (intern obj label)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1313: (set-asm-constants! asm (vhash-cons obj label (asm-constants asm)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1314: (set-asm-inits! asm (append-reverse inits (asm-inits asm)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1315- label))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1316-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1317:(define (intern-non-immediate asm obj)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1318- "Intern a non-immediate into the constant table, and return its
guile-3.0-3.0.4/module/system/vm/assembler.scm-1319-label."
guile-3.0-3.0.4/module/system/vm/assembler.scm:1320: (when (immediate-bits asm obj)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1321- (error "expected a non-immediate" obj))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1322: (intern-constant asm obj))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1323-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1324:(define (intern-cache-cell asm key)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1325- "Intern a cache cell into the constant table, and return its label.
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1327-returned instead."
guile-3.0-3.0.4/module/system/vm/assembler.scm:1328: (intern-constant asm (make-cache-cell key)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1329-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1350-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1351:(define-macro-assembler (load-constant asm dst obj)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1352- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm:1353: ((immediate-bits asm obj)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1354- => (lambda (bits)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1356- ((and (< dst 256) (zero? (ash bits -16)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1357: (emit-make-short-immediate asm dst obj))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1358- ((zero? (ash bits -32))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1359: (emit-make-long-immediate asm dst obj))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1360- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:1361: (emit-make-long-long-immediate asm dst obj)))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1362- ((statically-allocatable? obj)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1363: (emit-make-non-immediate asm dst (intern-non-immediate asm obj)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1364- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:1365: (emit-static-ref asm dst (intern-non-immediate asm obj)))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1366-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1367:(define-macro-assembler (load-static-procedure asm dst label)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1368: (let ((loc (intern-constant asm (make-static-procedure label))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1369: (emit-make-non-immediate asm dst loc)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1370-
guile-3.0-3.0.4/module/system/vm/assembler.scm-1371-(define-syntax-rule (define-immediate-tag=?-macro-assembler name pred mask tag)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1372: (define-macro-assembler (pred asm slot)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1373: (emit-immediate-tag=? asm slot mask tag)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1374-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1377-(define-syntax-rule (define-heap-tag=?-macro-assembler name pred mask tag)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1378: (define-macro-assembler (pred asm slot)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1379: (emit-heap-tag=? asm slot mask tag)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1380-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1383-(define-syntax-rule (define-scm<-scm-scm-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1384: (define-macro-assembler (name asm dst a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1385: (emit-call-scm<-scm-scm asm dst a b (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1386-(define-syntax-rule (define-scm<-scm-uimm-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1387: (define-macro-assembler (name asm dst a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1388: (emit-call-scm<-scm-uimm asm dst a b (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1389-(define-syntax-rule (define-scm-sz-u32-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1390: (define-macro-assembler (name asm a b c)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1391: (emit-call-scm-sz-u32 asm a b c (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1392-(define-syntax-rule (define-scm<-scm-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1393: (define-macro-assembler (name asm dst src)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1394: (emit-call-scm<-scm asm dst src (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1395-(define-syntax-rule (define-f64<-scm-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1396: (define-macro-assembler (name asm dst src)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1397: (emit-call-f64<-scm asm dst src (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1398-(define-syntax-rule (define-f64<-f64-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1399: (define-macro-assembler (name asm dst src)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1400: (emit-call-f64<-f64 asm dst src (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1401-(define-syntax-rule (define-f64<-f64-f64-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1402: (define-macro-assembler (name asm dst a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1403: (emit-call-f64<-f64-f64 asm dst a b (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1404-(define-syntax-rule (define-u64<-scm-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1405: (define-macro-assembler (name asm dst src)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1406: (emit-call-u64<-scm asm dst src (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1407-(define-syntax-rule (define-s64<-scm-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1408: (define-macro-assembler (name asm dst src)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1409: (emit-call-s64<-scm asm dst src (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1410-(define-syntax-rule (define-scm<-u64-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1411: (define-macro-assembler (name asm dst src)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1412: (emit-call-scm<-u64 asm dst src (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1413-(define-syntax-rule (define-scm<-s64-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1414: (define-macro-assembler (name asm dst src)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1415: (emit-call-scm<-s64 asm dst src (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1416-(define-syntax-rule (define-thread-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1417- (define-macro-assembler (name asm)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1418: (emit-call-thread asm (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1419-(define-syntax-rule (define-thread-scm-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1420: (define-macro-assembler (name asm a)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1421: (emit-call-thread-scm asm a (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1422-(define-syntax-rule (define-thread-scm-scm-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1423: (define-macro-assembler (name asm a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1424: (emit-call-thread-scm-scm asm a b (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1425-(define-syntax-rule (define-scm<-thread-scm-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1426: (define-macro-assembler (name asm dst src)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1427: (emit-call-scm<-thread-scm asm dst src (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1428-(define-syntax-rule (define-scm<-scm-u64-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1429: (define-macro-assembler (name asm dst a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1430: (emit-call-scm<-scm-u64 asm dst a b (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1431-(define-syntax-rule (define-scm<-scm-bool-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1432: (define-macro-assembler (name asm dst a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1433: (emit-call-scm<-scm-uimm asm dst a (if b 1 0) (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1434-(define-syntax-rule (define-scm<-thread-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1435: (define-macro-assembler (name asm dst)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1436: (emit-call-scm<-thread asm dst (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1437-(define-syntax-rule (define-scm-scm-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1438: (define-macro-assembler (name asm a b)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1439: (emit-call-scm-scm asm a b (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1440-(define-syntax-rule (define-scm-uimm-scm-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1441: (define-macro-assembler (name asm a b c)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1442: (emit-call-scm-uimm-scm asm a b c (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1443-(define-syntax-rule (define-scm-scm-scm-intrinsic name)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1444: (define-macro-assembler (name asm a b c)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1445: (emit-call-scm-scm-scm asm a b c (intrinsic-name->index 'name))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1446-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1530-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1531:(define-macro-assembler (begin-program asm label properties)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1532: (emit-label asm label)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1533- (let ((meta (make-meta label properties (asm-start asm))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1534: (set-asm-meta! asm (cons meta (asm-meta asm))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1535- (emit-instrument-entry* asm))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1546-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1547:(define-macro-assembler (begin-standard-arity asm has-closure? req nlocals
guile-3.0-3.0.4/module/system/vm/assembler.scm-1548- alternate)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1549: (emit-begin-opt-arity asm has-closure? req '() #f nlocals alternate))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1550-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1551:(define-macro-assembler (begin-opt-arity asm has-closure? req opt rest nlocals
guile-3.0-3.0.4/module/system/vm/assembler.scm-1552- alternate)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1553: (emit-begin-kw-arity asm has-closure? req opt rest '() #f nlocals alternate))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1554-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1555:(define-macro-assembler (begin-kw-arity asm has-closure? req opt rest kw-indices
guile-3.0-3.0.4/module/system/vm/assembler.scm-1556- allow-other-keys? nlocals alternate)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1583- ((or allow-other-keys? (pair? kw-indices))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1584: (emit-kw-prelude asm nreq nopt rest? kw-indices allow-other-keys?
guile-3.0-3.0.4/module/system/vm/assembler.scm-1585- nlocals alternate))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1586- ((or rest? (pair? opt))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1587: (emit-opt-prelude asm nreq nopt rest? nlocals alternate))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1588- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:1589: (emit-standard-prelude asm nreq nlocals alternate)))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1590-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1595-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1596:(define-macro-assembler (standard-prelude asm nreq nlocals alternate)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1597- (cond
guile-3.0-3.0.4/module/system/vm/assembler.scm-1598- (alternate
guile-3.0-3.0.4/module/system/vm/assembler.scm:1599: (emit-arguments<=? asm nreq)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1600: (emit-jne asm alternate)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1601: (emit-alloc-frame asm nlocals))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1602- ((and (< nreq (ash 1 12)) (< (- nlocals nreq) (ash 1 12)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1603: (emit-assert-nargs-ee/locals asm nreq (- nlocals nreq)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1604- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:1605: (emit-assert-nargs-ee asm nreq)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1606: (emit-alloc-frame asm nlocals))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1607-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1608:(define-macro-assembler (opt-prelude asm nreq nopt rest? nlocals alternate)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1609- (if alternate
guile-3.0-3.0.4/module/system/vm/assembler.scm-1610- (begin
guile-3.0-3.0.4/module/system/vm/assembler.scm:1611: (emit-arguments<=? asm nreq)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1612: (emit-jl asm alternate))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1613: (emit-assert-nargs-ge asm nreq))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1614- (cond
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1616- (unless (zero? nopt)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1617: (emit-bind-optionals asm (+ nreq nopt)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1618: (emit-bind-rest asm (+ nreq nopt)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1619- (alternate
guile-3.0-3.0.4/module/system/vm/assembler.scm:1620: (emit-arguments<=? asm (+ nreq nopt))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1621- ;; The arguments<=? instruction sets NONE to indicate greater-than,
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1624- ;; br-if-none.
guile-3.0-3.0.4/module/system/vm/assembler.scm:1625: (emit-jge asm alternate)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1626- (unless (zero? nopt)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1627: (emit-bind-optionals asm (+ nreq nopt))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1628- (else
guile-3.0-3.0.4/module/system/vm/assembler.scm:1629: (emit-assert-nargs-le asm (+ nreq nopt))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1630- (unless (zero? nopt)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1631: (emit-bind-optionals asm (+ nreq nopt)))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1632: (emit-alloc-frame asm nlocals))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1633-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1634:(define-macro-assembler (kw-prelude asm nreq nopt rest? kw-indices
guile-3.0-3.0.4/module/system/vm/assembler.scm-1635- allow-other-keys? nlocals alternate)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1637- (begin
guile-3.0-3.0.4/module/system/vm/assembler.scm:1638: (emit-arguments<=? asm nreq)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1639: (emit-jl asm alternate)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1640- (unless rest?
guile-3.0-3.0.4/module/system/vm/assembler.scm:1641: (emit-positional-arguments<=? asm nreq (+ nreq nopt))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1642: (emit-jge asm alternate)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1643: (emit-assert-nargs-ge asm nreq))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1644- (let ((ntotal (fold (lambda (kw ntotal)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1649- ;; FIXME: port 581f410f
guile-3.0-3.0.4/module/system/vm/assembler.scm:1650: (emit-bind-kwargs asm nreq
guile-3.0-3.0.4/module/system/vm/assembler.scm-1651- (pack-flags allow-other-keys? rest?)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1653- ntotal
guile-3.0-3.0.4/module/system/vm/assembler.scm:1654: (intern-constant asm kw-indices))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1655: (emit-alloc-frame asm nlocals)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1656-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1657:(define-macro-assembler (label asm sym)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1658- (hashq-set! (asm-labels asm) sym (asm-start asm)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1659-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1660:(define-macro-assembler (source asm source)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1661: (set-asm-sources! asm (acons (asm-start asm) source (asm-sources asm))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1662-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1663:(define-macro-assembler (definition asm name slot representation)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1664- (let* ((arity (car (meta-arities (car (asm-meta asm)))))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1668-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1669:(define-macro-assembler (cache-ref asm dst key)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1670: (emit-static-ref asm dst (intern-cache-cell asm key)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1671-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1672:(define-macro-assembler (cache-set! asm key val)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1673: (emit-static-set! asm val (intern-cache-cell asm key) 0))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1674-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1675:(define-macro-assembler (slot-map asm proc-slot slot-map)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1676- (unless (zero? slot-map)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1677: (set-asm-slot-maps! asm (cons
guile-3.0-3.0.4/module/system/vm/assembler.scm-1678- (cons* (asm-start asm) proc-slot slot-map)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1686-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1687:(define (make-object asm name bv relocs labels . kwargs)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1688- "Make a linker object. This helper handles interning the name in the
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1690-corresponding linker symbol for the start of the section."
guile-3.0-3.0.4/module/system/vm/assembler.scm:1691: (let ((name-idx (intern-section-name! asm (symbol->string name)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1692- (index (asm-next-section-number asm)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:1693: (set-asm-next-section-number! asm (1+ index))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1694- (make-linker-object (symbol->string name)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1711-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1712:(define (write-immediate asm buf pos bits)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1713- (let ((endianness (asm-endianness asm)))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1718-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1719:(define (write-placeholder asm buf pos)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1720: (write-immediate asm buf pos (immediate-bits asm #f)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1721-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1738-
guile-3.0-3.0.4/module/system/vm/assembler.scm:1739:(define (link-data asm data name)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1740- "Link the static data for a program into the @var{name} section (which
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1804- (define (write-constant-reference buf pos x)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1805: (let ((bits (immediate-bits asm x)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1806- (if bits
guile-3.0-3.0.4/module/system/vm/assembler.scm:1807: (write-immediate asm buf pos bits)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1808- ;; The asm-inits will fix up any reference to a
guile-3.0-3.0.4/module/system/vm/assembler.scm-1809- ;; non-immediate.
guile-3.0-3.0.4/module/system/vm/assembler.scm:1810: (write-placeholder asm buf pos))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1811-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1858- ((cache-cell? obj)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1859: (write-placeholder asm buf pos))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1860-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1869- (bytevector-u32-set! buf pos tag endianness)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1870: (write-placeholder asm buf (+ pos 4)) ; stringbuf
guile-3.0-3.0.4/module/system/vm/assembler.scm-1871- (bytevector-u32-set! buf (+ pos 8) 0 endianness)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1874- (bytevector-u64-set! buf pos tag endianness)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1875: (write-placeholder asm buf (+ pos 8)) ; stringbuf
guile-3.0-3.0.4/module/system/vm/assembler.scm-1876- (bytevector-u64-set! buf (+ pos 16) 0 endianness)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1898- ((symbol? obj)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1899: (write-placeholder asm buf pos))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1900-
guile-3.0-3.0.4/module/system/vm/assembler.scm-1901- ((keyword? obj)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1902: (write-placeholder asm buf pos))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1903-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1916- ((number? obj)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1917: (write-placeholder asm buf pos))
guile-3.0-3.0.4/module/system/vm/assembler.scm-1918-
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1937- (bytevector-u32-set! buf (+ pos 8) 0 endianness) ; pointer
guile-3.0-3.0.4/module/system/vm/assembler.scm:1938: (write-placeholder asm buf (+ pos 12))) ; owner
guile-3.0-3.0.4/module/system/vm/assembler.scm-1939- ((8)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1946- (bytevector-u64-set! buf (+ pos 16) 0 endianness) ; pointer
guile-3.0-3.0.4/module/system/vm/assembler.scm:1947: (write-placeholder asm buf (+ pos 24))) ; owner
guile-3.0-3.0.4/module/system/vm/assembler.scm-1948- (else (error "bad word size")))))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-1970- (bv-set! buf pos tag endianness)
guile-3.0-3.0.4/module/system/vm/assembler.scm:1971: (write-placeholder asm buf (+ pos word-size)) ; root vector (fixed later)
guile-3.0-3.0.4/module/system/vm/assembler.scm-1972- (bv-set! buf (+ pos (* word-size 2)) 0 endianness) ; base
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2013- (cons (make-linker-symbol obj-label pos) symbols))))
guile-3.0-3.0.4/module/system/vm/assembler.scm:2014: (make-object asm name buf relocs symbols
guile-3.0-3.0.4/module/system/vm/assembler.scm-2015- #:flags (match name
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2029- ((pair? x)
guile-3.0-3.0.4/module/system/vm/assembler.scm:2030: (and (immediate-bits asm (car x)) (immediate-bits asm (cdr x))))
guile-3.0-3.0.4/module/system/vm/assembler.scm-2031- ((simple-vector? x)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2033- (or (= i (vector-length x))
guile-3.0-3.0.4/module/system/vm/assembler.scm:2034: (and (immediate-bits asm (vector-ref x i))
guile-3.0-3.0.4/module/system/vm/assembler.scm-2035- (lp (1+ i))))))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2044- (if (= i len)
guile-3.0-3.0.4/module/system/vm/assembler.scm:2045: (values (link-data asm ro '.rodata)
guile-3.0-3.0.4/module/system/vm/assembler.scm:2046: (link-data asm rw '.data)
guile-3.0-3.0.4/module/system/vm/assembler.scm-2047- init-constants)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2108- (byte-swap/4! buf))
guile-3.0-3.0.4/module/system/vm/assembler.scm:2109: (make-object asm '.rtl-text
guile-3.0-3.0.4/module/system/vm/assembler.scm-2110- buf
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2150- (()
guile-3.0-3.0.4/module/system/vm/assembler.scm:2151: (make-object asm '.guile.frame-maps bv
guile-3.0-3.0.4/module/system/vm/assembler.scm-2152- (list (make-linker-reloc 'abs32/1 0 0 '.rtl-text))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2187-
guile-3.0-3.0.4/module/system/vm/assembler.scm:2188:(define (link-dynamic-section asm text rw rw-init frame-maps)
guile-3.0-3.0.4/module/system/vm/assembler.scm-2189- "Link the dynamic section for an ELF image with bytecode @var{text},
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2228- (set-uword! (- words 1) 0)
guile-3.0-3.0.4/module/system/vm/assembler.scm:2229: (make-object asm '.dynamic bv relocs '()
guile-3.0-3.0.4/module/system/vm/assembler.scm-2230- #:type SHT_DYNAMIC #:flags SHF_ALLOC)))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2237- "Link the string table for the section headers."
guile-3.0-3.0.4/module/system/vm/assembler.scm:2238: (intern-section-name! asm ".shstrtab")
guile-3.0-3.0.4/module/system/vm/assembler.scm:2239: (make-object asm '.shstrtab
guile-3.0-3.0.4/module/system/vm/assembler.scm-2240- (link-string-table! (asm-shstrtab asm))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2268- meta (iota n))
guile-3.0-3.0.4/module/system/vm/assembler.scm:2269: (let ((strtab (make-object asm '.strtab
guile-3.0-3.0.4/module/system/vm/assembler.scm-2270- (link-string-table! strtab)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2272- #:type SHT_STRTAB #:flags 0)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:2273: (values (make-object asm '.symtab
guile-3.0-3.0.4/module/system/vm/assembler.scm-2274- bv
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2381-
guile-3.0-3.0.4/module/system/vm/assembler.scm:2382:(define (write-arities asm metas headers names-port strtab)
guile-3.0-3.0.4/module/system/vm/assembler.scm-2383- (define (write-header pos low-pc high-pc offset flags nreq nopt nlocals)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2397- (port-position names-port)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:2398: (label (intern-constant asm kw-indices)))
guile-3.0-3.0.4/module/system/vm/assembler.scm-2399- (put-bytevector names-port #vu8(0 0 0 0))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2500- (let-values (((names-port get-name-bv) (open-bytevector-output-port)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:2501: (let* ((relocs (write-arities asm metas headers names-port strtab))
guile-3.0-3.0.4/module/system/vm/assembler.scm:2502: (strtab (make-object asm '.guile.arities.strtab
guile-3.0-3.0.4/module/system/vm/assembler.scm-2503- (link-string-table! strtab)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2505- #:type SHT_STRTAB #:flags 0)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:2506: (values (make-object asm '.guile.arities
guile-3.0-3.0.4/module/system/vm/assembler.scm-2507- (bytevector-append headers (get-name-bv))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2551- docstrings)
guile-3.0-3.0.4/module/system/vm/assembler.scm:2552: (let ((strtab (make-object asm '.guile.docstrs.strtab
guile-3.0-3.0.4/module/system/vm/assembler.scm-2553- (link-string-table! strtab)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2555- #:type SHT_STRTAB #:flags 0)))
guile-3.0-3.0.4/module/system/vm/assembler.scm:2556: (values (make-object asm '.guile.docstrs
guile-3.0-3.0.4/module/system/vm/assembler.scm-2557- bv
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2609- (()
guile-3.0-3.0.4/module/system/vm/assembler.scm:2610: (make-object asm '.guile.procprops
guile-3.0-3.0.4/module/system/vm/assembler.scm-2611- bv
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2618- (cons (make-linker-reloc 'abs32/1 (+ pos 4) 0
guile-3.0-3.0.4/module/system/vm/assembler.scm:2619: (intern-constant asm props))
guile-3.0-3.0.4/module/system/vm/assembler.scm-2620- relocs)))))))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2947- (asm-endianness asm))
guile-3.0-3.0.4/module/system/vm/assembler.scm:2948: (make-object asm '.debug_info bv die-relocs '()
guile-3.0-3.0.4/module/system/vm/assembler.scm-2949- #:type SHT_PROGBITS #:flags 0))
guile-3.0-3.0.4/module/system/vm/assembler.scm:2950: (make-object asm '.debug_abbrev (get-abbrev-bv) '() '()
guile-3.0-3.0.4/module/system/vm/assembler.scm-2951- #:type SHT_PROGBITS #:flags 0)
guile-3.0-3.0.4/module/system/vm/assembler.scm:2952: (make-object asm '.debug_str (link-string-table! strtab) '() '()
guile-3.0-3.0.4/module/system/vm/assembler.scm-2953- #:type SHT_PROGBITS #:flags 0)
guile-3.0-3.0.4/module/system/vm/assembler.scm:2954: (make-object asm '.debug_loc #vu8() '() '()
guile-3.0-3.0.4/module/system/vm/assembler.scm-2955- #:type SHT_PROGBITS #:flags 0)
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2959- (asm-endianness asm))
guile-3.0-3.0.4/module/system/vm/assembler.scm:2960: (make-object asm '.debug_line bv line-relocs '()
guile-3.0-3.0.4/module/system/vm/assembler.scm-2961- #:type SHT_PROGBITS #:flags 0)))))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2971- ((frame-maps) (link-frame-maps asm))
guile-3.0-3.0.4/module/system/vm/assembler.scm:2972: ((dt) (link-dynamic-section asm text rw rw-init frame-maps))
guile-3.0-3.0.4/module/system/vm/assembler.scm-2973- ((symtab strtab) (link-symtab (linker-object-section text) asm))
##############################################
guile-3.0-3.0.4/module/system/vm/assembler.scm-2993-
guile-3.0-3.0.4/module/system/vm/assembler.scm:2994:(define* (link-assembly asm #:key (page-aligned? #t))
guile-3.0-3.0.4/module/system/vm/assembler.scm-2995- "Produce an ELF image from the code and data emitted into @var{asm}.
##############################################
guile-3.0-3.0.4/module/system/vm/debug.scm-419- (header (arity-header-offset arity))
guile-3.0-3.0.4/module/system/vm/debug.scm:420: (base-addr (+ (debug-context-base ctx) (debug-context-text-base ctx)))
guile-3.0-3.0.4/module/system/vm/debug.scm:421: (low-pc (+ base-addr (arity-low-pc* bv header)))
guile-3.0-3.0.4/module/system/vm/debug.scm:422: (high-pc (+ base-addr (arity-high-pc* bv header))))
guile-3.0-3.0.4/module/system/vm/debug.scm-423- ;; FIXME: We should be able to use a sub-bytevector operation here;
##############################################
guile-3.0-3.0.4/module/system/vm/debug.scm-548- (if (and (<= (arity-low-pc arity) addr)
guile-3.0-3.0.4/module/system/vm/debug.scm:549: (< addr (arity-high-pc arity)))
guile-3.0-3.0.4/module/system/vm/debug.scm-550- arity
##############################################
guile-3.0-3.0.4/module/system/vm/debug.scm-704- (find-die-by-pc (read-die-roots dwarf-ctx)
guile-3.0-3.0.4/module/system/vm/debug.scm:705: (- addr (debug-context-base context))))))
guile-3.0-3.0.4/module/system/vm/debug.scm-706-
##############################################
guile-3.0-3.0.4/module/system/vm/debug.scm-734- ;; instead of the one we got back.
guile-3.0-3.0.4/module/system/vm/debug.scm:735: (let ((addr (+ (if (null? sources) low-pc pc) base)))
guile-3.0-3.0.4/module/system/vm/debug.scm-736- (lp (cons (make-source/dwarf addr file line col)
##############################################
guile-3.0-3.0.4/module/system/vm/disassembler.scm-153- ((n ...) (map 1+ (iota (length #'(word* ...)))))
guile-3.0-3.0.4/module/system/vm/disassembler.scm:154: ((asm ...)
guile-3.0-3.0.4/module/system/vm/disassembler.scm-155- (parse-first-word #'first (syntax->datum #'word0)))
##############################################
guile-3.0-3.0.4/module/system/vm/disassembler.scm-164- (values (+ 1 (length '(word* ...)))
guile-3.0-3.0.4/module/system/vm/disassembler.scm:165: (list 'name asm ... asm* ... ...))))))))))
guile-3.0-3.0.4/module/system/vm/disassembler.scm-166-
##############################################
guile-3.0-3.0.4/module/system/vm/disassembler.scm-208- (define (reference-scm target)
guile-3.0-3.0.4/module/system/vm/disassembler.scm:209: (unpack-scm (u32-offset->addr (+ offset target) context)))
guile-3.0-3.0.4/module/system/vm/disassembler.scm-210-
guile-3.0-3.0.4/module/system/vm/disassembler.scm-211- (define (dereference-scm target)
guile-3.0-3.0.4/module/system/vm/disassembler.scm:212: (let ((addr (u32-offset->addr (+ offset target)
guile-3.0-3.0.4/module/system/vm/disassembler.scm-213- context)))
##############################################
guile-3.0-3.0.4/module/system/vm/disassembler.scm-242- (('make-closure dst target nfree)
guile-3.0-3.0.4/module/system/vm/disassembler.scm:243: (let* ((addr (u32-offset->addr (+ offset target) context))
guile-3.0-3.0.4/module/system/vm/disassembler.scm-244- (pdi (find-program-debug-info addr context))
##############################################
guile-3.0-3.0.4/module/system/vm/disassembler.scm-249- (('load-label dst src)
guile-3.0-3.0.4/module/system/vm/disassembler.scm:250: (let* ((addr (u32-offset->addr (+ offset src) context))
guile-3.0-3.0.4/module/system/vm/disassembler.scm-251- (pdi (find-program-debug-info addr context))
##############################################
guile-3.0-3.0.4/module/system/vm/disassembler.scm-256- (('call-label closure nlocals target)
guile-3.0-3.0.4/module/system/vm/disassembler.scm:257: (let* ((addr (u32-offset->addr (+ offset target) context))
guile-3.0-3.0.4/module/system/vm/disassembler.scm-258- (pdi (find-program-debug-info addr context))
##############################################
guile-3.0-3.0.4/module/system/vm/disassembler.scm-263- (('tail-call-label target)
guile-3.0-3.0.4/module/system/vm/disassembler.scm:264: (let* ((addr (u32-offset->addr (+ offset target) context))
guile-3.0-3.0.4/module/system/vm/disassembler.scm-265- (pdi (find-program-debug-info addr context))
##############################################
guile-3.0-3.0.4/module/system/vm/disassembler.scm-283- (('load-typed-array dst type shape target len)
guile-3.0-3.0.4/module/system/vm/disassembler.scm:284: (let ((addr (u32-offset->addr (+ offset target) context)))
guile-3.0-3.0.4/module/system/vm/disassembler.scm-285- (list "~a bytes from #x~X" len addr)))
##############################################
guile-3.0-3.0.4/module/system/vm/disassembler.scm-352- (let ((pos (- offset start))
guile-3.0-3.0.4/module/system/vm/disassembler.scm:353: (addr (u32-offset->addr offset context))
guile-3.0-3.0.4/module/system/vm/disassembler.scm-354- (annotation (code-annotation elt len offset start labels
##############################################
guile-3.0-3.0.4/module/system/vm/disassembler.scm-386-(define* (disassemble-program program #:optional (port (current-output-port)))
guile-3.0-3.0.4/module/system/vm/disassembler.scm:387: (disassemble-addr (program-code program) program port))
guile-3.0-3.0.4/module/system/vm/disassembler.scm-388-
##############################################
guile-3.0-3.0.4/module/system/vm/disassembler.scm-391- (define (reference-scm target)
guile-3.0-3.0.4/module/system/vm/disassembler.scm:392: (unpack-scm (u32-offset->addr (+ offset target) context)))
guile-3.0-3.0.4/module/system/vm/disassembler.scm-393-
guile-3.0-3.0.4/module/system/vm/disassembler.scm-394- (define (dereference-scm target)
guile-3.0-3.0.4/module/system/vm/disassembler.scm:395: (let ((addr (u32-offset->addr (+ offset target)
guile-3.0-3.0.4/module/system/vm/disassembler.scm-396- context)))
##############################################
guile-3.0-3.0.4/module/system/vm/disassembler.scm-406- `(make-closure ,dst
guile-3.0-3.0.4/module/system/vm/disassembler.scm:407: ,(u32-offset->addr (+ offset target) context)
guile-3.0-3.0.4/module/system/vm/disassembler.scm-408- ,nfree))
guile-3.0-3.0.4/module/system/vm/disassembler.scm-409- (('load-label dst src)
guile-3.0-3.0.4/module/system/vm/disassembler.scm:410: `(load-label ,dst ,(u32-offset->addr (+ offset src) context)))
guile-3.0-3.0.4/module/system/vm/disassembler.scm-411- (('make-non-immediate dst target)
##############################################
guile-3.0-3.0.4/module/system/vm/dwarf.scm-1027- (let-values (((addr pos) (read-addr ctx pos)))
guile-3.0-3.0.4/module/system/vm/dwarf.scm:1028: (values (+ addr (meta-info-start (ctx-meta ctx)))
guile-3.0-3.0.4/module/system/vm/dwarf.scm-1029- pos)))
##############################################
guile-3.0-3.0.4/module/system/vm/dwarf.scm-1034- (let-values (((addr pos) (read-u8 ctx pos)))
guile-3.0-3.0.4/module/system/vm/dwarf.scm:1035: (values (+ addr (ctx-compile-unit-start ctx))
guile-3.0-3.0.4/module/system/vm/dwarf.scm-1036- pos)))
##############################################
guile-3.0-3.0.4/module/system/vm/dwarf.scm-1041- (let-values (((addr pos) (read-u16 ctx pos)))
guile-3.0-3.0.4/module/system/vm/dwarf.scm:1042: (values (+ addr (ctx-compile-unit-start ctx))
guile-3.0-3.0.4/module/system/vm/dwarf.scm-1043- pos)))
##############################################
guile-3.0-3.0.4/module/system/vm/dwarf.scm-1048- (let-values (((addr pos) (read-u32 ctx pos)))
guile-3.0-3.0.4/module/system/vm/dwarf.scm:1049: (values (+ addr (ctx-compile-unit-start ctx))
guile-3.0-3.0.4/module/system/vm/dwarf.scm-1050- pos)))
##############################################
guile-3.0-3.0.4/module/system/vm/dwarf.scm-1055- (let-values (((addr pos) (read-u64 ctx pos)))
guile-3.0-3.0.4/module/system/vm/dwarf.scm:1056: (values (+ addr (ctx-compile-unit-start ctx))
guile-3.0-3.0.4/module/system/vm/dwarf.scm-1057- pos)))
##############################################
guile-3.0-3.0.4/module/system/vm/dwarf.scm-1062- (let-values (((addr pos) (read-uleb128 ctx pos)))
guile-3.0-3.0.4/module/system/vm/dwarf.scm:1063: (values (+ addr (ctx-compile-unit-start ctx))
guile-3.0-3.0.4/module/system/vm/dwarf.scm-1064- pos)))
##############################################
guile-3.0-3.0.4/module/system/vm/linker.scm-311- #:flags (elf-section-flags sec)
guile-3.0-3.0.4/module/system/vm/linker.scm:312: #:addr (if (zero? (logand SHF_ALLOC
guile-3.0-3.0.4/module/system/vm/linker.scm-313- (elf-section-flags sec)))
##############################################
guile-3.0-3.0.4/module/system/vm/linker.scm-366- (let ((name (linker-symbol-name symbol))
guile-3.0-3.0.4/module/system/vm/linker.scm:367: (addr (linker-symbol-address symbol)))
guile-3.0-3.0.4/module/system/vm/linker.scm-368- (when (vhash-assq name symtab)
##############################################
guile-3.0-3.0.4/module/system/vm/linker.scm-393- alignment))
guile-3.0-3.0.4/module/system/vm/linker.scm:394: (addr (align addr alignment)))
guile-3.0-3.0.4/module/system/vm/linker.scm-395- (receive (objects endaddr symtab)
##############################################
guile-3.0-3.0.4/module/system/vm/linker.scm-398- (let* ((section (linker-object-section o))
guile-3.0-3.0.4/module/system/vm/linker.scm:399: (addr (align addr (elf-section-addralign section))))
guile-3.0-3.0.4/module/system/vm/linker.scm-400- (values
##############################################
guile-3.0-3.0.4/module/system/vm/linker.scm-407- out)
guile-3.0-3.0.4/module/system/vm/linker.scm:408: (+ addr (elf-section-size section))
guile-3.0-3.0.4/module/system/vm/linker.scm-409- (add-symbols (linker-object-symbols o) addr symtab))))
##############################################
guile-3.0-3.0.4/module/system/vm/linker.scm-622- ((eqv? (elf-section-type section) SHT_DYNAMIC)
guile-3.0-3.0.4/module/system/vm/linker.scm:623: (let ((addr (elf-section-offset section))
guile-3.0-3.0.4/module/system/vm/linker.scm-624- (size (elf-section-size section))
##############################################
guile-3.0-3.0.4/module/system/vm/program.scm-260-(define* (print-program #:optional program (port (current-output-port))
guile-3.0-3.0.4/module/system/vm/program.scm:261: #:key (addr (program-code program))
guile-3.0-3.0.4/module/system/vm/program.scm-262- (always-print-addr? #f) (never-print-addr? #f)
##############################################
guile-3.0-3.0.4/module/web/server/http.scm-61- (family AF_INET)
guile-3.0-3.0.4/module/web/server/http.scm:62: (addr (if host
guile-3.0-3.0.4/module/web/server/http.scm-63- (inet-pton family host)
##############################################
guile-3.0-3.0.4/test-suite/standalone/test-guile-snarf-24-{
guile-3.0-3.0.4/test-suite/standalone/test-guile-snarf:25: x=`snarf "$1"`
guile-3.0-3.0.4/test-suite/standalone/test-guile-snarf-26- if [ x"$x" != x"$2" ]; then
##############################################
guile-3.0-3.0.4/test-suite/tests/00-repl-server.test-42- (let* ((tmpdir (make-tempdir))
guile-3.0-3.0.4/test-suite/tests/00-repl-server.test:43: (sockaddr (make-socket-address AF_UNIX (string-append tmpdir "/repl-server")))
guile-3.0-3.0.4/test-suite/tests/00-repl-server.test-44- (client-socket (socket AF_UNIX SOCK_STREAM 0)))
##############################################
guile-3.0-3.0.4/test-suite/tests/00-socket.test-191- (path (temp-file-path))
guile-3.0-3.0.4/test-suite/tests/00-socket.test:192: (sockaddr (make-socket-address AF_UNIX path)))
guile-3.0-3.0.4/test-suite/tests/00-socket.test-193- (catch 'system-error
##############################################
guile-3.0-3.0.4/test-suite/tests/00-socket.test-214- (message (string->utf8 "hello"))
guile-3.0-3.0.4/test-suite/tests/00-socket.test:215: (sockaddr (make-socket-address AF_UNIX path)))
guile-3.0-3.0.4/test-suite/tests/00-socket.test-216- (> (sendto client message sockaddr) 0))))
##############################################
guile-3.0-3.0.4/test-suite/tests/00-socket.test-245- (path (temp-file-path))
guile-3.0-3.0.4/test-suite/tests/00-socket.test:246: (sockaddr (make-socket-address AF_UNIX path)))
guile-3.0-3.0.4/test-suite/tests/00-socket.test-247- (catch 'system-error
##############################################
guile-3.0-3.0.4/test-suite/tests/00-socket.test-421- (let* ((sock (false-if-exception (socket AF_INET6 SOCK_STREAM 0)))
guile-3.0-3.0.4/test-suite/tests/00-socket.test:422: (sockaddr (make-socket-address AF_INET6 ipv6-addr client-port)))
guile-3.0-3.0.4/test-suite/tests/00-socket.test-423- (if (not sock)
##############################################
guile-3.0-3.0.4/test-suite/tests/dwarf.test-51-
guile-3.0-3.0.4/test-suite/tests/dwarf.test:52: (let ((source (find-source-for-addr (program-code qux))))
guile-3.0-3.0.4/test-suite/tests/dwarf.test-53- (pass-if-equal "foo.scm" (source-file source))
##############################################
guile-3.0-3.0.4/test-suite/tests/dwarf.test-57-
guile-3.0-3.0.4/test-suite/tests/dwarf.test:58: (let ((source (find-source-for-addr (program-code bar))))
guile-3.0-3.0.4/test-suite/tests/dwarf.test-59- (pass-if-equal "foo.scm" (source-file source))
##############################################
guile-3.0-3.0.4/test-suite/tests/rtl.test-30-a procedure."
guile-3.0-3.0.4/test-suite/tests/rtl.test:31: (let ((asm (make-assembler)))
guile-3.0-3.0.4/test-suite/tests/rtl.test:32: (emit-text asm instructions)
guile-3.0-3.0.4/test-suite/tests/rtl.test:33: (load-thunk-from-memory (link-assembly asm #:page-aligned? #f))))
guile-3.0-3.0.4/test-suite/tests/rtl.test-34-
##############################################
guile-3.0-3.0.4/debian/changelog-828-
guile-3.0-3.0.4/debian/changelog:829: * Don't access uninitialized memory in scm_to_sockaddr().
guile-3.0-3.0.4/debian/changelog-830- Thanks to Thorsten Glaser <tg@mirbsd.de> for the patch.