===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
guile-2.2-2.2.7+1/NEWS-2006-*** 'scm_c_read' on ISO-8859-1 (e.g. binary) unbuffered ports is faster.
guile-2.2-2.2.7+1/NEWS:2007:*** New inline asm for VM fixnum multiply, for faster overflow checking.
guile-2.2-2.2.7+1/NEWS:2008:*** New inline asm for VM fixnum operations on ARM and 32-bit x86.
guile-2.2-2.2.7+1/NEWS-2009-*** 'positive?' and 'negative?' are now compiled to VM primitives.
##############################################
guile-2.2-2.2.7+1/NEWS-2193- (http://bugs.gnu.org/14905)
guile-2.2-2.2.7+1/NEWS:2194:** Fix inline asm for VM fixnum operations on x32.
guile-2.2-2.2.7+1/NEWS-2195-** Fix 'SCM_SYSCALL' to really swallow EINTR.
##############################################
guile-2.2-2.2.7+1/NEWS-5742-** Fix incorrect handling of the FLAGS argument of `fold-matches'
guile-2.2-2.2.7+1/NEWS:5743:** `guile-config link' now prints `-L$libdir' before `-lguile'
guile-2.2-2.2.7+1/NEWS-5744-** Fix memory corruption involving GOOPS' `class-redefinition'
##############################################
guile-2.2-2.2.7+1/acinclude.m4-123-], eval "ac_cv_func_$1_$2=yes", eval "ac_cv_func_$1_$2=no")])
guile-2.2-2.2.7+1/acinclude.m4:124:if eval "test \"`echo '$ac_cv_func_'$1'_'$2`\" = yes"; then
guile-2.2-2.2.7+1/acinclude.m4-125- AC_MSG_RESULT(yes)
##############################################
guile-2.2-2.2.7+1/build-aux/announce-gen-112- my $cmd = "du -h $f";
guile-2.2-2.2.7+1/build-aux/announce-gen:113: my $t = `$cmd`;
guile-2.2-2.2.7+1/build-aux/announce-gen-114- # FIXME-someday: give a better diagnostic, a la $PROCESS_STATUS
##############################################
guile-2.2-2.2.7+1/build-aux/announce-gen-337- # 'tool --version' output is the version string.
guile-2.2-2.2.7+1/build-aux/announce-gen:338: my ($first_line, undef) = split ("\n", `$t --version`);
guile-2.2-2.2.7+1/build-aux/announce-gen-339- if ($first_line =~ /.* (\d[\w.-]+)$/)
##############################################
guile-2.2-2.2.7+1/build-aux/config.rpath-33-host="$1"
guile-2.2-2.2.7+1/build-aux/config.rpath:34:host_cpu=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'`
guile-2.2-2.2.7+1/build-aux/config.rpath:35:host_vendor=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'`
guile-2.2-2.2.7+1/build-aux/config.rpath:36:host_os=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'`
guile-2.2-2.2.7+1/build-aux/config.rpath-37-
##############################################
guile-2.2-2.2.7+1/build-aux/config.rpath-47-done
guile-2.2-2.2.7+1/build-aux/config.rpath:48:cc_basename=`echo "$cc_temp" | sed -e 's%^.*/%%'`
guile-2.2-2.2.7+1/build-aux/config.rpath-49-
##############################################
guile-2.2-2.2.7+1/build-aux/config.rpath-94- *)
guile-2.2-2.2.7+1/build-aux/config.rpath:95: case `$CC -V 2>&1 | sed 5q` in
guile-2.2-2.2.7+1/build-aux/config.rpath-96- *Sun\ F* | *Sun*Fortran*)
##############################################
guile-2.2-2.2.7+1/build-aux/config.rpath-235- sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
guile-2.2-2.2.7+1/build-aux/config.rpath:236: case `$LD -v 2>&1` in
guile-2.2-2.2.7+1/build-aux/config.rpath-237- *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*)
##############################################
guile-2.2-2.2.7+1/build-aux/config.rpath-241- if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then
guile-2.2-2.2.7+1/build-aux/config.rpath:242: hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-rpath,$libdir`'
guile-2.2-2.2.7+1/build-aux/config.rpath-243- else
##############################################
guile-2.2-2.2.7+1/build-aux/config.rpath-298- case $host_os in aix4.[012]|aix4.[012].*)
guile-2.2-2.2.7+1/build-aux/config.rpath:299: collect2name=`${CC} -print-prog-name=collect2`
guile-2.2-2.2.7+1/build-aux/config.rpath-300- if test -f "$collect2name" && \
##############################################
guile-2.2-2.2.7+1/build-aux/config.rpath-430- hardcode_direct=yes
guile-2.2-2.2.7+1/build-aux/config.rpath:431: if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
guile-2.2-2.2.7+1/build-aux/config.rpath-432- hardcode_libdir_flag_spec='${wl}-rpath,$libdir'
##############################################
guile-2.2-2.2.7+1/build-aux/config.rpath-494- sysv5* | sco3.2v5* | sco5v6*)
guile-2.2-2.2.7+1/build-aux/config.rpath:495: hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`'
guile-2.2-2.2.7+1/build-aux/config.rpath-496- hardcode_libdir_separator=':'
##############################################
guile-2.2-2.2.7+1/build-aux/config.rpath-645-sed_quote_subst='s/\(["`$\\]\)/\\\1/g'
guile-2.2-2.2.7+1/build-aux/config.rpath:646:escaped_wl=`echo "X$wl" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-2.2-2.2.7+1/build-aux/config.rpath:647:shlibext=`echo "$shrext" | sed -e 's,^\.,,'`
guile-2.2-2.2.7+1/build-aux/config.rpath:648:escaped_libname_spec=`echo "X$libname_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-2.2-2.2.7+1/build-aux/config.rpath:649:escaped_library_names_spec=`echo "X$library_names_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-2.2-2.2.7+1/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-2.2-2.2.7+1/build-aux/config.rpath-651-
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-36-
guile-2.2-2.2.7+1/build-aux/gendocs.sh:37:prog=`basename "$0"`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-38-srcdir=`pwd`
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-203- # but here, we use the basename of $srcfile
guile-2.2-2.2.7+1/build-aux/gendocs.sh:204: base=`basename "$srcfile"`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-205- case $base in
guile-2.2-2.2.7+1/build-aux/gendocs.sh:206: *.txi|*.texi|*.texinfo) base=`echo "$base"|sed 's/\.[texinfo]*$//'`;;
guile-2.2-2.2.7+1/build-aux/gendocs.sh-207- esac
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-228-{
guile-2.2-2.2.7+1/build-aux/gendocs.sh:229: size=`ls -ksl $1 | awk '{print $1}'`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-230- echo $size
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-292- ls -l "$outdir/$PACKAGE.info.tar.gz"
guile-2.2-2.2.7+1/build-aux/gendocs.sh:293: info_tgz_size=`calcsize "$outdir/$PACKAGE.info.tar.gz"`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-294- # do not mv the info files, there's no point in having them available
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-304- gzip -f -9 $PACKAGE.dvi
guile-2.2-2.2.7+1/build-aux/gendocs.sh:305: dvi_gz_size=`calcsize $PACKAGE.dvi.gz`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-306- mv $PACKAGE.dvi.gz "$outdir/"
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-311- eval "$cmd"
guile-2.2-2.2.7+1/build-aux/gendocs.sh:312: pdf_size=`calcsize $PACKAGE.pdf`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-313- mv $PACKAGE.pdf "$outdir/"
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-322- eval "$cmd"
guile-2.2-2.2.7+1/build-aux/gendocs.sh:323: ascii_size=`calcsize $PACKAGE.txt`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-324- gzip -f -9 -c $PACKAGE.txt >"$outdir/$PACKAGE.txt.gz"
guile-2.2-2.2.7+1/build-aux/gendocs.sh:325: ascii_gz_size=`calcsize "$outdir/$PACKAGE.txt.gz"`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-326- mv $PACKAGE.txt "$outdir/"
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-345- )
guile-2.2-2.2.7+1/build-aux/gendocs.sh:346: eval html_$1_tgz_size=`calcsize "$outdir/${PACKAGE}.html_$1.tar.gz"`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-347- rm -f "$outdir"/html_$1/*.html
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-358- eval "$cmd"
guile-2.2-2.2.7+1/build-aux/gendocs.sh:359: html_mono_size=`calcsize $PACKAGE.html`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-360- gzip -f -9 -c $PACKAGE.html >"$outdir/$PACKAGE.html.gz"
guile-2.2-2.2.7+1/build-aux/gendocs.sh:361: html_mono_gz_size=`calcsize "$outdir/$PACKAGE.html.gz"`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-362- copy_images "$outdir/" $PACKAGE.html
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-385- eval \
guile-2.2-2.2.7+1/build-aux/gendocs.sh:386: html_${split}_tgz_size=`calcsize "$outdir/$PACKAGE.html_$split.tar.gz"`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-387- rm -rf "$outdir/html_$split/"
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-397- eval "$cmd"
guile-2.2-2.2.7+1/build-aux/gendocs.sh:398: html_mono_size=`calcsize $PACKAGE.html`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-399- gzip -f -9 -c $PACKAGE.html >"$outdir/$PACKAGE.html.gz"
guile-2.2-2.2.7+1/build-aux/gendocs.sh:400: html_mono_gz_size=`calcsize "$outdir/$PACKAGE.html.gz"`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-401- mv $PACKAGE.html "$outdir/"
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-410-printf "\nMaking .tar.gz for sources...\n"
guile-2.2-2.2.7+1/build-aux/gendocs.sh:411:d=`dirname $srcfile`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-412-(
guile-2.2-2.2.7+1/build-aux/gendocs.sh-413- cd "$d"
guile-2.2-2.2.7+1/build-aux/gendocs.sh:414: srcfiles=`ls -d *.texinfo *.texi *.txi *.eps $source_extra 2>/dev/null` || true
guile-2.2-2.2.7+1/build-aux/gendocs.sh-415- tar czfh "$abs_outdir/$PACKAGE.texi.tar.gz" $srcfiles
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-417-)
guile-2.2-2.2.7+1/build-aux/gendocs.sh:418:texi_tgz_size=`calcsize "$outdir/$PACKAGE.texi.tar.gz"`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-419-
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-426- eval "$cmd"
guile-2.2-2.2.7+1/build-aux/gendocs.sh:427: docbook_xml_size=`calcsize $PACKAGE-db.xml`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-428- gzip -f -9 -c $PACKAGE-db.xml >"$outdir/$PACKAGE-db.xml.gz"
guile-2.2-2.2.7+1/build-aux/gendocs.sh:429: docbook_xml_gz_size=`calcsize "$outdir/$PACKAGE-db.xml.gz"`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-430- mv $PACKAGE-db.xml "$outdir/"
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-440- )
guile-2.2-2.2.7+1/build-aux/gendocs.sh:441: html_node_db_tgz_size=`calcsize "$outdir/${PACKAGE}.html_node_db.tar.gz"`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-442- rm -f "$outdir"/html_node_db/*.html
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-449- eval "$cmd"
guile-2.2-2.2.7+1/build-aux/gendocs.sh:450: docbook_ascii_size=`calcsize $PACKAGE-db.txt`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-451- mv $PACKAGE-db.txt "$outdir/"
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-455- eval "$cmd"
guile-2.2-2.2.7+1/build-aux/gendocs.sh:456: docbook_pdf_size=`calcsize $PACKAGE-db.pdf`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-457- mv $PACKAGE-db.pdf "$outdir/"
##############################################
guile-2.2-2.2.7+1/build-aux/gendocs.sh-469-
guile-2.2-2.2.7+1/build-aux/gendocs.sh:470:curdate=`$SETLANG date '+%B %d, %Y'`
guile-2.2-2.2.7+1/build-aux/gendocs.sh-471-sed \
##############################################
guile-2.2-2.2.7+1/build-aux/git-version-gen-146-then
guile-2.2-2.2.7+1/build-aux/git-version-gen:147: v=`cat $tarball_version_file` || v=
guile-2.2-2.2.7+1/build-aux/git-version-gen-148- case $v in
##############################################
guile-2.2-2.2.7+1/build-aux/git-version-gen-165- || git describe --abbrev=4 HEAD 2>/dev/null` \
guile-2.2-2.2.7+1/build-aux/git-version-gen:166: && v=`printf '%s\n' "$v" | sed "$tag_sed_script"` \
guile-2.2-2.2.7+1/build-aux/git-version-gen-167- && case $v in
##############################################
guile-2.2-2.2.7+1/build-aux/git-version-gen-182- # of git describe.
guile-2.2-2.2.7+1/build-aux/git-version-gen:183: vtag=`echo "$v" | sed 's/-.*//'`
guile-2.2-2.2.7+1/build-aux/git-version-gen:184: commit_list=`git rev-list "$vtag"..HEAD 2>/dev/null` \
guile-2.2-2.2.7+1/build-aux/git-version-gen-185- || { commit_list=failed;
guile-2.2-2.2.7+1/build-aux/git-version-gen-186- echo "$0: WARNING: git rev-list failed" 1>&2; }
guile-2.2-2.2.7+1/build-aux/git-version-gen:187: numcommits=`echo "$commit_list" | wc -l`
guile-2.2-2.2.7+1/build-aux/git-version-gen:188: v=`echo "$v" | sed "s/\(.*\)-\(.*\)/\1-$numcommits-\2/"`;
guile-2.2-2.2.7+1/build-aux/git-version-gen-189- test "$commit_list" = failed && v=UNKNOWN
##############################################
guile-2.2-2.2.7+1/build-aux/git-version-gen-194- # Remove the "g" in git describe's output string, to save a byte.
guile-2.2-2.2.7+1/build-aux/git-version-gen:195: v=`echo "$v" | sed 's/-/./;s/\(.*\)-g/\1-/'`;
guile-2.2-2.2.7+1/build-aux/git-version-gen-196- v_from_git=1
##############################################
guile-2.2-2.2.7+1/build-aux/git-version-gen-202-
guile-2.2-2.2.7+1/build-aux/git-version-gen:203:v=`echo "$v" |sed "s/^$prefix//"`
guile-2.2-2.2.7+1/build-aux/git-version-gen-204-
##############################################
guile-2.2-2.2.7+1/build-aux/gitlog-to-changelog-316- # Let $code operate on it, safely.
guile-2.2-2.2.7+1/build-aux/gitlog-to-changelog:317: my $r = $s->reval("$code")
guile-2.2-2.2.7+1/build-aux/gitlog-to-changelog-318- or die "$ME:$.:$sha: failed to eval \"$code\":\n$@\n";
##############################################
guile-2.2-2.2.7+1/build-aux/gnupload-117- echo "$0: Reading configuration file $conffile"
guile-2.2-2.2.7+1/build-aux/gnupload:118: conf=`sed 's/#.*$//;/^$/d' "$conffile" | tr "\015$nl" ' '`
guile-2.2-2.2.7+1/build-aux/gnupload-119- eval set x "$conf \"\$@\""
##############################################
guile-2.2-2.2.7+1/build-aux/gnupload-165- --symlink-regex=*)
guile-2.2-2.2.7+1/build-aux/gnupload:166: symlink_expr=`expr "$1" : '[^=]*=\(.*\)'`
guile-2.2-2.2.7+1/build-aux/gnupload-167- ;;
##############################################
guile-2.2-2.2.7+1/build-aux/gnupload-216-if test -n "$symlink_files"; then
guile-2.2-2.2.7+1/build-aux/gnupload:217: x=`echo "$symlink_files" | sed 's/[^ ]//g;s/ //g'`
guile-2.2-2.2.7+1/build-aux/gnupload-218- if test -n "$x"; then
##############################################
guile-2.2-2.2.7+1/build-aux/gnupload-237- elif test -n "$symlink_expr"; then
guile-2.2-2.2.7+1/build-aux/gnupload:238: linkname=`echo $file | sed "$symlink_expr"`
guile-2.2-2.2.7+1/build-aux/gnupload-239- if test -z "$linkname"; then
##############################################
guile-2.2-2.2.7+1/build-aux/gnupload-353- download.gnu.org.ua:alpha/*|download.gnu.org.ua:ftp/*)
guile-2.2-2.2.7+1/build-aux/gnupload:354: destdir_p1=`echo "$destdir" | sed 's,^[^/]*/,,'`
guile-2.2-2.2.7+1/build-aux/gnupload:355: destdir_topdir=`echo "$destdir" | sed 's,/.*,,'`
guile-2.2-2.2.7+1/build-aux/gnupload-356- mkdirective "$destdir_p1" "$base" "$file" "$stmt"
##############################################
guile-2.2-2.2.7+1/build-aux/gnupload-363- /*)
guile-2.2-2.2.7+1/build-aux/gnupload:364: dest_host=`echo "$dest" | sed 's,:.*,,'`
guile-2.2-2.2.7+1/build-aux/gnupload-365- mkdirective "$destdir" "$base" "$file" "$stmt"
##############################################
guile-2.2-2.2.7+1/build-aux/gnupload-383- stmt="$stmt
guile-2.2-2.2.7+1/build-aux/gnupload:384:`mksymlink $symlink_files`"
guile-2.2-2.2.7+1/build-aux/gnupload-385-fi
##############################################
guile-2.2-2.2.7+1/build-aux/gnupload-401- do
guile-2.2-2.2.7+1/build-aux/gnupload:402: destdir=`echo $dest | sed 's/[^:]*://'`
guile-2.2-2.2.7+1/build-aux/gnupload-403- upload "$dest" "$destdir" "`hostname`-$$" "" "$stmt"
##############################################
guile-2.2-2.2.7+1/build-aux/gnupload-420- files="$file $file.sig"
guile-2.2-2.2.7+1/build-aux/gnupload:421: destdir=`echo $dest | sed 's/[^:]*://'`
guile-2.2-2.2.7+1/build-aux/gnupload-422- if test -n "$symlink_expr"; then
guile-2.2-2.2.7+1/build-aux/gnupload:423: linkname=`echo $file | sed "$symlink_expr"`
guile-2.2-2.2.7+1/build-aux/gnupload-424- stmt="$stmt
##############################################
guile-2.2-2.2.7+1/build-aux/vc-list-files-47- --version)
guile-2.2-2.2.7+1/build-aux/vc-list-files:48: year=`echo "$scriptversion" | sed 's/[^0-9].*//'`
guile-2.2-2.2.7+1/build-aux/vc-list-files-49- cat <<EOF
##############################################
guile-2.2-2.2.7+1/build-aux/vc-list-files-70- && dir= sed_esc= \
guile-2.2-2.2.7+1/build-aux/vc-list-files:71: || { dir="$dir/"; sed_esc=`echo "$dir"|env sed 's,\([\\/]\),\\\\\1,g'`; }
guile-2.2-2.2.7+1/build-aux/vc-list-files-72- # Ignore git symlinks - either they point into the tree, in which case
##############################################
guile-2.2-2.2.7+1/build-aux/vc-list-files-96- }}'\'' \
guile-2.2-2.2.7+1/build-aux/vc-list-files:97: `find "$dir" -name Entries -print` /dev/null' $postprocess
guile-2.2-2.2.7+1/build-aux/vc-list-files-98- fi
##############################################
guile-2.2-2.2.7+1/config.rpath-33-host="$1"
guile-2.2-2.2.7+1/config.rpath:34:host_cpu=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'`
guile-2.2-2.2.7+1/config.rpath:35:host_vendor=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'`
guile-2.2-2.2.7+1/config.rpath:36:host_os=`echo "$host" | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'`
guile-2.2-2.2.7+1/config.rpath-37-
##############################################
guile-2.2-2.2.7+1/config.rpath-47-done
guile-2.2-2.2.7+1/config.rpath:48:cc_basename=`echo "$cc_temp" | sed -e 's%^.*/%%'`
guile-2.2-2.2.7+1/config.rpath-49-
##############################################
guile-2.2-2.2.7+1/config.rpath-91- *)
guile-2.2-2.2.7+1/config.rpath:92: case `$CC -V 2>&1 | sed 5q` in
guile-2.2-2.2.7+1/config.rpath-93- *Sun\ C*)
##############################################
guile-2.2-2.2.7+1/config.rpath-217- sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
guile-2.2-2.2.7+1/config.rpath:218: case `$LD -v 2>&1` in
guile-2.2-2.2.7+1/config.rpath-219- *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*)
##############################################
guile-2.2-2.2.7+1/config.rpath-223- if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then
guile-2.2-2.2.7+1/config.rpath:224: hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-rpath,$libdir`'
guile-2.2-2.2.7+1/config.rpath-225- else
##############################################
guile-2.2-2.2.7+1/config.rpath-280- case $host_os in aix4.[012]|aix4.[012].*)
guile-2.2-2.2.7+1/config.rpath:281: collect2name=`${CC} -print-prog-name=collect2`
guile-2.2-2.2.7+1/config.rpath-282- if test -f "$collect2name" && \
##############################################
guile-2.2-2.2.7+1/config.rpath-419- hardcode_direct=yes
guile-2.2-2.2.7+1/config.rpath:420: if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
guile-2.2-2.2.7+1/config.rpath-421- hardcode_libdir_flag_spec='${wl}-rpath,$libdir'
##############################################
guile-2.2-2.2.7+1/config.rpath-483- sysv5* | sco3.2v5* | sco5v6*)
guile-2.2-2.2.7+1/config.rpath:484: hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`'
guile-2.2-2.2.7+1/config.rpath-485- hardcode_libdir_separator=':'
##############################################
guile-2.2-2.2.7+1/config.rpath-627-sed_quote_subst='s/\(["`$\\]\)/\\\1/g'
guile-2.2-2.2.7+1/config.rpath:628:escaped_wl=`echo "X$wl" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-2.2-2.2.7+1/config.rpath:629:shlibext=`echo "$shrext" | sed -e 's,^\.,,'`
guile-2.2-2.2.7+1/config.rpath:630:escaped_libname_spec=`echo "X$libname_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-2.2-2.2.7+1/config.rpath:631:escaped_library_names_spec=`echo "X$library_names_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-2.2-2.2.7+1/config.rpath:632:escaped_hardcode_libdir_flag_spec=`echo "X$hardcode_libdir_flag_spec" | sed -e 's/^X//' -e "$sed_quote_subst"`
guile-2.2-2.2.7+1/config.rpath-633-
##############################################
guile-2.2-2.2.7+1/configure.ac-1637-for file in $LIBOBJS; do
guile-2.2-2.2.7+1/configure.ac:1638: file=`echo "$file" | sed 's,\.[[^.]]*$,.lo,'`
guile-2.2-2.2.7+1/configure.ac-1639- LIBLOBJS="$LIBLOBJS libguile_${GUILE_EFFECTIVE_VERSION}_la-$file"
##############################################
guile-2.2-2.2.7+1/configure.ac-1642-## We also need to create corresponding .doc and .x files
guile-2.2-2.2.7+1/configure.ac:1643:EXTRA_DOT_DOC_FILES="`echo ${LIB@&t@OBJS} | sed 's,\.[[^.]]* ,.doc ,g;s,\.[[^.]]*$,.doc,'`"
guile-2.2-2.2.7+1/configure.ac:1644:EXTRA_DOT_X_FILES="`echo ${LIB@&t@OBJS} | sed 's,\.[[^.]]* ,.x ,g;s,\.[[^.]]*$,.x,'`"
guile-2.2-2.2.7+1/configure.ac-1645-
##############################################
guile-2.2-2.2.7+1/configure.ac-1703-AC_SUBST(top_builddir_absolute)
guile-2.2-2.2.7+1/configure.ac:1704:top_srcdir_absolute=`(cd $srcdir && pwd)`
guile-2.2-2.2.7+1/configure.ac-1705-AC_SUBST(top_srcdir_absolute)
##############################################
guile-2.2-2.2.7+1/doc/guile-api.alist-312-(SO_RCVBUF (groups k Scheme) (scan-data ""))
guile-2.2-2.2.7+1/doc/guile-api.alist:313:(SO_REUSEADDR (groups k Scheme) (scan-data ""))
guile-2.2-2.2.7+1/doc/guile-api.alist-314-(SO_SNDBUF (groups k Scheme) (scan-data ""))
##############################################
guile-2.2-2.2.7+1/doc/guile-api.alist-424-(caadar (groups Scheme) (scan-data "#<primitive-procedure caadar>"))
guile-2.2-2.2.7+1/doc/guile-api.alist:425:(caaddr (groups Scheme) (scan-data "#<primitive-procedure caaddr>"))
guile-2.2-2.2.7+1/doc/guile-api.alist-426-(caadr (groups Scheme) (scan-data "#<primitive-procedure caadr>"))
##############################################
guile-2.2-2.2.7+1/doc/guile-api.alist-432-(cadddr (groups Scheme) (scan-data "#<primitive-procedure cadddr>"))
guile-2.2-2.2.7+1/doc/guile-api.alist:433:(caddr (groups Scheme) (scan-data "#<primitive-procedure caddr>"))
guile-2.2-2.2.7+1/doc/guile-api.alist-434-(cadr (groups Scheme) (scan-data "#<primitive-procedure cadr>"))
##############################################
guile-2.2-2.2.7+1/doc/guile-api.alist-449-(cdadar (groups Scheme) (scan-data "#<primitive-procedure cdadar>"))
guile-2.2-2.2.7+1/doc/guile-api.alist:450:(cdaddr (groups Scheme) (scan-data "#<primitive-procedure cdaddr>"))
guile-2.2-2.2.7+1/doc/guile-api.alist-451-(cdadr (groups Scheme) (scan-data "#<primitive-procedure cdadr>"))
##############################################
guile-2.2-2.2.7+1/doc/guile-api.alist-742-(gethost (groups Scheme) (scan-data "#<primitive-procedure gethost>"))
guile-2.2-2.2.7+1/doc/guile-api.alist:743:(gethostbyaddr (groups Scheme) (scan-data "#<procedure gethostbyaddr (addr)>"))
guile-2.2-2.2.7+1/doc/guile-api.alist-744-(gethostbyname (groups Scheme) (scan-data "#<procedure gethostbyname (name)>"))
##############################################
guile-2.2-2.2.7+1/doc/guile-api.alist-749-(getnet (groups Scheme) (scan-data "#<primitive-procedure getnet>"))
guile-2.2-2.2.7+1/doc/guile-api.alist:750:(getnetbyaddr (groups Scheme) (scan-data "#<procedure getnetbyaddr (addr)>"))
guile-2.2-2.2.7+1/doc/guile-api.alist-751-(getnetbyname (groups Scheme) (scan-data "#<procedure getnetbyname (name)>"))
##############################################
guile-2.2-2.2.7+1/doc/guile-api.alist-785-(gh_cadar (groups guile-C-API gh C) (scan-data T))
guile-2.2-2.2.7+1/doc/guile-api.alist:786:(gh_caddr (groups guile-C-API gh C) (scan-data T))
guile-2.2-2.2.7+1/doc/guile-api.alist-787-(gh_cadr (groups guile-C-API gh C) (scan-data T))
##############################################
guile-2.2-2.2.7+1/doc/guile-api.alist-939-(inet-lnaof (groups Scheme) (scan-data "#<primitive-procedure inet-lnaof>"))
guile-2.2-2.2.7+1/doc/guile-api.alist:940:(inet-makeaddr (groups Scheme) (scan-data "#<primitive-procedure inet-makeaddr>"))
guile-2.2-2.2.7+1/doc/guile-api.alist-941-(inet-netof (groups Scheme) (scan-data "#<primitive-procedure inet-netof>"))
##############################################
guile-2.2-2.2.7+1/doc/guile-api.alist-1963-(scm_inet_aton (groups scm C) (scan-data T))
guile-2.2-2.2.7+1/doc/guile-api.alist:1964:(scm_inet_makeaddr (groups scm C) (scan-data T))
guile-2.2-2.2.7+1/doc/guile-api.alist-1965-(scm_inet_netof (groups scm C) (scan-data T))
##############################################
guile-2.2-2.2.7+1/doc/guile-api.alist-2983-(sloppy-assv (groups Scheme) (scan-data "#<primitive-procedure sloppy-assv>"))
guile-2.2-2.2.7+1/doc/guile-api.alist:2984:(sockaddr:addr (groups Scheme) (scan-data "#<procedure sockaddr:addr (obj)>"))
guile-2.2-2.2.7+1/doc/guile-api.alist-2985-(sockaddr:fam (groups Scheme) (scan-data "#<procedure sockaddr:fam (obj)>"))
##############################################
guile-2.2-2.2.7+1/doc/r5rs/r5rs.texi-5150-@format
guile-2.2-2.2.7+1/doc/r5rs/r5rs.texi:5151:@t{(define caddr (lambda (x) (car (cdr (cdr x)))))@r{.}
guile-2.2-2.2.7+1/doc/r5rs/r5rs.texi-5152-}
##############################################
guile-2.2-2.2.7+1/doc/ref/api-data.texi-5698-@deffnx {C Function} scm_cdaar (pair)
guile-2.2-2.2.7+1/doc/ref/api-data.texi:5699:@deffnx {C Function} scm_caddr (pair)
guile-2.2-2.2.7+1/doc/ref/api-data.texi-5700-@deffnx {C Function} scm_cadar (pair)
##############################################
guile-2.2-2.2.7+1/doc/ref/api-data.texi-5706-@deffnx {C Function} scm_cddaar (pair)
guile-2.2-2.2.7+1/doc/ref/api-data.texi:5707:@deffnx {C Function} scm_cdaddr (pair)
guile-2.2-2.2.7+1/doc/ref/api-data.texi-5708-@deffnx {C Function} scm_cdadar (pair)
##############################################
guile-2.2-2.2.7+1/doc/ref/api-data.texi-5714-@deffnx {C Function} scm_cadaar (pair)
guile-2.2-2.2.7+1/doc/ref/api-data.texi:5715:@deffnx {C Function} scm_caaddr (pair)
guile-2.2-2.2.7+1/doc/ref/api-data.texi-5716-@deffnx {C Function} scm_caadar (pair)
##############################################
guile-2.2-2.2.7+1/doc/ref/api-data.texi-5722-@lisp
guile-2.2-2.2.7+1/doc/ref/api-data.texi:5723:(define caddr (lambda (x) (car (cdr (cdr x)))))
guile-2.2-2.2.7+1/doc/ref/api-data.texi-5724-@end lisp
##############################################
guile-2.2-2.2.7+1/doc/ref/api-memory.texi-69-@c documented, because we don't think it can be implemented as a nice
guile-2.2-2.2.7+1/doc/ref/api-memory.texi:70:@c inline compiler directive or asm block. New _3, _4 or whatever
guile-2.2-2.2.7+1/doc/ref/api-memory.texi-71-@c forms could certainly be added though, if needed.
##############################################
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1185-
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1186:@deffn {Scheme Procedure} emit-vector-length asm dst src
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1187-@end deffn
##############################################
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1197-
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1198:@deffn {Scheme Procedure} emit-label asm label
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1199-Define a label at the current program point.
##############################################
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1201-
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1202:@deffn {Scheme Procedure} emit-source asm source
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1203-Associate @var{source} with the current program point.
##############################################
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1205-
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1206:@deffn {Scheme Procedure} emit-cache-current-module! asm module scope
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1207:@deffnx {Scheme Procedure} emit-cached-toplevel-box asm dst scope sym bound?
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1208:@deffnx {Scheme Procedure} emit-cached-module-box asm dst module-name sym public? bound?
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1209-Macro-instructions to implement caching of top-level variables. The
##############################################
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1216-
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1217:@deffn {Scheme Procedure} emit-load-constant asm dst constant
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1218-Load the Scheme datum @var{constant} into @var{dst}.
##############################################
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1220-
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1221:@deffn {Scheme Procedure} emit-begin-program asm label properties
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1222-@deffnx {Scheme Procedure} emit-end-program asm
##############################################
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1226-
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1227:@deffn {Scheme Procedure} emit-load-static-procedure asm dst label
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1228-Load a procedure with the given @var{label} into local @var{dst}. This
##############################################
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1232-
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1233:@deffn {Scheme Procedure} emit-begin-standard-arity asm req nlocals alternate
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1234:@deffnx {Scheme Procedure} emit-begin-opt-arity asm req opt rest nlocals alternate
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1235:@deffnx {Scheme Procedure} emit-begin-kw-arity asm req opt rest kw-indices allow-other-keys? nlocals alternate
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1236-@deffnx {Scheme Procedure} emit-end-arity asm
##############################################
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1239-
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1240:@deffn {Scheme Procedure} emit-br-if-symbol asm slot invert? label
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1241:@deffnx {Scheme Procedure} emit-br-if-variable asm slot invert? label
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1242:@deffnx {Scheme Procedure} emit-br-if-vector asm slot invert? label
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1243:@deffnx {Scheme Procedure} emit-br-if-string asm slot invert? label
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1244:@deffnx {Scheme Procedure} emit-br-if-bytevector asm slot invert? label
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1245:@deffnx {Scheme Procedure} emit-br-if-bitvector asm slot invert? label
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1246-TC7-specific test-and-branch instructions. The TC7 is a 7-bit code that
##############################################
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1259-
guile-2.2-2.2.7+1/doc/ref/compiler.texi:1260:@deffn {Scheme Procedure} link-assembly asm #:page-aligned?=#t
guile-2.2-2.2.7+1/doc/ref/compiler.texi-1261-Link an ELF image, and return the bytevector. If @var{page-aligned?} is
##############################################
guile-2.2-2.2.7+1/doc/ref/posix.texi-2419-@c INADDR_NONE is defined in the code, but serves no purpose.
guile-2.2-2.2.7+1/doc/ref/posix.texi:2420:@c inet_addr() returns it as an error indication, but that function
guile-2.2-2.2.7+1/doc/ref/posix.texi-2421-@c isn't provided, for the good reason that inet_aton() does the same
##############################################
guile-2.2-2.2.7+1/doc/ref/posix.texi-2450-@deffn {Scheme Procedure} inet-makeaddr net lna
guile-2.2-2.2.7+1/doc/ref/posix.texi:2451:@deffnx {C Function} scm_inet_makeaddr (net, lna)
guile-2.2-2.2.7+1/doc/ref/posix.texi-2452-Make an IPv4 Internet address by combining the network number
##############################################
guile-2.2-2.2.7+1/doc/ref/posix.texi-3036-
guile-2.2-2.2.7+1/doc/ref/posix.texi:3037:@deftypefn {C Function} SCM scm_from_sockaddr (const struct sockaddr *address, unsigned address_size)
guile-2.2-2.2.7+1/doc/ref/posix.texi-3038-Return a Scheme socket address object from the C @var{address}
##############################################
guile-2.2-2.2.7+1/doc/ref/posix.texi-3041-
guile-2.2-2.2.7+1/doc/ref/posix.texi:3042:@deftypefn {C Function} {struct sockaddr *} scm_to_sockaddr (SCM address, size_t *address_size)
guile-2.2-2.2.7+1/doc/ref/posix.texi-3043-Return a newly-@code{malloc}ed @code{struct sockaddr} from a Scheme
##############################################
guile-2.2-2.2.7+1/doc/texinfo.tex-5692- \catcode `\\=0 \catcode `\{=1 \catcode `\}=2
guile-2.2-2.2.7+1/doc/texinfo.tex:5693: \catcode `\$=3 \catcode `\&=4 \catcode `\#=6
guile-2.2-2.2.7+1/doc/texinfo.tex-5694- \catcode `\^=7 \catcode `\_=8 \catcode `\~=\active \let~=\tie
##############################################
guile-2.2-2.2.7+1/examples/Makefile.am-42-
guile-2.2-2.2.7+1/examples/Makefile.am:43:AM_CFLAGS = `PATH=$(bindir)$(PATH_SEPARATOR)$$PATH PKG_CONFIG_PATH=$(libdir)/pkgconfig $(bindir)/guile-config compile`
guile-2.2-2.2.7+1/examples/Makefile.am:44:AM_LIBS = `PATH=$(bindir)$(PATH_SEPARATOR)$$PATH PKG_CONFIG_PATH=$(libdir)/pkgconfig $(bindir)/guile-config link`
guile-2.2-2.2.7+1/examples/Makefile.am-45-
##############################################
guile-2.2-2.2.7+1/examples/check.test-8- echo could not find guile interpreter.
guile-2.2-2.2.7+1/examples/check.test:9: echo '(are you running this script from' `dirname $0` '?)'
guile-2.2-2.2.7+1/examples/check.test-10- echo GUILE env var: ${GUILE-not set}
##############################################
guile-2.2-2.2.7+1/examples/check.test-50-#
guile-2.2-2.2.7+1/examples/check.test:51:case `$guile -s $srcdir/scripts/fact 5` in 120) ;; *) echo $0: error: fact 5 ;; esac
guile-2.2-2.2.7+1/examples/check.test-52-
##############################################
guile-2.2-2.2.7+1/gnulib-local/build-aux/git-version-gen.diff-47- || git describe --abbrev=4 HEAD 2>/dev/null` \
guile-2.2-2.2.7+1/gnulib-local/build-aux/git-version-gen.diff:48: && v=`printf '%s\n' "$v" | sed "$tag_sed_script"` \
guile-2.2-2.2.7+1/gnulib-local/build-aux/git-version-gen.diff-49- && case $v in
##############################################
guile-2.2-2.2.7+1/lib/config.charset-119-host="$1"
guile-2.2-2.2.7+1/lib/config.charset:120:os=`echo "$host" | sed -e 's/^[^-]*-[^-]*-\(.*\)$/\1/'`
guile-2.2-2.2.7+1/lib/config.charset-121-echo "# This file contains a table of character encoding aliases,"
##############################################
guile-2.2-2.2.7+1/libguile/ChangeLog-1996-1999-2560-
guile-2.2-2.2.7+1/libguile/ChangeLog-1996-1999:2561: * gc.c, gc.h (scm_object_address): Renamed from scm_object_addr ().
guile-2.2-2.2.7+1/libguile/ChangeLog-1996-1999-2562-
##############################################
guile-2.2-2.2.7+1/libguile/ChangeLog-1996-1999-2605-
guile-2.2-2.2.7+1/libguile/ChangeLog-1996-1999:2606: * __scm.h (SCM_FENCE): Fix `asm volatile' warnings for EGCS.
guile-2.2-2.2.7+1/libguile/ChangeLog-1996-1999-2607-
##############################################
guile-2.2-2.2.7+1/libguile/ChangeLog-2008-6299-
guile-2.2-2.2.7+1/libguile/ChangeLog-2008:6300: * gc.h (scm_remember_upto_here_1): Revise comments on the asm form.
guile-2.2-2.2.7+1/libguile/ChangeLog-2008-6301-
##############################################
guile-2.2-2.2.7+1/libguile/ChangeLog-2008-6313- * gc.h (scm_remember_upto_here_1, scm_remember_upto_here_2)
guile-2.2-2.2.7+1/libguile/ChangeLog-2008:6314: [__GNUC__]: Use volatile asm macros rather than a function call.
guile-2.2-2.2.7+1/libguile/ChangeLog-2008-6315- * gc.c (scm_remember_upto_here_1, scm_remember_upto_here_2): Undefine
##############################################
guile-2.2-2.2.7+1/libguile/ChangeLog-2008-6811-
guile-2.2-2.2.7+1/libguile/ChangeLog-2008:6812: * throw.c (scm_ithrow): Remove "asm volatile" hack. It used to
guile-2.2-2.2.7+1/libguile/ChangeLog-2008-6813- work around a bug in GCC 2.95.2 but is now a bug in itself.
##############################################
guile-2.2-2.2.7+1/libguile/ChangeLog-scm-2266-
guile-2.2-2.2.7+1/libguile/ChangeLog-scm:2267: * VMSBUILD.COM setjump.asm setjump.h (setjmp longjmp jmp_buf): put
guile-2.2-2.2.7+1/libguile/ChangeLog-scm-2268- in from comp.sources.reviewed in order to let VMS have full
##############################################
guile-2.2-2.2.7+1/libguile/Makefile.am-756- @BUILD_DATE="$${SOURCE_DATE_EPOCH:-`date '+%s'`}" ; \
guile-2.2-2.2.7+1/libguile/Makefile.am:757: echo ' { "buildstamp", "'`date -u +'%Y-%m-%d %T' -d @$$BUILD_DATE`'" }, \' >> libpath.tmp
guile-2.2-2.2.7+1/libguile/Makefile.am-758- @echo '}' >> libpath.tmp
##############################################
guile-2.2-2.2.7+1/libguile/Makefile.am-834-chknew-E chknew-SIG:
guile-2.2-2.2.7+1/libguile/Makefile.am:835: @bit=`echo $@ | sed s/^chknew-//` ; \
guile-2.2-2.2.7+1/libguile/Makefile.am-836- old="$(srcdir)/cpp-$$bit.syms" ; \
##############################################
guile-2.2-2.2.7+1/libguile/Makefile.am-844- cat $$old TMP | sort > $$new ; \
guile-2.2-2.2.7+1/libguile/Makefile.am:845: echo "$$new: `sed -n '$$=' TMP` new symbol(s)." ; \
guile-2.2-2.2.7+1/libguile/Makefile.am-846- sed 's/^/ /' TMP ; \
##############################################
guile-2.2-2.2.7+1/libguile/elf.h-1184-#define R_386_TLS_GD_CALL 26 /* Relocation for call to
guile-2.2-2.2.7+1/libguile/elf.h:1185: __tls_get_addr() */
guile-2.2-2.2.7+1/libguile/elf.h-1186-#define R_386_TLS_GD_POP 27 /* Tag for popl in GD TLS code */
##############################################
guile-2.2-2.2.7+1/libguile/elf.h-1190-#define R_386_TLS_LDM_CALL 30 /* Relocation for call to
guile-2.2-2.2.7+1/libguile/elf.h:1191: __tls_get_addr() in LDM code */
guile-2.2-2.2.7+1/libguile/elf.h-1192-#define R_386_TLS_LDM_POP 31 /* Tag for popl in LDM TLS code */
##############################################
guile-2.2-2.2.7+1/libguile/eval.c-108-#define BOOT_CLOSURE_BODY(x) CAR (BOOT_CLOSURE_CODE (x))
guile-2.2-2.2.7+1/libguile/eval.c:109:#define BOOT_CLOSURE_NUM_REQUIRED_ARGS(x) (SCM_I_INUM (CADDR (BOOT_CLOSURE_CODE (x))))
guile-2.2-2.2.7+1/libguile/eval.c-110-#define BOOT_CLOSURE_IS_FIXED(x) (scm_is_null (CDDDR (BOOT_CLOSURE_CODE (x))))
guile-2.2-2.2.7+1/libguile/eval.c-111-/* NB: One may only call the following accessors if the closure is not FIXED. */
guile-2.2-2.2.7+1/libguile/eval.c:112:#define BOOT_CLOSURE_HAS_REST_ARGS(x) scm_is_true (CADDR (SCM_CDR (BOOT_CLOSURE_CODE (x))))
guile-2.2-2.2.7+1/libguile/eval.c-113-#define BOOT_CLOSURE_IS_REST(x) scm_is_null (SCM_CDR (CDDDR (BOOT_CLOSURE_CODE (x))))
##############################################
guile-2.2-2.2.7+1/libguile/eval.c-150-#define CDDR(x) SCM_CDDR(x)
guile-2.2-2.2.7+1/libguile/eval.c:151:#define CADDR(x) SCM_CADDR(x)
guile-2.2-2.2.7+1/libguile/eval.c-152-#define CDDDR(x) SCM_CDDDR(x)
##############################################
guile-2.2-2.2.7+1/libguile/expand.c-97-#define CDDR(x) SCM_CDDR(x)
guile-2.2-2.2.7+1/libguile/expand.c:98:#define CADDR(x) SCM_CADDR(x)
guile-2.2-2.2.7+1/libguile/expand.c-99-#define CDDDR(x) SCM_CDDDR(x)
##############################################
guile-2.2-2.2.7+1/libguile/expand.c-409- ASSERT_SYNTAX (scm_ilength (CADR (expr)) > 0, s_bad_expression, expr);
guile-2.2-2.2.7+1/libguile/expand.c:410: ASSERT_SYNTAX (scm_is_symbol (CADDR (expr)), s_bad_expression, expr);
guile-2.2-2.2.7+1/libguile/expand.c-411-
guile-2.2-2.2.7+1/libguile/expand.c-412- return MODULE_REF (scm_source_properties (expr),
guile-2.2-2.2.7+1/libguile/expand.c:413: CADR (expr), CADDR (expr), SCM_BOOL_T);
guile-2.2-2.2.7+1/libguile/expand.c-414-}
##############################################
guile-2.2-2.2.7+1/libguile/expand.c-419- ASSERT_SYNTAX (scm_ilength (expr) == 3, s_bad_expression, expr);
guile-2.2-2.2.7+1/libguile/expand.c:420: ASSERT_SYNTAX (scm_is_symbol (CADDR (expr)), s_bad_expression, expr);
guile-2.2-2.2.7+1/libguile/expand.c-421-
guile-2.2-2.2.7+1/libguile/expand.c-422- if (scm_is_eq (CADR (expr), sym_primitive))
guile-2.2-2.2.7+1/libguile/expand.c:423: return PRIMITIVE_REF (scm_source_properties (expr), CADDR (expr));
guile-2.2-2.2.7+1/libguile/expand.c-424-
##############################################
guile-2.2-2.2.7+1/libguile/expand.c-426- return MODULE_REF (scm_source_properties (expr),
guile-2.2-2.2.7+1/libguile/expand.c:427: CADR (expr), CADDR (expr), SCM_BOOL_F);
guile-2.2-2.2.7+1/libguile/expand.c-428-}
##############################################
guile-2.2-2.2.7+1/libguile/expand.c-492- CALL (SCM_BOOL_F,
guile-2.2-2.2.7+1/libguile/expand.c:493: expand (CADDR (clause), new_env),
guile-2.2-2.2.7+1/libguile/expand.c-494- scm_list_1 (LEXICAL_REF (SCM_BOOL_F,
##############################################
guile-2.2-2.2.7+1/libguile/expand.c-577- expand (CADR (expr), env),
guile-2.2-2.2.7+1/libguile/expand.c:578: expand (CADDR (expr), env),
guile-2.2-2.2.7+1/libguile/expand.c-579- ((length == 3)
##############################################
guile-2.2-2.2.7+1/libguile/expand.c-812- else if (scm_ilength (x) == 3 && scm_is_symbol (CAR (x))
guile-2.2-2.2.7+1/libguile/expand.c:813: && scm_is_keyword (CADDR (x)))
guile-2.2-2.2.7+1/libguile/expand.c-814- {
##############################################
guile-2.2-2.2.7+1/libguile/expand.c-816- init = CADR (x);
guile-2.2-2.2.7+1/libguile/expand.c:817: k = CADDR (x);
guile-2.2-2.2.7+1/libguile/expand.c-818- }
##############################################
guile-2.2-2.2.7+1/libguile/expand.c-1134- SCM_EXPANDED_REF (vmem, LEXICAL_REF, GENSYM),
guile-2.2-2.2.7+1/libguile/expand.c:1135: expand (CADDR (expr), env));
guile-2.2-2.2.7+1/libguile/expand.c-1136- case SCM_EXPANDED_TOPLEVEL_REF:
##############################################
guile-2.2-2.2.7+1/libguile/expand.c-1138- SCM_EXPANDED_REF (vmem, TOPLEVEL_REF, NAME),
guile-2.2-2.2.7+1/libguile/expand.c:1139: expand (CADDR (expr), env));
guile-2.2-2.2.7+1/libguile/expand.c-1140- case SCM_EXPANDED_MODULE_REF:
##############################################
guile-2.2-2.2.7+1/libguile/expand.c-1144- SCM_EXPANDED_REF (vmem, MODULE_REF, PUBLIC),
guile-2.2-2.2.7+1/libguile/expand.c:1145: expand (CADDR (expr), env));
guile-2.2-2.2.7+1/libguile/expand.c-1146- default:
##############################################
guile-2.2-2.2.7+1/libguile/frames.c-192-
guile-2.2-2.2.7+1/libguile/frames.c:193: return scm_find_source_for_addr (scm_frame_instruction_pointer (frame));
guile-2.2-2.2.7+1/libguile/frames.c-194-}
##############################################
guile-2.2-2.2.7+1/libguile/gc.h-273- used on all processors and allows any memory or general register (or
guile-2.2-2.2.7+1/libguile/gc.h:274: immediate) operand. The actual asm syntax doesn't matter, we don't want
guile-2.2-2.2.7+1/libguile/gc.h-275- to use it, just ensure the operand is still alive. See "Extended Asm" in
##############################################
guile-2.2-2.2.7+1/libguile/libguile-2.2-gdb.scm-260- (let ((n (+ start (ash (- end start) -1))))
guile-2.2-2.2.7+1/libguile/libguile-2.2-gdb.scm:261: (if (value<? addr (value-field (value-add array n) "end"))
guile-2.2-2.2.7+1/libguile/libguile-2.2-gdb.scm-262- (lp start n)
##############################################
guile-2.2-2.2.7+1/libguile/libguile-2.2-gdb.scm-268-(define (vm-frame-program-debug-info frame)
guile-2.2-2.2.7+1/libguile/libguile-2.2-gdb.scm:269: (let ((addr (vm-frame-ip frame)))
guile-2.2-2.2.7+1/libguile/libguile-2.2-gdb.scm-270- (and=> (find-mapped-elf-image addr)
##############################################
guile-2.2-2.2.7+1/libguile/libguile-2.2-gdb.scm-280- ;; before we look for the PDI.
guile-2.2-2.2.7+1/libguile/libguile-2.2-gdb.scm:281: (let ((addr (+ (value->integer addr)
guile-2.2-2.2.7+1/libguile/libguile-2.2-gdb.scm-282- (- (debug-context-base ctx) start))))
##############################################
guile-2.2-2.2.7+1/libguile/libguile-2.2-gdb.scm-322- (and pdi
guile-2.2-2.2.7+1/libguile/libguile-2.2-gdb.scm:323: (find-source-for-addr (program-debug-info-addr pdi)
guile-2.2-2.2.7+1/libguile/libguile-2.2-gdb.scm-324- (program-debug-info-context pdi)))))
##############################################
guile-2.2-2.2.7+1/libguile/memoize.c-52-#define CDDR(x) SCM_CDDR(x)
guile-2.2-2.2.7+1/libguile/memoize.c:53:#define CADDR(x) SCM_CADDR(x)
guile-2.2-2.2.7+1/libguile/memoize.c-54-#define CDDDR(x) SCM_CDDDR(x)
##############################################
guile-2.2-2.2.7+1/libguile/memoize.c-471- CADR (args),
guile-2.2-2.2.7+1/libguile/memoize.c:472: CADDR (args));
guile-2.2-2.2.7+1/libguile/memoize.c-473- else if (nargs == 2
##############################################
guile-2.2-2.2.7+1/libguile/memoize.c-582- k = CAR (CAR (kw));
guile-2.2-2.2.7+1/libguile/memoize.c:583: idx = lookup_rib (CADDR (CAR (kw)), rib);
guile-2.2-2.2.7+1/libguile/memoize.c-584- indices = scm_acons (k, SCM_I_MAKINUM (idx), indices);
##############################################
guile-2.2-2.2.7+1/libguile/memoize.c-749- CADR (spec),
guile-2.2-2.2.7+1/libguile/memoize.c:750: CADDR (spec),
guile-2.2-2.2.7+1/libguile/memoize.c-751- CADDDR (spec),
##############################################
guile-2.2-2.2.7+1/libguile/memoize.c-787- scm_i_finite_list_copy (CADR (args)),
guile-2.2-2.2.7+1/libguile/memoize.c:788: CADDR (args));
guile-2.2-2.2.7+1/libguile/memoize.c-789- case SCM_M_CALL_WITH_PROMPT:
##############################################
guile-2.2-2.2.7+1/libguile/net_db.c-168- inad.s_addr = htonl (scm_to_ulong (host));
guile-2.2-2.2.7+1/libguile/net_db.c:169: entry = gethostbyaddr ((char *) &inad, sizeof (inad), AF_INET);
guile-2.2-2.2.7+1/libguile/net_db.c-170- }
##############################################
guile-2.2-2.2.7+1/libguile/net_db.c-243- unsigned long netnum = scm_to_ulong (net);
guile-2.2-2.2.7+1/libguile/net_db.c:244: entry = getnetbyaddr (netnum, AF_INET);
guile-2.2-2.2.7+1/libguile/net_db.c-245- eno = errno;
##############################################
guile-2.2-2.2.7+1/libguile/net_db.c-479- SCM_SIMPLE_VECTOR_SET (ai, 4,
guile-2.2-2.2.7+1/libguile/net_db.c:480: scm_from_sockaddr (c_ai->ai_addr, c_ai->ai_addrlen));
guile-2.2-2.2.7+1/libguile/net_db.c-481- SCM_SIMPLE_VECTOR_SET (ai, 5,
##############################################
guile-2.2-2.2.7+1/libguile/pairs.h-93-#define SCM_CDADR(OBJ) SCM_CDR (SCM_CAR (SCM_CDR (OBJ)))
guile-2.2-2.2.7+1/libguile/pairs.h:94:#define SCM_CADDR(OBJ) SCM_CAR (SCM_CDR (SCM_CDR (OBJ)))
guile-2.2-2.2.7+1/libguile/pairs.h-95-#define SCM_CDDDR(OBJ) SCM_CDR (SCM_CDR (SCM_CDR (OBJ)))
##############################################
guile-2.2-2.2.7+1/libguile/pairs.h-108-#define SCM_CDDADR(OBJ) SCM_CDR (SCM_CDR (SCM_CAR (SCM_CDR (OBJ))))
guile-2.2-2.2.7+1/libguile/pairs.h:109:#define SCM_CAADDR(OBJ) SCM_CAR (SCM_CAR (SCM_CDR (SCM_CDR (OBJ))))
guile-2.2-2.2.7+1/libguile/pairs.h:110:#define SCM_CDADDR(OBJ) SCM_CDR (SCM_CAR (SCM_CDR (SCM_CDR (OBJ))))
guile-2.2-2.2.7+1/libguile/pairs.h-111-#define SCM_CADDDR(OBJ) SCM_CAR (SCM_CDR (SCM_CDR (SCM_CDR (OBJ))))
##############################################
guile-2.2-2.2.7+1/libguile/pairs.h-215-SCM_API SCM scm_cdaar (SCM x);
guile-2.2-2.2.7+1/libguile/pairs.h:216:SCM_API SCM scm_caddr (SCM x);
guile-2.2-2.2.7+1/libguile/pairs.h-217-SCM_API SCM scm_cadar (SCM x);
##############################################
guile-2.2-2.2.7+1/libguile/pairs.h-223-SCM_API SCM scm_cddaar (SCM x);
guile-2.2-2.2.7+1/libguile/pairs.h:224:SCM_API SCM scm_cdaddr (SCM x);
guile-2.2-2.2.7+1/libguile/pairs.h-225-SCM_API SCM scm_cdadar (SCM x);
##############################################
guile-2.2-2.2.7+1/libguile/pairs.h-231-SCM_API SCM scm_cadaar (SCM x);
guile-2.2-2.2.7+1/libguile/pairs.h:232:SCM_API SCM scm_caaddr (SCM x);
guile-2.2-2.2.7+1/libguile/pairs.h-233-SCM_API SCM scm_caadar (SCM x);
##############################################
guile-2.2-2.2.7+1/libguile/procprop.c-58- *opt = scm_to_int (scm_cadr (o));
guile-2.2-2.2.7+1/libguile/procprop.c:59: *rest = scm_is_true (scm_caddr (o));
guile-2.2-2.2.7+1/libguile/procprop.c-60- return 1;
##############################################
guile-2.2-2.2.7+1/libguile/programs.c-170-SCM
guile-2.2-2.2.7+1/libguile/programs.c:171:scm_find_source_for_addr (SCM ip)
guile-2.2-2.2.7+1/libguile/programs.c-172-{
##############################################
guile-2.2-2.2.7+1/libguile/programs.c-319- *opt = scm_to_int (scm_cadr (l));
guile-2.2-2.2.7+1/libguile/programs.c:320: *rest = scm_is_true (scm_caddr (l));
guile-2.2-2.2.7+1/libguile/programs.c-321-
##############################################
guile-2.2-2.2.7+1/libguile/programs.h-67-
guile-2.2-2.2.7+1/libguile/programs.h:68:SCM_INTERNAL SCM scm_find_source_for_addr (SCM ip);
guile-2.2-2.2.7+1/libguile/programs.h-69-
##############################################
guile-2.2-2.2.7+1/libguile/random.c-148- SCM_VALIDATE_UINT_COPY (SCM_ARG1, SCM_CADR (value), w);
guile-2.2-2.2.7+1/libguile/random.c:149: SCM_VALIDATE_UINT_COPY (SCM_ARG1, SCM_CADDR (value), c);
guile-2.2-2.2.7+1/libguile/random.c-150-
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-145- lnanum = SCM_NUM2ULONG (2, lna);
guile-2.2-2.2.7+1/libguile/socket.c:146: addr = inet_makeaddr (netnum, lnanum);
guile-2.2-2.2.7+1/libguile/socket.c-147- return scm_from_ulong (ntohl (addr.s_addr));
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-718-static struct sockaddr *
guile-2.2-2.2.7+1/libguile/socket.c:719:scm_fill_sockaddr (int fam, SCM address, SCM *args, int which_arg,
guile-2.2-2.2.7+1/libguile/socket.c-720- const char *proc, size_t *size)
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-857- `socket address' object. */
guile-2.2-2.2.7+1/libguile/socket.c:858: soka = scm_to_sockaddr (fam_or_sockaddr, &size);
guile-2.2-2.2.7+1/libguile/socket.c-859- else
guile-2.2-2.2.7+1/libguile/socket.c:860: soka = scm_fill_sockaddr (scm_to_int (fam_or_sockaddr), address,
guile-2.2-2.2.7+1/libguile/socket.c-861- &args, 3, FUNC_NAME, &size);
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-928- `socket address' object. */
guile-2.2-2.2.7+1/libguile/socket.c:929: soka = scm_to_sockaddr (fam_or_sockaddr, &size);
guile-2.2-2.2.7+1/libguile/socket.c-930- else
guile-2.2-2.2.7+1/libguile/socket.c:931: soka = scm_fill_sockaddr (scm_to_int (fam_or_sockaddr), address,
guile-2.2-2.2.7+1/libguile/socket.c-932- &args, 3, FUNC_NAME, &size);
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-970-static SCM_C_INLINE_KEYWORD SCM
guile-2.2-2.2.7+1/libguile/socket.c:971:_scm_from_sockaddr (const scm_t_max_sockaddr *address, unsigned addr_size,
guile-2.2-2.2.7+1/libguile/socket.c-972- const char *proc)
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-1039-SCM
guile-2.2-2.2.7+1/libguile/socket.c:1040:scm_from_sockaddr (const struct sockaddr *address, unsigned addr_size)
guile-2.2-2.2.7+1/libguile/socket.c-1041-{
guile-2.2-2.2.7+1/libguile/socket.c:1042: return (_scm_from_sockaddr ((scm_t_max_sockaddr *) address,
guile-2.2-2.2.7+1/libguile/socket.c-1043- addr_size, "scm_from_sockaddr"));
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-1046-/* Convert ADDRESS, an address object returned by either
guile-2.2-2.2.7+1/libguile/socket.c:1047: `scm_from_sockaddr ()' or `scm_make_socket_address ()', into its C
guile-2.2-2.2.7+1/libguile/socket.c-1048- representation. On success, a non-NULL pointer is returned and
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-1051-struct sockaddr *
guile-2.2-2.2.7+1/libguile/socket.c:1052:scm_to_sockaddr (SCM address, size_t *address_size)
guile-2.2-2.2.7+1/libguile/socket.c-1053-#define FUNC_NAME "scm_to_sockaddr"
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-1214-
guile-2.2-2.2.7+1/libguile/socket.c:1215: soka = scm_fill_sockaddr (scm_to_ushort (family), address, &args, 1,
guile-2.2-2.2.7+1/libguile/socket.c-1216- "scm_c_make_socket_address", address_size);
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-1236- {
guile-2.2-2.2.7+1/libguile/socket.c:1237: result = scm_from_sockaddr (c_address, c_address_size);
guile-2.2-2.2.7+1/libguile/socket.c-1238- free (c_address);
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-1282- newsock = scm_socket_fd_to_port (newfd);
guile-2.2-2.2.7+1/libguile/socket.c:1283: address = _scm_from_sockaddr (&addr, addr_size, FUNC_NAME);
guile-2.2-2.2.7+1/libguile/socket.c-1284-
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-1311-
guile-2.2-2.2.7+1/libguile/socket.c:1312: return _scm_from_sockaddr (&addr, addr_size, FUNC_NAME);
guile-2.2-2.2.7+1/libguile/socket.c-1313-}
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-1333-
guile-2.2-2.2.7+1/libguile/socket.c:1334: return _scm_from_sockaddr (&addr, addr_size, FUNC_NAME);
guile-2.2-2.2.7+1/libguile/socket.c-1335-}
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-1504- if (((struct sockaddr *) &addr)->sa_family != AF_UNSPEC)
guile-2.2-2.2.7+1/libguile/socket.c:1505: address = _scm_from_sockaddr (&addr, addr_size, FUNC_NAME);
guile-2.2-2.2.7+1/libguile/socket.c-1506- else
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-1551- ARGS_AND_FLAGS, are the `MSG_' flags. */
guile-2.2-2.2.7+1/libguile/socket.c:1552: soka = scm_to_sockaddr (fam_or_sockaddr, &size);
guile-2.2-2.2.7+1/libguile/socket.c-1553- if (!scm_is_eq (address, SCM_UNDEFINED))
##############################################
guile-2.2-2.2.7+1/libguile/socket.c-1556- else
guile-2.2-2.2.7+1/libguile/socket.c:1557: soka = scm_fill_sockaddr (scm_to_int (fam_or_sockaddr), address,
guile-2.2-2.2.7+1/libguile/socket.c-1558- &args_and_flags, 3, FUNC_NAME, &size);
##############################################
guile-2.2-2.2.7+1/libguile/socket.h-31-SCM_API SCM scm_lnaof (SCM address);
guile-2.2-2.2.7+1/libguile/socket.h:32:SCM_API SCM scm_inet_makeaddr (SCM net, SCM lna);
guile-2.2-2.2.7+1/libguile/socket.h-33-SCM_API SCM scm_inet_pton (SCM family, SCM address);
##############################################
guile-2.2-2.2.7+1/libguile/socket.h-54-struct sockaddr;
guile-2.2-2.2.7+1/libguile/socket.h:55:SCM_API SCM scm_from_sockaddr (const struct sockaddr *address,
guile-2.2-2.2.7+1/libguile/socket.h-56- unsigned addr_size);
guile-2.2-2.2.7+1/libguile/socket.h:57:SCM_API struct sockaddr *scm_to_sockaddr (SCM address, size_t *adress_size);
guile-2.2-2.2.7+1/libguile/socket.h-58-SCM_API struct sockaddr *scm_c_make_socket_address (SCM family, SCM address,
##############################################
guile-2.2-2.2.7+1/libguile/vm-engine.c-73- callee-saved. */
guile-2.2-2.2.7+1/libguile/vm-engine.c:74:# define JT_REG asm ("r12")
guile-2.2-2.2.7+1/libguile/vm-engine.c-75-# endif
##############################################
guile-2.2-2.2.7+1/libguile/vm-engine.c-466- static const void *jump_table_[256] = {
guile-2.2-2.2.7+1/libguile/vm-engine.c:467:#define LABEL_ADDR(opcode, tag, name, meta) &&op_##tag,
guile-2.2-2.2.7+1/libguile/vm-engine.c-468- FOR_EACH_VM_OPERATION(LABEL_ADDR)
##############################################
guile-2.2-2.2.7+1/libguile/vm-expand.h-24-#define VM_TAG(tag) VM_LABEL(tag):
guile-2.2-2.2.7+1/libguile/vm-expand.h:25:#define VM_ADDR(tag) &&VM_LABEL(tag)
guile-2.2-2.2.7+1/libguile/vm-expand.h-26-#else /* not HAVE_LABELS_AS_VALUES */
guile-2.2-2.2.7+1/libguile/vm-expand.h-27-#define VM_TAG(tag) case VM_OPCODE(tag):
guile-2.2-2.2.7+1/libguile/vm-expand.h:28:#define VM_ADDR(tag) NULL
guile-2.2-2.2.7+1/libguile/vm-expand.h-29-#endif /* not HAVE_LABELS_AS_VALUES */
##############################################
guile-2.2-2.2.7+1/libguile/vm-expand.h-55- */
guile-2.2-2.2.7+1/libguile/vm-expand.h:56:#define VM_DEFINE_INSTRUCTION(code,tag,name,len,npop,npush) jump_table[code] = VM_ADDR (tag);
guile-2.2-2.2.7+1/libguile/vm-expand.h-57-
##############################################
guile-2.2-2.2.7+1/m4/00gnulib.m4-37- [AC][_DEFUN([$1],
guile-2.2-2.2.7+1/m4/00gnulib.m4:38: [AC_REQUIRE([_gl_DEFUN_ONCE([$1])],
guile-2.2-2.2.7+1/m4/00gnulib.m4-39- [m4_indir([_gl_DEFUN_ONCE([$1])])])])]dnl
##############################################
guile-2.2-2.2.7+1/m4/exponentd.m4-107- word*bit*)
guile-2.2-2.2.7+1/m4/exponentd.m4:108: word=`echo "$gl_cv_cc_double_expbit0" | sed -e 's/word //' -e 's/ bit.*//'`
guile-2.2-2.2.7+1/m4/exponentd.m4:109: bit=`echo "$gl_cv_cc_double_expbit0" | sed -e 's/word.*bit //'`
guile-2.2-2.2.7+1/m4/exponentd.m4-110- AC_DEFINE_UNQUOTED([DBL_EXPBIT0_WORD], [$word],
##############################################
guile-2.2-2.2.7+1/m4/exponentf.m4-83- word*bit*)
guile-2.2-2.2.7+1/m4/exponentf.m4:84: word=`echo "$gl_cv_cc_float_expbit0" | sed -e 's/word //' -e 's/ bit.*//'`
guile-2.2-2.2.7+1/m4/exponentf.m4:85: bit=`echo "$gl_cv_cc_float_expbit0" | sed -e 's/word.*bit //'`
guile-2.2-2.2.7+1/m4/exponentf.m4-86- AC_DEFINE_UNQUOTED([FLT_EXPBIT0_WORD], [$word],
##############################################
guile-2.2-2.2.7+1/m4/exponentl.m4-89- word*bit*)
guile-2.2-2.2.7+1/m4/exponentl.m4:90: word=`echo "$gl_cv_cc_long_double_expbit0" | sed -e 's/word //' -e 's/ bit.*//'`
guile-2.2-2.2.7+1/m4/exponentl.m4:91: bit=`echo "$gl_cv_cc_long_double_expbit0" | sed -e 's/word.*bit //'`
guile-2.2-2.2.7+1/m4/exponentl.m4-92- AC_DEFINE_UNQUOTED([LDBL_EXPBIT0_WORD], [$word],
##############################################
guile-2.2-2.2.7+1/m4/gnulib-common.m4-426- AS_EXECUTABLE_P(["$ac_path_SED"]) || continue
guile-2.2-2.2.7+1/m4/gnulib-common.m4:427: case `"$ac_path_SED" --version 2>&1` in
guile-2.2-2.2.7+1/m4/gnulib-common.m4-428- *GNU*) ac_cv_path_SED=$ac_path_SED ac_path_SED_found=:;;
##############################################
guile-2.2-2.2.7+1/m4/gnulib-common.m4-439- diff conftest.out conftest.nl >/dev/null 2>&1 || break
guile-2.2-2.2.7+1/m4/gnulib-common.m4:440: ac_count=`expr $ac_count + 1`
guile-2.2-2.2.7+1/m4/gnulib-common.m4-441- if test $ac_count -gt ${ac_path_SED_max-0}; then
##############################################
guile-2.2-2.2.7+1/m4/gnulib-comp.m4-769-changequote(,)dnl
guile-2.2-2.2.7+1/m4/gnulib-comp.m4:770:LTALLOCA=`echo "$ALLOCA" | sed -e 's/\.[^.]* /.lo /g;s/\.[^.]*$/.lo/'`
guile-2.2-2.2.7+1/m4/gnulib-comp.m4-771-changequote([, ])dnl
##############################################
guile-2.2-2.2.7+1/m4/gnulib-comp.m4-1438- sed_drop_objext='s/\.o$//;s/\.obj$//'
guile-2.2-2.2.7+1/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-2.2-2.2.7+1/m4/gnulib-comp.m4-1440- gl_libobjs="$gl_libobjs $i.$ac_objext"
##############################################
guile-2.2-2.2.7+1/m4/gnulib-comp.m4-1456-changequote(,)dnl
guile-2.2-2.2.7+1/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-2.2-2.2.7+1/m4/gnulib-comp.m4-1458-changequote([, ])dnl
##############################################
guile-2.2-2.2.7+1/m4/gnulib-comp.m4-1485- sed_drop_objext='s/\.o$//;s/\.obj$//'
guile-2.2-2.2.7+1/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-2.2-2.2.7+1/m4/gnulib-comp.m4-1487- gltests_libobjs="$gltests_libobjs $i.$ac_objext"
##############################################
guile-2.2-2.2.7+1/m4/hostent.m4-9- dnl Where are gethostent(), sethostent(), endhostent(), gethostbyname(),
guile-2.2-2.2.7+1/m4/hostent.m4:10: dnl gethostbyaddr() defined?
guile-2.2-2.2.7+1/m4/hostent.m4-11- dnl - On Solaris, they are in libnsl. Ignore libxnet.
##############################################
guile-2.2-2.2.7+1/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-2.2-2.2.7+1/m4/iconv.m4:271: am_cv_proto_iconv=`echo "[$]am_cv_proto_iconv" | tr -s ' ' | sed -e 's/( /(/'`
guile-2.2-2.2.7+1/m4/iconv.m4-272- AC_MSG_RESULT([
##############################################
guile-2.2-2.2.7+1/m4/lib-ld.m4-14-[# I'd rather use --version here, but apparently some GNU lds only accept -v.
guile-2.2-2.2.7+1/m4/lib-ld.m4:15:case `$LD -v 2>&1 </dev/null` in
guile-2.2-2.2.7+1/m4/lib-ld.m4-16-*GNU* | *'with BFD'*)
##############################################
guile-2.2-2.2.7+1/m4/lib-ld.m4-56- # gcc leaves a trailing carriage return which upsets mingw
guile-2.2-2.2.7+1/m4/lib-ld.m4:57: ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;;
guile-2.2-2.2.7+1/m4/lib-ld.m4-58- *)
guile-2.2-2.2.7+1/m4/lib-ld.m4:59: ac_prog=`($CC -print-prog-name=ld) 2>&5` ;;
guile-2.2-2.2.7+1/m4/lib-ld.m4-60- esac
##############################################
guile-2.2-2.2.7+1/m4/lib-ld.m4-65- # Canonicalize the pathname of ld
guile-2.2-2.2.7+1/m4/lib-ld.m4:66: ac_prog=`echo "$ac_prog"| sed 's%\\\\%/%g'`
guile-2.2-2.2.7+1/m4/lib-ld.m4-67- while echo "$ac_prog" | grep "$re_direlt" > /dev/null 2>&1; do
guile-2.2-2.2.7+1/m4/lib-ld.m4:68: ac_prog=`echo $ac_prog| sed "s%$re_direlt%/%"`
guile-2.2-2.2.7+1/m4/lib-ld.m4-69- done
##############################################
guile-2.2-2.2.7+1/m4/lib-ld.m4-96- # Break only if it was the GNU/non-GNU ld that we prefer.
guile-2.2-2.2.7+1/m4/lib-ld.m4:97: case `"$acl_cv_path_LD" -v 2>&1 </dev/null` in
guile-2.2-2.2.7+1/m4/lib-ld.m4-98- *GNU* | *'with BFD'*)
##############################################
guile-2.2-2.2.7+1/m4/lib-link.m4-247- dnl or AC_LIB_HAVE_LINKFLAGS call.
guile-2.2-2.2.7+1/m4/lib-link.m4:248: uppername=`echo "$name" | sed -e 'y|abcdefghijklmnopqrstuvwxyz./+-|ABCDEFGHIJKLMNOPQRSTUVWXYZ____|'`
guile-2.2-2.2.7+1/m4/lib-link.m4-249- eval value=\"\$HAVE_LIB$uppername\"
##############################################
guile-2.2-2.2.7+1/m4/lib-link.m4-322- -L*)
guile-2.2-2.2.7+1/m4/lib-link.m4:323: dir=`echo "X$x" | sed -e 's/^X-L//'`
guile-2.2-2.2.7+1/m4/lib-link.m4-324- dnl First look for a shared library.
##############################################
guile-2.2-2.2.7+1/m4/lib-link.m4-466- */$acl_libdirstem | */$acl_libdirstem/)
guile-2.2-2.2.7+1/m4/lib-link.m4:467: basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e "s,/$acl_libdirstem/"'*$,,'`
guile-2.2-2.2.7+1/m4/lib-link.m4-468- if test "$name" = '$1'; then
##############################################
guile-2.2-2.2.7+1/m4/lib-link.m4-473- */$acl_libdirstem2 | */$acl_libdirstem2/)
guile-2.2-2.2.7+1/m4/lib-link.m4:474: basedir=`echo "X$found_dir" | sed -e 's,^X,,' -e "s,/$acl_libdirstem2/"'*$,,'`
guile-2.2-2.2.7+1/m4/lib-link.m4-475- if test "$name" = '$1'; then
##############################################
guile-2.2-2.2.7+1/m4/lib-link.m4-529- -L*)
guile-2.2-2.2.7+1/m4/lib-link.m4:530: additional_libdir=`echo "X$dep" | sed -e 's/^X-L//'`
guile-2.2-2.2.7+1/m4/lib-link.m4-531- dnl Potentially add $additional_libdir to $LIBNAME and $LTLIBNAME.
##############################################
guile-2.2-2.2.7+1/m4/lib-link.m4-581- -R*)
guile-2.2-2.2.7+1/m4/lib-link.m4:582: dir=`echo "X$dep" | sed -e 's/^X-R//'`
guile-2.2-2.2.7+1/m4/lib-link.m4-583- if test "$enable_rpath" != no; then
##############################################
guile-2.2-2.2.7+1/m4/lib-link.m4-611- dnl Handle this in the next round.
guile-2.2-2.2.7+1/m4/lib-link.m4:612: names_next_round="$names_next_round "`echo "X$dep" | sed -e 's/^X-l//'`
guile-2.2-2.2.7+1/m4/lib-link.m4-613- ;;
##############################################
guile-2.2-2.2.7+1/m4/lib-link.m4-617- dnl option.
guile-2.2-2.2.7+1/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-2.2-2.2.7+1/m4/lib-link.m4-619- ;;
##############################################
guile-2.2-2.2.7+1/m4/lib-link.m4-730- -L) next=yes ;;
guile-2.2-2.2.7+1/m4/lib-link.m4:731: -L*) dir=`echo "X$opt" | sed -e 's,^X-L,,'`
guile-2.2-2.2.7+1/m4/lib-link.m4-732- dnl No need to hardcode the standard /usr/lib.
##############################################
guile-2.2-2.2.7+1/m4/lib-prefix.m4-201- *)
guile-2.2-2.2.7+1/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-2.2-2.2.7+1/m4/lib-prefix.m4-203- if test -n "$searchpath"; then
##############################################
guile-2.2-2.2.7+1/m4/lib-prefix.m4-211- ;;
guile-2.2-2.2.7+1/m4/lib-prefix.m4:212: *) searchdir=`cd "$searchdir" && pwd`
guile-2.2-2.2.7+1/m4/lib-prefix.m4-213- case "$searchdir" in
##############################################
guile-2.2-2.2.7+1/m4/libunistring.m4-142- dnl Transform into the usual major.minor.subminor notation.
guile-2.2-2.2.7+1/m4/libunistring.m4:143: gl_libunistring_major=`expr $gl_libunistring_hexversion / 65536`
guile-2.2-2.2.7+1/m4/libunistring.m4:144: gl_libunistring_minor=`expr $gl_libunistring_hexversion / 256 % 256`
guile-2.2-2.2.7+1/m4/libunistring.m4:145: gl_libunistring_subminor=`expr $gl_libunistring_hexversion % 256`
guile-2.2-2.2.7+1/m4/libunistring.m4-146- gl_cv_libunistring_version="$gl_libunistring_major.$gl_libunistring_minor.$gl_libunistring_subminor"
##############################################
guile-2.2-2.2.7+1/m4/signbit.m4-316- word*bit*)
guile-2.2-2.2.7+1/m4/signbit.m4:317: word=`echo "$]$2[" | sed -e 's/word //' -e 's/ bit.*//'`
guile-2.2-2.2.7+1/m4/signbit.m4:318: bit=`echo "$]$2[" | sed -e 's/word.*bit //'`
guile-2.2-2.2.7+1/m4/signbit.m4-319- AC_DEFINE_UNQUOTED([$4][_SIGNBIT_WORD], [$word],
##############################################
guile-2.2-2.2.7+1/m4/stdint.m4-397- fi
guile-2.2-2.2.7+1/m4/stdint.m4:398: GLTYPE=`echo "$gltype" | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'`
guile-2.2-2.2.7+1/m4/stdint.m4-399- AC_DEFINE_UNQUOTED([BITSIZEOF_${GLTYPE}], [$result])
##############################################
guile-2.2-2.2.7+1/m4/stdint.m4-426- eval result=\$gl_cv_type_${gltype}_signed
guile-2.2-2.2.7+1/m4/stdint.m4:427: GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'`
guile-2.2-2.2.7+1/m4/stdint.m4-428- if test "$result" = yes; then
##############################################
guile-2.2-2.2.7+1/m4/stdint.m4-480- done])
guile-2.2-2.2.7+1/m4/stdint.m4:481: GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'`
guile-2.2-2.2.7+1/m4/stdint.m4-482- eval result=\$gl_cv_type_${gltype}_suffix
##############################################
guile-2.2-2.2.7+1/m4/warnings.m4-31-case $gl_positive in
guile-2.2-2.2.7+1/m4/warnings.m4:32: -Wno-*) gl_positive=-W`expr "X$gl_positive" : 'X-Wno-\(.*\)'` ;;
guile-2.2-2.2.7+1/m4/warnings.m4-33-esac
##############################################
guile-2.2-2.2.7+1/m4/wchar_h.m4-89- save_ac_compile="$ac_compile"
guile-2.2-2.2.7+1/m4/wchar_h.m4:90: ac_compile=`echo "$save_ac_compile" | sed s/conftest/conftest1/`
guile-2.2-2.2.7+1/m4/wchar_h.m4-91- if AC_TRY_EVAL([ac_compile]); then
##############################################
guile-2.2-2.2.7+1/m4/wchar_h.m4-104- dnl See note above about renaming object files.
guile-2.2-2.2.7+1/m4/wchar_h.m4:105: ac_compile=`echo "$save_ac_compile" | sed s/conftest/conftest2/`
guile-2.2-2.2.7+1/m4/wchar_h.m4-106- if AC_TRY_EVAL([ac_compile]); then
##############################################
guile-2.2-2.2.7+1/maint.mk-478- dummy=; : so we do not need a semicolon before each use; \
guile-2.2-2.2.7+1/maint.mk:479: h_esc=`echo '[<"]'"$$h"'[">]'|$(SED) 's/\./\\\\./g'`; \
guile-2.2-2.2.7+1/maint.mk-480- if $(VC_LIST_EXCEPT) | grep '\.c$$' > /dev/null; then \
##############################################
guile-2.2-2.2.7+1/maint.mk-1649- for sig in 1 2 3 13 15; do \
guile-2.2-2.2.7+1/maint.mk:1650: eval "trap 'v=`expr $$sig + 128`; (exit $$v); exit $$v' $$sig"; \
guile-2.2-2.2.7+1/maint.mk-1651- done; \
##############################################
guile-2.2-2.2.7+1/meta/Makefile.am-54-substitute = \
guile-2.2-2.2.7+1/meta/Makefile.am:55: guile="`echo guile | $(SED) -e '$(program_transform_name)'`" ; \
guile-2.2-2.2.7+1/meta/Makefile.am:56: guild="`echo guild | $(SED) -e '$(program_transform_name)'`" ; \
guile-2.2-2.2.7+1/meta/Makefile.am-57- installed_guile="@bindir@/$$guile" ; \
##############################################
guile-2.2-2.2.7+1/meta/guile.m4-179- AC_MSG_CHECKING(for Guile site directory)
guile-2.2-2.2.7+1/meta/guile.m4:180: GUILE_SITE=`$PKG_CONFIG --print-errors --variable=sitedir guile-$GUILE_EFFECTIVE_VERSION`
guile-2.2-2.2.7+1/meta/guile.m4-181- AC_MSG_RESULT($GUILE_SITE)
##############################################
guile-2.2-2.2.7+1/meta/guile.m4-186- AC_MSG_CHECKING([for Guile site-ccache directory using pkgconfig])
guile-2.2-2.2.7+1/meta/guile.m4:187: GUILE_SITE_CCACHE=`$PKG_CONFIG --variable=siteccachedir guile-$GUILE_EFFECTIVE_VERSION`
guile-2.2-2.2.7+1/meta/guile.m4-188- if test "$GUILE_SITE_CCACHE" = ""; then
##############################################
guile-2.2-2.2.7+1/meta/guile.m4-190- AC_MSG_CHECKING([for Guile site-ccache directory using interpreter])
guile-2.2-2.2.7+1/meta/guile.m4:191: GUILE_SITE_CCACHE=`$GUILE -c "(display (if (defined? '%site-ccache-dir) (%site-ccache-dir) \"\"))"`
guile-2.2-2.2.7+1/meta/guile.m4-192- if test $? != "0" -o "$GUILE_SITE_CCACHE" = ""; then
##############################################
guile-2.2-2.2.7+1/meta/guile.m4-200- AC_MSG_CHECKING(for Guile extensions directory)
guile-2.2-2.2.7+1/meta/guile.m4:201: GUILE_EXTENSION=`$PKG_CONFIG --print-errors --variable=extensiondir guile-$GUILE_EFFECTIVE_VERSION`
guile-2.2-2.2.7+1/meta/guile.m4-202- AC_MSG_RESULT($GUILE_EXTENSION)
##############################################
guile-2.2-2.2.7+1/meta/guile.m4-244- _tmp=
guile-2.2-2.2.7+1/meta/guile.m4:245: for v in `echo "$_guile_required_version" | tr . ' '`; do
guile-2.2-2.2.7+1/meta/guile.m4-246- if test -n "$_tmp"; then _tmp=$_tmp.; fi
##############################################
guile-2.2-2.2.7+1/meta/guile.m4-255-
guile-2.2-2.2.7+1/meta/guile.m4:256: _guile_suffix=`echo "$GUILE" | sed -e 's,^.*/guile\(.*\)$,\1,'`
guile-2.2-2.2.7+1/meta/guile.m4:257: _guile_effective_version=`$GUILE -c "(display (effective-version))"`
guile-2.2-2.2.7+1/meta/guile.m4-258- if test -z "$GUILE_EFFECTIVE_VERSION"; then
##############################################
guile-2.2-2.2.7+1/meta/guile.m4-263-
guile-2.2-2.2.7+1/meta/guile.m4:264: _guile_major_version=`$GUILE -c "(display (major-version))"`
guile-2.2-2.2.7+1/meta/guile.m4:265: _guile_minor_version=`$GUILE -c "(display (minor-version))"`
guile-2.2-2.2.7+1/meta/guile.m4:266: _guile_micro_version=`$GUILE -c "(display (micro-version))"`
guile-2.2-2.2.7+1/meta/guile.m4-267- _guile_prog_version="$_guile_major_version.$_guile_minor_version.$_guile_micro_version"
##############################################
guile-2.2-2.2.7+1/meta/guile.m4-269- AC_MSG_CHECKING([for Guile version >= $_guile_required_version])
guile-2.2-2.2.7+1/meta/guile.m4:270: _major_version=`echo $_guile_required_version | cut -d . -f 1`
guile-2.2-2.2.7+1/meta/guile.m4:271: _minor_version=`echo $_guile_required_version | cut -d . -f 2`
guile-2.2-2.2.7+1/meta/guile.m4:272: _micro_version=`echo $_guile_required_version | cut -d . -f 3`
guile-2.2-2.2.7+1/meta/guile.m4-273- if test "$_guile_major_version" -gt "$_major_version"; then
##############################################
guile-2.2-2.2.7+1/module/ice-9/ChangeLog-2008-4711- (feature?): new function: checks for a symbol in the features list.
guile-2.2-2.2.7+1/module/ice-9/ChangeLog-2008:4712: (module-local-variable): remove apparently useless (caddr (list m v
guile-2.2-2.2.7+1/module/ice-9/ChangeLog-2008-4713- ...))
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-83-
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:84:(define (compile-function cps asm opts)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-85- (let* ((allocation (allocate-slots cps #:precolor-calls?
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-110- (unless (= dst src)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:111: (emit-mov asm (from-sp dst) (from-sp src))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-112-
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-118- (for-each (match-lambda
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:119: ((src . dst) (emit-mov asm (from-sp dst) (from-sp src))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-120- (lookup-parallel-moves label allocation))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:121: (emit-tail-call asm (1+ (length args))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-122- (($ $callk k proc args)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-123- (for-each (match-lambda
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:124: ((src . dst) (emit-mov asm (from-sp dst) (from-sp src))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-125- (lookup-parallel-moves label allocation))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:126: (emit-tail-call-label asm (1+ (length args)) k))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-127- (($ $values args)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-128- (for-each (match-lambda
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:129: ((src . dst) (emit-mov asm (from-sp dst) (from-sp src))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-130- (lookup-parallel-moves label allocation))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:131: (emit-return-values asm (1+ (length args))))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-132-
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-137- (($ $const exp)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:138: (emit-load-constant asm (from-sp dst) exp))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-139- (($ $closure k 0)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:140: (emit-load-static-procedure asm (from-sp dst) k))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-141- (($ $closure k nfree)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:142: (emit-make-closure asm (from-sp dst) k nfree))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-143- (($ $primcall 'current-module)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:144: (emit-current-module asm (from-sp dst)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-145- (($ $primcall 'current-thread)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:146: (emit-current-thread asm (from-sp dst)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-147- (($ $primcall 'cached-toplevel-box (scope name bound?))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:148: (emit-cached-toplevel-box asm (from-sp dst)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-149- (constant scope) (constant name)
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-151- (($ $primcall 'cached-module-box (mod name public? bound?))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:152: (emit-cached-module-box asm (from-sp dst)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-153- (constant mod) (constant name)
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-155- (($ $primcall 'define! (sym))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:156: (emit-define! asm (from-sp dst) (from-sp (slot sym))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-157- (($ $primcall 'resolve (name bound?))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:158: (emit-resolve asm (from-sp dst) (constant bound?)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-159- (from-sp (slot name))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-160- (($ $primcall 'free-ref (closure idx))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:161: (emit-free-ref asm (from-sp dst) (from-sp (slot closure))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-162- (constant idx)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-163- (($ $primcall 'vector-ref (vector index))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:164: (emit-vector-ref asm (from-sp dst) (from-sp (slot vector))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-165- (from-sp (slot index))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-166- (($ $primcall 'make-vector (length init))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:167: (emit-make-vector asm (from-sp dst) (from-sp (slot length))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-168- (from-sp (slot init))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-169- (($ $primcall 'make-vector/immediate (length init))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:170: (emit-make-vector/immediate asm (from-sp dst) (constant length)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-171- (from-sp (slot init))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-172- (($ $primcall 'vector-ref/immediate (vector index))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:173: (emit-vector-ref/immediate asm (from-sp dst) (from-sp (slot vector))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-174- (constant index)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-175- (($ $primcall 'allocate-struct (vtable nfields))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:176: (emit-allocate-struct asm (from-sp dst) (from-sp (slot vtable))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-177- (from-sp (slot nfields))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-178- (($ $primcall 'allocate-struct/immediate (vtable nfields))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:179: (emit-allocate-struct/immediate asm (from-sp dst)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-180- (from-sp (slot vtable))
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-182- (($ $primcall 'struct-ref (struct n))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:183: (emit-struct-ref asm (from-sp dst) (from-sp (slot struct))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-184- (from-sp (slot n))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-185- (($ $primcall 'struct-ref/immediate (struct n))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:186: (emit-struct-ref/immediate asm (from-sp dst) (from-sp (slot struct))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-187- (constant n)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-188- (($ $primcall 'char->integer (src))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:189: (emit-char->integer asm (from-sp dst) (from-sp (slot src))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-190- (($ $primcall 'integer->char (src))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:191: (emit-integer->char asm (from-sp dst) (from-sp (slot src))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-192- (($ $primcall 'add/immediate (x y))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:193: (emit-add/immediate asm (from-sp dst) (from-sp (slot x)) (constant y)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-194- (($ $primcall 'sub/immediate (x y))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:195: (emit-sub/immediate asm (from-sp dst) (from-sp (slot x)) (constant y)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-196- (($ $primcall 'uadd/immediate (x y))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:197: (emit-uadd/immediate asm (from-sp dst) (from-sp (slot x))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-198- (constant y)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-199- (($ $primcall 'usub/immediate (x y))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:200: (emit-usub/immediate asm (from-sp dst) (from-sp (slot x))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-201- (constant y)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-202- (($ $primcall 'umul/immediate (x y))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:203: (emit-umul/immediate asm (from-sp dst) (from-sp (slot x))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-204- (constant y)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-205- (($ $primcall 'ursh/immediate (x y))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:206: (emit-ursh/immediate asm (from-sp dst) (from-sp (slot x))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-207- (constant y)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-208- (($ $primcall 'ulsh/immediate (x y))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:209: (emit-ulsh/immediate asm (from-sp dst) (from-sp (slot x))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-210- (constant y)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-211- (($ $primcall 'builtin-ref (name))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:212: (emit-builtin-ref asm (from-sp dst) (constant name)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-213- (($ $primcall 'scm->f64 (src))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:214: (emit-scm->f64 asm (from-sp dst) (from-sp (slot src))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-215- (($ $primcall 'load-f64 (src))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:216: (emit-load-f64 asm (from-sp dst) (constant src)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-217- (($ $primcall 'f64->scm (src))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:218: (emit-f64->scm asm (from-sp dst) (from-sp (slot src))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-219- (($ $primcall 'scm->u64 (src))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:220: (emit-scm->u64 asm (from-sp dst) (from-sp (slot src))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-221- (($ $primcall 'scm->u64/truncate (src))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:222: (emit-scm->u64/truncate asm (from-sp dst) (from-sp (slot src))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-223- (($ $primcall 'load-u64 (src))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:224: (emit-load-u64 asm (from-sp dst) (constant src)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-225- (($ $primcall 'u64->scm (src))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:226: (emit-u64->scm asm (from-sp dst) (from-sp (slot src))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-227- (($ $primcall 'scm->s64 (src))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:228: (emit-scm->s64 asm (from-sp dst) (from-sp (slot src))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-229- (($ $primcall 'load-s64 (src))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:230: (emit-load-s64 asm (from-sp dst) (constant src)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-231- (($ $primcall 's64->scm (src))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:232: (emit-s64->scm asm (from-sp dst) (from-sp (slot src))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-233- (($ $primcall 'bv-length (bv))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:234: (emit-bv-length asm (from-sp dst) (from-sp (slot bv))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-235- (($ $primcall 'bv-u8-ref (bv idx))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:236: (emit-bv-u8-ref asm (from-sp dst) (from-sp (slot bv))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-237- (from-sp (slot idx))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-238- (($ $primcall 'bv-s8-ref (bv idx))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:239: (emit-bv-s8-ref asm (from-sp dst) (from-sp (slot bv))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-240- (from-sp (slot idx))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-241- (($ $primcall 'bv-u16-ref (bv idx))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:242: (emit-bv-u16-ref asm (from-sp dst) (from-sp (slot bv))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-243- (from-sp (slot idx))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-244- (($ $primcall 'bv-s16-ref (bv idx))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:245: (emit-bv-s16-ref asm (from-sp dst) (from-sp (slot bv))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-246- (from-sp (slot idx))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-247- (($ $primcall 'bv-u32-ref (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:248: (emit-bv-u32-ref asm (from-sp dst) (from-sp (slot bv))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-249- (from-sp (slot idx))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-250- (($ $primcall 'bv-s32-ref (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:251: (emit-bv-s32-ref asm (from-sp dst) (from-sp (slot bv))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-252- (from-sp (slot idx))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-253- (($ $primcall 'bv-u64-ref (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:254: (emit-bv-u64-ref asm (from-sp dst) (from-sp (slot bv))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-255- (from-sp (slot idx))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-256- (($ $primcall 'bv-s64-ref (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:257: (emit-bv-s64-ref asm (from-sp dst) (from-sp (slot bv))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-258- (from-sp (slot idx))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-259- (($ $primcall 'bv-f32-ref (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:260: (emit-bv-f32-ref asm (from-sp dst) (from-sp (slot bv))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-261- (from-sp (slot idx))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-262- (($ $primcall 'bv-f64-ref (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:263: (emit-bv-f64-ref asm (from-sp dst) (from-sp (slot bv))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-264- (from-sp (slot idx))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-265- (($ $primcall 'make-atomic-box (init))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:266: (emit-make-atomic-box asm (from-sp dst) (from-sp (slot init))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-267- (($ $primcall 'atomic-box-ref (box))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:268: (emit-atomic-box-ref asm (from-sp dst) (from-sp (slot box))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-269- (($ $primcall 'atomic-box-swap! (box val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:270: (emit-atomic-box-swap! asm (from-sp dst) (from-sp (slot box))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-271- (from-sp (slot val))))
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-273- (emit-atomic-box-compare-and-swap!
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:274: asm (from-sp dst) (from-sp (slot box))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-275- (from-sp (slot expected)) (from-sp (slot desired))))
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-278- (let ((inst (prim-instruction name)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:279: (emit-text asm `((,inst ,(from-sp dst)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-280- ,@(map (compose from-sp slot) args))))))))
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-290- (proc-slot (lookup-call-proc-slot label allocation)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:291: (emit-prompt asm (from-sp (slot tag)) escape? proc-slot
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-292- receive-args)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:293: (emit-br asm k)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:294: (emit-label asm receive-args)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-295- (unless (and rest (zero? nreq))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:296: (emit-receive-values asm proc-slot (->bool rest) nreq))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-297- (when (and rest
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-300- (maybe-slot rest))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:301: (emit-bind-rest asm (+ proc-slot 1 nreq)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-302- (for-each (match-lambda
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:303: ((src . dst) (emit-fmov asm dst src)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-304- (lookup-parallel-moves handler allocation))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:305: (emit-reset-frame asm frame-size)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:306: (emit-br asm (forward-label khandler-body))))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-307- (($ $primcall 'cache-current-module! (sym scope))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:308: (emit-cache-current-module! asm (from-sp (slot sym)) (constant scope)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-309- (($ $primcall 'free-set! (closure idx value))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:310: (emit-free-set! asm (from-sp (slot closure)) (from-sp (slot value))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-311- (constant idx)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-312- (($ $primcall 'box-set! (box value))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:313: (emit-box-set! asm (from-sp (slot box)) (from-sp (slot value))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-314- (($ $primcall 'struct-set! (struct index value))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:315: (emit-struct-set! asm (from-sp (slot struct)) (from-sp (slot index))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-316- (from-sp (slot value))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-317- (($ $primcall 'struct-set!/immediate (struct index value))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:318: (emit-struct-set!/immediate asm (from-sp (slot struct))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-319- (constant index) (from-sp (slot value))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-320- (($ $primcall 'vector-set! (vector index value))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:321: (emit-vector-set! asm (from-sp (slot vector)) (from-sp (slot index))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-322- (from-sp (slot value))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-323- (($ $primcall 'vector-set!/immediate (vector index value))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:324: (emit-vector-set!/immediate asm (from-sp (slot vector))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-325- (constant index) (from-sp (slot value))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-326- (($ $primcall 'string-set! (string index char))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:327: (emit-string-set! asm (from-sp (slot string)) (from-sp (slot index))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-328- (from-sp (slot char))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-329- (($ $primcall 'set-car! (pair value))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:330: (emit-set-car! asm (from-sp (slot pair)) (from-sp (slot value))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-331- (($ $primcall 'set-cdr! (pair value))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:332: (emit-set-cdr! asm (from-sp (slot pair)) (from-sp (slot value))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-333- (($ $primcall 'push-fluid (fluid val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:334: (emit-push-fluid asm (from-sp (slot fluid)) (from-sp (slot val))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-335- (($ $primcall 'pop-fluid ())
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-337- (($ $primcall 'push-dynamic-state (state))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:338: (emit-push-dynamic-state asm (from-sp (slot state))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-339- (($ $primcall 'pop-dynamic-state ())
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-341- (($ $primcall 'wind (winder unwinder))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:342: (emit-wind asm (from-sp (slot winder)) (from-sp (slot unwinder))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-343- (($ $primcall 'bv-u8-set! (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:344: (emit-bv-u8-set! asm (from-sp (slot bv)) (from-sp (slot idx))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-345- (from-sp (slot val))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-346- (($ $primcall 'bv-s8-set! (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:347: (emit-bv-s8-set! asm (from-sp (slot bv)) (from-sp (slot idx))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-348- (from-sp (slot val))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-349- (($ $primcall 'bv-u16-set! (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:350: (emit-bv-u16-set! asm (from-sp (slot bv)) (from-sp (slot idx))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-351- (from-sp (slot val))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-352- (($ $primcall 'bv-s16-set! (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:353: (emit-bv-s16-set! asm (from-sp (slot bv)) (from-sp (slot idx))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-354- (from-sp (slot val))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-355- (($ $primcall 'bv-u32-set! (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:356: (emit-bv-u32-set! asm (from-sp (slot bv)) (from-sp (slot idx))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-357- (from-sp (slot val))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-358- (($ $primcall 'bv-s32-set! (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:359: (emit-bv-s32-set! asm (from-sp (slot bv)) (from-sp (slot idx))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-360- (from-sp (slot val))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-361- (($ $primcall 'bv-u64-set! (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:362: (emit-bv-u64-set! asm (from-sp (slot bv)) (from-sp (slot idx))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-363- (from-sp (slot val))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-364- (($ $primcall 'bv-s64-set! (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:365: (emit-bv-s64-set! asm (from-sp (slot bv)) (from-sp (slot idx))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-366- (from-sp (slot val))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-367- (($ $primcall 'bv-f32-set! (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:368: (emit-bv-f32-set! asm (from-sp (slot bv)) (from-sp (slot idx))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-369- (from-sp (slot val))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-370- (($ $primcall 'bv-f64-set! (bv idx val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:371: (emit-bv-f64-set! asm (from-sp (slot bv)) (from-sp (slot idx))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-372- (from-sp (slot val))))
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-375- (($ $primcall 'fluid-set! (fluid value))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:376: (emit-fluid-set! asm (from-sp (slot fluid)) (from-sp (slot value))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-377- (($ $primcall 'atomic-box-set! (box val))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:378: (emit-atomic-box-set! asm (from-sp (slot box)) (from-sp (slot val))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-379- (($ $primcall 'handle-interrupts ())
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-385- (for-each (match-lambda
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:386: ((src . dst) (emit-mov asm (from-sp dst) (from-sp src))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-387- (lookup-parallel-moves label allocation)))))
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-400- ((eq? kt next-label)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:401: (op asm (from-sp (slot sym)) #t kf))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-402- ((eq? kf next-label)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:403: (op asm (from-sp (slot sym)) #f kt))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-404- (else
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-405- (let ((invert? (not (prefer-true?))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:406: (op asm (from-sp (slot sym)) invert? (if invert? kf kt))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:407: (emit-br asm (if invert? kt kf))))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-408- (define (binary op a b)
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-410- ((eq? kt next-label)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:411: (op asm (from-sp (slot a)) (from-sp (slot b)) #t kf))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-412- ((eq? kf next-label)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:413: (op asm (from-sp (slot a)) (from-sp (slot b)) #f kt))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-414- (else
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-415- (let ((invert? (not (prefer-true?))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:416: (op asm (from-sp (slot a)) (from-sp (slot b)) invert?
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-417- (if invert? kf kt))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:418: (emit-br asm (if invert? kt kf))))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-419- (match exp
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-465- (for-each (match-lambda
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:466: ((src . dst) (emit-mov asm (from-sp dst) (from-sp src))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-467- (lookup-parallel-moves label allocation))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:468: (emit-call asm proc-slot nargs)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:469: (emit-slot-map asm proc-slot (lookup-slot-map label allocation))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-470- (cond
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-478- => (lambda (dst)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:479: (emit-receive asm dst proc-slot frame-size)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-480- (else
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-481- (unless (and (zero? nreq) rest-var)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:482: (emit-receive-values asm proc-slot (->bool rest-var) nreq))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-483- (when (and rest-var (maybe-slot rest-var))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:484: (emit-bind-rest asm (+ proc-slot 1 nreq)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-485- (for-each (match-lambda
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:486: ((src . dst) (emit-fmov asm dst src)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-487- (lookup-parallel-moves k allocation))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:488: (emit-reset-frame asm frame-size)))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-489- (match exp
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-491- (do-call proc args
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:492: (lambda (asm proc-slot nargs)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:493: (emit-call asm proc-slot nargs))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-494- (($ $callk k proc args)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-495- (do-call proc args
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:496: (lambda (asm proc-slot nargs)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:497: (emit-call-label asm proc-slot nargs k))))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-498-
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-508- (unless fallthrough?
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:509: (emit-br asm forwarded-k)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-510- (match (intmap-ref cps k)
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-537- (unless fallthrough?
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:538: (emit-br asm kargs)))))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-539-
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-543- (when src
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:544: (emit-source asm src))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:545: (emit-begin-program asm label meta))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-546- (($ $kclause ($ $arity req opt rest kw allow-other-keys?) body alt)
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-555- (emit-end-arity asm))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:556: (emit-label asm label)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:557: (emit-begin-kw-arity asm req opt rest kw-indices allow-other-keys?
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-558- frame-size alt)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-559- ;; All arities define a closure binding in slot 0.
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:560: (emit-definition asm 'closure 0 'scm)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-561- ;; Usually we just fall through, but it could be the body is
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-564- (unless (= body (skip-elided-conts (1+ label)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:565: (emit-br asm body)))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-566- (($ $kargs names vars ($ $continue k src exp))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:567: (emit-label asm label)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-568- (for-each (lambda (name var)
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-571- (let ((repr (lookup-representation var allocation)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:572: (emit-definition asm name slot repr)))))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-573- names vars)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-574- (when src
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:575: (emit-source asm src))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-576- (unless (elide-cont? label)
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-578- (($ $kreceive arity kargs)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:579: (emit-label asm label))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-580- (($ $ktail)
##############################################
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-586-(define (emit-bytecode exp env opts)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:587: (let ((asm (make-assembler)))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-588- (intmap-for-each (lambda (kfun body)
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:589: (compile-function (intmap-select exp body) asm opts))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-590- (compute-reachable-functions exp 0))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm:591: (values (link-assembly asm #:page-aligned? (kw-arg-ref opts #:to-file? #f))
guile-2.2-2.2.7+1/module/language/cps/compile-bytecode.scm-592- env
##############################################
guile-2.2-2.2.7+1/module/language/scheme/decompile-tree-il.scm-318- ,@(map list
guile-2.2-2.2.7+1/module/language/scheme/decompile-tree-il.scm:319: (map output-name (map caddr (cdr kw)))
guile-2.2-2.2.7+1/module/language/scheme/decompile-tree-il.scm-320- (map recurse
##############################################
guile-2.2-2.2.7+1/module/language/tree-il/primitives.scm-436-(define-primitive-expander cadar (x) (car (cdr (car x))))
guile-2.2-2.2.7+1/module/language/tree-il/primitives.scm:437:(define-primitive-expander caddr (x) (car (cdr (cdr x))))
guile-2.2-2.2.7+1/module/language/tree-il/primitives.scm-438-(define-primitive-expander cdaar (x) (cdr (car (car x))))
##############################################
guile-2.2-2.2.7+1/module/language/tree-il/primitives.scm-444-(define-primitive-expander caadar (x) (car (car (cdr (car x)))))
guile-2.2-2.2.7+1/module/language/tree-il/primitives.scm:445:(define-primitive-expander caaddr (x) (car (car (cdr (cdr x)))))
guile-2.2-2.2.7+1/module/language/tree-il/primitives.scm-446-(define-primitive-expander cadaar (x) (car (cdr (car (car x)))))
##############################################
guile-2.2-2.2.7+1/module/language/tree-il/primitives.scm-452-(define-primitive-expander cdadar (x) (cdr (car (cdr (car x)))))
guile-2.2-2.2.7+1/module/language/tree-il/primitives.scm:453:(define-primitive-expander cdaddr (x) (cdr (car (cdr (cdr x)))))
guile-2.2-2.2.7+1/module/language/tree-il/primitives.scm-454-(define-primitive-expander cddaar (x) (cdr (cdr (car (car x)))))
##############################################
guile-2.2-2.2.7+1/module/scripts/doc-snarf.scm-202- (eq? 'lambda (car (caddr form)))
guile-2.2-2.2.7+1/module/scripts/doc-snarf.scm:203: (string? (caddr (caddr form))))
guile-2.2-2.2.7+1/module/scripts/doc-snarf.scm:204: (caddr (caddr form)))
guile-2.2-2.2.7+1/module/scripts/doc-snarf.scm-205- (else #f))))
##############################################
guile-2.2-2.2.7+1/module/scripts/read-scheme-source.scm-117- (eq? 'lambda (car (caddr form)))
guile-2.2-2.2.7+1/module/scripts/read-scheme-source.scm:118: (string? (caddr (caddr form))))
guile-2.2-2.2.7+1/module/scripts/read-scheme-source.scm-119- (note! ':type 'procedure)
guile-2.2-2.2.7+1/module/scripts/read-scheme-source.scm-120- (note! ':signature (cons (cadr form) (cadr (caddr form))))
guile-2.2-2.2.7+1/module/scripts/read-scheme-source.scm:121: (note! ':std-int-doc (caddr (caddr form))))
guile-2.2-2.2.7+1/module/scripts/read-scheme-source.scm-122- ((and (list? form)
##############################################
guile-2.2-2.2.7+1/module/srfi/srfi-1.scm-353-(define (sixth x) (cadr (cddddr x)))
guile-2.2-2.2.7+1/module/srfi/srfi-1.scm:354:(define (seventh x) (caddr (cddddr x)))
guile-2.2-2.2.7+1/module/srfi/srfi-1.scm-355-(define (eighth x) (cadddr (cddddr x)))
##############################################
guile-2.2-2.2.7+1/module/statprof.scm-385-(define (program-debug-info-printable pdi)
guile-2.2-2.2.7+1/module/statprof.scm:386: (let* ((addr (program-debug-info-addr pdi))
guile-2.2-2.2.7+1/module/statprof.scm-387- (name (or (and=> (program-debug-info-name pdi) symbol->string)
##############################################
guile-2.2-2.2.7+1/module/system/base/lalr.upstream.scm-1041- (define (get-symbol-precedence sym)
guile-2.2-2.2.7+1/module/system/base/lalr.upstream.scm:1042: (caddr (vector-ref the-terminals/prec sym)))
guile-2.2-2.2.7+1/module/system/base/lalr.upstream.scm-1043- ; the operator type is either 'none, 'left, 'right, or 'nonassoc
##############################################
guile-2.2-2.2.7+1/module/system/repl/debug.scm-102- (when info
guile-2.2-2.2.7+1/module/system/repl/debug.scm:103: (let ((addr (program-debug-info-addr info)))
guile-2.2-2.2.7+1/module/system/repl/debug.scm:104: (format port " (#x~x + ~d * 4)" addr (/ (- ip addr) 4)))))
guile-2.2-2.2.7+1/module/system/repl/debug.scm-105- (newline port))
##############################################
guile-2.2-2.2.7+1/module/system/repl/server.scm-73- (host #f)
guile-2.2-2.2.7+1/module/system/repl/server.scm:74: (addr (if host
guile-2.2-2.2.7+1/module/system/repl/server.scm-75- (inet-pton AF_INET host)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-382-(define-record-type <asm>
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:383: (make-asm buf pos start
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-384- labels relocs
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-467-target."
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:468: (make-asm (make-u32vector 1000) 0 0
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-469- (make-hash-table) '()
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-474-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:475:(define (intern-section-name! asm string)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-476- "Add a string to the section name table (shstrtab)."
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-484- (bytevector-copy! buf 0 new 0 len)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:485: (set-asm-buf! asm new)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-486- #f))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-487-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:488:(define-inline (emit asm u32)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-489- "Emit one 32-bit word into the instruction stream. Assumes that there
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-491- (bytevector-u32-native-set! (asm-buf asm) (asm-pos asm) u32)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:492: (set-asm-pos! asm (+ (asm-pos asm) 4)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-493-
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-503- "Reset the asm-start after writing the words for one instruction."
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:504: (set-asm-start! asm (asm-pos asm)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-505-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:506:(define (record-label-reference asm label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-507- "Record an x8-s24 local label reference. This value will get patched
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-511- (reloc (make-reloc 'x8-s24 label start (- pos start))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:512: (set-asm-relocs! asm (cons reloc (asm-relocs asm)))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-513-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:514:(define* (record-far-label-reference asm label #:optional (offset 0))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-515- "Record an s32 far label reference. This value will get patched up
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-519- (reloc (make-reloc 's32 label start (- pos start))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:520: (set-asm-relocs! asm (cons reloc (asm-relocs asm)))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-521-
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-538- (syntax-case x ()
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:539: ((_ asm name ((type arg ...) code ...) clause ...)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-540- #`(if (eq? name 'type)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-543- code ...))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:544: (op-case asm name clause ...)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:545: ((_ asm name)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-546- #'(error "unmatched name" name)))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-547-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:548: (define (pack-first-word asm opcode type)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-549- (with-syntax ((opcode opcode))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-550- (op-case
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:551: asm type
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-552- ((X32)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:553: (emit asm opcode))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-554- ((X8_S24 arg)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:555: (emit asm (pack-u8-u24 opcode arg)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-556- ((X8_F24 arg)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:557: (emit asm (pack-u8-u24 opcode arg)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-558- ((X8_C24 arg)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:559: (emit asm (pack-u8-u24 opcode arg)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-560- ((X8_L24 label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:561: (record-label-reference asm label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:562: (emit asm opcode))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-563- ((X8_S8_I16 a imm)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:564: (emit asm (pack-u8-u8-u16 opcode a (immediate-bits asm imm))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-565- ((X8_S12_S12 a b)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:566: (emit asm (pack-u8-u12-u12 opcode a b)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-567- ((X8_S12_C12 a b)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:568: (emit asm (pack-u8-u12-u12 opcode a b)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-569- ((X8_C12_C12 a b)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:570: (emit asm (pack-u8-u12-u12 opcode a b)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-571- ((X8_F12_F12 a b)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:572: (emit asm (pack-u8-u12-u12 opcode a b)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-573- ((X8_S8_S8_S8 a b c)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:574: (emit asm (pack-u8-u8-u8-u8 opcode a b c)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-575- ((X8_S8_S8_C8 a b c)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:576: (emit asm (pack-u8-u8-u8-u8 opcode a b c)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-577- ((X8_S8_C8_S8 a b c)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:578: (emit asm (pack-u8-u8-u8-u8 opcode a b c))))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-579-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:580: (define (pack-tail-word asm type)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-581- (op-case
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:582: asm type
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-583- ((C32 a)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:584: (emit asm a))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-585- ((I32 imm)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:586: (let ((val (immediate-bits asm imm)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:587: (emit asm val)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-588- ((A32 imm)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-590- (error "make-long-immediate unavailable for this target"))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:591: (let ((bits (immediate-bits asm imm)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:592: (emit asm (ash bits -32))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:593: (emit asm (logand bits (1- (ash 1 32))))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-594- ((AF32 f64)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-595- (let ((u64 (u64vector-ref (f64vector f64) 0)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:596: (emit asm (ash u64 -32))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:597: (emit asm (logand u64 (1- (ash 1 32))))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-598- ((AU32 u64)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:599: (emit asm (ash u64 -32))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:600: (emit asm (logand u64 (1- (ash 1 32)))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-601- ((AS32 s64)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-602- (let ((u64 (u64vector-ref (s64vector s64) 0)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:603: (emit asm (ash u64 -32))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:604: (emit asm (logand u64 (1- (ash 1 32))))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-605- ((B32))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-609- ((N32 label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:610: (record-far-label-reference asm label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:611: (emit asm 0))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-612- ((R32 label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:613: (record-far-label-reference asm label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:614: (emit asm 0))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-615- ((L32 label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:616: (record-far-label-reference asm label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:617: (emit asm 0))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-618- ((LO32 label offset)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:619: (record-far-label-reference asm label
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-620- (* offset (asm-word-size asm)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:621: (emit asm 0))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-622- ((C8_C24 a b)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:623: (emit asm (pack-u8-u24 a b)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-624- ((B1_X7_L24 a label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:625: (record-label-reference asm label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:626: (emit asm (pack-u1-u7-u24 (if a 1 0) 0 0)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-627- ((B1_C7_L24 a b label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:628: (record-label-reference asm label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:629: (emit asm (pack-u1-u7-u24 (if a 1 0) b 0)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-630- ((B1_X31 a)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:631: (emit asm (pack-u1-u7-u24 (if a 1 0) 0 0)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-632- ((B1_X7_S24 a b)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:633: (emit asm (pack-u1-u7-u24 (if a 1 0) 0 b)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-634- ((B1_X7_F24 a b)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:635: (emit asm (pack-u1-u7-u24 (if a 1 0) 0 b)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-636- ((B1_X7_C24 a b)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:637: (emit asm (pack-u1-u7-u24 (if a 1 0) 0 b)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-638- ((X8_S24 a)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:639: (emit asm (pack-u8-u24 0 a)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-640- ((X8_F24 a)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:641: (emit asm (pack-u8-u24 0 a)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-642- ((X8_C24 a)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:643: (emit asm (pack-u8-u24 0 a)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-644- ((X8_L24 label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:645: (record-label-reference asm label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:646: (emit asm 0))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-647-
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-651- code0 ...)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:652: (pack-first-word #'asm #'opcode
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-653- (syntax->datum #'word0)))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-655- code* ...) ...)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:656: (map (lambda (word) (pack-tail-word #'asm word))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-657- (syntax->datum #'(word* ...)))))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-660- ;; encoder.
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:661: #'(lambda (asm formal0 ... formal* ... ... opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-662- (let lp ()
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-718-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:719:(define (encode-X8_S12_S12!/shuffle asm a b opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-720- (cond
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-721- ((< (logior a b) (ash 1 12))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:722: (encode-X8_S12_S12 asm a b opcode))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-723- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:724: (emit-push asm a)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:725: (emit-push asm (1+ b))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:726: (encode-X8_S12_S12 asm 1 0 opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:727: (emit-drop asm 2))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:728:(define (encode-X8_S12_S12<-/shuffle asm dst a opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-729- (cond
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-730- ((< (logior dst a) (ash 1 12))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:731: (encode-X8_S12_S12 asm dst a opcode))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-732- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:733: (emit-push asm a)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:734: (encode-X8_S12_S12 asm 0 0 opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:735: (emit-pop asm dst))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:736:(define (encode-X8_S12_S12-X8_C24!/shuffle asm a b c opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-737- (cond
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-738- ((< (logior a b) (ash 1 12))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:739: (encode-X8_S12_S12-X8_C24 asm a b c opcode))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-740- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:741: (emit-push asm a)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:742: (emit-push asm (1+ b))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:743: (encode-X8_S12_S12-X8_C24 asm 1 0 c opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:744: (emit-drop asm 2))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:745:(define (encode-X8_S12_S12-X8_C24<-/shuffle asm dst a const opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-746- (cond
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-747- ((< (logior dst a) (ash 1 12))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:748: (encode-X8_S12_S12-X8_C24 asm dst a const opcode))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-749- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:750: (emit-push asm a)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:751: (encode-X8_S12_S12-X8_C24 asm 0 0 const opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:752: (emit-pop asm dst))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:753:(define (encode-X8_S12_C12<-/shuffle asm dst const opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-754- (cond
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-755- ((< dst (ash 1 12))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:756: (encode-X8_S12_C12 asm dst const opcode))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-757- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-758- ;; Push garbage value to make space for dst.
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:759: (emit-push asm dst)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:760: (encode-X8_S12_C12 asm 0 const opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:761: (emit-pop asm dst))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:762:(define (encode-X8_S8_I16<-/shuffle asm dst imm opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-763- (cond
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-764- ((< dst (ash 1 8))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:765: (encode-X8_S8_I16 asm dst imm opcode))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-766- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-767- ;; Push garbage value to make space for dst.
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:768: (emit-push asm dst)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:769: (encode-X8_S8_I16 asm 0 imm opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:770: (emit-pop asm dst))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:771:(define (encode-X8_S8_S8_S8!/shuffle asm a b c opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-772- (cond
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-773- ((< (logior a b c) (ash 1 8))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:774: (encode-X8_S8_S8_S8 asm a b c opcode))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-775- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:776: (emit-push asm a)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:777: (emit-push asm (+ b 1))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:778: (emit-push asm (+ c 2))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:779: (encode-X8_S8_S8_S8 asm 2 1 0 opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:780: (emit-drop asm 3))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:781:(define (encode-X8_S8_S8_S8<-/shuffle asm dst a b opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-782- (cond
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-783- ((< (logior dst a b) (ash 1 8))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:784: (encode-X8_S8_S8_S8 asm dst a b opcode))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-785- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:786: (emit-push asm a)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:787: (emit-push asm (1+ b))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:788: (encode-X8_S8_S8_S8 asm 1 1 0 opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:789: (emit-drop asm 1)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:790: (emit-pop asm dst))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:791:(define (encode-X8_S8_S8_C8<-/shuffle asm dst a const opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-792- (cond
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-793- ((< (logior dst a) (ash 1 8))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:794: (encode-X8_S8_S8_C8 asm dst a const opcode))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-795- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:796: (emit-push asm a)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:797: (encode-X8_S8_S8_C8 asm 0 0 const opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:798: (emit-pop asm dst))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:799:(define (encode-X8_S8_C8_S8!/shuffle asm a const b opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-800- (cond
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-801- ((< (logior a b) (ash 1 8))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:802: (encode-X8_S8_C8_S8 asm a const b opcode))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-803- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:804: (emit-push asm a)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:805: (emit-push asm (1+ b))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:806: (encode-X8_S8_C8_S8 asm 1 const 0 opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:807: (emit-drop asm 2))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:808:(define (encode-X8_S8_C8_S8<-/shuffle asm dst const a opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-809- (cond
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-810- ((< (logior dst a) (ash 1 8))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:811: (encode-X8_S8_C8_S8 asm dst const a opcode))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-812- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:813: (emit-push asm a)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:814: (encode-X8_S8_C8_S8 asm 0 const 0 opcode)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:815: (emit-pop asm dst))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-816-
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-880- (encode (shuffling-encoder-name #'kind #'(word ...))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:881: #'(lambda (asm formal ...)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:882: (encode asm formal ... opcode))))))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-883-
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-914-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:915:(define (emit-mov* asm dst src)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-916- (if (and (< dst (ash 1 12)) (< src (ash 1 12)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:917: (emit-mov asm dst src)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:918: (emit-long-mov asm dst src)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-919-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:920:(define (emit-fmov* asm dst src)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:921: (emit-long-fmov asm dst src))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-922-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:923:(define (emit-receive* asm dst proc nlocals)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-924- (if (and (< dst (ash 1 12)) (< proc (ash 1 12)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:925: (emit-receive asm dst proc nlocals)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-926- (begin
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:927: (emit-receive-values asm proc #t 1)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:928: (emit-fmov* asm dst (1+ proc))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:929: (emit-reset-frame asm nlocals))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-930-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:931:(define (emit-text asm instructions)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-932- "Assemble @var{instructions} using the assembler @var{asm}.
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-956-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:957:(define (immediate-bits asm x)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-958- "Return the bit pattern to write into the buffer if @var{x} is
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1023-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1024:(define (intern-constant asm obj)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1025- "Add an object to the constant table, and return a label that can be
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1028- (define (recur obj)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1029: (intern-constant asm obj))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1030- (define (field dst n obj)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1094- (cond
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1095: ((immediate-bits asm obj) #f)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1096- ((vhash-assoc obj (asm-constants asm)) => cdr)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1100- (inits (intern obj label)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1101: (set-asm-constants! asm (vhash-cons obj label (asm-constants asm)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1102: (set-asm-inits! asm (append-reverse inits (asm-inits asm)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1103- label))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1104-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1105:(define (intern-non-immediate asm obj)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1106- "Intern a non-immediate into the constant table, and return its
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1107-label."
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1108: (when (immediate-bits asm obj)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1109- (error "expected a non-immediate" obj))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1110: (intern-constant asm obj))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1111-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1112:(define (intern-cache-cell asm scope key)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1113- "Intern a cache cell into the constant table, and return its label.
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1115-returned instead."
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1116: (intern-constant asm (make-cache-cell scope key)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1117-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1118-;; Return the label of the cell that holds the module for a scope.
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1119:(define (intern-module-cache-cell asm scope)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1120- "Intern a cache cell for a module, and return its label."
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1121: (intern-cache-cell asm scope #t))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1122-
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1143-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1144:(define-macro-assembler (load-constant asm dst obj)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1145- (cond
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1146: ((immediate-bits asm obj)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1147- => (lambda (bits)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1149- ((and (< dst 256) (zero? (ash bits -16)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1150: (emit-make-short-immediate asm dst obj))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1151- ((zero? (ash bits -32))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1152: (emit-make-long-immediate asm dst obj))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1153- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1154: (emit-make-long-long-immediate asm dst obj)))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1155- ((statically-allocatable? obj)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1156: (emit-make-non-immediate asm dst (intern-non-immediate asm obj)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1157- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1158: (emit-static-ref asm dst (intern-non-immediate asm obj)))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1159-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1160:(define-macro-assembler (load-static-procedure asm dst label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1161: (let ((loc (intern-constant asm (make-static-procedure label))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1162: (emit-make-non-immediate asm dst loc)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1163-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1164-(define-syntax-rule (define-tc7-macro-assembler name tc7)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1165: (define-macro-assembler (name asm slot invert? label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1166: (emit-br-if-tc7 asm slot invert? tc7 label)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1167-
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1200-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1201:(define-macro-assembler (begin-program asm label properties)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1202: (emit-label asm label)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1203- (let ((meta (make-meta label properties (asm-start asm))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1204: (set-asm-meta! asm (cons meta (asm-meta asm)))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1205-
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1210-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1211:(define-macro-assembler (begin-standard-arity asm req nlocals alternate)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1212: (emit-begin-opt-arity asm req '() #f nlocals alternate))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1213-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1214:(define-macro-assembler (begin-opt-arity asm req opt rest nlocals alternate)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1215: (emit-begin-kw-arity asm req opt rest '() #f nlocals alternate))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1216-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1217:(define-macro-assembler (begin-kw-arity asm req opt rest kw-indices
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1218- allow-other-keys? nlocals alternate)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1238- ((or allow-other-keys? (pair? kw-indices))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1239: (emit-kw-prelude asm nreq nopt rest? kw-indices allow-other-keys?
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1240- nlocals alternate))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1241- ((or rest? (pair? opt))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1242: (emit-opt-prelude asm nreq nopt rest? nlocals alternate))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1243- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1244: (emit-standard-prelude asm nreq nlocals alternate)))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1245-
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1250-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1251:(define-macro-assembler (standard-prelude asm nreq nlocals alternate)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1252- (cond
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1253- (alternate
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1254: (emit-br-if-nargs-ne asm nreq alternate)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1255: (emit-alloc-frame asm nlocals))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1256- ((and (< nreq (ash 1 12)) (< (- nlocals nreq) (ash 1 12)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1257: (emit-assert-nargs-ee/locals asm nreq (- nlocals nreq)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1258- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1259: (emit-assert-nargs-ee asm nreq)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1260: (emit-alloc-frame asm nlocals))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1261-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1262:(define-macro-assembler (opt-prelude asm nreq nopt rest? nlocals alternate)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1263- (if alternate
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1264: (emit-br-if-nargs-lt asm nreq alternate)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1265: (emit-assert-nargs-ge asm nreq))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1266- (cond
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1267- (rest?
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1268: (emit-bind-rest asm (+ nreq nopt)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1269- (alternate
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1270: (emit-br-if-nargs-gt asm (+ nreq nopt) alternate))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1271- (else
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1272: (emit-assert-nargs-le asm (+ nreq nopt))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1273: (emit-alloc-frame asm nlocals))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1274-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1275:(define-macro-assembler (kw-prelude asm nreq nopt rest? kw-indices
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1276- allow-other-keys? nlocals alternate)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1278- (begin
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1279: (emit-br-if-nargs-lt asm nreq alternate)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1280- (unless rest?
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1281: (emit-br-if-npos-gt asm nreq (+ nreq nopt) alternate)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1282: (emit-assert-nargs-ge asm nreq))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1283- (let ((ntotal (fold (lambda (kw ntotal)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1288- ;; FIXME: port 581f410f
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1289: (emit-bind-kwargs asm nreq
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1290- (pack-flags allow-other-keys? rest?)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1292- ntotal
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1293: (intern-constant asm kw-indices))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1294: (emit-alloc-frame asm nlocals)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1295-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1296:(define-macro-assembler (label asm sym)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1297- (hashq-set! (asm-labels asm) sym (asm-start asm)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1298-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1299:(define-macro-assembler (source asm source)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1300: (set-asm-sources! asm (acons (asm-start asm) source (asm-sources asm))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1301-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1302:(define-macro-assembler (definition asm name slot representation)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1303- (let* ((arity (car (meta-arities (car (asm-meta asm)))))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1307-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1308:(define-macro-assembler (cache-current-module! asm module scope)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1309: (let ((mod-label (intern-module-cache-cell asm scope)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1310: (emit-static-set! asm module mod-label 0)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1311-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1312:(define-macro-assembler (cached-toplevel-box asm dst scope sym bound?)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1313: (let ((sym-label (intern-non-immediate asm sym))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1314: (mod-label (intern-module-cache-cell asm scope))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1315: (cell-label (intern-cache-cell asm scope sym)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1316: (emit-toplevel-box asm dst cell-label mod-label sym-label bound?)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1317-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1318:(define-macro-assembler (cached-module-box asm dst module-name sym public? bound?)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1319: (let* ((sym-label (intern-non-immediate asm sym))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1320- (key (cons public? module-name))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1321: (mod-name-label (intern-constant asm key))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1322: (cell-label (intern-cache-cell asm key sym)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1323: (emit-module-box asm dst cell-label mod-name-label sym-label bound?)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1324-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1325:(define-macro-assembler (slot-map asm proc-slot slot-map)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1326- (unless (zero? slot-map)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1327: (set-asm-slot-maps! asm (cons
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1328- (cons* (asm-start asm) proc-slot slot-map)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1336-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1337:(define (make-object asm name bv relocs labels . kwargs)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1338- "Make a linker object. This helper handles interning the name in the
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1340-corresponding linker symbol for the start of the section."
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1341: (let ((name-idx (intern-section-name! asm (symbol->string name)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1342- (index (asm-next-section-number asm)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1343: (set-asm-next-section-number! asm (1+ index))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1344- (make-linker-object (apply make-elf-section
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1360-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1361:(define (write-immediate asm buf pos bits)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1362- (let ((endianness (asm-endianness asm)))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1367-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1368:(define (write-placeholder asm buf pos)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1369: (write-immediate asm buf pos (immediate-bits asm #f)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1370-
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1386-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1387:(define (link-data asm data name)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1388- "Link the static data for a program into the @var{name} section (which
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1447- (define (write-constant-reference buf pos x)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1448: (let ((bits (immediate-bits asm x)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1449- (if bits
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1450: (write-immediate asm buf pos bits)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1451- ;; The asm-inits will fix up any reference to a
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1452- ;; non-immediate.
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1453: (write-placeholder asm buf pos))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1454-
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1501- ((cache-cell? obj)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1502: (write-placeholder asm buf pos))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1503-
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1508- (bytevector-u32-set! buf pos tag endianness)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1509: (write-placeholder asm buf (+ pos 4)) ; stringbuf
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1510- (bytevector-u32-set! buf (+ pos 8) 0 endianness)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1513- (bytevector-u64-set! buf pos tag endianness)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1514: (write-placeholder asm buf (+ pos 8)) ; stringbuf
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1515- (bytevector-u64-set! buf (+ pos 16) 0 endianness)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1537- ((symbol? obj)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1538: (write-placeholder asm buf pos))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1539-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1540- ((keyword? obj)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1541: (write-placeholder asm buf pos))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1542-
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1555- ((number? obj)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1556: (write-placeholder asm buf pos))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1557-
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1576- (bytevector-u32-set! buf (+ pos 8) 0 endianness) ; pointer
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1577: (write-placeholder asm buf (+ pos 12))) ; owner
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1578- ((8)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1585- (bytevector-u64-set! buf (+ pos 16) 0 endianness) ; pointer
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1586: (write-placeholder asm buf (+ pos 24))) ; owner
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1587- (else (error "bad word size")))))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1609- (bv-set! buf pos tag endianness)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1610: (write-placeholder asm buf (+ pos word-size)) ; root vector (fixed later)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1611- (bv-set! buf (+ pos (* word-size 2)) 0 endianness) ; base
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1639- (cons (make-linker-symbol obj-label pos) symbols)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1640: (make-object asm name buf '() symbols
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1641- #:flags (match name
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1655- ((pair? x)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1656: (and (immediate-bits asm (car x)) (immediate-bits asm (cdr x))))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1657- ((simple-vector? x)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1659- (or (= i (vector-length x))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1660: (and (immediate-bits asm (vector-ref x i))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1661- (lp (1+ i))))))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1669- (if (= i len)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1670: (values (link-data asm ro '.rodata)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1671: (link-data asm rw '.data)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1672- (emit-init-constants asm))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1732- (byte-swap/4! buf))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1733: (make-object asm '.rtl-text
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1734- buf
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1774- (()
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1775: (make-object asm '.guile.frame-maps bv
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1776- (list (make-linker-reloc 'abs32/1 0 0 '.rtl-text))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1811-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1812:(define (link-dynamic-section asm text rw rw-init frame-maps)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1813- "Link the dynamic section for an ELF image with bytecode @var{text},
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1852- (set-uword! (- words 1) 0)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1853: (make-object asm '.dynamic bv relocs '()
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1854- #:type SHT_DYNAMIC #:flags SHF_ALLOC)))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1861- "Link the string table for the section headers."
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1862: (intern-section-name! asm ".shstrtab")
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1863: (make-object asm '.shstrtab
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1864- (link-string-table! (asm-shstrtab asm))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1892- meta (iota n))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1893: (let ((strtab (make-object asm '.strtab
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1894- (link-string-table! strtab)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1896- #:type SHT_STRTAB #:flags 0)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1897: (values (make-object asm '.symtab
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1898- bv
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-1998-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:1999:(define (write-arities asm metas headers names-port strtab)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2000- (define (write-header pos low-pc high-pc offset flags nreq nopt nlocals)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2014- (port-position names-port)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:2015: (label (intern-constant asm kw-indices)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2016- (put-bytevector names-port #vu8(0 0 0 0))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2115- (let-values (((names-port get-name-bv) (open-bytevector-output-port)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:2116: (let* ((relocs (write-arities asm metas headers names-port strtab))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:2117: (strtab (make-object asm '.guile.arities.strtab
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2118- (link-string-table! strtab)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2120- #:type SHT_STRTAB #:flags 0)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:2121: (values (make-object asm '.guile.arities
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2122- (bytevector-append headers (get-name-bv))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2166- docstrings)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:2167: (let ((strtab (make-object asm '.guile.docstrs.strtab
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2168- (link-string-table! strtab)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2170- #:type SHT_STRTAB #:flags 0)))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:2171: (values (make-object asm '.guile.docstrs
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2172- bv
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2224- (()
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:2225: (make-object asm '.guile.procprops
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2226- bv
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2233- (cons (make-linker-reloc 'abs32/1 (+ pos 4) 0
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:2234: (intern-constant asm props))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2235- relocs)))))))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2562- (asm-endianness asm))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:2563: (make-object asm '.debug_info bv die-relocs '()
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2564- #:type SHT_PROGBITS #:flags 0))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:2565: (make-object asm '.debug_abbrev (get-abbrev-bv) '() '()
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2566- #:type SHT_PROGBITS #:flags 0)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:2567: (make-object asm '.debug_str (link-string-table! strtab) '() '()
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2568- #:type SHT_PROGBITS #:flags 0)
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:2569: (make-object asm '.debug_loc #vu8() '() '()
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2570- #:type SHT_PROGBITS #:flags 0)
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2574- (asm-endianness asm))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:2575: (make-object asm '.debug_line bv line-relocs '()
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2576- #:type SHT_PROGBITS #:flags 0)))))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2586- ((frame-maps) (link-frame-maps asm))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:2587: ((dt) (link-dynamic-section asm text rw rw-init frame-maps))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2588- ((symtab strtab) (link-symtab (linker-object-section text) asm))
##############################################
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2608-
guile-2.2-2.2.7+1/module/system/vm/assembler.scm:2609:(define* (link-assembly asm #:key (page-aligned? #t))
guile-2.2-2.2.7+1/module/system/vm/assembler.scm-2610- "Produce an ELF image from the code and data emitted into @var{asm}.
##############################################
guile-2.2-2.2.7+1/module/system/vm/debug.scm-414- (header (arity-header-offset arity))
guile-2.2-2.2.7+1/module/system/vm/debug.scm:415: (base-addr (+ (debug-context-base ctx) (debug-context-text-base ctx)))
guile-2.2-2.2.7+1/module/system/vm/debug.scm:416: (low-pc (+ base-addr (arity-low-pc* bv header)))
guile-2.2-2.2.7+1/module/system/vm/debug.scm:417: (high-pc (+ base-addr (arity-high-pc* bv header))))
guile-2.2-2.2.7+1/module/system/vm/debug.scm-418- ;; FIXME: We should be able to use a sub-bytevector operation here;
##############################################
guile-2.2-2.2.7+1/module/system/vm/debug.scm-543- (if (and (<= (arity-low-pc arity) addr)
guile-2.2-2.2.7+1/module/system/vm/debug.scm:544: (< addr (arity-high-pc arity)))
guile-2.2-2.2.7+1/module/system/vm/debug.scm-545- arity
##############################################
guile-2.2-2.2.7+1/module/system/vm/debug.scm-699- (find-die-by-pc (read-die-roots dwarf-ctx)
guile-2.2-2.2.7+1/module/system/vm/debug.scm:700: (- addr (debug-context-base context))))))
guile-2.2-2.2.7+1/module/system/vm/debug.scm-701-
##############################################
guile-2.2-2.2.7+1/module/system/vm/debug.scm-729- ;; instead of the one we got back.
guile-2.2-2.2.7+1/module/system/vm/debug.scm:730: (let ((addr (+ (if (null? sources) low-pc pc) base)))
guile-2.2-2.2.7+1/module/system/vm/debug.scm-731- (lp (cons (make-source/dwarf addr file line col)
##############################################
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-141- ((n ...) (map 1+ (iota (length #'(word* ...)))))
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm:142: ((asm ...)
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-143- (parse-first-word #'first (syntax->datum #'word0)))
##############################################
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-152- (values (+ 1 (length '(word* ...)))
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm:153: (list 'name asm ... asm* ... ...))))))))))
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-154-
##############################################
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-183- (define (reference-scm target)
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm:184: (unpack-scm (u32-offset->addr (+ offset target) context)))
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-185-
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-186- (define (dereference-scm target)
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm:187: (let ((addr (u32-offset->addr (+ offset target)
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-188- context)))
##############################################
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-241- (('make-closure dst target nfree)
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm:242: (let* ((addr (u32-offset->addr (+ offset target) context))
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-243- (pdi (find-program-debug-info addr context))
##############################################
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-248- (('call-label closure nlocals target)
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm:249: (let* ((addr (u32-offset->addr (+ offset target) context))
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-250- (pdi (find-program-debug-info addr context))
##############################################
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-255- (('tail-call-label nlocals target)
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm:256: (let* ((addr (u32-offset->addr (+ offset target) context))
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-257- (pdi (find-program-debug-info addr context))
##############################################
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-283- (('load-typed-array dst type shape target len)
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm:284: (let ((addr (u32-offset->addr (+ offset target) context)))
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-285- (list "~a bytes from #x~X" len addr)))
##############################################
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-359- (let ((pos (- offset start))
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm:360: (addr (u32-offset->addr offset context))
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-361- (annotation (code-annotation elt len offset start labels
##############################################
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-393-(define* (disassemble-program program #:optional (port (current-output-port)))
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm:394: (disassemble-addr (program-code program) program port))
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-395-
##############################################
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-398- (define (reference-scm target)
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm:399: (unpack-scm (u32-offset->addr (+ offset target) context)))
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-400-
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-401- (define (dereference-scm target)
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm:402: (let ((addr (u32-offset->addr (+ offset target)
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-403- context)))
##############################################
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-413- `(make-closure ,dst
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm:414: ,(u32-offset->addr (+ offset target) context)
guile-2.2-2.2.7+1/module/system/vm/disassembler.scm-415- ,nfree))
##############################################
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm-1027- (let-values (((addr pos) (read-addr ctx pos)))
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm:1028: (values (+ addr (meta-info-start (ctx-meta ctx)))
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm-1029- pos)))
##############################################
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm-1034- (let-values (((addr pos) (read-u8 ctx pos)))
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm:1035: (values (+ addr (ctx-compile-unit-start ctx))
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm-1036- pos)))
##############################################
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm-1041- (let-values (((addr pos) (read-u16 ctx pos)))
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm:1042: (values (+ addr (ctx-compile-unit-start ctx))
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm-1043- pos)))
##############################################
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm-1048- (let-values (((addr pos) (read-u32 ctx pos)))
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm:1049: (values (+ addr (ctx-compile-unit-start ctx))
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm-1050- pos)))
##############################################
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm-1055- (let-values (((addr pos) (read-u64 ctx pos)))
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm:1056: (values (+ addr (ctx-compile-unit-start ctx))
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm-1057- pos)))
##############################################
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm-1062- (let-values (((addr pos) (read-uleb128 ctx pos)))
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm:1063: (values (+ addr (ctx-compile-unit-start ctx))
guile-2.2-2.2.7+1/module/system/vm/dwarf.scm-1064- pos)))
##############################################
guile-2.2-2.2.7+1/module/system/vm/linker.scm-308- #:flags (elf-section-flags sec)
guile-2.2-2.2.7+1/module/system/vm/linker.scm:309: #:addr (if (zero? (logand SHF_ALLOC
guile-2.2-2.2.7+1/module/system/vm/linker.scm-310- (elf-section-flags sec)))
##############################################
guile-2.2-2.2.7+1/module/system/vm/linker.scm-363- (let ((name (linker-symbol-name symbol))
guile-2.2-2.2.7+1/module/system/vm/linker.scm:364: (addr (linker-symbol-address symbol)))
guile-2.2-2.2.7+1/module/system/vm/linker.scm-365- (when (vhash-assq name symtab)
##############################################
guile-2.2-2.2.7+1/module/system/vm/linker.scm-390- alignment))
guile-2.2-2.2.7+1/module/system/vm/linker.scm:391: (addr (align addr alignment)))
guile-2.2-2.2.7+1/module/system/vm/linker.scm-392- (receive (objects endaddr symtab)
##############################################
guile-2.2-2.2.7+1/module/system/vm/linker.scm-395- (let* ((section (linker-object-section o))
guile-2.2-2.2.7+1/module/system/vm/linker.scm:396: (addr (align addr (elf-section-addralign section))))
guile-2.2-2.2.7+1/module/system/vm/linker.scm-397- (values
##############################################
guile-2.2-2.2.7+1/module/system/vm/linker.scm-403- out)
guile-2.2-2.2.7+1/module/system/vm/linker.scm:404: (+ addr (elf-section-size section))
guile-2.2-2.2.7+1/module/system/vm/linker.scm-405- (add-symbols (linker-object-symbols o) addr symtab))))
##############################################
guile-2.2-2.2.7+1/module/system/vm/linker.scm-621- ((eqv? (elf-section-type section) SHT_DYNAMIC)
guile-2.2-2.2.7+1/module/system/vm/linker.scm:622: (let ((addr (elf-section-offset section))
guile-2.2-2.2.7+1/module/system/vm/linker.scm-623- (size (elf-section-size section))
##############################################
guile-2.2-2.2.7+1/module/system/vm/program.scm-259-(define* (print-program #:optional program (port (current-output-port))
guile-2.2-2.2.7+1/module/system/vm/program.scm:260: #:key (addr (program-code program))
guile-2.2-2.2.7+1/module/system/vm/program.scm-261- (always-print-addr? #f) (never-print-addr? #f)
##############################################
guile-2.2-2.2.7+1/module/web/server/http.scm-61- (family AF_INET)
guile-2.2-2.2.7+1/module/web/server/http.scm:62: (addr (if host
guile-2.2-2.2.7+1/module/web/server/http.scm-63- (inet-pton family host)
##############################################
guile-2.2-2.2.7+1/test-suite/standalone/test-guile-snarf-24-{
guile-2.2-2.2.7+1/test-suite/standalone/test-guile-snarf:25: x=`snarf "$1"`
guile-2.2-2.2.7+1/test-suite/standalone/test-guile-snarf-26- if [ x"$x" != x"$2" ]; then
##############################################
guile-2.2-2.2.7+1/test-suite/tests/00-repl-server.test-42- (let* ((tmpdir (make-tempdir))
guile-2.2-2.2.7+1/test-suite/tests/00-repl-server.test:43: (sockaddr (make-socket-address AF_UNIX (string-append tmpdir "/repl-server")))
guile-2.2-2.2.7+1/test-suite/tests/00-repl-server.test-44- (client-socket (socket AF_UNIX SOCK_STREAM 0)))
##############################################
guile-2.2-2.2.7+1/test-suite/tests/00-socket.test-191- (path (temp-file-path))
guile-2.2-2.2.7+1/test-suite/tests/00-socket.test:192: (sockaddr (make-socket-address AF_UNIX path)))
guile-2.2-2.2.7+1/test-suite/tests/00-socket.test-193- (catch 'system-error
##############################################
guile-2.2-2.2.7+1/test-suite/tests/00-socket.test-214- (message (string->utf8 "hello"))
guile-2.2-2.2.7+1/test-suite/tests/00-socket.test:215: (sockaddr (make-socket-address AF_UNIX path)))
guile-2.2-2.2.7+1/test-suite/tests/00-socket.test-216- (> (sendto client message sockaddr) 0))))
##############################################
guile-2.2-2.2.7+1/test-suite/tests/00-socket.test-245- (path (temp-file-path))
guile-2.2-2.2.7+1/test-suite/tests/00-socket.test:246: (sockaddr (make-socket-address AF_UNIX path)))
guile-2.2-2.2.7+1/test-suite/tests/00-socket.test-247- (catch 'system-error
##############################################
guile-2.2-2.2.7+1/test-suite/tests/00-socket.test-421- (let* ((sock (false-if-exception (socket AF_INET6 SOCK_STREAM 0)))
guile-2.2-2.2.7+1/test-suite/tests/00-socket.test:422: (sockaddr (make-socket-address AF_INET6 ipv6-addr client-port)))
guile-2.2-2.2.7+1/test-suite/tests/00-socket.test-423- (if (not sock)
##############################################
guile-2.2-2.2.7+1/test-suite/tests/dwarf.test-51-
guile-2.2-2.2.7+1/test-suite/tests/dwarf.test:52: (let ((source (find-source-for-addr (program-code qux))))
guile-2.2-2.2.7+1/test-suite/tests/dwarf.test-53- (pass-if-equal "foo.scm" (source-file source))
##############################################
guile-2.2-2.2.7+1/test-suite/tests/dwarf.test-57-
guile-2.2-2.2.7+1/test-suite/tests/dwarf.test:58: (let ((source (find-source-for-addr (program-code bar))))
guile-2.2-2.2.7+1/test-suite/tests/dwarf.test-59- (pass-if-equal "foo.scm" (source-file source))
##############################################
guile-2.2-2.2.7+1/test-suite/tests/rtl.test-30-a procedure."
guile-2.2-2.2.7+1/test-suite/tests/rtl.test:31: (let ((asm (make-assembler)))
guile-2.2-2.2.7+1/test-suite/tests/rtl.test:32: (emit-text asm instructions)
guile-2.2-2.2.7+1/test-suite/tests/rtl.test:33: (load-thunk-from-memory (link-assembly asm #:page-aligned? #f))))
guile-2.2-2.2.7+1/test-suite/tests/rtl.test-34-
##############################################
guile-2.2-2.2.7+1/debian/changelog-746-
guile-2.2-2.2.7+1/debian/changelog:747: * Don't access uninitialized memory in scm_to_sockaddr().
guile-2.2-2.2.7+1/debian/changelog-748- Thanks to Thorsten Glaser <tg@mirbsd.de> for the patch.