I: pbuilder: network access will be disabled during build I: Current time: Thu Sep 29 12:49:31 +14 2022 I: pbuilder-time-stamp: 1664405371 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/bullseye-reproducible-base.tgz] I: copying local configuration I: mounting /proc filesystem I: mounting /sys filesystem I: creating /{dev,run}/shm I: mounting /dev/pts filesystem I: redirecting /dev/ptmx to /dev/pts/ptmx I: policy-rc.d already exists I: Copying source file I: copying [scm_5f2-2.dsc] I: copying [./scm_5f2.orig.tar.gz] I: copying [./scm_5f2-2.debian.tar.xz] I: Extracting source gpgv: unknown type of key resource 'trustedkeys.kbx' gpgv: keyblock resource '/tmp/dpkg-verify-sig.E2YL9mtf/trustedkeys.kbx': General error gpgv: Signature made Tue Dec 26 22:18:33 2017 +14 gpgv: using RSA key 8FA904BB56EF7F3EC6BF1043722764B896AE2146 gpgv: Can't check signature: No public key dpkg-source: warning: failed to verify signature on ./scm_5f2-2.dsc dpkg-source: info: extracting scm in scm-5f2 dpkg-source: info: unpacking scm_5f2.orig.tar.gz dpkg-source: info: unpacking scm_5f2-2.debian.tar.xz dpkg-source: info: using patch list from debian/patches/series dpkg-source: info: applying not-usr-local.patch dpkg-source: info: applying kfreebsd_support.patch dpkg-source: info: applying texinfo5_fixes.patch dpkg-source: info: applying ppc64_short_int.patch dpkg-source: info: applying arm64_short_int.patch dpkg-source: info: applying hurd_maxpathlen.patch dpkg-source: info: applying bigrecy_32bit_upstream.patch I: using fakeroot in build. I: Installing the build-deps I: user script /srv/workspace/pbuilder/3237/tmp/hooks/D01_modify_environment starting debug: Running on codethink13-arm64. I: Changing host+domainname to test build reproducibility I: Adding a custom variable just for the fun of it... I: Changing /bin/sh to bash Removing 'diversion of /bin/sh to /bin/sh.distrib by dash' Adding 'diversion of /bin/sh to /bin/sh.distrib by bash' Removing 'diversion of /usr/share/man/man1/sh.1.gz to /usr/share/man/man1/sh.distrib.1.gz by dash' Adding 'diversion of /usr/share/man/man1/sh.1.gz to /usr/share/man/man1/sh.distrib.1.gz by bash' I: Setting pbuilder2's login shell to /bin/bash I: Setting pbuilder2's GECOS to second user,second room,second work-phone,second home-phone,second other I: user script /srv/workspace/pbuilder/3237/tmp/hooks/D01_modify_environment finished I: user script /srv/workspace/pbuilder/3237/tmp/hooks/D02_print_environment starting I: set BASH=/bin/sh BASHOPTS=checkwinsize:cmdhist:complete_fullquote:extquote:force_fignore:globasciiranges:hostcomplete:interactive_comments:progcomp:promptvars:sourcepath BASH_ALIASES=() BASH_ARGC=() BASH_ARGV=() BASH_CMDS=() BASH_LINENO=([0]="12" [1]="0") BASH_SOURCE=([0]="/tmp/hooks/D02_print_environment" [1]="/tmp/hooks/D02_print_environment") BASH_VERSINFO=([0]="5" [1]="1" [2]="4" [3]="1" [4]="release" [5]="aarch64-unknown-linux-gnu") BASH_VERSION='5.1.4(1)-release' BUILDDIR=/build BUILDUSERGECOS='second user,second room,second work-phone,second home-phone,second other' BUILDUSERNAME=pbuilder2 BUILD_ARCH=arm64 DEBIAN_FRONTEND=noninteractive DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all,-fixfilepath parallel=8' DIRSTACK=() DISTRIBUTION= EUID=0 FUNCNAME=([0]="Echo" [1]="main") GROUPS=() HOME=/var/lib/jenkins HOSTNAME=i-capture-the-hostname HOSTTYPE=aarch64 HOST_ARCH=arm64 IFS=' ' LANG=C LANGUAGE=nl_BE:nl LC_ALL=C MACHTYPE=aarch64-unknown-linux-gnu MAIL=/var/mail/root OPTERR=1 OPTIND=1 OSTYPE=linux-gnu PATH=/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path PBCURRENTCOMMANDLINEOPERATION=build PBUILDER_OPERATION=build PBUILDER_PKGDATADIR=/usr/share/pbuilder PBUILDER_PKGLIBDIR=/usr/lib/pbuilder PBUILDER_SYSCONFDIR=/etc PIPESTATUS=([0]="0") POSIXLY_CORRECT=y PPID=3237 PS4='+ ' PWD=/ SHELL=/bin/bash SHELLOPTS=braceexpand:errexit:hashall:interactive-comments:posix SHLVL=3 SUDO_COMMAND='/usr/bin/timeout -k 24.1h 24h /usr/bin/ionice -c 3 /usr/bin/nice -n 11 /usr/bin/unshare --uts -- /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/tmp.0pxCvCOpxb/pbuilderrc_Li4B --hookdir /etc/pbuilder/rebuild-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/bullseye-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/tmp.0pxCvCOpxb/b2 --logfile b2/build.log scm_5f2-2.dsc' SUDO_GID=117 SUDO_UID=110 SUDO_USER=jenkins TERM=unknown TZ=/usr/share/zoneinfo/Etc/GMT-14 UID=0 USER=root USERNAME=root _='I: set' http_proxy=http://192.168.101.16:3128 I: uname -a Linux i-capture-the-hostname 4.15.0-154-generic #161-Ubuntu SMP Fri Jul 30 13:01:15 UTC 2021 aarch64 GNU/Linux I: ls -l /bin total 5252 -rwxr-xr-x 1 root root 1282512 Aug 5 2021 bash -rwxr-xr-x 3 root root 34808 Jul 21 2020 bunzip2 -rwxr-xr-x 3 root root 34808 Jul 21 2020 bzcat lrwxrwxrwx 1 root root 6 Jul 21 2020 bzcmp -> bzdiff -rwxr-xr-x 1 root root 2225 Jul 21 2020 bzdiff lrwxrwxrwx 1 root root 6 Jul 21 2020 bzegrep -> bzgrep -rwxr-xr-x 1 root root 4877 Sep 5 2019 bzexe lrwxrwxrwx 1 root root 6 Jul 21 2020 bzfgrep -> bzgrep -rwxr-xr-x 1 root root 3775 Jul 21 2020 bzgrep -rwxr-xr-x 3 root root 34808 Jul 21 2020 bzip2 -rwxr-xr-x 1 root root 14264 Jul 21 2020 bzip2recover lrwxrwxrwx 1 root root 6 Jul 21 2020 bzless -> bzmore -rwxr-xr-x 1 root root 1297 Jul 21 2020 bzmore -rwxr-xr-x 1 root root 39832 Sep 23 2020 cat -rwxr-xr-x 1 root root 64512 Sep 23 2020 chgrp -rwxr-xr-x 1 root root 60368 Sep 23 2020 chmod -rwxr-xr-x 1 root root 64528 Sep 23 2020 chown -rwxr-xr-x 1 root root 138896 Sep 23 2020 cp -rwxr-xr-x 1 root root 129544 Dec 11 2020 dash -rwxr-xr-x 1 root root 101384 Sep 23 2020 date -rwxr-xr-x 1 root root 80984 Sep 23 2020 dd -rwxr-xr-x 1 root root 89824 Sep 23 2020 df -rwxr-xr-x 1 root root 143088 Sep 23 2020 dir -rwxr-xr-x 1 root root 76152 Jul 29 2021 dmesg lrwxrwxrwx 1 root root 8 Nov 8 2019 dnsdomainname -> hostname lrwxrwxrwx 1 root root 8 Nov 8 2019 domainname -> hostname -rwxr-xr-x 1 root root 35632 Sep 23 2020 echo -rwxr-xr-x 1 root root 28 Nov 10 2020 egrep -rwxr-xr-x 1 root root 31512 Sep 23 2020 false -rwxr-xr-x 1 root root 28 Nov 10 2020 fgrep -rwxr-xr-x 1 root root 64856 Jul 29 2021 findmnt -rwsr-xr-x 1 root root 34824 Feb 27 2021 fusermount -rwxr-xr-x 1 root root 178400 Nov 10 2020 grep -rwxr-xr-x 2 root root 2346 Mar 3 2021 gunzip -rwxr-xr-x 1 root root 6376 Mar 3 2021 gzexe -rwxr-xr-x 1 root root 93744 Mar 3 2021 gzip -rwxr-xr-x 1 root root 18440 Nov 8 2019 hostname -rwxr-xr-x 1 root root 68720 Sep 23 2020 ln -rwxr-xr-x 1 root root 52720 Feb 8 2020 login -rwxr-xr-x 1 root root 143088 Sep 23 2020 ls -rwxr-xr-x 1 root root 161960 Jul 29 2021 lsblk -rwxr-xr-x 1 root root 85200 Sep 23 2020 mkdir -rwxr-xr-x 1 root root 68744 Sep 23 2020 mknod -rwxr-xr-x 1 root root 43976 Sep 23 2020 mktemp -rwxr-xr-x 1 root root 51368 Jul 29 2021 more -rwsr-xr-x 1 root root 51360 Jul 29 2021 mount -rwxr-xr-x 1 root root 14496 Jul 29 2021 mountpoint -rwxr-xr-x 1 root root 134808 Sep 23 2020 mv lrwxrwxrwx 1 root root 8 Nov 8 2019 nisdomainname -> hostname lrwxrwxrwx 1 root root 14 Apr 19 2021 pidof -> /sbin/killall5 -rwxr-xr-x 1 root root 35720 Sep 23 2020 pwd lrwxrwxrwx 1 root root 4 Aug 5 2021 rbash -> bash -rwxr-xr-x 1 root root 43872 Sep 23 2020 readlink -rwxr-xr-x 1 root root 68592 Sep 23 2020 rm -rwxr-xr-x 1 root root 43880 Sep 23 2020 rmdir -rwxr-xr-x 1 root root 19208 Sep 28 2020 run-parts -rwxr-xr-x 1 root root 114016 Dec 23 2018 sed lrwxrwxrwx 1 root root 4 Sep 29 12:49 sh -> bash lrwxrwxrwx 1 root root 4 Sep 24 05:47 sh.distrib -> dash -rwxr-xr-x 1 root root 35656 Sep 23 2020 sleep -rwxr-xr-x 1 root root 72640 Sep 23 2020 stty -rwsr-xr-x 1 root root 67776 Jul 29 2021 su -rwxr-xr-x 1 root root 35672 Sep 23 2020 sync -rwxr-xr-x 1 root root 535768 Feb 17 2021 tar -rwxr-xr-x 1 root root 10568 Sep 28 2020 tempfile -rwxr-xr-x 1 root root 89120 Sep 23 2020 touch -rwxr-xr-x 1 root root 31512 Sep 23 2020 true -rwxr-xr-x 1 root root 14264 Feb 27 2021 ulockmgr_server -rwsr-xr-x 1 root root 30880 Jul 29 2021 umount -rwxr-xr-x 1 root root 35640 Sep 23 2020 uname -rwxr-xr-x 2 root root 2346 Mar 3 2021 uncompress -rwxr-xr-x 1 root root 143088 Sep 23 2020 vdir -rwxr-xr-x 1 root root 59584 Jul 29 2021 wdctl lrwxrwxrwx 1 root root 8 Nov 8 2019 ypdomainname -> hostname -rwxr-xr-x 1 root root 1984 Mar 3 2021 zcat -rwxr-xr-x 1 root root 1678 Mar 3 2021 zcmp -rwxr-xr-x 1 root root 5880 Mar 3 2021 zdiff -rwxr-xr-x 1 root root 29 Mar 3 2021 zegrep -rwxr-xr-x 1 root root 29 Mar 3 2021 zfgrep -rwxr-xr-x 1 root root 2081 Mar 3 2021 zforce -rwxr-xr-x 1 root root 7585 Mar 3 2021 zgrep -rwxr-xr-x 1 root root 2206 Mar 3 2021 zless -rwxr-xr-x 1 root root 1842 Mar 3 2021 zmore -rwxr-xr-x 1 root root 4553 Mar 3 2021 znew I: user script /srv/workspace/pbuilder/3237/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy Version: 0.invalid.0 Architecture: arm64 Maintainer: Debian Pbuilder Team Description: Dummy package to satisfy dependencies with aptitude - created by pbuilder This package was created automatically by pbuilder to satisfy the build-dependencies of the package being currently built. Depends: slib (>> 3b1), libncurses5-dev, libreadline-dev, texinfo, libx11-dev, debhelper (>= 9) dpkg-deb: building package 'pbuilder-satisfydepends-dummy' in '/tmp/satisfydepends-aptitude/pbuilder-satisfydepends-dummy.deb'. Selecting previously unselected package pbuilder-satisfydepends-dummy. (Reading database ... 19646 files and directories currently installed.) Preparing to unpack .../pbuilder-satisfydepends-dummy.deb ... Unpacking pbuilder-satisfydepends-dummy (0.invalid.0) ... dpkg: pbuilder-satisfydepends-dummy: dependency problems, but configuring anyway as you requested: pbuilder-satisfydepends-dummy depends on slib (>> 3b1); however: Package slib is not installed. pbuilder-satisfydepends-dummy depends on libncurses5-dev; however: Package libncurses5-dev is not installed. pbuilder-satisfydepends-dummy depends on libreadline-dev; however: Package libreadline-dev is not installed. pbuilder-satisfydepends-dummy depends on texinfo; however: Package texinfo is not installed. pbuilder-satisfydepends-dummy depends on libx11-dev; however: Package libx11-dev is not installed. pbuilder-satisfydepends-dummy depends on debhelper (>= 9); however: Package debhelper is not installed. Setting up pbuilder-satisfydepends-dummy (0.invalid.0) ... Reading package lists... Building dependency tree... Reading state information... Initializing package states... Writing extended state information... Building tag database... pbuilder-satisfydepends-dummy is already installed at the requested version (0.invalid.0) pbuilder-satisfydepends-dummy is already installed at the requested version (0.invalid.0) The following NEW packages will be installed: autoconf{a} automake{a} autopoint{a} autotools-dev{a} bsdextrautils{a} debhelper{a} dh-autoreconf{a} dh-strip-nondeterminism{a} dwz{a} file{a} gettext{a} gettext-base{a} groff-base{a} intltool-debian{a} libarchive-zip-perl{a} libbsd0{a} libdebhelper-perl{a} libelf1{a} libfile-stripnondeterminism-perl{a} libicu67{a} libmagic-mgc{a} libmagic1{a} libmd0{a} libncurses-dev{a} libncurses5-dev{a} libncurses6{a} libpipeline1{a} libpthread-stubs0-dev{a} libreadline-dev{a} libreadline8{a} libsigsegv2{a} libsub-override-perl{a} libtext-unidecode-perl{a} libtool{a} libuchardet0{a} libx11-6{a} libx11-data{a} libx11-dev{a} libxau-dev{a} libxau6{a} libxcb1{a} libxcb1-dev{a} libxdmcp-dev{a} libxdmcp6{a} libxml-libxml-perl{a} libxml-namespacesupport-perl{a} libxml-sax-base-perl{a} libxml-sax-perl{a} libxml2{a} m4{a} man-db{a} po-debconf{a} readline-common{a} sensible-utils{a} slib{a} tex-common{a} texinfo{a} ucf{a} x11proto-dev{a} xorg-sgml-doctools{a} xtrans-dev{a} The following packages are RECOMMENDED but will NOT be installed: curl libarchive-cpio-perl libgpm2 libltdl-dev libmail-sendmail-perl libwww-perl libxml-sax-expat-perl lynx wget 0 packages upgraded, 61 newly installed, 0 to remove and 0 not upgraded. Need to get 25.2 MB of archives. After unpacking 101 MB will be used. Writing extended state information... Get: 1 http://deb.debian.org/debian bullseye/main arm64 bsdextrautils arm64 2.36.1-8 [142 kB] Get: 2 http://deb.debian.org/debian bullseye/main arm64 libuchardet0 arm64 0.0.7-1 [67.9 kB] Get: 3 http://deb.debian.org/debian bullseye/main arm64 groff-base arm64 1.22.4-6 [883 kB] Get: 4 http://deb.debian.org/debian bullseye/main arm64 libpipeline1 arm64 1.5.3-1 [33.0 kB] Get: 5 http://deb.debian.org/debian bullseye/main arm64 man-db arm64 2.9.4-2 [1336 kB] Get: 6 http://deb.debian.org/debian bullseye/main arm64 sensible-utils all 0.0.14 [14.8 kB] Get: 7 http://deb.debian.org/debian bullseye/main arm64 ucf all 3.0043 [74.0 kB] Get: 8 http://deb.debian.org/debian bullseye/main arm64 tex-common all 6.16 [53.7 kB] Get: 9 http://deb.debian.org/debian bullseye/main arm64 readline-common all 8.1-1 [73.7 kB] Get: 10 http://deb.debian.org/debian bullseye/main arm64 libreadline8 arm64 8.1-1 [160 kB] Get: 11 http://deb.debian.org/debian bullseye/main arm64 libmagic-mgc arm64 1:5.39-3 [273 kB] Get: 12 http://deb.debian.org/debian bullseye/main arm64 libmagic1 arm64 1:5.39-3 [121 kB] Get: 13 http://deb.debian.org/debian bullseye/main arm64 file arm64 1:5.39-3 [69.1 kB] Get: 14 http://deb.debian.org/debian bullseye/main arm64 gettext-base arm64 0.21-4 [173 kB] Get: 15 http://deb.debian.org/debian bullseye/main arm64 libsigsegv2 arm64 2.13-1 [34.7 kB] Get: 16 http://deb.debian.org/debian bullseye/main arm64 m4 arm64 1.4.18-5 [199 kB] Get: 17 http://deb.debian.org/debian bullseye/main arm64 autoconf all 2.69-14 [313 kB] Get: 18 http://deb.debian.org/debian bullseye/main arm64 autotools-dev all 20180224.1+nmu1 [77.1 kB] Get: 19 http://deb.debian.org/debian bullseye/main arm64 automake all 1:1.16.3-2 [814 kB] Get: 20 http://deb.debian.org/debian bullseye/main arm64 autopoint all 0.21-4 [510 kB] Get: 21 http://deb.debian.org/debian bullseye/main arm64 libdebhelper-perl all 13.3.4 [189 kB] Get: 22 http://deb.debian.org/debian bullseye/main arm64 libtool all 2.4.6-15 [513 kB] Get: 23 http://deb.debian.org/debian bullseye/main arm64 dh-autoreconf all 20 [17.1 kB] Get: 24 http://deb.debian.org/debian bullseye/main arm64 libarchive-zip-perl all 1.68-1 [104 kB] Get: 25 http://deb.debian.org/debian bullseye/main arm64 libsub-override-perl all 0.09-2 [10.2 kB] Get: 26 http://deb.debian.org/debian bullseye/main arm64 libfile-stripnondeterminism-perl all 1.12.0-1 [26.3 kB] Get: 27 http://deb.debian.org/debian bullseye/main arm64 dh-strip-nondeterminism all 1.12.0-1 [15.4 kB] Get: 28 http://deb.debian.org/debian bullseye/main arm64 libelf1 arm64 0.183-1 [164 kB] Get: 29 http://deb.debian.org/debian bullseye/main arm64 dwz arm64 0.13+20210201-1 [155 kB] Get: 30 http://deb.debian.org/debian bullseye/main arm64 libicu67 arm64 67.1-7 [8467 kB] Get: 31 http://deb.debian.org/debian bullseye/main arm64 libxml2 arm64 2.9.10+dfsg-6.7 [629 kB] Get: 32 http://deb.debian.org/debian bullseye/main arm64 gettext arm64 0.21-4 [1261 kB] Get: 33 http://deb.debian.org/debian bullseye/main arm64 intltool-debian all 0.35.0+20060710.5 [26.8 kB] Get: 34 http://deb.debian.org/debian bullseye/main arm64 po-debconf all 1.0.21+nmu1 [248 kB] Get: 35 http://deb.debian.org/debian bullseye/main arm64 debhelper all 13.3.4 [1049 kB] Get: 36 http://deb.debian.org/debian bullseye/main arm64 libmd0 arm64 1.0.3-3 [27.9 kB] Get: 37 http://deb.debian.org/debian bullseye/main arm64 libbsd0 arm64 0.11.3-1 [106 kB] Get: 38 http://deb.debian.org/debian bullseye/main arm64 libncurses6 arm64 6.2+20201114-2 [93.2 kB] Get: 39 http://deb.debian.org/debian bullseye/main arm64 libncurses-dev arm64 6.2+20201114-2 [335 kB] Get: 40 http://deb.debian.org/debian bullseye/main arm64 libncurses5-dev arm64 6.2+20201114-2 [936 B] Get: 41 http://deb.debian.org/debian bullseye/main arm64 libpthread-stubs0-dev arm64 0.4-1 [5336 B] Get: 42 http://deb.debian.org/debian bullseye/main arm64 libreadline-dev arm64 8.1-1 [153 kB] Get: 43 http://deb.debian.org/debian bullseye/main arm64 libtext-unidecode-perl all 1.30-1 [103 kB] Get: 44 http://deb.debian.org/debian bullseye/main arm64 libxau6 arm64 1:1.0.9-1 [19.7 kB] Get: 45 http://deb.debian.org/debian bullseye/main arm64 libxdmcp6 arm64 1:1.1.2-3 [25.4 kB] Get: 46 http://deb.debian.org/debian bullseye/main arm64 libxcb1 arm64 1.14-3 [138 kB] Get: 47 http://deb.debian.org/debian bullseye/main arm64 libx11-data all 2:1.7.2-1 [311 kB] Get: 48 http://deb.debian.org/debian bullseye/main arm64 libx11-6 arm64 2:1.7.2-1 [748 kB] Get: 49 http://deb.debian.org/debian bullseye/main arm64 xorg-sgml-doctools all 1:1.11-1.1 [22.1 kB] Get: 50 http://deb.debian.org/debian bullseye/main arm64 x11proto-dev all 2020.1-1 [594 kB] Get: 51 http://deb.debian.org/debian bullseye/main arm64 libxau-dev arm64 1:1.0.9-1 [23.2 kB] Get: 52 http://deb.debian.org/debian bullseye/main arm64 libxdmcp-dev arm64 1:1.1.2-3 [41.2 kB] Get: 53 http://deb.debian.org/debian bullseye/main arm64 xtrans-dev all 1.4.0-1 [98.7 kB] Get: 54 http://deb.debian.org/debian bullseye/main arm64 libxcb1-dev arm64 1.14-3 [177 kB] Get: 55 http://deb.debian.org/debian bullseye/main arm64 libx11-dev arm64 2:1.7.2-1 [828 kB] Get: 56 http://deb.debian.org/debian bullseye/main arm64 libxml-namespacesupport-perl all 1.12-1.1 [14.9 kB] Get: 57 http://deb.debian.org/debian bullseye/main arm64 libxml-sax-base-perl all 1.09-1.1 [20.7 kB] Get: 58 http://deb.debian.org/debian bullseye/main arm64 libxml-sax-perl all 1.02+dfsg-1 [59.0 kB] Get: 59 http://deb.debian.org/debian bullseye/main arm64 libxml-libxml-perl arm64 2.0134+dfsg-2+b1 [326 kB] Get: 60 http://deb.debian.org/debian bullseye/main arm64 slib all 3b6-3 [837 kB] Get: 61 http://deb.debian.org/debian bullseye/main arm64 texinfo arm64 6.7.0.dfsg.2-6 [1753 kB] Fetched 25.2 MB in 1s (47.8 MB/s) debconf: delaying package configuration, since apt-utils is not installed Selecting previously unselected package bsdextrautils. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 19646 files and directories currently installed.) Preparing to unpack .../00-bsdextrautils_2.36.1-8_arm64.deb ... Unpacking bsdextrautils (2.36.1-8) ... Selecting previously unselected package libuchardet0:arm64. Preparing to unpack .../01-libuchardet0_0.0.7-1_arm64.deb ... Unpacking libuchardet0:arm64 (0.0.7-1) ... Selecting previously unselected package groff-base. Preparing to unpack .../02-groff-base_1.22.4-6_arm64.deb ... Unpacking groff-base (1.22.4-6) ... Selecting previously unselected package libpipeline1:arm64. Preparing to unpack .../03-libpipeline1_1.5.3-1_arm64.deb ... Unpacking libpipeline1:arm64 (1.5.3-1) ... Selecting previously unselected package man-db. Preparing to unpack .../04-man-db_2.9.4-2_arm64.deb ... Unpacking man-db (2.9.4-2) ... Selecting previously unselected package sensible-utils. Preparing to unpack .../05-sensible-utils_0.0.14_all.deb ... Unpacking sensible-utils (0.0.14) ... Selecting previously unselected package ucf. Preparing to unpack .../06-ucf_3.0043_all.deb ... Moving old data out of the way Unpacking ucf (3.0043) ... Selecting previously unselected package tex-common. Preparing to unpack .../07-tex-common_6.16_all.deb ... Unpacking tex-common (6.16) ... Selecting previously unselected package readline-common. Preparing to unpack .../08-readline-common_8.1-1_all.deb ... Unpacking readline-common (8.1-1) ... Selecting previously unselected package libreadline8:arm64. Preparing to unpack .../09-libreadline8_8.1-1_arm64.deb ... Unpacking libreadline8:arm64 (8.1-1) ... Selecting previously unselected package libmagic-mgc. Preparing to unpack .../10-libmagic-mgc_1%3a5.39-3_arm64.deb ... Unpacking libmagic-mgc (1:5.39-3) ... Selecting previously unselected package libmagic1:arm64. Preparing to unpack .../11-libmagic1_1%3a5.39-3_arm64.deb ... Unpacking libmagic1:arm64 (1:5.39-3) ... Selecting previously unselected package file. Preparing to unpack .../12-file_1%3a5.39-3_arm64.deb ... Unpacking file (1:5.39-3) ... Selecting previously unselected package gettext-base. Preparing to unpack .../13-gettext-base_0.21-4_arm64.deb ... Unpacking gettext-base (0.21-4) ... Selecting previously unselected package libsigsegv2:arm64. Preparing to unpack .../14-libsigsegv2_2.13-1_arm64.deb ... Unpacking libsigsegv2:arm64 (2.13-1) ... Selecting previously unselected package m4. Preparing to unpack .../15-m4_1.4.18-5_arm64.deb ... Unpacking m4 (1.4.18-5) ... Selecting previously unselected package autoconf. Preparing to unpack .../16-autoconf_2.69-14_all.deb ... Unpacking autoconf (2.69-14) ... Selecting previously unselected package autotools-dev. Preparing to unpack .../17-autotools-dev_20180224.1+nmu1_all.deb ... Unpacking autotools-dev (20180224.1+nmu1) ... Selecting previously unselected package automake. Preparing to unpack .../18-automake_1%3a1.16.3-2_all.deb ... Unpacking automake (1:1.16.3-2) ... Selecting previously unselected package autopoint. Preparing to unpack .../19-autopoint_0.21-4_all.deb ... Unpacking autopoint (0.21-4) ... Selecting previously unselected package libdebhelper-perl. Preparing to unpack .../20-libdebhelper-perl_13.3.4_all.deb ... Unpacking libdebhelper-perl (13.3.4) ... Selecting previously unselected package libtool. Preparing to unpack .../21-libtool_2.4.6-15_all.deb ... Unpacking libtool (2.4.6-15) ... Selecting previously unselected package dh-autoreconf. Preparing to unpack .../22-dh-autoreconf_20_all.deb ... Unpacking dh-autoreconf (20) ... Selecting previously unselected package libarchive-zip-perl. Preparing to unpack .../23-libarchive-zip-perl_1.68-1_all.deb ... Unpacking libarchive-zip-perl (1.68-1) ... Selecting previously unselected package libsub-override-perl. Preparing to unpack .../24-libsub-override-perl_0.09-2_all.deb ... Unpacking libsub-override-perl (0.09-2) ... Selecting previously unselected package libfile-stripnondeterminism-perl. Preparing to unpack .../25-libfile-stripnondeterminism-perl_1.12.0-1_all.deb ... Unpacking libfile-stripnondeterminism-perl (1.12.0-1) ... Selecting previously unselected package dh-strip-nondeterminism. Preparing to unpack .../26-dh-strip-nondeterminism_1.12.0-1_all.deb ... Unpacking dh-strip-nondeterminism (1.12.0-1) ... Selecting previously unselected package libelf1:arm64. Preparing to unpack .../27-libelf1_0.183-1_arm64.deb ... Unpacking libelf1:arm64 (0.183-1) ... Selecting previously unselected package dwz. Preparing to unpack .../28-dwz_0.13+20210201-1_arm64.deb ... Unpacking dwz (0.13+20210201-1) ... Selecting previously unselected package libicu67:arm64. Preparing to unpack .../29-libicu67_67.1-7_arm64.deb ... Unpacking libicu67:arm64 (67.1-7) ... Selecting previously unselected package libxml2:arm64. Preparing to unpack .../30-libxml2_2.9.10+dfsg-6.7_arm64.deb ... Unpacking libxml2:arm64 (2.9.10+dfsg-6.7) ... Selecting previously unselected package gettext. Preparing to unpack .../31-gettext_0.21-4_arm64.deb ... Unpacking gettext (0.21-4) ... Selecting previously unselected package intltool-debian. Preparing to unpack .../32-intltool-debian_0.35.0+20060710.5_all.deb ... Unpacking intltool-debian (0.35.0+20060710.5) ... Selecting previously unselected package po-debconf. Preparing to unpack .../33-po-debconf_1.0.21+nmu1_all.deb ... Unpacking po-debconf (1.0.21+nmu1) ... Selecting previously unselected package debhelper. Preparing to unpack .../34-debhelper_13.3.4_all.deb ... Unpacking debhelper (13.3.4) ... Selecting previously unselected package libmd0:arm64. Preparing to unpack .../35-libmd0_1.0.3-3_arm64.deb ... Unpacking libmd0:arm64 (1.0.3-3) ... Selecting previously unselected package libbsd0:arm64. Preparing to unpack .../36-libbsd0_0.11.3-1_arm64.deb ... Unpacking libbsd0:arm64 (0.11.3-1) ... Selecting previously unselected package libncurses6:arm64. Preparing to unpack .../37-libncurses6_6.2+20201114-2_arm64.deb ... Unpacking libncurses6:arm64 (6.2+20201114-2) ... Selecting previously unselected package libncurses-dev:arm64. Preparing to unpack .../38-libncurses-dev_6.2+20201114-2_arm64.deb ... Unpacking libncurses-dev:arm64 (6.2+20201114-2) ... Selecting previously unselected package libncurses5-dev:arm64. Preparing to unpack .../39-libncurses5-dev_6.2+20201114-2_arm64.deb ... Unpacking libncurses5-dev:arm64 (6.2+20201114-2) ... Selecting previously unselected package libpthread-stubs0-dev:arm64. Preparing to unpack .../40-libpthread-stubs0-dev_0.4-1_arm64.deb ... Unpacking libpthread-stubs0-dev:arm64 (0.4-1) ... Selecting previously unselected package libreadline-dev:arm64. Preparing to unpack .../41-libreadline-dev_8.1-1_arm64.deb ... Unpacking libreadline-dev:arm64 (8.1-1) ... Selecting previously unselected package libtext-unidecode-perl. Preparing to unpack .../42-libtext-unidecode-perl_1.30-1_all.deb ... Unpacking libtext-unidecode-perl (1.30-1) ... Selecting previously unselected package libxau6:arm64. Preparing to unpack .../43-libxau6_1%3a1.0.9-1_arm64.deb ... Unpacking libxau6:arm64 (1:1.0.9-1) ... Selecting previously unselected package libxdmcp6:arm64. Preparing to unpack .../44-libxdmcp6_1%3a1.1.2-3_arm64.deb ... Unpacking libxdmcp6:arm64 (1:1.1.2-3) ... Selecting previously unselected package libxcb1:arm64. Preparing to unpack .../45-libxcb1_1.14-3_arm64.deb ... Unpacking libxcb1:arm64 (1.14-3) ... Selecting previously unselected package libx11-data. Preparing to unpack .../46-libx11-data_2%3a1.7.2-1_all.deb ... Unpacking libx11-data (2:1.7.2-1) ... Selecting previously unselected package libx11-6:arm64. Preparing to unpack .../47-libx11-6_2%3a1.7.2-1_arm64.deb ... Unpacking libx11-6:arm64 (2:1.7.2-1) ... Selecting previously unselected package xorg-sgml-doctools. Preparing to unpack .../48-xorg-sgml-doctools_1%3a1.11-1.1_all.deb ... Unpacking xorg-sgml-doctools (1:1.11-1.1) ... Selecting previously unselected package x11proto-dev. Preparing to unpack .../49-x11proto-dev_2020.1-1_all.deb ... Unpacking x11proto-dev (2020.1-1) ... Selecting previously unselected package libxau-dev:arm64. Preparing to unpack .../50-libxau-dev_1%3a1.0.9-1_arm64.deb ... Unpacking libxau-dev:arm64 (1:1.0.9-1) ... Selecting previously unselected package libxdmcp-dev:arm64. Preparing to unpack .../51-libxdmcp-dev_1%3a1.1.2-3_arm64.deb ... Unpacking libxdmcp-dev:arm64 (1:1.1.2-3) ... Selecting previously unselected package xtrans-dev. Preparing to unpack .../52-xtrans-dev_1.4.0-1_all.deb ... Unpacking xtrans-dev (1.4.0-1) ... Selecting previously unselected package libxcb1-dev:arm64. Preparing to unpack .../53-libxcb1-dev_1.14-3_arm64.deb ... Unpacking libxcb1-dev:arm64 (1.14-3) ... Selecting previously unselected package libx11-dev:arm64. Preparing to unpack .../54-libx11-dev_2%3a1.7.2-1_arm64.deb ... Unpacking libx11-dev:arm64 (2:1.7.2-1) ... Selecting previously unselected package libxml-namespacesupport-perl. Preparing to unpack .../55-libxml-namespacesupport-perl_1.12-1.1_all.deb ... Unpacking libxml-namespacesupport-perl (1.12-1.1) ... Selecting previously unselected package libxml-sax-base-perl. Preparing to unpack .../56-libxml-sax-base-perl_1.09-1.1_all.deb ... Unpacking libxml-sax-base-perl (1.09-1.1) ... Selecting previously unselected package libxml-sax-perl. Preparing to unpack .../57-libxml-sax-perl_1.02+dfsg-1_all.deb ... Unpacking libxml-sax-perl (1.02+dfsg-1) ... Selecting previously unselected package libxml-libxml-perl. Preparing to unpack .../58-libxml-libxml-perl_2.0134+dfsg-2+b1_arm64.deb ... Unpacking libxml-libxml-perl (2.0134+dfsg-2+b1) ... Selecting previously unselected package slib. Preparing to unpack .../59-slib_3b6-3_all.deb ... Unpacking slib (3b6-3) ... Selecting previously unselected package texinfo. Preparing to unpack .../60-texinfo_6.7.0.dfsg.2-6_arm64.deb ... Unpacking texinfo (6.7.0.dfsg.2-6) ... Setting up libpipeline1:arm64 (1.5.3-1) ... Setting up libxau6:arm64 (1:1.0.9-1) ... Setting up bsdextrautils (2.36.1-8) ... update-alternatives: using /usr/bin/write.ul to provide /usr/bin/write (write) in auto mode Setting up libicu67:arm64 (67.1-7) ... Setting up libmagic-mgc (1:5.39-3) ... Setting up libarchive-zip-perl (1.68-1) ... Setting up libdebhelper-perl (13.3.4) ... Setting up libmagic1:arm64 (1:5.39-3) ... Setting up libxml-namespacesupport-perl (1.12-1.1) ... Setting up gettext-base (0.21-4) ... Setting up file (1:5.39-3) ... Setting up libpthread-stubs0-dev:arm64 (0.4-1) ... Setting up libxml-sax-base-perl (1.09-1.1) ... Setting up xtrans-dev (1.4.0-1) ... Setting up autotools-dev (20180224.1+nmu1) ... Setting up libx11-data (2:1.7.2-1) ... Setting up libncurses6:arm64 (6.2+20201114-2) ... Setting up libsigsegv2:arm64 (2.13-1) ... Setting up autopoint (0.21-4) ... Setting up libmd0:arm64 (1.0.3-3) ... Setting up sensible-utils (0.0.14) ... Setting up libuchardet0:arm64 (0.0.7-1) ... Setting up libsub-override-perl (0.09-2) ... Setting up xorg-sgml-doctools (1:1.11-1.1) ... Setting up libtext-unidecode-perl (1.30-1) ... Setting up libbsd0:arm64 (0.11.3-1) ... Setting up libelf1:arm64 (0.183-1) ... Setting up readline-common (8.1-1) ... Setting up libxml2:arm64 (2.9.10+dfsg-6.7) ... Setting up x11proto-dev (2020.1-1) ... Setting up libfile-stripnondeterminism-perl (1.12.0-1) ... Setting up libxdmcp6:arm64 (1:1.1.2-3) ... Setting up libncurses-dev:arm64 (6.2+20201114-2) ... Setting up libxcb1:arm64 (1.14-3) ... Setting up gettext (0.21-4) ... Setting up libxau-dev:arm64 (1:1.0.9-1) ... Setting up libtool (2.4.6-15) ... Setting up libreadline8:arm64 (8.1-1) ... Setting up m4 (1.4.18-5) ... Setting up libreadline-dev:arm64 (8.1-1) ... Setting up intltool-debian (0.35.0+20060710.5) ... Setting up slib (3b6-3) ... Setting up libxdmcp-dev:arm64 (1:1.1.2-3) ... Setting up ucf (3.0043) ... Setting up autoconf (2.69-14) ... Setting up dh-strip-nondeterminism (1.12.0-1) ... Setting up dwz (0.13+20210201-1) ... Setting up groff-base (1.22.4-6) ... Setting up libncurses5-dev:arm64 (6.2+20201114-2) ... Setting up libx11-6:arm64 (2:1.7.2-1) ... Setting up automake (1:1.16.3-2) ... update-alternatives: using /usr/bin/automake-1.16 to provide /usr/bin/automake (automake) in auto mode Setting up libxcb1-dev:arm64 (1.14-3) ... Setting up po-debconf (1.0.21+nmu1) ... Setting up libx11-dev:arm64 (2:1.7.2-1) ... Setting up man-db (2.9.4-2) ... Not building database; man-db/auto-update is not 'true'. Setting up libxml-sax-perl (1.02+dfsg-1) ... update-perl-sax-parsers: Registering Perl SAX parser XML::SAX::PurePerl with priority 10... update-perl-sax-parsers: Updating overall Perl SAX parser modules info file... Creating config file /etc/perl/XML/SAX/ParserDetails.ini with new version Setting up dh-autoreconf (20) ... Setting up tex-common (6.16) ... update-language: texlive-base not installed and configured, doing nothing! Setting up libxml-libxml-perl (2.0134+dfsg-2+b1) ... update-perl-sax-parsers: Registering Perl SAX parser XML::LibXML::SAX::Parser with priority 50... update-perl-sax-parsers: Registering Perl SAX parser XML::LibXML::SAX with priority 50... update-perl-sax-parsers: Updating overall Perl SAX parser modules info file... Replacing config file /etc/perl/XML/SAX/ParserDetails.ini with new version Setting up debhelper (13.3.4) ... Setting up texinfo (6.7.0.dfsg.2-6) ... Processing triggers for libc-bin (2.31-13) ... Reading package lists... Building dependency tree... Reading state information... Reading extended state information... Initializing package states... Writing extended state information... Building tag database... -> Finished parsing the build-deps Reading package lists... Building dependency tree... Reading state information... fakeroot is already the newest version (1.25.3-1.1). 0 upgraded, 0 newly installed, 0 to remove and 0 not upgraded. I: Building the package hostname: Temporary failure in name resolution I: Running cd /build/scm-5f2/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-genchanges -S > ../scm_5f2-2_source.changes dpkg-buildpackage: info: source package scm dpkg-buildpackage: info: source version 5f2-2 dpkg-buildpackage: info: source distribution unstable dpkg-buildpackage: info: source changed by Bryan Newbold dpkg-source --before-build . dpkg-buildpackage: info: host architecture arm64 fakeroot debian/rules clean dh clean dh: warning: Compatibility levels before 10 are deprecated (level 9 in use) debian/rules override_dh_testdir make[1]: Entering directory '/build/scm-5f2' dh_testdir test -e /usr/share/slib || \ (echo "Must have slib installed for compile" && exit 1) make[1]: Leaving directory '/build/scm-5f2' dh_auto_clean dh_auto_clean: warning: Compatibility levels before 10 are deprecated (level 9 in use) make -j1 distclean make[1]: Entering directory '/build/scm-5f2' rm -f core a.out ramap.o ramap.obj scm.o time.o repl.o scl.o sys.o eval.o subr.o unif.o rope.o continue.o findexec.o script.o debug.o scmmain.o lints rm -rf *temp rm -f *.o *.obj a.out TAGS implcat slibcat gdbscm make[1]: Leaving directory '/build/scm-5f2' dh_clean dh_clean: warning: Compatibility levels before 10 are deprecated (level 9 in use) debian/rules build make: 'build' is up to date. fakeroot debian/rules binary dh binary dh: warning: Compatibility levels before 10 are deprecated (level 9 in use) debian/rules override_dh_testdir make[1]: Entering directory '/build/scm-5f2' dh_testdir test -e /usr/share/slib || \ (echo "Must have slib installed for compile" && exit 1) make[1]: Leaving directory '/build/scm-5f2' dh_update_autotools_config debian/rules override_dh_auto_configure make[1]: Entering directory '/build/scm-5f2' ./configure #! /bin/cat # Generated by configure for scm 5f2. # This file (config.status) is included by the (scm) Makefile. PACKAGE_NAME=scm PACKAGE_TARNAME=scm PACKAGE_VERSION=5f2 PACKAGE_STRING=scm 5f2 PACKAGE_BUGREPORT=scm-discuss@gnu.org srcdir=/build/scm-5f2/ prefix=/usr/local/ exec_prefix=${prefix} bindir=${exec_prefix}bin/ sbindir=${exec_prefix}sbin/ libexecdir=${exec_prefix}libexec/ datarootdir=${prefix}share/ datadir=${datarootdir} sysconfdir=${prefix}etc/ sharedstatedir=${prefix}com/ localstatedir=${prefix}var/ includedir=${prefix}include/ oldincludedir=/usr/include/ docdir=${datarootdir}doc/${PACKAGE_TARNAME}/ infodir=${datarootdir}info/ htmldir=${docdir} dvidir=${docdir} pdfdir=${docdir} psdir=${docdir} libdir=${exec_prefix}lib/ localedir=${datarootdir}locale/ mandir=${datarootdir}man/ distdir=${srcdir} snapdir=${srcdir} cp debian/require.scm.debian require.scm cp debian/scm.opt.debian libscm.opt make[1]: Leaving directory '/build/scm-5f2' debian/rules override_dh_auto_build make[1]: Entering directory '/build/scm-5f2' make scmlit make[2]: Entering directory '/build/scm-5f2' echo "#ifndef IMPLINIT" > newflags.h echo "#define IMPLINIT \"/build/scm-5f2/Init5f2.scm\"" >> newflags.h echo "#endif" >> newflags.h echo "#define CHEAP_CONTINUATIONS" >> newflags.h echo "#define CAUTIOUS" >> newflags.h if (cmp -s newflags.h scmflags.h) then rm newflags.h; \ else mv newflags.h scmflags.h; fi cc -c -g -O2 -fdebug-prefix-map=/build/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security scm.c -o scm.o scm.c: In function 'process_signals': scm.c:176:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 176 | wta(UNDEFINED, (char *)i, ""); | ^ scm.c: In function 'scmable_signal': scm.c:290:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 290 | wta(UNDEFINED, (char *)i, ""); | ^ cc -c -g -O2 -fdebug-prefix-map=/build/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security time.c -o time.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security repl.c -o repl.o repl.c: In function 'handle_it': repl.c:1270:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 1270 | wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */ | ^ repl.c: In function 'def_err_response': repl.c:2077:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2077 | lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp); | ^ repl.c:2080:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2080 | else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp); | ^ repl.c: In function 'everr': repl.c:2133:11: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 2133 | err_pos = pos; | ^ repl.c:2134:14: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 2134 | err_s_subr = s_subr; | ^ In file included from repl.c:21: repl.c:2139:24: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2139 | COOKIE(1) : COOKIE((int)pos)); | ^ scm.h:260:21: note: in definition of macro 'COOKIE' 260 | # define COOKIE(n) (n) | ^ cc -c -g -O2 -fdebug-prefix-map=/build/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security scl.c -o scl.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security sys.c -o sys.o In file included from scm.h:55, from sys.c:21: sys.c: In function 'mark_locations': scmfig.h:407:22: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 407 | # define PTR2INT(x) ((int)(x)) | ^ scm.h:276:39: note: in expansion of macro 'PTR2INT' 276 | #define NCELLP(x) ((sizeof(cell)-1) & PTR2INT(x)) | ^~~~~~~ scm.h:275:20: note: in expansion of macro 'NCELLP' 275 | #define CELLP(x) (!NCELLP(x)) | ^~~~~~ sys.c:2630:22: note: in expansion of macro 'CELLP' 2630 | while(0 <= --m) if (CELLP(*(SCM **)&x[m])) { | ^~~~~ cc -c -g -O2 -fdebug-prefix-map=/build/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security eval.c -o eval.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security subr.c -o subr.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security unif.c -o unif.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security rope.c -o rope.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security continue.c -o continue.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security findexec.c -o findexec.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security script.c -o script.o script.c: In function 'script_find_executable': script.c:127:5: warning: case label value is less than minimum value for type [-Wswitch-outside-range] 127 | case EOF: | ^~~~ script.c: In function 'find_impl_file': script.c:149:18: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 149 | char *extptr = exec_path + strlen(exec_path); | ^~~~~~~~~ script.c:165:10: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 165 | extptr = exec_path + strlen(exec_path); | ^ script.c: In function 'script_read_arg': script.c:304:5: warning: case label value is less than minimum value for type [-Wswitch-outside-range] 304 | case EOF: goto endarg; | ^~~~ script.c: In function 'script_process_argv': script.c:362:12: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 362 | nargv[0] = argv[0]; | ^ script.c:377:22: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 377 | nargv[nargi++] = argv[argi++]; | ^ script.c:380:39: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 380 | while (argi <= argc) nargv[nargi++] = argv[argi++]; | ^ In function 'scm_cat_path', inlined from 'script_find_executable' at script.c:131:14: script.c:64:3: warning: 'strncat' specified bound depends on the length of the source argument [-Wstringop-overflow=] 64 | strncat(str1, str2, n); | ^~~~~~~~~~~~~~~~~~~~~~ script.c: In function 'script_find_executable': script.c:52:15: note: length computed here 52 | if (!n) n = strlen(str2); | ^~~~~~~~~~~~ In function 'scm_cat_path', inlined from 'script_find_executable' at script.c:135:10: script.c:64:3: warning: 'strncat' specified bound depends on the length of the source argument [-Wstringop-overflow=] 64 | strncat(str1, str2, n); | ^~~~~~~~~~~~~~~~~~~~~~ script.c: In function 'script_find_executable': script.c:52:15: note: length computed here 52 | if (!n) n = strlen(str2); | ^~~~~~~~~~~~ In function 'scm_cat_path', inlined from 'find_impl_file' at script.c:274:12: script.c:64:3: warning: 'strncat' specified bound depends on the length of the source argument [-Wstringop-overflow=] 64 | strncat(str1, str2, n); | ^~~~~~~~~~~~~~~~~~~~~~ script.c: In function 'find_impl_file': script.c:52:15: note: length computed here 52 | if (!n) n = strlen(str2); | ^~~~~~~~~~~~ cc -c -g -O2 -fdebug-prefix-map=/build/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security debug.c -o debug.o cc -c -g -O2 -fdebug-prefix-map=/build/scm-5f2=. -fstack-protector-strong -Wformat -Werror=format-security scmmain.c -o scmmain.o scmmain.c: In function 'main': scmmain.c:109:32: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 109 | if (0==argc) {argc = 1; argv = generic_name;} /* for macintosh */ | ^ scmmain.c:119:16: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 119 | script_arg = argv[2]; /* Save for scm_find_execpath() call */ | ^ scmmain.c:120:31: warning: passing argument 1 of 'script_count_argv' from incompatible pointer type [-Wincompatible-pointer-types] 120 | nargc = script_count_argv(nargv); | ^~~~~ | | | char ** In file included from scmmain.c:30: scm.h:1080:51: note: expected 'const char **' but argument is of type 'char **' 1080 | SCM_EXPORT int script_count_argv P((const char **argv)); | ~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ scmmain.c:122:15: warning: assignment to 'char **' from incompatible pointer type 'const char **' [-Wincompatible-pointer-types] 122 | else {nargv = argv; nargc = argc;} | ^ scmmain.c:124:39: warning: passing argument 2 of 'scm_find_execpath' from incompatible pointer type [-Wincompatible-pointer-types] 124 | execpath = scm_find_execpath(nargc, nargv, script_arg); | ^~~~~ | | | char ** In file included from scmmain.c:30: scm.h:775:69: note: expected 'const char * const*' but argument is of type 'char **' 775 | SCM_EXPORT char *scm_find_execpath P((int argc, const char * const *argv, const char *script_arg)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ scmmain.c:131:31: warning: passing argument 2 of 'scm_init_from_argv' from incompatible pointer type [-Wincompatible-pointer-types] 131 | scm_init_from_argv(nargc, nargv, script_arg, iverbose, buf0stdin); | ^~~~~ | | | char ** In file included from scmmain.c:30: scm.h:768:69: note: expected 'const char * const*' but argument is of type 'char **' 768 | SCM_EXPORT void scm_init_from_argv P((int argc, const char * const *argv, char *script_arg, | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ cc -o scmlit scm.o time.o repl.o scl.o sys.o eval.o subr.o unif.o rope.o continue.o findexec.o script.o debug.o scmmain.o /usr/bin/ld: sys.o: in function `ltmpnam': ./sys.c:267: warning: the use of `tmpnam' is dangerous, better use `mkstemp' make checklit make[3]: Entering directory '/build/scm-5f2' ./scmlit -fr4rstest.scm -e'(test-sc4)(test-delay)(gc)' \ -e '(or (null? errs) (quit 1))' < /dev/null SECTION(2 1) SECTION(3 4) # # # # # # # # # (#t #f #f #f #f #f #f #f #f)#t (#t #f #f #f #f #f #f #f #f)#f (#f #t #f #f #f #f #f #f #f)#\a (#f #f #t #f #f #f #f #f #f)() (#f #f #f #t #f #f #f #f #f)9739 (#f #f #f #f #t #f #f #f #f)(test) (#f #f #f #f #f #t #f #f #f)# (#f #f #f #f #f #f #t #f #f)"test" (#f #f #f #f #f #f #t #f #f)"" (#f #f #f #f #f #f #f #t #f)test (#f #f #f #f #f #f #f #f #t)#() (#f #f #f #f #f #f #f #f #t)#(a b c) SECTION(4 1 2) (quote (quote a)) ==> (quote a) (quote (quote a)) ==> (quote a) SECTION(4 1 3) (# 3 4) ==> 12 SECTION(4 1 4) (# "r4rstest.scm": (x) (+ x x)> 4) ==> 8 (# 7 10) ==> 3 (# "r4rstest.scm": (y) (+ x y)> 6) ==> 10 (# "r4rstest.scm": x x> 3 4 5 6) ==> (3 4 5 6) (# "r4rstest.scm": (x y . z) z> 3 4 5 6) ==> (5 6) SECTION(4 1 5) (if yes) ==> yes (if no) ==> no (if 1) ==> 1 SECTION(4 1 6) (define 3) ==> 3 (set! 5) ==> 5 SECTION(4 2 1) (cond greater) ==> greater (cond equal) ==> equal (cond 2) ==> 2 (case composite) ==> composite (case consonant) ==> consonant (and #t) ==> #t (and #f) ==> #f (and (f g)) ==> (f g) (and #t) ==> #t (or #t) ==> #t (or #t) ==> #t (or #f) ==> #f (or #f) ==> #f (or (b c)) ==> (b c) SECTION(4 2 2) (let 6) ==> 6 (let 35) ==> 35 (let* 70) ==> 70 (letrec #t) ==> #t (let 5) ==> 5 (let 34) ==> 34 (let 6) ==> 6 (let 34) ==> 34 (let 34) ==> 34 (let* 7) ==> 7 (let* 34) ==> 34 (let* 8) ==> 8 (let* 34) ==> 34 (letrec 9) ==> 9 (letrec 34) ==> 34 (letrec 10) ==> 10 (letrec 34) ==> 34 SECTION(4 2 3) (begin 6) ==> 6 SECTION(4 2 4) (do #(0 1 2 3 4)) ==> #(0 1 2 3 4) (do 25) ==> 25 (do 25) ==> 25 (let 1) ==> 1 (let ((6 1 3) (-5 -2))) ==> ((6 1 3) (-5 -2)) (let -1) ==> -1 SECTION(4 2 6) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (list a (quote a))) ==> (list a (quote a)) (quasiquote (a 3 4 5 6 b)) ==> (a 3 4 5 6 b) (quasiquote ((foo 7) . cons)) ==> ((foo 7) . cons) (quasiquote #(10 5 2 4 3 8)) ==> #(10 5 2 4 3 8) (quasiquote 5) ==> 5 (quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)) ==> (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f) (quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)) ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (quasiquote (list (unquote (+ 1 2)) 4))) ==> (quasiquote (list (unquote (+ 1 2)) 4)) SECTION(5 2 1) (tprint #t) ==> #t (define 6) ==> 6 (define 1) ==> 1 (define 9) ==> 9 (define 9) ==> 9 (define 10) ==> 10 (# 6) ==> (3 6) (# 6) ==> 9 SECTION(5 2 2) (define 45) ==> 45 (#) ==> 5 (define 34) ==> 34 (#) ==> 5 (define 34) ==> 34 (# 88) ==> 88 (# 4) ==> 4 (define 34) ==> 34 (internal-define 99) ==> 99 (internal-define 77) ==> 77 SECTION(6 1) (# #t) ==> #f (# 3) ==> #f (# (3)) ==> #f (# #f) ==> #t (# ()) ==> #f (# ()) ==> #f (# nil) ==> #f SECTION(6 2) (# a a) ==> #t (# a b) ==> #f (# 2 2) ==> #t (# () ()) ==> #t (# 10000 10000) ==> #t (# (1 . 2) (1 . 2)) ==> #f (# # "r4rstest.scm": () 1> # "r4rstest.scm": () 2>) ==> #f (# #f nil) ==> #f (# # #) ==> #t (# # "r4rstest.scm": () (set! n (+ n 1)) n> # "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #t (# # "r4rstest.scm": () (set! n (+ n 1)) n> # "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #f (# # #) ==> #f (# a a) ==> #t (# (a) (a)) ==> #f (# () ()) ==> #t (# # #) ==> #t (# (a) (a)) ==> #t (# #() #()) ==> #t (# # #) ==> #t (# a a) ==> #t (# (a) (a)) ==> #t (# (a (b) c) (a (b) c)) ==> #t (# "abc" "abc") ==> #t (# 2 2) ==> #t (# #(a a a a a) #(a a a a a)) ==> #t SECTION(6 3) (dot (a b c d e)) ==> (a b c d e) (# (a b c)) ==> #t (set-cdr! (a . 4)) ==> (a . 4) (# (a . 4) (a . 4)) ==> #t (dot (a b c . d)) ==> (a b c . d) (# (a . 4)) ==> #f (list? #f) ==> #f (# a ()) ==> (a) (# (a) (b c d)) ==> ((a) b c d) (# "a" (b c)) ==> ("a" b c) (# a 3) ==> (a . 3) (# (a b) c) ==> ((a b) . c) (# (a b c)) ==> a (# ((a) b c d)) ==> (a) (# (1 . 2)) ==> 1 (# ((a) b c d)) ==> (b c d) (# (1 . 2)) ==> 2 (# a 7 c) ==> (a 7 c) (#) ==> () (# (a b c)) ==> 3 (# (a (b) (c d e))) ==> 3 (# ()) ==> 0 (# (x) (y)) ==> (x y) (# (a) (b c d)) ==> (a b c d) (# (a (b)) ((c))) ==> (a (b) (c)) (#) ==> () (# (a b) (c . d)) ==> (a b c . d) (# () a) ==> a (# (a b c)) ==> (c b a) (# (a (b c) d (e (f)))) ==> ((e (f)) d (b c) a) (# (a b c d) 2) ==> c (# a (a b c)) ==> (a b c) (# b (a b c)) ==> (b c) (# a (b c d)) ==> #f (# (a) (b (a) c)) ==> #f (# (a) (b (a) c)) ==> ((a) c) (# 101 (100 101 102)) ==> (101 102) (# a ((a 1) (b 2) (c 3))) ==> (a 1) (# b ((a 1) (b 2) (c 3))) ==> (b 2) (# d ((a 1) (b 2) (c 3))) ==> #f (# (a) (((a)) ((b)) ((c)))) ==> #f (# (a) (((a)) ((b)) ((c)))) ==> ((a)) (# 5 ((2 3) (5 7) (11 13))) ==> (5 7) SECTION(6 4) (# a) ==> #t (standard-case #t) ==> #t (standard-case #t) ==> #t (#string> flying-fish) ==> "flying-fish" (#string> martin) ==> "martin" (#string> \Malvina) ==> "Malvina" (standard-case #t) ==> #t (string-set! "cb") ==> "cb" (#string> ab) ==> "ab" (#symbol> "ab") ==> ab (# mississippi mississippi) ==> #t (string->symbol #f) ==> #f (#symbol> "jollywog") ==> jollywog SECTION(6 5 5) (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #f (# 0 0) ==> 1 (# 0 1) ==> 0 (# 0 256) ==> 0 (# -1 256) ==> 1 (# -1 255) ==> -1 (# -1 -256) ==> 1 (# -1 -255) ==> -1 (# 256 0) ==> 1 (# -256 0) ==> 1 (# 256 1) ==> 256 (# -256 1) ==> -256 (# 2 3) ==> 8 (# -2 3) ==> -8 (# 3 2) ==> 9 (# -3 2) ==> 9 (# 22 22 22) ==> #t (# 22 22) ==> #t (# 34 34 35) ==> #f (# 34 35) ==> #f (#> 3 -6246) ==> #t (#> 9 9 -2424) ==> #f (#=> 3 -4 -6246) ==> #t (#=> 9 9) ==> #t (#=> 8 9) ==> #f (# -1 2 3 4 5 6 7 8) ==> #t (# -1 2 3 4 4 5 6 7) ==> #f (# -1 2 3 4 5 6 7 8) ==> #t (# -1 2 3 4 4 5 6 7) ==> #t (# 1 3 2) ==> #f (#=> 1 3 2) ==> #f (# 0) ==> #t (# 1) ==> #f (# -1) ==> #f (# -100) ==> #f (# 4) ==> #t (# -4) ==> #f (# 0) ==> #f (# 4) ==> #f (# -4) ==> #t (# 0) ==> #f (# 3) ==> #t (# 2) ==> #f (# -4) ==> #f (# -1) ==> #t (# 3) ==> #f (# 2) ==> #t (# -4) ==> #t (# -1) ==> #f (# 34 5 7 38 6) ==> 38 (# 3 5 5 330 4 -24) ==> -24 (# 3 4) ==> 7 (# 3) ==> 3 (#) ==> 0 (# 4) ==> 4 (#) ==> 1 (# 1) ==> 1 (# -1) ==> -1 (# 6 3) ==> 2 (# 6 -2) ==> -3 (# -6 2) ==> -3 (# -6 -2) ==> 3 (# 3 4) ==> -1 (# 3) ==> -3 (# -7) ==> 7 (# 7) ==> 7 (# 0) ==> 0 (# 35 7) ==> 5 (# -35 7) ==> -5 (# 35 -7) ==> -5 (# -35 -7) ==> 5 (# 13 4) ==> 1 (# 13 4) ==> 1 (# -13 4) ==> 3 (# -13 4) ==> -1 (# 13 -4) ==> -3 (# 13 -4) ==> 1 (# -13 -4) ==> -1 (# -13 -4) ==> -1 (# 0 86400) ==> 0 (# 0 -86400) ==> 0 (# 238 9) ==> #t (# -238 9) ==> #t (# 238 -9) ==> #t (# -238 -9) ==> #t (# 0 4) ==> 4 (# -4 0) ==> 4 (# 32 -36) ==> 4 (#) ==> 0 (# 32 -36) ==> 288 (#) ==> 1 SECTION(6 5 5) (#number "r4rstest.scm": (str) (#@define ((ans (string->number str))) (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0-0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#e") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i0/0") ==> #t SECTION(6 5 9) (#string> 0) ==> "0" (#string> 100) ==> "100" (#string> 256 16) ==> "100" (#number> "100") ==> 100 (#number> "100" 16) ==> 256 (#number> "") ==> #f (#number> ".") ==> #f (#number> "d") ==> #f (#number> "D") ==> #f (#number> "i") ==> #f (#number> "I") ==> #f (#number> "3i") ==> #f (#number> "3I") ==> #f (#number> "33i") ==> #f (#number> "33I") ==> #f (#number> "3.3i") ==> #f (#number> "3.3I") ==> #f (#number> "-") ==> #f (#number> "+") ==> #f (string->number #t) ==> #t (string->number #t) ==> #t SECTION(6 6) (# #\space #\space) ==> #t (# #\space #\space) ==> #t (# #\a) ==> #t (# #\() ==> #t (# #\space) ==> #t (# #\nl) ==> #t (# #\A #\B) ==> #f (# #\a #\b) ==> #f (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\B) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #f (#?> #\A #\B) ==> #f (#?> #\a #\b) ==> #f (#?> #\9 #\0) ==> #t (#?> #\A #\A) ==> #f (# #\A #\B) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (#=?> #\A #\B) ==> #f (#=?> #\a #\b) ==> #f (#=?> #\9 #\0) ==> #t (#=?> #\A #\A) ==> #t (# #\A #\B) ==> #f (# #\a #\B) ==> #f (# #\A #\b) ==> #f (# #\a #\b) ==> #f (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\a) ==> #t (# #\A #\B) ==> #t (# #\a #\B) ==> #t (# #\A #\b) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #f (# #\A #\a) ==> #f (#?> #\A #\B) ==> #f (#?> #\a #\B) ==> #f (#?> #\A #\b) ==> #f (#?> #\a #\b) ==> #f (#?> #\9 #\0) ==> #t (#?> #\A #\A) ==> #f (#?> #\A #\a) ==> #f (# #\A #\B) ==> #t (# #\a #\B) ==> #t (# #\A #\b) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\a) ==> #t (#=?> #\A #\B) ==> #f (#=?> #\a #\B) ==> #f (#=?> #\A #\b) ==> #f (#=?> #\a #\b) ==> #f (#=?> #\9 #\0) ==> #t (#=?> #\A #\A) ==> #t (#=?> #\A #\a) ==> #t (# #\a) ==> #t (# #\A) ==> #t (# #\z) ==> #t (# #\Z) ==> #t (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (# #\a) ==> #f (# #\A) ==> #f (# #\z) ==> #f (# #\Z) ==> #f (# #\0) ==> #t (# #\9) ==> #t (# #\space) ==> #f (# #\;) ==> #f (# #\a) ==> #f (# #\A) ==> #f (# #\z) ==> #f (# #\Z) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #t (# #\;) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (#char> 46) ==> #\. (#char> 65) ==> #\A (#char> 97) ==> #\a (# #\A) ==> #\A (# #\a) ==> #\A (# #\A) ==> #\a (# #\a) ==> #\a SECTION(6 7) (# "The word \"recursion\\\" has many meanings.") ==> #t (string-set! "?**") ==> "?**" (# #\a #\b #\c) ==> "abc" (#) ==> "" (# "abc") ==> 3 (# "abc" 0) ==> #\a (# "abc" 2) ==> #\c (# "") ==> 0 (# "ab" 0 0) ==> "" (# "ab" 1 1) ==> "" (# "ab" 2 2) ==> "" (# "ab" 0 1) ==> "a" (# "ab" 1 2) ==> "b" (# "ab" 0 2) ==> "ab" (# "foo" "bar") ==> "foobar" (# "foo") ==> "foo" (# "foo" "") ==> "foo" (# "" "foo") ==> "foo" (#) ==> "" (# 0) ==> "" (# "" "") ==> #t (# "" "") ==> #f (#?> "" "") ==> #f (# "" "") ==> #t (#=?> "" "") ==> #t (# "" "") ==> #t (# "" "") ==> #f (#?> "" "") ==> #f (# "" "") ==> #t (#=?> "" "") ==> #t (# "A" "B") ==> #f (# "a" "b") ==> #f (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "B") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #f (#?> "A" "B") ==> #f (#?> "a" "b") ==> #f (#?> "9" "0") ==> #t (#?> "A" "A") ==> #f (# "A" "B") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #t (#=?> "A" "B") ==> #f (#=?> "a" "b") ==> #f (#=?> "9" "0") ==> #t (#=?> "A" "A") ==> #t (# "A" "B") ==> #f (# "a" "B") ==> #f (# "A" "b") ==> #f (# "a" "b") ==> #f (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "a") ==> #t (# "A" "B") ==> #t (# "a" "B") ==> #t (# "A" "b") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #f (# "A" "a") ==> #f (#?> "A" "B") ==> #f (#?> "a" "B") ==> #f (#?> "A" "b") ==> #f (#?> "a" "b") ==> #f (#?> "9" "0") ==> #t (#?> "A" "A") ==> #f (#?> "A" "a") ==> #f (# "A" "B") ==> #t (# "a" "B") ==> #t (# "A" "b") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "a") ==> #t (#=?> "A" "B") ==> #f (#=?> "a" "B") ==> #f (#=?> "A" "b") ==> #f (#=?> "a" "b") ==> #f (#=?> "9" "0") ==> #t (#=?> "A" "A") ==> #t (#=?> "A" "a") ==> #t SECTION(6 8) (# #(0 (2 2 2 2) "Anna")) ==> #t (# a b c) ==> #(a b c) (#) ==> #() (# #(0 (2 2 2 2) "Anna")) ==> 3 (# #()) ==> 0 (# #(1 1 2 3 5 8 13 21) 5) ==> 8 (vector-set #(0 ("Sue" "Sue") "Anna")) ==> #(0 ("Sue" "Sue") "Anna") (# 2 hi) ==> #(hi hi) (# 0) ==> #() (# 0 a) ==> #() SECTION(6 9) (# #) ==> #t (# car) ==> #f (# # "r4rstest.scm": (x) (* x x)>) ==> #t (# (lambda (x) (* x x))) ==> #f (# #) ==> #t (# #) ==> #t (# # (3 4)) ==> 7 (# # "r4rstest.scm": (a b) (+ a b)> (3 4)) ==> 7 (# # 10 (3 4)) ==> 17 (# # ()) ==> () (# "r4rstest.scm": args (f (apply g args))> 12 75) ==> 30 (# # ((a b) (d e) (g h))) ==> (b e h) (# # (1 2 3) (4 5 6)) ==> (5 7 9) (# # (1 2 3)) ==> (1 2 3) (# # (1 2 3)) ==> (1 2 3) (# # (1 2 3)) ==> (-1 -2 -3) (for-each #(0 1 4 9 16)) ==> #(0 1 4 9 16) (# # "r4rstest.scm": (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t>) ==> -3 (# (1 2 3 4)) ==> 4 (# (a b . c)) ==> #f (# # ()) ==> () SECTION(6 10 1) (# #) ==> #t (# #) ==> #t (# "r4rstest.scm" #) ==> #t (# #) ==> #t SECTION(6 10 2) (# #) ==> #\; (# #) ==> #\; (# #) ==> (define cur-section (quote ())) (# #) ==> #\( (# #) ==> (define errs (quote ())) SECTION(6 10 3) (# "tmp1" # "r4rstest.scm": (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file)>) ==> #t (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) Passed all tests To fully test continuations, Scheme 4, and DELAY/FORCE do: (test-cont) (test-sc4) (test-delay) ;testing scheme 4 functions; SECTION(6 7) (#list> "P l") ==> (#\P #\space #\l) (#list> "") ==> () (#string> (#\1 #\\ #\")) ==> "1\\\"" (#string> ()) ==> "" SECTION(6 8) (#list> #(dah dah didah)) ==> (dah dah didah) (#list> #()) ==> () (#vector> (dididit dah)) ==> #(dididit dah) (#vector> ()) ==> #() SECTION(6 10 4) (load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) Passed all tests ;testing DELAY and FORCE; SECTION(6 9) (delay 3) ==> 3 (delay (3 3)) ==> (3 3) (delay 2) ==> 2 (# # count x) count (force p)))>>) ==> 6 (# #) ==> 6 (force 3) ==> 3 Passed all tests make[3]: Leaving directory '/build/scm-5f2' make[2]: Leaving directory '/build/scm-5f2' # Use the same options for both static library and executable ./build -p linux -hsystem -f libscm.opt ; Scheme (linux) script created by SLIB/batch ; [-p linux] ; used options from: libscm.opt ; ================ Write file with C defines (delete-file "scmflags.h") (call-with-output-file "scmflags.h" (lambda (fp) (for-each (lambda (string) (write-line string fp)) '("#define IMPLINIT \"Init5f2.scm\"" "#define INITS init_sc2();init_ioext();" "#define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ();" "#define CAUTIOUS" "#define BIGNUMS" "#define ARRAYS" "#define FLOATS" "#define CCLO" "#define TICKS" "#define CAN_DUMP" "#define MACRO")))) ; ================ Compile C source files (system "gcc -c -I/usr/include/X11 -DX11 -DSUN_DL sc2.c ramap.c record.c gsubr.c ioext.c edline.c rgx.c socket.c posix.c unix.c crs.c dynl.c x.c differ.c continue.c scm.c scmmain.c findexec.c script.c time.c repl.c scl.c eval.c sys.c subr.c debug.c unif.c rope.c unexelf.c gmalloc.c") socket.c: In function 'l_hostinfo': socket.c:147:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 147 | ve[ 1] = makfromstrs(-1, entry->h_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** In file included from socket.c:24: scm.h:1037:62: note: expected 'const char * const*' but argument is of type 'char **' 1037 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ socket.c:152:13: warning: assignment to 'const char **' from incompatible pointer type 'char **' [-Wincompatible-pointer-types] 152 | for (argv = entry->h_addr_list; argv[i]; i++); | ^ socket.c: In function 'l_netinfo': socket.c:184:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 184 | ve[ 1] = makfromstrs(-1, entry->n_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** In file included from socket.c:24: scm.h:1037:62: note: expected 'const char * const*' but argument is of type 'char **' 1037 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ socket.c: In function 'l_protoinfo': socket.c:214:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 214 | ve[ 1] = makfromstrs(-1, entry->p_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** In file included from socket.c:24: scm.h:1037:62: note: expected 'const char * const*' but argument is of type 'char **' 1037 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ socket.c: In function 'l_servinfo': socket.c:247:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 247 | ve[ 1] = makfromstrs(-1, entry->s_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** In file included from socket.c:24: scm.h:1037:62: note: expected 'const char * const*' but argument is of type 'char **' 1037 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ posix.c: In function 'l_grinfo': posix.c:194:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 194 | ve[ 3] = makfromstrs(-1, entry->gr_mem); | ~~~~~^~~~~~~~ | | | char ** In file included from posix.c:21: scm.h:1037:62: note: expected 'const char * const*' but argument is of type 'char **' 1037 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ crs.c:72:3: warning: initialization of 'int (*)(FILE *)' from incompatible pointer type 'int (*)(WINDOW *)' {aka 'int (*)(struct _win_st *)'} [-Wincompatible-pointer-types] 72 | wrefresh, | ^~~~~~~~ crs.c:72:3: note: (near initialization for 'winptob.fflush') crs.c:73:3: warning: initialization of 'int (*)(FILE *)' from incompatible pointer type 'int (*)(WINDOW *)' {aka 'int (*)(struct _win_st *)'} [-Wincompatible-pointer-types] 73 | wgetch, | ^~~~~~ crs.c:73:3: note: (near initialization for 'winptob.fgetc') crs.c: In function 'lunctrl': crs.c:241:17: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 241 | char *str = unctrl(ICHR(c)); | ^~~~~~ crs.c: In function 'init_crs': crs.c:390:13: warning: passing argument 1 of 'add_final' from incompatible pointer type [-Wincompatible-pointer-types] 390 | add_final(lendwin); | ^~~~~~~ | | | SCM (*)() {aka long int (*)()} In file included from crs.c:21: scm.h:1001:37: note: expected 'void (*)(void)' but argument is of type 'SCM (*)()' {aka 'long int (*)()'} 1001 | SCM_EXPORT void add_final P((void (*final)(void))); | ~~~~~~~^~~~~~~~~~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ x.c: In function 'make_xcolormap': x.c:337:51: warning: passing argument 4 of 'XSaveContext' makes pointer from integer without a cast [-Wint-conversion] 337 | XSaveContext(XDISPLAY(sdpy), (XID)cmp, xtc_cmp, z); | ^ | | | SCM {aka long int} In file included from /usr/include/X11/Xlib.h:47, from x.c:35: /usr/include/X11/Xutil.h:580:5: note: expected 'const char *' but argument is of type 'SCM' {aka 'long int'} 580 | _Xconst char* /* data */ | ^ x.c: In function 'CCC2SCM': x.c:585:47: warning: passing argument 4 of 'XSaveContext' makes pointer from integer without a cast [-Wint-conversion] 585 | XSaveContext(ccc->dpy, (XID)ccc, xtc_ccc, s_ccc); | ^~~~~ | | | SCM {aka long int} In file included from /usr/include/X11/Xlib.h:47, from x.c:35: /usr/include/X11/Xutil.h:580:5: note: expected 'const char *' but argument is of type 'SCM' {aka 'long int'} 580 | _Xconst char* /* data */ | ^ x.c: In function 'x_draw_string': x.c:2070:35: warning: passing argument 4 of 'xldraw_string' from incompatible pointer type [-Wincompatible-pointer-types] 2070 | xldraw_string(sdbl, sgc, sargs, &XDrawString, s_x_draw_string); | ^~~~~~~~~~~~ | | | int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int) {aka int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)} x.c:2053:12: note: expected 'int (*)(void)' but argument is of type 'int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int)' {aka 'int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)'} 2053 | int (*proc)(); | ^~~~ x.c: In function 'x_image_string': x.c:2076:35: warning: passing argument 4 of 'xldraw_string' from incompatible pointer type [-Wincompatible-pointer-types] 2076 | xldraw_string(sdbl, sgc, sargs, &XDrawImageString, s_x_image_string); | ^~~~~~~~~~~~~~~~~ | | | int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int) {aka int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)} x.c:2053:12: note: expected 'int (*)(void)' but argument is of type 'int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int)' {aka 'int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)'} 2053 | int (*proc)(); | ^~~~ differ.c:122:4: warning: initialization of 'void * (*)()' from incompatible pointer type 'long int * (*)()' [-Wincompatible-pointer-types] 122 | {long_subarray, | ^~~~~~~~~~~~~ differ.c:122:4: note: (near initialization for 'long_procs.subarray') differ.c:126:4: warning: initialization of 'void * (*)()' from incompatible pointer type 'short int * (*)()' [-Wincompatible-pointer-types] 126 | {short_subarray, | ^~~~~~~~~~~~~~ differ.c:126:4: note: (near initialization for 'short_procs.subarray') differ.c:130:4: warning: initialization of 'void * (*)()' from incompatible pointer type 'char * (*)()' [-Wincompatible-pointer-types] 130 | {char_subarray, | ^~~~~~~~~~~~~ differ.c:130:4: note: (near initialization for 'char_procs.subarray') In file included from scmfig.h:71, from scm.h:55, from scm.c:26: scm.c: In function 'scm_init_extensions': scmflags.h:3:116: warning: implicit declaration of function 'init_unix'; did you mean 'init_unif'? [-Wimplicit-function-declaration] 3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); | ^~~~~~~~~ scm.c:110:3: note: in expansion of macro 'COMPILED_INITS' 110 | COMPILED_INITS; /* initialize statically linked add-ons */ | ^~~~~~~~~~~~~~ In file included from scmfig.h:71, from scm.h:55, from scm.c:26: scmflags.h:3:128: warning: implicit declaration of function 'init_crs'; did you mean 'init_subrs'? [-Wimplicit-function-declaration] 3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); | ^~~~~~~~ scm.c:110:3: note: in expansion of macro 'COMPILED_INITS' 110 | COMPILED_INITS; /* initialize statically linked add-ons */ | ^~~~~~~~~~~~~~ scmflags.h:3:139: warning: implicit declaration of function 'init_x'; did you mean 'init_rgx'? [-Wimplicit-function-declaration] 3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); | ^~~~~~ scm.c:110:3: note: in expansion of macro 'COMPILED_INITS' 110 | COMPILED_INITS; /* initialize statically linked add-ons */ | ^~~~~~~~~~~~~~ scmflags.h:3:148: warning: implicit declaration of function 'init_differ' [-Wimplicit-function-declaration] 3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); | ^~~~~~~~~~~ scm.c:110:3: note: in expansion of macro 'COMPILED_INITS' 110 | COMPILED_INITS; /* initialize statically linked add-ons */ | ^~~~~~~~~~~~~~ scm.c: In function 'process_signals': scm.c:176:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 176 | wta(UNDEFINED, (char *)i, ""); | ^ scm.c: In function 'scmable_signal': scm.c:290:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 290 | wta(UNDEFINED, (char *)i, ""); | ^ scmmain.c: In function 'main': scmmain.c:109:32: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 109 | if (0==argc) {argc = 1; argv = generic_name;} /* for macintosh */ | ^ scmmain.c:119:16: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 119 | script_arg = argv[2]; /* Save for scm_find_execpath() call */ | ^ scmmain.c:120:31: warning: passing argument 1 of 'script_count_argv' from incompatible pointer type [-Wincompatible-pointer-types] 120 | nargc = script_count_argv(nargv); | ^~~~~ | | | char ** In file included from scmmain.c:30: scm.h:1080:51: note: expected 'const char **' but argument is of type 'char **' 1080 | SCM_EXPORT int script_count_argv P((const char **argv)); | ~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ scmmain.c:122:15: warning: assignment to 'char **' from incompatible pointer type 'const char **' [-Wincompatible-pointer-types] 122 | else {nargv = argv; nargc = argc;} | ^ scmmain.c:124:39: warning: passing argument 2 of 'scm_find_execpath' from incompatible pointer type [-Wincompatible-pointer-types] 124 | execpath = scm_find_execpath(nargc, nargv, script_arg); | ^~~~~ | | | char ** In file included from scmmain.c:30: scm.h:775:69: note: expected 'const char * const*' but argument is of type 'char **' 775 | SCM_EXPORT char *scm_find_execpath P((int argc, const char * const *argv, const char *script_arg)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ scmmain.c:131:31: warning: passing argument 2 of 'scm_init_from_argv' from incompatible pointer type [-Wincompatible-pointer-types] 131 | scm_init_from_argv(nargc, nargv, script_arg, iverbose, buf0stdin); | ^~~~~ | | | char ** In file included from scmmain.c:30: scm.h:768:69: note: expected 'const char * const*' but argument is of type 'char **' 768 | SCM_EXPORT void scm_init_from_argv P((int argc, const char * const *argv, char *script_arg, | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ script.c: In function 'script_find_executable': script.c:127:5: warning: case label value is less than minimum value for type [-Wswitch-outside-range] 127 | case EOF: | ^~~~ script.c: In function 'find_impl_file': script.c:149:18: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 149 | char *extptr = exec_path + strlen(exec_path); | ^~~~~~~~~ script.c:165:10: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 165 | extptr = exec_path + strlen(exec_path); | ^ script.c: In function 'script_read_arg': script.c:304:5: warning: case label value is less than minimum value for type [-Wswitch-outside-range] 304 | case EOF: goto endarg; | ^~~~ script.c: In function 'script_process_argv': script.c:362:12: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 362 | nargv[0] = argv[0]; | ^ script.c:377:22: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 377 | nargv[nargi++] = argv[argi++]; | ^ script.c:380:39: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 380 | while (argi <= argc) nargv[nargi++] = argv[argi++]; | ^ repl.c: In function 'handle_it': repl.c:1270:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 1270 | wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */ | ^ repl.c: In function 'def_err_response': repl.c:2077:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2077 | lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp); | ^ repl.c:2080:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2080 | else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp); | ^ repl.c: In function 'everr': repl.c:2133:11: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 2133 | err_pos = pos; | ^ repl.c:2134:14: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 2134 | err_s_subr = s_subr; | ^ In file included from repl.c:21: repl.c:2139:24: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2139 | COOKIE(1) : COOKIE((int)pos)); | ^ scm.h:260:21: note: in definition of macro 'COOKIE' 260 | # define COOKIE(n) (n) | ^ In file included from scm.h:55, from sys.c:21: sys.c: In function 'mark_locations': scmfig.h:407:22: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 407 | # define PTR2INT(x) ((int)(x)) | ^ scm.h:276:39: note: in expansion of macro 'PTR2INT' 276 | #define NCELLP(x) ((sizeof(cell)-1) & PTR2INT(x)) | ^~~~~~~ scm.h:275:20: note: in expansion of macro 'NCELLP' 275 | #define CELLP(x) (!NCELLP(x)) | ^~~~~~ sys.c:2630:22: note: in expansion of macro 'CELLP' 2630 | while(0 <= --m) if (CELLP(*(SCM **)&x[m])) { | ^~~~~ unexelf.c: In function 'find_section': unexelf.c:406:51: warning: implicit declaration of function 'exit' [-Wimplicit-function-declaration] 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:634:2: note: in expansion of macro 'fatal' 634 | fatal ("Can't find %s in %s.\n", name, file_name); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:634:2: note: in expansion of macro 'fatal' 634 | fatal ("Can't find %s in %s.\n", name, file_name); | ^~~~~ unexelf.c:525:1: note: include '' or provide a declaration of 'exit' 524 | # include /* get ElfW etc */ +++ |+#include 525 | #endif unexelf.c: In function 'unexec': unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:692:5: note: in expansion of macro 'fatal' 692 | fatal ("Can't open %s for reading: errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:692:5: note: in expansion of macro 'fatal' 692 | fatal ("Can't open %s for reading: errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:695:5: note: in expansion of macro 'fatal' 695 | fatal ("Can't fstat (%s): errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:695:5: note: in expansion of macro 'fatal' 695 | fatal ("Can't fstat (%s): errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:711:5: note: in expansion of macro 'fatal' 711 | fatal ("Can't allocate buffer for %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:711:5: note: in expansion of macro 'fatal' 711 | fatal ("Can't allocate buffer for %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:714:5: note: in expansion of macro 'fatal' 714 | fatal ("Didn't read all of %s: errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:714:5: note: in expansion of macro 'fatal' 714 | fatal ("Didn't read all of %s: errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:782:5: note: in expansion of macro 'fatal' 782 | fatal (".bss shrank when undumping???\n", 0, 0); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:782:5: note: in expansion of macro 'fatal' 782 | fatal (".bss shrank when undumping???\n", 0, 0); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:790:5: note: in expansion of macro 'fatal' 790 | fatal ("Can't creat (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:790:5: note: in expansion of macro 'fatal' 790 | fatal ("Can't creat (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:795:5: note: in expansion of macro 'fatal' 795 | fatal ("Can't ftruncate (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:795:5: note: in expansion of macro 'fatal' 795 | fatal ("Can't ftruncate (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:800:5: note: in expansion of macro 'fatal' 800 | fatal ("Can't allocate buffer for %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:800:5: note: in expansion of macro 'fatal' 800 | fatal ("Can't allocate buffer for %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:855:4: note: in expansion of macro 'fatal' 855 | fatal ("Program segment above .bss in %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:855:4: note: in expansion of macro 'fatal' 855 | fatal ("Program segment above .bss in %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:865:5: note: in expansion of macro 'fatal' 865 | fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:865:5: note: in expansion of macro 'fatal' 865 | fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:895:5: note: in expansion of macro 'fatal' 895 | fatal ("Can't find .data in %s.\n", old_name, 0); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:895:5: note: in expansion of macro 'fatal' 895 | fatal ("Can't find .data in %s.\n", old_name, 0); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1256:5: note: in expansion of macro 'fatal' 1256 | fatal ("Didn't write %d bytes: errno %d\n", | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1256:5: note: in expansion of macro 'fatal' 1256 | fatal ("Didn't write %d bytes: errno %d\n", | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1272:5: note: in expansion of macro 'fatal' 1272 | fatal ("Can't close (%s): errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1272:5: note: in expansion of macro 'fatal' 1272 | fatal ("Can't close (%s): errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1275:5: note: in expansion of macro 'fatal' 1275 | fatal ("Can't close (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1275:5: note: in expansion of macro 'fatal' 1275 | fatal ("Can't close (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1278:5: note: in expansion of macro 'fatal' 1278 | fatal ("Can't stat (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1278:5: note: in expansion of macro 'fatal' 1278 | fatal ("Can't stat (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1284:5: note: in expansion of macro 'fatal' 1284 | fatal ("Can't chmod (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1284:5: note: in expansion of macro 'fatal' 1284 | fatal ("Can't chmod (%s): errno %d\n", new_name, errno); | ^~~~~ gmalloc.c: In function '__malloc_initialize': gmalloc.c:56:28: warning: implicit declaration of function 'bzero' [-Wimplicit-function-declaration] 56 | #define memset(s, zero, n) bzero ((s), (n)) | ^~~~~ gmalloc.c:486:3: note: in expansion of macro 'memset' 486 | memset (_heapinfo, 0, heapsize * sizeof (malloc_info)); | ^~~~~~ gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function 'bzero' 56 | #define memset(s, zero, n) bzero ((s), (n)) | ^~~~~ gmalloc.c:486:3: note: in expansion of macro 'memset' 486 | memset (_heapinfo, 0, heapsize * sizeof (malloc_info)); | ^~~~~~ gmalloc.c: In function 'morecore': gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function 'bzero' 56 | #define memset(s, zero, n) bzero ((s), (n)) | ^~~~~ gmalloc.c:556:8: note: in expansion of macro 'memset' 556 | memset (&newinfo[heapsize], 0, | ^~~~~~ gmalloc.c:59:26: warning: implicit declaration of function 'bcopy' [-Wimplicit-function-declaration] 59 | #define memcpy(d, s, n) bcopy ((s), (d), (n)) | ^~~~~ gmalloc.c:590:7: note: in expansion of macro 'memcpy' 590 | memcpy (newinfo, _heapinfo, heapsize * sizeof (malloc_info)); | ^~~~~~ gmalloc.c:59:26: warning: incompatible implicit declaration of built-in function 'bcopy' 59 | #define memcpy(d, s, n) bcopy ((s), (d), (n)) | ^~~~~ gmalloc.c:590:7: note: in expansion of macro 'memcpy' 590 | memcpy (newinfo, _heapinfo, heapsize * sizeof (malloc_info)); | ^~~~~~ gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function 'bzero' 56 | #define memset(s, zero, n) bzero ((s), (n)) | ^~~~~ gmalloc.c:591:7: note: in expansion of macro 'memset' 591 | memset (&newinfo[heapsize], 0, | ^~~~~~ gmalloc.c: In function '__malloc_safe_bcopy': gmalloc.c:1211:5: warning: incompatible implicit declaration of built-in function 'bcopy' 1211 | bcopy (from, to, size); | ^~~~~ gmalloc.c:1241:8: warning: incompatible implicit declaration of built-in function 'bcopy' 1241 | bcopy (endf, endt, to - from); | ^~~~~ gmalloc.c:1247:4: warning: incompatible implicit declaration of built-in function 'bcopy' 1247 | bcopy (from, to, endt - from); | ^~~~~ gmalloc.c: In function '_realloc_internal': gmalloc.c:59:26: warning: incompatible implicit declaration of built-in function 'bcopy' 59 | #define memcpy(d, s, n) bcopy ((s), (d), (n)) | ^~~~~ gmalloc.c:1301:8: note: in expansion of macro 'memcpy' 1301 | memcpy (result, ptr, size); | ^~~~~~ gmalloc.c:59:26: warning: incompatible implicit declaration of built-in function 'bcopy' 59 | #define memcpy(d, s, n) bcopy ((s), (d), (n)) | ^~~~~ gmalloc.c:1376:4: note: in expansion of macro 'memcpy' 1376 | memcpy (result, ptr, min (size, (__malloc_size_t) 1 << type)); | ^~~~~~ gmalloc.c: In function 'calloc': gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function 'bzero' 56 | #define memset(s, zero, n) bzero ((s), (n)) | ^~~~~ gmalloc.c:1431:12: note: in expansion of macro 'memset' 1431 | (void) memset (result, 0, nmemb * size); | ^~~~~~ gmalloc.c: In function 'valloc': gmalloc.c:1646:16: warning: implicit declaration of function '__getpagesize' [-Wimplicit-function-declaration] 1646 | pagesize = __getpagesize (); | ^~~~~~~~~~~~~ ; ================ Link C object files (system "gcc -rdynamic -o scm sc2.o ramap.o record.o gsubr.o ioext.o edline.o rgx.o socket.o posix.o unix.o crs.o dynl.o x.o differ.o continue.o scm.o scmmain.o findexec.o script.o time.o repl.o scl.o eval.o sys.o subr.o debug.o unif.o rope.o unexelf.o gmalloc.o -lm -lreadline -ltermcap -lcurses -ldl -L/usr/X11R6/lib -lX11 -lc") /usr/bin/ld: sys.o: in function `ltmpnam': sys.c:(.text+0xabc): warning: the use of `tmpnam' is dangerous, better use `mkstemp' ./build -p linux -hsystem -f libscm.opt -t lib ; Scheme (linux) script created by SLIB/batch ; [-p linux] ; used options from: libscm.opt ; ================ Write file with C defines (delete-file "scmflags.h") (call-with-output-file "scmflags.h" (lambda (fp) (for-each (lambda (string) (write-line string fp)) '("#define IMPLINIT \"Init5f2.scm\"" "#define INITS init_sc2();init_ioext();" "#define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ();" "#define CAUTIOUS" "#define BIGNUMS" "#define ARRAYS" "#define FLOATS" "#define CCLO" "#define TICKS" "#define CAN_DUMP" "#define MACRO")))) ; ================ Compile C source files (system "gcc -c -I/usr/include/X11 -DX11 -DSUN_DL sc2.c ramap.c record.c gsubr.c ioext.c edline.c rgx.c socket.c posix.c unix.c crs.c dynl.c x.c differ.c continue.c scm.c findexec.c script.c time.c repl.c scl.c eval.c sys.c subr.c debug.c unif.c rope.c unexelf.c gmalloc.c") socket.c: In function 'l_hostinfo': socket.c:147:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 147 | ve[ 1] = makfromstrs(-1, entry->h_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** In file included from socket.c:24: scm.h:1037:62: note: expected 'const char * const*' but argument is of type 'char **' 1037 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ socket.c:152:13: warning: assignment to 'const char **' from incompatible pointer type 'char **' [-Wincompatible-pointer-types] 152 | for (argv = entry->h_addr_list; argv[i]; i++); | ^ socket.c: In function 'l_netinfo': socket.c:184:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 184 | ve[ 1] = makfromstrs(-1, entry->n_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** In file included from socket.c:24: scm.h:1037:62: note: expected 'const char * const*' but argument is of type 'char **' 1037 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ socket.c: In function 'l_protoinfo': socket.c:214:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 214 | ve[ 1] = makfromstrs(-1, entry->p_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** In file included from socket.c:24: scm.h:1037:62: note: expected 'const char * const*' but argument is of type 'char **' 1037 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ socket.c: In function 'l_servinfo': socket.c:247:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 247 | ve[ 1] = makfromstrs(-1, entry->s_aliases); | ~~~~~^~~~~~~~~~~ | | | char ** In file included from socket.c:24: scm.h:1037:62: note: expected 'const char * const*' but argument is of type 'char **' 1037 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ posix.c: In function 'l_grinfo': posix.c:194:33: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] 194 | ve[ 3] = makfromstrs(-1, entry->gr_mem); | ~~~~~^~~~~~~~ | | | char ** In file included from posix.c:21: scm.h:1037:62: note: expected 'const char * const*' but argument is of type 'char **' 1037 | SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); | ~~~~~~~~~~~~~~~~~~~~^~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ crs.c:72:3: warning: initialization of 'int (*)(FILE *)' from incompatible pointer type 'int (*)(WINDOW *)' {aka 'int (*)(struct _win_st *)'} [-Wincompatible-pointer-types] 72 | wrefresh, | ^~~~~~~~ crs.c:72:3: note: (near initialization for 'winptob.fflush') crs.c:73:3: warning: initialization of 'int (*)(FILE *)' from incompatible pointer type 'int (*)(WINDOW *)' {aka 'int (*)(struct _win_st *)'} [-Wincompatible-pointer-types] 73 | wgetch, | ^~~~~~ crs.c:73:3: note: (near initialization for 'winptob.fgetc') crs.c: In function 'lunctrl': crs.c:241:17: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 241 | char *str = unctrl(ICHR(c)); | ^~~~~~ crs.c: In function 'init_crs': crs.c:390:13: warning: passing argument 1 of 'add_final' from incompatible pointer type [-Wincompatible-pointer-types] 390 | add_final(lendwin); | ^~~~~~~ | | | SCM (*)() {aka long int (*)()} In file included from crs.c:21: scm.h:1001:37: note: expected 'void (*)(void)' but argument is of type 'SCM (*)()' {aka 'long int (*)()'} 1001 | SCM_EXPORT void add_final P((void (*final)(void))); | ~~~~~~~^~~~~~~~~~~~ scm.h:80:15: note: in definition of macro 'P' 80 | # define P(s) s | ^ x.c: In function 'make_xcolormap': x.c:337:51: warning: passing argument 4 of 'XSaveContext' makes pointer from integer without a cast [-Wint-conversion] 337 | XSaveContext(XDISPLAY(sdpy), (XID)cmp, xtc_cmp, z); | ^ | | | SCM {aka long int} In file included from /usr/include/X11/Xlib.h:47, from x.c:35: /usr/include/X11/Xutil.h:580:5: note: expected 'const char *' but argument is of type 'SCM' {aka 'long int'} 580 | _Xconst char* /* data */ | ^ x.c: In function 'CCC2SCM': x.c:585:47: warning: passing argument 4 of 'XSaveContext' makes pointer from integer without a cast [-Wint-conversion] 585 | XSaveContext(ccc->dpy, (XID)ccc, xtc_ccc, s_ccc); | ^~~~~ | | | SCM {aka long int} In file included from /usr/include/X11/Xlib.h:47, from x.c:35: /usr/include/X11/Xutil.h:580:5: note: expected 'const char *' but argument is of type 'SCM' {aka 'long int'} 580 | _Xconst char* /* data */ | ^ x.c: In function 'x_draw_string': x.c:2070:35: warning: passing argument 4 of 'xldraw_string' from incompatible pointer type [-Wincompatible-pointer-types] 2070 | xldraw_string(sdbl, sgc, sargs, &XDrawString, s_x_draw_string); | ^~~~~~~~~~~~ | | | int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int) {aka int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)} x.c:2053:12: note: expected 'int (*)(void)' but argument is of type 'int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int)' {aka 'int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)'} 2053 | int (*proc)(); | ^~~~ x.c: In function 'x_image_string': x.c:2076:35: warning: passing argument 4 of 'xldraw_string' from incompatible pointer type [-Wincompatible-pointer-types] 2076 | xldraw_string(sdbl, sgc, sargs, &XDrawImageString, s_x_image_string); | ^~~~~~~~~~~~~~~~~ | | | int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int) {aka int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)} x.c:2053:12: note: expected 'int (*)(void)' but argument is of type 'int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int)' {aka 'int (*)(Display *, long unsigned int, struct _XGC *, int, int, const char *, int)'} 2053 | int (*proc)(); | ^~~~ differ.c:122:4: warning: initialization of 'void * (*)()' from incompatible pointer type 'long int * (*)()' [-Wincompatible-pointer-types] 122 | {long_subarray, | ^~~~~~~~~~~~~ differ.c:122:4: note: (near initialization for 'long_procs.subarray') differ.c:126:4: warning: initialization of 'void * (*)()' from incompatible pointer type 'short int * (*)()' [-Wincompatible-pointer-types] 126 | {short_subarray, | ^~~~~~~~~~~~~~ differ.c:126:4: note: (near initialization for 'short_procs.subarray') differ.c:130:4: warning: initialization of 'void * (*)()' from incompatible pointer type 'char * (*)()' [-Wincompatible-pointer-types] 130 | {char_subarray, | ^~~~~~~~~~~~~ differ.c:130:4: note: (near initialization for 'char_procs.subarray') In file included from scmfig.h:71, from scm.h:55, from scm.c:26: scm.c: In function 'scm_init_extensions': scmflags.h:3:116: warning: implicit declaration of function 'init_unix'; did you mean 'init_unif'? [-Wimplicit-function-declaration] 3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); | ^~~~~~~~~ scm.c:110:3: note: in expansion of macro 'COMPILED_INITS' 110 | COMPILED_INITS; /* initialize statically linked add-ons */ | ^~~~~~~~~~~~~~ In file included from scmfig.h:71, from scm.h:55, from scm.c:26: scmflags.h:3:128: warning: implicit declaration of function 'init_crs'; did you mean 'init_subrs'? [-Wimplicit-function-declaration] 3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); | ^~~~~~~~ scm.c:110:3: note: in expansion of macro 'COMPILED_INITS' 110 | COMPILED_INITS; /* initialize statically linked add-ons */ | ^~~~~~~~~~~~~~ scmflags.h:3:139: warning: implicit declaration of function 'init_x'; did you mean 'init_rgx'? [-Wimplicit-function-declaration] 3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); | ^~~~~~ scm.c:110:3: note: in expansion of macro 'COMPILED_INITS' 110 | COMPILED_INITS; /* initialize statically linked add-ons */ | ^~~~~~~~~~~~~~ scmflags.h:3:148: warning: implicit declaration of function 'init_differ' [-Wimplicit-function-declaration] 3 | #define COMPILED_INITS init_ramap();init_record();init_gsubr();init_edline();init_rgx();init_socket();init_posix();init_unix();init_crs();init_x();init_differ(); | ^~~~~~~~~~~ scm.c:110:3: note: in expansion of macro 'COMPILED_INITS' 110 | COMPILED_INITS; /* initialize statically linked add-ons */ | ^~~~~~~~~~~~~~ scm.c: In function 'process_signals': scm.c:176:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 176 | wta(UNDEFINED, (char *)i, ""); | ^ scm.c: In function 'scmable_signal': scm.c:290:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 290 | wta(UNDEFINED, (char *)i, ""); | ^ script.c: In function 'script_find_executable': script.c:127:5: warning: case label value is less than minimum value for type [-Wswitch-outside-range] 127 | case EOF: | ^~~~ script.c: In function 'find_impl_file': script.c:149:18: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 149 | char *extptr = exec_path + strlen(exec_path); | ^~~~~~~~~ script.c:165:10: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 165 | extptr = exec_path + strlen(exec_path); | ^ script.c: In function 'script_read_arg': script.c:304:5: warning: case label value is less than minimum value for type [-Wswitch-outside-range] 304 | case EOF: goto endarg; | ^~~~ script.c: In function 'script_process_argv': script.c:362:12: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 362 | nargv[0] = argv[0]; | ^ script.c:377:22: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 377 | nargv[nargi++] = argv[argi++]; | ^ script.c:380:39: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 380 | while (argi <= argc) nargv[nargi++] = argv[argi++]; | ^ repl.c: In function 'handle_it': repl.c:1270:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 1270 | wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */ | ^ repl.c: In function 'def_err_response': repl.c:2077:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2077 | lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp); | ^ repl.c:2080:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2080 | else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp); | ^ repl.c: In function 'everr': repl.c:2133:11: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 2133 | err_pos = pos; | ^ repl.c:2134:14: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 2134 | err_s_subr = s_subr; | ^ In file included from repl.c:21: repl.c:2139:24: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 2139 | COOKIE(1) : COOKIE((int)pos)); | ^ scm.h:260:21: note: in definition of macro 'COOKIE' 260 | # define COOKIE(n) (n) | ^ In file included from scm.h:55, from sys.c:21: sys.c: In function 'mark_locations': scmfig.h:407:22: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 407 | # define PTR2INT(x) ((int)(x)) | ^ scm.h:276:39: note: in expansion of macro 'PTR2INT' 276 | #define NCELLP(x) ((sizeof(cell)-1) & PTR2INT(x)) | ^~~~~~~ scm.h:275:20: note: in expansion of macro 'NCELLP' 275 | #define CELLP(x) (!NCELLP(x)) | ^~~~~~ sys.c:2630:22: note: in expansion of macro 'CELLP' 2630 | while(0 <= --m) if (CELLP(*(SCM **)&x[m])) { | ^~~~~ unexelf.c: In function 'find_section': unexelf.c:406:51: warning: implicit declaration of function 'exit' [-Wimplicit-function-declaration] 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:634:2: note: in expansion of macro 'fatal' 634 | fatal ("Can't find %s in %s.\n", name, file_name); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:634:2: note: in expansion of macro 'fatal' 634 | fatal ("Can't find %s in %s.\n", name, file_name); | ^~~~~ unexelf.c:525:1: note: include '' or provide a declaration of 'exit' 524 | # include /* get ElfW etc */ +++ |+#include 525 | #endif unexelf.c: In function 'unexec': unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:692:5: note: in expansion of macro 'fatal' 692 | fatal ("Can't open %s for reading: errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:692:5: note: in expansion of macro 'fatal' 692 | fatal ("Can't open %s for reading: errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:695:5: note: in expansion of macro 'fatal' 695 | fatal ("Can't fstat (%s): errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:695:5: note: in expansion of macro 'fatal' 695 | fatal ("Can't fstat (%s): errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:711:5: note: in expansion of macro 'fatal' 711 | fatal ("Can't allocate buffer for %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:711:5: note: in expansion of macro 'fatal' 711 | fatal ("Can't allocate buffer for %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:714:5: note: in expansion of macro 'fatal' 714 | fatal ("Didn't read all of %s: errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:714:5: note: in expansion of macro 'fatal' 714 | fatal ("Didn't read all of %s: errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:782:5: note: in expansion of macro 'fatal' 782 | fatal (".bss shrank when undumping???\n", 0, 0); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:782:5: note: in expansion of macro 'fatal' 782 | fatal (".bss shrank when undumping???\n", 0, 0); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:790:5: note: in expansion of macro 'fatal' 790 | fatal ("Can't creat (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:790:5: note: in expansion of macro 'fatal' 790 | fatal ("Can't creat (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:795:5: note: in expansion of macro 'fatal' 795 | fatal ("Can't ftruncate (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:795:5: note: in expansion of macro 'fatal' 795 | fatal ("Can't ftruncate (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:800:5: note: in expansion of macro 'fatal' 800 | fatal ("Can't allocate buffer for %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:800:5: note: in expansion of macro 'fatal' 800 | fatal ("Can't allocate buffer for %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:855:4: note: in expansion of macro 'fatal' 855 | fatal ("Program segment above .bss in %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:855:4: note: in expansion of macro 'fatal' 855 | fatal ("Program segment above .bss in %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:865:5: note: in expansion of macro 'fatal' 865 | fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:865:5: note: in expansion of macro 'fatal' 865 | fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:895:5: note: in expansion of macro 'fatal' 895 | fatal ("Can't find .data in %s.\n", old_name, 0); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:895:5: note: in expansion of macro 'fatal' 895 | fatal ("Can't find .data in %s.\n", old_name, 0); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1256:5: note: in expansion of macro 'fatal' 1256 | fatal ("Didn't write %d bytes: errno %d\n", | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1256:5: note: in expansion of macro 'fatal' 1256 | fatal ("Didn't write %d bytes: errno %d\n", | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1272:5: note: in expansion of macro 'fatal' 1272 | fatal ("Can't close (%s): errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1272:5: note: in expansion of macro 'fatal' 1272 | fatal ("Can't close (%s): errno %d\n", old_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1275:5: note: in expansion of macro 'fatal' 1275 | fatal ("Can't close (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1275:5: note: in expansion of macro 'fatal' 1275 | fatal ("Can't close (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1278:5: note: in expansion of macro 'fatal' 1278 | fatal ("Can't stat (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1278:5: note: in expansion of macro 'fatal' 1278 | fatal ("Can't stat (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: warning: incompatible implicit declaration of built-in function 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1284:5: note: in expansion of macro 'fatal' 1284 | fatal ("Can't chmod (%s): errno %d\n", new_name, errno); | ^~~~~ unexelf.c:406:51: note: include '' or provide a declaration of 'exit' 406 | #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) | ^~~~ unexelf.c:1284:5: note: in expansion of macro 'fatal' 1284 | fatal ("Can't chmod (%s): errno %d\n", new_name, errno); | ^~~~~ gmalloc.c: In function '__malloc_initialize': gmalloc.c:56:28: warning: implicit declaration of function 'bzero' [-Wimplicit-function-declaration] 56 | #define memset(s, zero, n) bzero ((s), (n)) | ^~~~~ gmalloc.c:486:3: note: in expansion of macro 'memset' 486 | memset (_heapinfo, 0, heapsize * sizeof (malloc_info)); | ^~~~~~ gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function 'bzero' 56 | #define memset(s, zero, n) bzero ((s), (n)) | ^~~~~ gmalloc.c:486:3: note: in expansion of macro 'memset' 486 | memset (_heapinfo, 0, heapsize * sizeof (malloc_info)); | ^~~~~~ gmalloc.c: In function 'morecore': gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function 'bzero' 56 | #define memset(s, zero, n) bzero ((s), (n)) | ^~~~~ gmalloc.c:556:8: note: in expansion of macro 'memset' 556 | memset (&newinfo[heapsize], 0, | ^~~~~~ gmalloc.c:59:26: warning: implicit declaration of function 'bcopy' [-Wimplicit-function-declaration] 59 | #define memcpy(d, s, n) bcopy ((s), (d), (n)) | ^~~~~ gmalloc.c:590:7: note: in expansion of macro 'memcpy' 590 | memcpy (newinfo, _heapinfo, heapsize * sizeof (malloc_info)); | ^~~~~~ gmalloc.c:59:26: warning: incompatible implicit declaration of built-in function 'bcopy' 59 | #define memcpy(d, s, n) bcopy ((s), (d), (n)) | ^~~~~ gmalloc.c:590:7: note: in expansion of macro 'memcpy' 590 | memcpy (newinfo, _heapinfo, heapsize * sizeof (malloc_info)); | ^~~~~~ gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function 'bzero' 56 | #define memset(s, zero, n) bzero ((s), (n)) | ^~~~~ gmalloc.c:591:7: note: in expansion of macro 'memset' 591 | memset (&newinfo[heapsize], 0, | ^~~~~~ gmalloc.c: In function '__malloc_safe_bcopy': gmalloc.c:1211:5: warning: incompatible implicit declaration of built-in function 'bcopy' 1211 | bcopy (from, to, size); | ^~~~~ gmalloc.c:1241:8: warning: incompatible implicit declaration of built-in function 'bcopy' 1241 | bcopy (endf, endt, to - from); | ^~~~~ gmalloc.c:1247:4: warning: incompatible implicit declaration of built-in function 'bcopy' 1247 | bcopy (from, to, endt - from); | ^~~~~ gmalloc.c: In function '_realloc_internal': gmalloc.c:59:26: warning: incompatible implicit declaration of built-in function 'bcopy' 59 | #define memcpy(d, s, n) bcopy ((s), (d), (n)) | ^~~~~ gmalloc.c:1301:8: note: in expansion of macro 'memcpy' 1301 | memcpy (result, ptr, size); | ^~~~~~ gmalloc.c:59:26: warning: incompatible implicit declaration of built-in function 'bcopy' 59 | #define memcpy(d, s, n) bcopy ((s), (d), (n)) | ^~~~~ gmalloc.c:1376:4: note: in expansion of macro 'memcpy' 1376 | memcpy (result, ptr, min (size, (__malloc_size_t) 1 << type)); | ^~~~~~ gmalloc.c: In function 'calloc': gmalloc.c:56:28: warning: incompatible implicit declaration of built-in function 'bzero' 56 | #define memset(s, zero, n) bzero ((s), (n)) | ^~~~~ gmalloc.c:1431:12: note: in expansion of macro 'memset' 1431 | (void) memset (result, 0, nmemb * size); | ^~~~~~ gmalloc.c: In function 'valloc': gmalloc.c:1646:16: warning: implicit declaration of function '__getpagesize' [-Wimplicit-function-declaration] 1646 | pagesize = __getpagesize (); | ^~~~~~~~~~~~~ ; ================ Link C object files (system "ar rc libscm.a sc2.o ramap.o record.o gsubr.o ioext.o edline.o rgx.o socket.o posix.o unix.o crs.o dynl.o x.o differ.o continue.o scm.o findexec.o script.o time.o repl.o scl.o eval.o sys.o subr.o debug.o unif.o rope.o unexelf.o gmalloc.o") (system "ranlib libscm.a") makeinfo --html --no-split scm.texi scm.texi:4020: warning: multiple @menu makeinfo --html --no-split Xlibscm.texi cp XlibScm.html Xlibscm.html cp ChangeLog changelog make[1]: Leaving directory '/build/scm-5f2' dh_auto_test dh_auto_test: warning: Compatibility levels before 10 are deprecated (level 9 in use) make -j1 check VERBOSE=1 make[1]: Entering directory '/build/scm-5f2' ./scm -fr4rstest.scm -e'(test-sc4)(test-cont)(test-delay)(gc)' \ -e '(or (null? errs) (quit 1))' < /dev/null SECTION(2 1) SECTION(3 4) # # # # # # # # # (#t #f #f #f #f #f #f #f #f)#t (#t #f #f #f #f #f #f #f #f)#f (#f #t #f #f #f #f #f #f #f)#\a (#f #f #t #f #f #f #f #f #f)() (#f #f #f #t #f #f #f #f #f)9739 (#f #f #f #f #t #f #f #f #f)(test) (#f #f #f #f #f #t #f #f #f)# (#f #f #f #f #f #f #t #f #f)"test" (#f #f #f #f #f #f #t #f #f)"" (#f #f #f #f #f #f #f #t #f)test (#f #f #f #f #f #f #f #f #t)#() (#f #f #f #f #f #f #f #f #t)#(a b c) SECTION(4 1 2) (quote (quote a)) ==> (quote a) (quote (quote a)) ==> (quote a) SECTION(4 1 3) (# 3 4) ==> 12 SECTION(4 1 4) (# "r4rstest.scm": (x) (+ x x)> 4) ==> 8 (# 7 10) ==> 3 (# "r4rstest.scm": (y) (+ x y)> 6) ==> 10 (# "r4rstest.scm": x x> 3 4 5 6) ==> (3 4 5 6) (# "r4rstest.scm": (x y . z) z> 3 4 5 6) ==> (5 6) SECTION(4 1 5) (if yes) ==> yes (if no) ==> no (if 1) ==> 1 SECTION(4 1 6) (define 3) ==> 3 (set! 5) ==> 5 SECTION(4 2 1) (cond greater) ==> greater (cond equal) ==> equal (cond 2) ==> 2 (case composite) ==> composite (case consonant) ==> consonant (and #t) ==> #t (and #f) ==> #f (and (f g)) ==> (f g) (and #t) ==> #t (or #t) ==> #t (or #t) ==> #t (or #f) ==> #f (or #f) ==> #f (or (b c)) ==> (b c) SECTION(4 2 2) (let 6) ==> 6 (let 35) ==> 35 (let* 70) ==> 70 (letrec #t) ==> #t (let 5) ==> 5 (let 34) ==> 34 (let 6) ==> 6 (let 34) ==> 34 (let 34) ==> 34 (let* 7) ==> 7 (let* 34) ==> 34 (let* 8) ==> 8 (let* 34) ==> 34 (letrec 9) ==> 9 (letrec 34) ==> 34 (letrec 10) ==> 10 (letrec 34) ==> 34 SECTION(4 2 3) (begin 6) ==> 6 SECTION(4 2 4) (do #(0 1 2 3 4)) ==> #(0 1 2 3 4) (do 25) ==> 25 (do 25) ==> 25 (let 1) ==> 1 (let ((6 1 3) (-5 -2))) ==> ((6 1 3) (-5 -2)) (let -1) ==> -1 SECTION(4 2 6) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (list a (quote a))) ==> (list a (quote a)) (quasiquote (a 3 4 5 6 b)) ==> (a 3 4 5 6 b) (quasiquote ((foo 7) . cons)) ==> ((foo 7) . cons) (quasiquote #(10 5 2 4 3 8)) ==> #(10 5 2 4 3 8) (quasiquote 5) ==> 5 (quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)) ==> (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f) (quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)) ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (quasiquote (list (unquote (+ 1 2)) 4))) ==> (quasiquote (list (unquote (+ 1 2)) 4)) SECTION(5 2 1) (tprint #t) ==> #t (define 6) ==> 6 (define 1) ==> 1 (define 9) ==> 9 (define 9) ==> 9 (define 10) ==> 10 (# 6) ==> (3 6) (# 6) ==> 9 SECTION(5 2 2) (define 45) ==> 45 (#) ==> 5 (define 34) ==> 34 (#) ==> 5 (define 34) ==> 34 (# 88) ==> 88 (# 4) ==> 4 (define 34) ==> 34 (internal-define 99) ==> 99 (internal-define 77) ==> 77 SECTION(6 1) (# #t) ==> #f (# 3) ==> #f (# (3)) ==> #f (# #f) ==> #t (# ()) ==> #f (# ()) ==> #f (# nil) ==> #f SECTION(6 2) (# a a) ==> #t (# a b) ==> #f (# 2 2) ==> #t (# () ()) ==> #t (# 10000 10000) ==> #t (# (1 . 2) (1 . 2)) ==> #f (# # "r4rstest.scm": () 1> # "r4rstest.scm": () 2>) ==> #f (# #f nil) ==> #f (# # #) ==> #t (# # "r4rstest.scm": () (set! n (+ n 1)) n> # "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #t (# # "r4rstest.scm": () (set! n (+ n 1)) n> # "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #f (# # #) ==> #f (# a a) ==> #t (# (a) (a)) ==> #f (# () ()) ==> #t (# # #) ==> #t (# (a) (a)) ==> #t (# #() #()) ==> #t (# # #) ==> #t (# a a) ==> #t (# (a) (a)) ==> #t (# (a (b) c) (a (b) c)) ==> #t (# "abc" "abc") ==> #t (# 2 2) ==> #t (# #(a a a a a) #(a a a a a)) ==> #t SECTION(6 3) (dot (a b c d e)) ==> (a b c d e) (# (a b c)) ==> #t (set-cdr! (a . 4)) ==> (a . 4) (# (a . 4) (a . 4)) ==> #t (dot (a b c . d)) ==> (a b c . d) (# (a . 4)) ==> #f (list? #f) ==> #f (# a ()) ==> (a) (# (a) (b c d)) ==> ((a) b c d) (# "a" (b c)) ==> ("a" b c) (# a 3) ==> (a . 3) (# (a b) c) ==> ((a b) . c) (# (a b c)) ==> a (# ((a) b c d)) ==> (a) (# (1 . 2)) ==> 1 (# ((a) b c d)) ==> (b c d) (# (1 . 2)) ==> 2 (# a 7 c) ==> (a 7 c) (#) ==> () (# (a b c)) ==> 3 (# (a (b) (c d e))) ==> 3 (# ()) ==> 0 (# (x) (y)) ==> (x y) (# (a) (b c d)) ==> (a b c d) (# (a (b)) ((c))) ==> (a (b) (c)) (#) ==> () (# (a b) (c . d)) ==> (a b c . d) (# () a) ==> a (# (a b c)) ==> (c b a) (# (a (b c) d (e (f)))) ==> ((e (f)) d (b c) a) (# (a b c d) 2) ==> c (# a (a b c)) ==> (a b c) (# b (a b c)) ==> (b c) (# a (b c d)) ==> #f (# (a) (b (a) c)) ==> #f (# (a) (b (a) c)) ==> ((a) c) (# 101 (100 101 102)) ==> (101 102) (# a ((a 1) (b 2) (c 3))) ==> (a 1) (# b ((a 1) (b 2) (c 3))) ==> (b 2) (# d ((a 1) (b 2) (c 3))) ==> #f (# (a) (((a)) ((b)) ((c)))) ==> #f (# (a) (((a)) ((b)) ((c)))) ==> ((a)) (# 5 ((2 3) (5 7) (11 13))) ==> (5 7) SECTION(6 4) (# a) ==> #t (standard-case #t) ==> #t (standard-case #t) ==> #t (#string> flying-fish) ==> "flying-fish" (#string> martin) ==> "martin" (#string> \Malvina) ==> "Malvina" (standard-case #t) ==> #t (string-set! "cb") ==> "cb" (#string> ab) ==> "ab" (#symbol> "ab") ==> ab (# mississippi mississippi) ==> #t (string->symbol #f) ==> #f (#symbol> "jollywog") ==> jollywog SECTION(6 5 5) (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #f (# 0 0) ==> 1 (# 0 1) ==> 0 (# 0 256) ==> 0 (# -1 256) ==> 1 (# -1 255) ==> -1 (# -1 -256) ==> 1 (# -1 -255) ==> -1 (# 256 0) ==> 1 (# -256 0) ==> 1 (# 256 1) ==> 256 (# -256 1) ==> -256 (# 2 3) ==> 8 (# -2 3) ==> -8 (# 3 2) ==> 9 (# -3 2) ==> 9 (# 22 22 22) ==> #t (# 22 22) ==> #t (# 34 34 35) ==> #f (# 34 35) ==> #f (#> 3 -6246) ==> #t (#> 9 9 -2424) ==> #f (#=> 3 -4 -6246) ==> #t (#=> 9 9) ==> #t (#=> 8 9) ==> #f (# -1 2 3 4 5 6 7 8) ==> #t (# -1 2 3 4 4 5 6 7) ==> #f (# -1 2 3 4 5 6 7 8) ==> #t (# -1 2 3 4 4 5 6 7) ==> #t (# 1 3 2) ==> #f (#=> 1 3 2) ==> #f (# 0) ==> #t (# 1) ==> #f (# -1) ==> #f (# -100) ==> #f (# 4) ==> #t (# -4) ==> #f (# 0) ==> #f (# 4) ==> #f (# -4) ==> #t (# 0) ==> #f (# 3) ==> #t (# 2) ==> #f (# -4) ==> #f (# -1) ==> #t (# 3) ==> #f (# 2) ==> #t (# -4) ==> #t (# -1) ==> #f (# 34 5 7 38 6) ==> 38 (# 3 5 5 330 4 -24) ==> -24 (# 3 4) ==> 7 (# 3) ==> 3 (#) ==> 0 (# 4) ==> 4 (#) ==> 1 (# 1) ==> 1 (# -1) ==> -1 (# 6 3) ==> 2 (# 6 -2) ==> -3 (# -6 2) ==> -3 (# -6 -2) ==> 3 (# 3 4) ==> -1 (# 3) ==> -3 (# -7) ==> 7 (# 7) ==> 7 (# 0) ==> 0 (# 35 7) ==> 5 (# -35 7) ==> -5 (# 35 -7) ==> -5 (# -35 -7) ==> 5 (# 13 4) ==> 1 (# 13 4) ==> 1 (# -13 4) ==> 3 (# -13 4) ==> -1 (# 13 -4) ==> -3 (# 13 -4) ==> 1 (# -13 -4) ==> -1 (# -13 -4) ==> -1 (# 0 86400) ==> 0 (# 0 -86400) ==> 0 (# 238 9) ==> #t (# -238 9) ==> #t (# 238 -9) ==> #t (# -238 -9) ==> #t (# 0 4) ==> 4 (# -4 0) ==> 4 (# 32 -36) ==> 4 (#) ==> 0 (# 32 -36) ==> 288 (#) ==> 1 SECTION(6 5 5) (#number "r4rstest.scm": (str) (#@define ((ans (string->number str))) (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "0/0-0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "1/0-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "-1/0+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#e") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((#@number? #@ans) #t) (#t ans)))> "#i0/0") ==> #t (# 0.0-1.i) ==> #t (# 0.0+1.i) ==> #t (# 2.+1.i) ==> #t SECTION(6 5 9) (#string> 0) ==> "0" (#string> 100) ==> "100" (#string> 256 16) ==> "100" (#number> "100") ==> 100 (#number> "100" 16) ==> 256 (#number> "") ==> #f (#number> ".") ==> #f (#number> "d") ==> #f (#number> "D") ==> #f (#number> "i") ==> #f (#number> "I") ==> #f (#number> "3i") ==> #f (#number> "3I") ==> #f (#number> "33i") ==> #f (#number> "33I") ==> #f (#number> "3.3i") ==> #f (#number> "3.3I") ==> #f (#number> "-") ==> #f (#number> "+") ==> #f (string->number #t) ==> #t (string->number #t) ==> #t SECTION(6 6) (# #\space #\space) ==> #t (# #\space #\space) ==> #t (# #\a) ==> #t (# #\() ==> #t (# #\space) ==> #t (# #\nl) ==> #t (# #\A #\B) ==> #f (# #\a #\b) ==> #f (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\B) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #f (#?> #\A #\B) ==> #f (#?> #\a #\b) ==> #f (#?> #\9 #\0) ==> #t (#?> #\A #\A) ==> #f (# #\A #\B) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (#=?> #\A #\B) ==> #f (#=?> #\a #\b) ==> #f (#=?> #\9 #\0) ==> #t (#=?> #\A #\A) ==> #t (# #\A #\B) ==> #f (# #\a #\B) ==> #f (# #\A #\b) ==> #f (# #\a #\b) ==> #f (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\a) ==> #t (# #\A #\B) ==> #t (# #\a #\B) ==> #t (# #\A #\b) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #f (# #\A #\a) ==> #f (#?> #\A #\B) ==> #f (#?> #\a #\B) ==> #f (#?> #\A #\b) ==> #f (#?> #\a #\b) ==> #f (#?> #\9 #\0) ==> #t (#?> #\A #\A) ==> #f (#?> #\A #\a) ==> #f (# #\A #\B) ==> #t (# #\a #\B) ==> #t (# #\A #\b) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\a) ==> #t (#=?> #\A #\B) ==> #f (#=?> #\a #\B) ==> #f (#=?> #\A #\b) ==> #f (#=?> #\a #\b) ==> #f (#=?> #\9 #\0) ==> #t (#=?> #\A #\A) ==> #t (#=?> #\A #\a) ==> #t (# #\a) ==> #t (# #\A) ==> #t (# #\z) ==> #t (# #\Z) ==> #t (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (# #\a) ==> #f (# #\A) ==> #f (# #\z) ==> #f (# #\Z) ==> #f (# #\0) ==> #t (# #\9) ==> #t (# #\space) ==> #f (# #\;) ==> #f (# #\a) ==> #f (# #\A) ==> #f (# #\z) ==> #f (# #\Z) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #t (# #\;) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (#char> 46) ==> #\. (#char> 65) ==> #\A (#char> 97) ==> #\a (# #\A) ==> #\A (# #\a) ==> #\A (# #\A) ==> #\a (# #\a) ==> #\a SECTION(6 7) (# "The word \"recursion\\\" has many meanings.") ==> #t (string-set! "?**") ==> "?**" (# #\a #\b #\c) ==> "abc" (#) ==> "" (# "abc") ==> 3 (# "abc" 0) ==> #\a (# "abc" 2) ==> #\c (# "") ==> 0 (# "ab" 0 0) ==> "" (# "ab" 1 1) ==> "" (# "ab" 2 2) ==> "" (# "ab" 0 1) ==> "a" (# "ab" 1 2) ==> "b" (# "ab" 0 2) ==> "ab" (# "foo" "bar") ==> "foobar" (# "foo") ==> "foo" (# "foo" "") ==> "foo" (# "" "foo") ==> "foo" (#) ==> "" (# 0) ==> "" (# "" "") ==> #t (# "" "") ==> #f (#?> "" "") ==> #f (# "" "") ==> #t (#=?> "" "") ==> #t (# "" "") ==> #t (# "" "") ==> #f (#?> "" "") ==> #f (# "" "") ==> #t (#=?> "" "") ==> #t (# "A" "B") ==> #f (# "a" "b") ==> #f (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "B") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #f (#?> "A" "B") ==> #f (#?> "a" "b") ==> #f (#?> "9" "0") ==> #t (#?> "A" "A") ==> #f (# "A" "B") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #t (#=?> "A" "B") ==> #f (#=?> "a" "b") ==> #f (#=?> "9" "0") ==> #t (#=?> "A" "A") ==> #t (# "A" "B") ==> #f (# "a" "B") ==> #f (# "A" "b") ==> #f (# "a" "b") ==> #f (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "a") ==> #t (# "A" "B") ==> #t (# "a" "B") ==> #t (# "A" "b") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #f (# "A" "a") ==> #f (#?> "A" "B") ==> #f (#?> "a" "B") ==> #f (#?> "A" "b") ==> #f (#?> "a" "b") ==> #f (#?> "9" "0") ==> #t (#?> "A" "A") ==> #f (#?> "A" "a") ==> #f (# "A" "B") ==> #t (# "a" "B") ==> #t (# "A" "b") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "a") ==> #t (#=?> "A" "B") ==> #f (#=?> "a" "B") ==> #f (#=?> "A" "b") ==> #f (#=?> "a" "b") ==> #f (#=?> "9" "0") ==> #t (#=?> "A" "A") ==> #t (#=?> "A" "a") ==> #t SECTION(6 8) (# #(0 (2 2 2 2) "Anna")) ==> #t (# a b c) ==> #(a b c) (#) ==> #() (# #(0 (2 2 2 2) "Anna")) ==> 3 (# #()) ==> 0 (# #(1 1 2 3 5 8 13 21) 5) ==> 8 (vector-set #(0 ("Sue" "Sue") "Anna")) ==> #(0 ("Sue" "Sue") "Anna") (# 2 hi) ==> #(hi hi) (# 0) ==> #() (# 0 a) ==> #() SECTION(6 9) (# #) ==> #t (# car) ==> #f (# # "r4rstest.scm": (x) (* x x)>) ==> #t (# (lambda (x) (* x x))) ==> #f (# #) ==> #t (# #) ==> #t (# # (3 4)) ==> 7 (# # "r4rstest.scm": (a b) (+ a b)> (3 4)) ==> 7 (# # 10 (3 4)) ==> 17 (# # ()) ==> () (# "r4rstest.scm": args (f (apply g args))> 12 75) ==> 30 (# # ((a b) (d e) (g h))) ==> (b e h) (# # (1 2 3) (4 5 6)) ==> (5 7 9) (# # (1 2 3)) ==> (1 2 3) (# # (1 2 3)) ==> (1 2 3) (# # (1 2 3)) ==> (-1 -2 -3) (for-each #(0 1 4 9 16)) ==> #(0 1 4 9 16) (# # "r4rstest.scm": (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t>) ==> -3 (# (1 2 3 4)) ==> 4 (# (a b . c)) ==> #f (# # ()) ==> () SECTION(6 10 1) (# #) ==> #t (# #) ==> #t (# "r4rstest.scm" #) ==> #t (# #) ==> #t SECTION(6 10 2) (# #) ==> #\; (# #) ==> #\; (# #) ==> (define cur-section (quote ())) (# #) ==> #\( (# #) ==> (define errs (quote ())) SECTION(6 10 3) (# "tmp1" # "r4rstest.scm": (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file)>) ==> #t (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) Passed all tests ;testing inexact numbers; SECTION(6 2) (# 1 1.) ==> #f (# 0 0.0) ==> #f (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t SECTION(6 5 5) (magnitude 1.) ==> 1. (# 1.e300+1.e300i 4.e300+4.e300i) ==> 2.5e-1 (magnitude 1.) ==> 1. (# 1.e-300+1.e-300i 4.e-300+4.e-300i) ==> 2.5e-1 (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 0.0 0.0) ==> #t (# 3.9) ==> #t (max #t) ==> #t (# 3.9 4) ==> 4. (#inexact> 4) ==> 4. (#inexact> 4.) ==> 4. (#exact> 4) ==> 4 (#exact> 4.) ==> 4 (# -4.5) ==> -4. (# -3.5) ==> -4. (# -3.9) ==> -4. (# 0.0) ==> 0.0 (# 2.5e-1) ==> 0.0 (# 8.e-1) ==> 1. (# 3.5) ==> 4. (# 4.5) ==> 4. (# 0.0 1.) ==> 0.0 (# 0.0 1) ==> 0.0 (# 0 1.) ==> 0.0 (# -25 0.0) ==> 1. (# -3.25 0.0) ==> 1. (# -3.25 0) ==> 1. (# 1 1) ==> 7.853981633974483e-1 (# "tmp3" # "r4rstest.scm": (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file)>) ==> #t (# #) ==> (define foo (quote (2.5e-1 -3.25))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (2.5e-1 -3.25) (# #) ==> (define foo (quote (2.5e-1 -3.25))) (pentium-fdiv-bug #t) ==> #t Passed all tests SECTION(6 5 6) (float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (mult-float-print-test #t) ==> #t (# cnt 308) success) (let* ((estr (string-append "1.e" (number->string cnt))) (num (string->number estr)) (str (number->string num))) (cond ((or (>= (string-length str) 10) (not (equal? (string->number str) num))) (set! success #f) (for-each write (list estr num str (string->number str))))))))>) ==> #t ;testing bignums; SECTION(6 5 7) (# 33333333333333333333 3) ==> 0 (# 33333333333333333333 -3) ==> 0 (# 33333333333333333333 3) ==> 0 (# 33333333333333333333 -3) ==> 0 (# 33333333333333333332 3) ==> 2 (# 33333333333333333332 -3) ==> -1 (# 33333333333333333332 3) ==> 2 (# 33333333333333333332 -3) ==> 2 (# -33333333333333333332 3) ==> 1 (# -33333333333333333332 -3) ==> -2 (# -33333333333333333332 3) ==> -2 (# -33333333333333333332 -3) ==> -2 (# 3 33333333333333333333) ==> 3 (# -3 33333333333333333333) ==> 33333333333333333330 (# 3 33333333333333333333) ==> 3 (# -3 33333333333333333333) ==> -3 (# 3 -33333333333333333333) ==> -33333333333333333330 (# -3 -33333333333333333333) ==> -3 (# 3 -33333333333333333333) ==> 3 (# -3 -33333333333333333333) ==> -3 (# -2177452800 86400) ==> 0 (# 2177452800 -86400) ==> 0 (# 2177452800 86400) ==> 0 (# -2177452800 -86400) ==> 0 (# 0 -2177452800) ==> 0 (remainder #t) ==> #t (remainder #t) ==> #t (# 33333333333333333333 11111111111111111111) ==> 11111111111111111111 (# 33333333333333333332 11111111111111111111) ==> 1 (# 33333333333333333330 11111111111111111111) ==> 1 (# 33333333333333333333 33333333333333333330) ==> 3 (# 33333333333333333333 11111111111111111111) ==> 33333333333333333333 (# -3 11111111111111111111) ==> 33333333333333333333 SECTION(6 5 8) (#string> 281474976710655325431) ==> "281474976710655325431" Passed all tests ;testing bignum-inexact comparisons; SECTION(6 5 5) (# 1427247692705959881058285969449495136382746625 1.42724769270596e45 1427247692705959881058285969449495136382746623) ==> #f (# 1.42724769270596e45 1427247692705959881058285969449495136382746625 1427247692705959881058285969449495136382746623) ==> #f (# 1427247692705959881058285969449495136382746623 1.42724769270596e45 1427247692705959881058285969449495136382746625) ==> #t To fully test continuations, Scheme 4, and DELAY/FORCE do: (test-cont) (test-sc4) (test-delay) ;testing scheme 4 functions; SECTION(6 7) (#list> "P l") ==> (#\P #\space #\l) (#list> "") ==> () (#string> (#\1 #\\ #\")) ==> "1\\\"" (#string> ()) ==> "" SECTION(6 8) (#list> #(dah dah didah)) ==> (dah dah didah) (#list> #()) ==> () (#vector> (dididit dah)) ==> #(dididit dah) (#vector> ()) ==> #() SECTION(6 10 4) (load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) Passed all tests ;testing continuations; SECTION(6 9) (# (a (b (c))) ((a) b c)) ==> #t (# (a (b (c))) ((a) b c d)) ==> #f Passed all tests ;testing DELAY and FORCE; SECTION(6 9) (delay 3) ==> 3 (delay (3 3)) ==> (3 3) (delay 2) ==> 2 (# # count x) count (force p)))>>) ==> 6 (# #) ==> 6 (force 3) ==> 3 Passed all tests make[1]: Leaving directory '/build/scm-5f2' dh_testroot dh_prep debian/rules override_dh_auto_install make[1]: Entering directory '/build/scm-5f2' # Make .scm scheme library scripts non-executable... chmod a-x *.scm *.c # except compile.scm chmod a+x compile.scm # skip; files listed explicitly make[1]: Leaving directory '/build/scm-5f2' dh_install dh_install: warning: Compatibility levels before 10 are deprecated (level 9 in use) dh_installdocs dh_installdocs: warning: Compatibility levels before 10 are deprecated (level 9 in use) dh_installchangelogs dh_installchangelogs: warning: Compatibility levels before 10 are deprecated (level 9 in use) dh_installexamples dh_installexamples: warning: Compatibility levels before 10 are deprecated (level 9 in use) dh_installman dh_installman: warning: Compatibility levels before 10 are deprecated (level 9 in use) dh_installinfo dh_installinfo: warning: Compatibility levels before 10 are deprecated (level 9 in use) dh_perl dh_link dh_strip_nondeterminism dh_compress dh_compress: warning: Compatibility levels before 10 are deprecated (level 9 in use) dh_compress: warning: Compatibility levels before 10 are deprecated (level 9 in use) dh_fixperms dh_missing dh_missing: warning: Compatibility levels before 10 are deprecated (level 9 in use) debian/rules override_dh_strip make[1]: Entering directory '/build/scm-5f2' dh_strip --no-automatic-dbgsym dh_strip: warning: Compatibility levels before 10 are deprecated (level 9 in use) dh_strip: warning: Compatibility levels before 10 are deprecated (level 9 in use) make[1]: Leaving directory '/build/scm-5f2' dh_makeshlibs dh_makeshlibs: warning: Compatibility levels before 10 are deprecated (level 9 in use) dh_shlibdeps dh_shlibdeps: warning: Compatibility levels before 10 are deprecated (level 9 in use) dh_shlibdeps: warning: Compatibility levels before 10 are deprecated (level 9 in use) dh_installdeb dh_installdeb: warning: Compatibility levels before 10 are deprecated (level 9 in use) dh_gencontrol dh_md5sums dh_builddeb dpkg-deb: building package 'libscm-dev' in '../libscm-dev_5f2-2_arm64.deb'. dpkg-deb: building package 'scm' in '../scm_5f2-2_arm64.deb'. dpkg-genbuildinfo --build=binary dpkg-genchanges --build=binary >../scm_5f2-2_arm64.changes dpkg-genchanges: info: binary-only upload (no source code included) dpkg-source --after-build . dpkg-buildpackage: info: binary-only upload (no source included) dpkg-genchanges: info: not including original source code in upload I: copying local configuration I: user script /srv/workspace/pbuilder/3237/tmp/hooks/B01_cleanup starting I: user script /srv/workspace/pbuilder/3237/tmp/hooks/B01_cleanup finished I: unmounting dev/ptmx filesystem I: unmounting dev/pts filesystem I: unmounting dev/shm filesystem I: unmounting proc filesystem I: unmounting sys filesystem I: cleaning the build env I: removing directory /srv/workspace/pbuilder/3237 and its subdirectories I: Current time: Thu Sep 29 12:51:30 +14 2022 I: pbuilder-time-stamp: 1664405490