feat: 9.5.9
This commit is contained in:
parent
cb1753732b
commit
35f43a7909
1084 changed files with 558985 additions and 0 deletions
2
.gitattributes
vendored
Normal file
2
.gitattributes
vendored
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
*.h linguist-language=C
|
||||
*.ms linguist-language=Scheme
|
||||
12
.github/workflows/build.sh
vendored
Executable file
12
.github/workflows/build.sh
vendored
Executable file
|
|
@ -0,0 +1,12 @@
|
|||
#!/bin/bash
|
||||
set -e -o pipefail
|
||||
./configure -m="$TARGET_MACHINE"
|
||||
make -j $(getconf _NPROCESSORS_ONLN)
|
||||
case "$TARGET_MACHINE" in
|
||||
*a6nt)
|
||||
curl -Ls https://github.com/burgerrg/win-iconv/releases/download/v0.0.9/iconv-x64.dll > "$TARGET_MACHINE"/bin/"$TARGET_MACHINE"/iconv.dll
|
||||
;;
|
||||
*i3nt)
|
||||
curl -Ls https://github.com/burgerrg/win-iconv/releases/download/v0.0.9/iconv-x86.dll > "$TARGET_MACHINE"/bin/"$TARGET_MACHINE"/iconv.dll
|
||||
;;
|
||||
esac
|
||||
4
.github/workflows/summary
vendored
Normal file
4
.github/workflows/summary
vendored
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
-------- o=0 --------
|
||||
-------- o=3 --------
|
||||
-------- o=3 cp0=t --------
|
||||
-------- o=3 cp0=t eval=interpret rmg=2 --------
|
||||
7
.github/workflows/test.sh
vendored
Executable file
7
.github/workflows/test.sh
vendored
Executable file
|
|
@ -0,0 +1,7 @@
|
|||
#!/bin/bash
|
||||
if test -n "$PARALLEL_MATS" ; then
|
||||
njobs="$PARALLEL_MATS"
|
||||
else
|
||||
njobs="$(getconf _NPROCESSORS_ONLN)"
|
||||
fi
|
||||
make -C "$TARGET_MACHINE"/mats -j "$njobs" partialx
|
||||
74
.github/workflows/test.yml
vendored
Normal file
74
.github/workflows/test.yml
vendored
Normal file
|
|
@ -0,0 +1,74 @@
|
|||
---
|
||||
name: test
|
||||
on: [push, pull_request]
|
||||
jobs:
|
||||
test:
|
||||
strategy:
|
||||
fail-fast: false
|
||||
matrix:
|
||||
config:
|
||||
- machine: a6osx
|
||||
os: macos-11
|
||||
- machine: ta6osx
|
||||
os: macos-11
|
||||
- machine: i3le
|
||||
os: ubuntu-20.04
|
||||
- machine: ti3le
|
||||
os: ubuntu-20.04
|
||||
- machine: a6le
|
||||
os: ubuntu-20.04
|
||||
- machine: ta6le
|
||||
os: ubuntu-20.04
|
||||
- machine: i3nt
|
||||
os: windows-2019
|
||||
- machine: i3nt
|
||||
os: windows-2022
|
||||
- machine: ti3nt
|
||||
os: windows-2019
|
||||
- machine: ti3nt
|
||||
os: windows-2022
|
||||
- machine: a6nt
|
||||
os: windows-2019
|
||||
- machine: a6nt
|
||||
os: windows-2022
|
||||
- machine: ta6nt
|
||||
os: windows-2019
|
||||
- machine: ta6nt
|
||||
os: windows-2022
|
||||
runs-on: ${{ matrix.config.os }}
|
||||
env:
|
||||
TARGET_MACHINE: ${{ matrix.config.machine }}
|
||||
defaults:
|
||||
run:
|
||||
shell: bash
|
||||
working-directory: ${{ github.workspace }}
|
||||
steps:
|
||||
- name: Configure git on Windows
|
||||
if: ${{ runner.os == 'Windows' }}
|
||||
run: git config --global core.autocrlf false
|
||||
- name: Checkout
|
||||
uses: actions/checkout@v2
|
||||
- name: Setup 32-bit Linux
|
||||
if: ${{ endsWith(matrix.config.machine, 'i3le') }}
|
||||
run: |
|
||||
sudo dpkg --add-architecture i386
|
||||
sudo apt-get update
|
||||
sudo apt-get install gcc-multilib lib32ncurses5-dev uuid-dev:i386
|
||||
- name: Build Chez Scheme
|
||||
run: .github/workflows/build.sh
|
||||
- name: Run tests
|
||||
timeout-minutes: 30
|
||||
run: .github/workflows/test.sh
|
||||
- name: Archive workspace
|
||||
if: always()
|
||||
run: tar -c -h -z -f $TARGET_MACHINE.tgz $TARGET_MACHINE
|
||||
- name: Upload archive
|
||||
if: always()
|
||||
uses: actions/upload-artifact@v2
|
||||
with:
|
||||
name: ${{ matrix.config.machine }}
|
||||
path: ${{ matrix.config.machine }}.tgz
|
||||
- name: Check test results
|
||||
run: |
|
||||
cat $TARGET_MACHINE/mats/summary
|
||||
diff -q .github/workflows/summary $TARGET_MACHINE/mats/summary
|
||||
51
.gitignore
vendored
Normal file
51
.gitignore
vendored
Normal file
|
|
@ -0,0 +1,51 @@
|
|||
*~
|
||||
.*.sw?
|
||||
.sw?
|
||||
/Makefile
|
||||
/TAGS
|
||||
/a6le/
|
||||
/a6nt/
|
||||
/a6osx/
|
||||
/bin/
|
||||
/i3le/
|
||||
/i3nt/
|
||||
/i3osx/
|
||||
/ta6le/
|
||||
/ta6nt/
|
||||
/ta6osx/
|
||||
/ti3le/
|
||||
/ti3nt/
|
||||
/ti3osx/
|
||||
/xc-*/
|
||||
*.*run
|
||||
/csug/math/csug/
|
||||
/csug/Makefile
|
||||
/csug/*.aux
|
||||
/csug/*.html
|
||||
/csug/*.tex
|
||||
/csug/csug.ans
|
||||
/csug/csug.bbl
|
||||
/csug/csug.blg
|
||||
/csug/*.haux
|
||||
/csug/csug.htoc
|
||||
/csug/*.idx
|
||||
/csug/csug.ilg
|
||||
/csug/csug.ind
|
||||
/csug/csug.pdf
|
||||
/csug/*.rfm
|
||||
/csug/csug.sfm
|
||||
/csug/csug.toc
|
||||
/csug/*.hidx
|
||||
/csug/libslisted*
|
||||
/csug/libsrecorded*
|
||||
/csug/*.log
|
||||
/release_notes/math/release_notes/
|
||||
/release_notes/Makefile
|
||||
/release_notes/*.tex
|
||||
/release_notes/*.aux
|
||||
/release_notes/*.haux
|
||||
/release_notes/*.html
|
||||
/release_notes/*.htoc
|
||||
/release_notes/*.htoc
|
||||
/release_notes/*.log
|
||||
/release_notes/release_notes.pdf
|
||||
12
.gitmodules
vendored
Normal file
12
.gitmodules
vendored
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
[submodule "zlib"]
|
||||
path = zlib
|
||||
url = https://github.com/madler/zlib.git
|
||||
[submodule "nanopass"]
|
||||
path = nanopass
|
||||
url = https://github.com/nanopass/nanopass-framework-scheme.git
|
||||
[submodule "stex"]
|
||||
path = stex
|
||||
url = https://github.com/dybvig/stex
|
||||
[submodule "lz4"]
|
||||
path = lz4
|
||||
url = https://github.com/lz4/lz4.git
|
||||
368
BUILDING
Normal file
368
BUILDING
Normal file
|
|
@ -0,0 +1,368 @@
|
|||
Building Chez Scheme Version 9.5.9
|
||||
Copyright 1984-2022 Cisco Systems, Inc.
|
||||
|
||||
Licensed under the Apache License, Version 2.0 (the "License");
|
||||
you may not use this file except in compliance with the License.
|
||||
You may obtain a copy of the License at
|
||||
|
||||
http://www.apache.org/licenses/LICENSE-2.0
|
||||
|
||||
Unless required by applicable law or agreed to in writing, software
|
||||
distributed under the License is distributed on an "AS IS" BASIS,
|
||||
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
See the License for the specific language governing permissions and
|
||||
limitations under the License.
|
||||
|
||||
----------------------------------------------------------------------------
|
||||
|
||||
This directory contains the sources for Chez Scheme, plus boot and header
|
||||
files for various supported machine types.
|
||||
|
||||
BASICS
|
||||
|
||||
Building and installing Chez Scheme on a recent version of Linux or OS X
|
||||
is typically as simple as installing the prerequisites listed below and
|
||||
running (Windows build instructions appear under the heading WINDOWS
|
||||
later in this file):
|
||||
|
||||
./configure
|
||||
sudo make install
|
||||
|
||||
This should not take more than a minute or so, after which the commands
|
||||
'scheme' and 'petite' can be used to run Chez Scheme and Petite Chez
|
||||
Scheme, while 'man scheme' and 'man petite' can be used to view the
|
||||
manual pages. Chez Scheme and Petite Chez Scheme are terminal-based
|
||||
programs, not GUIs. They both incorporate sophisticated command-line
|
||||
editing reminiscent of tcsh but with support for expressions that span
|
||||
multiple lines.
|
||||
|
||||
Prerequisites:
|
||||
|
||||
* GNU Make
|
||||
* gcc
|
||||
* Header files and libraries for ncurses [unless --disable-curses]
|
||||
* Header files and libraries for X windows [unless --disable-x11]
|
||||
* Header files and libraries for uuid
|
||||
|
||||
Uninstalling on Unix-like systems is as simple as running:
|
||||
|
||||
sudo make uninstall
|
||||
|
||||
BUILDING VERSION 9.5 AND EARLIER
|
||||
|
||||
If the environment variable CHEZSCHEMELIBDIRS is set, please unset
|
||||
it before running make. Depending on the variable's value, it can
|
||||
cause the build process to fail.
|
||||
|
||||
DETAILS
|
||||
|
||||
The sources for Chez Scheme come in two parts:
|
||||
|
||||
* A set of Scheme source files found in the subdirectory s. Compiling
|
||||
these produces the boot files petite.boot and scheme.boot, along with
|
||||
two header files, equates.h and scheme.h.
|
||||
|
||||
* A set of C source files found in the subdirectory c. Compiling and
|
||||
linking these files produces the executable scheme (scheme.exe under
|
||||
Windows). Compiling the C sources requires the two header files
|
||||
produced by compiling the Scheme sources.
|
||||
|
||||
Since the Scheme sources can be compiled only by a working version of
|
||||
Chez Scheme, it's not actually possible to build Chez Scheme from source.
|
||||
That's why the boot and header files are packaged with the sources.
|
||||
|
||||
'./configure' attempts to determine what type of machine it's on and,
|
||||
if successful, creates several files and directories:
|
||||
|
||||
* The directory nanopass containing the Nanopass Infrastructure,
|
||||
retrieved from GitHub.
|
||||
|
||||
* A make file, Makefile, in the root (top level) directory.
|
||||
|
||||
* A "workarea", or subdirectory named for the machine type (e.g.,
|
||||
a6le for nonthreaded 64-bit linux). The workarea is a mirror of
|
||||
the root directory, with subdirectories named c, s, and so on.
|
||||
Compilation takes place in the workarea.
|
||||
|
||||
* Within the workarea, the files Makefile, Mf-install, and Mf-boot.
|
||||
|
||||
'./configure' recognizes various options for controlling the type
|
||||
of build and the installation location. For example, '--threads'
|
||||
requests a build with support for native threads, '--32' requests
|
||||
a 32-bit build, and '--installprefix <pathname>' specifies the
|
||||
installation root. './configure --help' prints the supported
|
||||
options.
|
||||
|
||||
The make file supports several targets:
|
||||
|
||||
'make' or 'make build'
|
||||
compiles and links the C sources to produce the executable, then
|
||||
bootstraps the Scheme sources. Bootstrapping involves using the
|
||||
freshly built scheme executable along with the distributed boot files
|
||||
to compile the Scheme sources. If the new boot files are equivalent
|
||||
to the old boot files, the system is bootstrapped. Otherwise, the new
|
||||
boot files are used to create a newer set, and those are compared.
|
||||
If this succeeds, the system is bootstrapped. Otherwise, the make
|
||||
fails. This should not fail unless the distributed boot files are
|
||||
out of sync with the sources.
|
||||
|
||||
When you make a modification to the system that causes the C side to
|
||||
get out of sync with the Scheme side so that the build fails, try
|
||||
the following from $W if you have a recent version of Chez Scheme
|
||||
installed in your path:
|
||||
|
||||
make -C s clean all patchfile=patch Scheme=scheme SCHEMEHEAPDIRS={see below}
|
||||
make build
|
||||
|
||||
Set SCHEMEHEAPDIRS to /usr/lib/csv%v/%m:/usr/local/lib/csv%v/%m on
|
||||
Unix-like systems and to %x/../../boot/%m on Windows systems.
|
||||
|
||||
Alternatively, if you have a build before the changes at full path
|
||||
<orig>, use
|
||||
|
||||
make from-orig ORIG=<orig>
|
||||
|
||||
To run Chez Scheme without installing, you need to tell the
|
||||
executable where to find the boot files. The run target of the
|
||||
makefile will do that
|
||||
|
||||
make run
|
||||
|
||||
or this can be done manually via command-line arguments, e.g.:
|
||||
|
||||
$W/bin/$M/scheme -b $W/boot/$M/petite.boot -b $W/boot/$M/scheme.boot
|
||||
|
||||
or by setting the SCHEMEHEAPDIRS variable to point to the directory
|
||||
containing the boot files. For example, in bash:
|
||||
|
||||
SCHEMEHEAPDIRS=$W/boot/$M $W/bin/$M/scheme
|
||||
|
||||
and in tcsh:
|
||||
|
||||
setenv SCHEMEHEAPDIRS "$W/boot/$M"
|
||||
$W/bin/$M/scheme
|
||||
|
||||
In all cases, $W should be replaced with the name of the workarea,
|
||||
and $M should be replaced with the machine type. (Unless the default
|
||||
is overridden via an argument to ./configure, $W is the same as $M.)
|
||||
|
||||
'sudo make install'
|
||||
runs the build plus installs the resulting executables, boot files,
|
||||
example files, and manual pages. If the installprefix used with
|
||||
'./configure' is writable by the current user, then 'sudo' is not
|
||||
necessary.
|
||||
|
||||
'sudo make uninstall'
|
||||
uninstalls the executables, boot files, example files, and manual pages.
|
||||
As with 'make install', if the installprefix used with './configure' is
|
||||
writable by the current user, then 'sudo' is not necessary.
|
||||
|
||||
'make test'
|
||||
runs the build plus runs a set of test programs in various different
|
||||
ways, e.g., with different compiler options. It can take 20 minutes
|
||||
to more than an hour, depending on the speed of the machine and number
|
||||
of parallel targets executed by make (as configured, e.g., by the -j
|
||||
flag).
|
||||
|
||||
NB: A complete run does not imply no errors occurred. To check for
|
||||
errors, look at the file $W/mats/summary, where $W is the name of the
|
||||
workarea created by ./configure. $W/mats/summary should contain one
|
||||
line per test run, something like this:
|
||||
|
||||
-------- o=0 --------
|
||||
-------- o=3 --------
|
||||
-------- o=0 cp0=t --------
|
||||
-------- o=3 cp0=t --------
|
||||
-------- o=0 spi=t p=t --------
|
||||
-------- o=3 spi=t p=t --------
|
||||
-------- o=0 eval=interpret --------
|
||||
-------- o=3 eval=interpret --------
|
||||
-------- o=0 cp0=t eval=interpret --------
|
||||
-------- o=3 cp0=t eval=interpret --------
|
||||
-------- o=0 ehc=t eoc=f --------
|
||||
-------- o=3 ehc=t eval=interpret --------
|
||||
|
||||
If there is anything else in $W/mats/summary, something unexpected
|
||||
occurred.
|
||||
|
||||
'make bootfiles'
|
||||
runs the build plus uses the locally built system to recreate the
|
||||
distributed boot and header files for each supported machine type.
|
||||
It should be run whenever modifications made to the Scheme sources
|
||||
are to be committed to the source-code repository so that up-to-date
|
||||
boot and header files can be committed as well. 'make bootfiles'
|
||||
can take 5 minutes or more.
|
||||
|
||||
'make bootfiles' builds boot files for each machine type for which
|
||||
a subdirectory exists in the top-level boot directory. To build
|
||||
for a supported machine type that isn't built by default, simply
|
||||
add the appropriate subdirectory, i.e., 'mkdir boot/$M', where M
|
||||
is the machine type, before running 'make bootfiles'. You can
|
||||
also run '(cd $W ; make -f Mf-boot $M.boot)', where W is the name
|
||||
of a built work area for the host machine type, to build just the
|
||||
boot files for machine-type M.
|
||||
|
||||
'make docs'
|
||||
runs the build plus generates HTML and PDF versions of the Chez Scheme
|
||||
Users Guide and the release notes. Unlike the other build targets,
|
||||
the documentation is not built in the workarea, but rather in the
|
||||
'csug' and 'release_notes' directories.
|
||||
|
||||
Building the documentation requires a few prerequisites not required
|
||||
to build the rest of Chez Scheme. The following must be available
|
||||
in your PATH:
|
||||
* A TeX distribution (including latex, pdflatex, dvips, and gs)
|
||||
* ppmtogif and pnmcrop (from Netpbm)
|
||||
An X11 installation is not required, but ppmtogif does require an
|
||||
'rgb.txt' file, which it will automatically locate in the common
|
||||
X11 installation locations. If ppmtogif fails because it cannot find
|
||||
an rgb.txt file, you can use the RGBDEF environment variable to
|
||||
specify the path to a file. If your system has an emacs installation,
|
||||
then you can find an rgb.txt file in the 'etc' directory of the emacs
|
||||
installation. If your system has a vim installation, then it might
|
||||
contain an rgb.txt in $VIMRUNTIME.
|
||||
|
||||
'sudo make install-docs'
|
||||
builds the documentation as with 'make docs' and installs it. If the installcsug and
|
||||
installreleasenotes directories used with './configure' are writable by the current
|
||||
user, then 'sudo' is not necessary.
|
||||
|
||||
'make clean'
|
||||
removes binaries from the workarea.
|
||||
|
||||
'make distclean'
|
||||
removes nanopass, Makefile, built documentation, and all workareas.
|
||||
|
||||
OTHER UNIX VARIANTS
|
||||
|
||||
To build on Unix variants other than Linux and OS X, you will first
|
||||
need to build boot files on a Linux or OS X machine. On that machine,
|
||||
after building Chez Scheme, create boot files for the target machine
|
||||
<machine> with:
|
||||
|
||||
make boot XM=<machine>
|
||||
|
||||
Copy the generated boot/<machine> directory to the target machine,
|
||||
adding to or replacing the boot directory with pre-built boot files
|
||||
there, and then build as on Linux.
|
||||
|
||||
Remember to use gmake if make is not GNU make. If you run into linker
|
||||
trouble, try running configure with --libkernel so that the build
|
||||
avoids running ld directly.
|
||||
|
||||
On OpenBSD, Chez Scheme must be built and installed on a filesystem
|
||||
that is mounted with wxallowed.
|
||||
|
||||
On NetBSD, note that the makefiles run "paxctl +m" to enable WX pages
|
||||
(i.e., pages that have both write and execute enabled).
|
||||
|
||||
WINDOWS
|
||||
|
||||
Building Chez Scheme under 64-bit Windows with Bash/WSL, MinGW/MSYS,
|
||||
or Cygwin follows the instructions above, except that 'make install'
|
||||
and 'make uninstall' are not supported. Alternatively, the main Chez
|
||||
Scheme executable can be built from the Windows command line or
|
||||
cross-compiled using MinGW as described further below.
|
||||
|
||||
On Bash/WSL, the build directory must be in a location with a Windows
|
||||
path such as /mnt/c, and the 'OS' environment variable must be set to
|
||||
'Windows_NT' to indicate a build for Windows, as opposed to a build
|
||||
for Linux on Windows:
|
||||
|
||||
env OS=Windows_NT ./configure
|
||||
env OS=Windows_NT make
|
||||
|
||||
Prerequisites:
|
||||
|
||||
* Bash/WSL, MinGW/MSYS, or Cygwin with bash, git, grep, make, sed, etc.
|
||||
* Microsoft Visual Studio 2022, 2019, 2017, or 2015
|
||||
* WiX Toolset (for making an install)
|
||||
|
||||
Be sure that git config core.autocrlf is set to false.
|
||||
|
||||
If you're using Visual Studio 2022 or 2019, install "Desktop
|
||||
development with C++" on the "Workloads" tabs and the "C++ 2022 [or
|
||||
2019] Redistributable MSMs" on the "Individual components" tab under
|
||||
the "Compilers, build tools, and runtimes" section.
|
||||
|
||||
To run Chez Scheme or Petite Chez Scheme from a Windows command prompt,
|
||||
set PATH:
|
||||
|
||||
set PATH=$W\bin\$M;%PATH%
|
||||
|
||||
again with $W and $M replaced with the workarea name and machine
|
||||
type, and start Chez Scheme with the command "scheme" or Petite
|
||||
Chez with the command "petite".
|
||||
|
||||
The executables are dynamically linked against the Microsoft Visual
|
||||
C++ run-time library vcruntime140.dll. If you distribute the
|
||||
executables to a different system, be sure to include the
|
||||
redistributable run-time library.
|
||||
|
||||
Making an Install for Windows
|
||||
|
||||
cd wininstall
|
||||
make workareas
|
||||
make
|
||||
|
||||
This will create workareas and compile binaries for the a6nt, i3nt,
|
||||
ta6nt, and ti3nt configurations and then include them in a single
|
||||
Windows installer package Chez Scheme.exe. The package also includes
|
||||
example files and the redistributable Microsoft Visual C++ run-time
|
||||
libraries.
|
||||
|
||||
Testing under Windows
|
||||
|
||||
The iconv tests in mats/io.ms require that a 32-bit or 64-bit (as
|
||||
appropriate) iconv.dll, libiconv.dll, or libiconv-2.dll implementing
|
||||
GNU libiconv be located in $W\bin\$M or the path. Windows sources for
|
||||
libiconv can be found at:
|
||||
|
||||
http://gnuwin32.sourceforge.net/packages/libiconv.htm
|
||||
|
||||
An alternative that uses the Windows API can be found at:
|
||||
|
||||
https://github.com/burgerrg/win-iconv/releases
|
||||
|
||||
If the DLL is not present, the iconv tests will fail. No other tests
|
||||
should be affected.
|
||||
|
||||
Unset the TZ environment variable before running the tests, because
|
||||
the Cygwin values are incompatible with the Microsoft C Runtime
|
||||
Library.
|
||||
|
||||
Use 'make test' described above to run the tests.
|
||||
|
||||
WINDOWS EXECUTABLE VIA COMMAND PROMPT
|
||||
|
||||
To build the Chez Scheme executable using Microsoft Visual Studio,
|
||||
first set up command-line tools. The c\vs.bat script can help if you
|
||||
supply amd64 for a 64-bit build or x86 for a 32-bit build:
|
||||
|
||||
c\vs.bat amd64
|
||||
|
||||
Then, run c\build/bat with a machine name, either ta6nt (64-bit
|
||||
threaded), a6nt (64-bit non-threaded), ti3nt (32-bit threaded), or
|
||||
i3nt (32-bit non-threaded):
|
||||
|
||||
c\build.bat ta6nt
|
||||
|
||||
The resulting executable in <machine>\bin\<machine> relies on
|
||||
bootfiles in ..\boot\<machine> relative to the executable.
|
||||
|
||||
CROSS-COMPILING THE WINDOWS EXECUTABLE
|
||||
|
||||
To cross-compile the main Chez Scheme executable for Windows using
|
||||
MinGW, specify suitable build tools to configure, perhaps using
|
||||
--toolprefix= like this:
|
||||
|
||||
./configure -m=ta6nt --threads --toolprefix=x86_64-w64-mingw32-
|
||||
|
||||
Then, make with c/Mf-<machine> while supplying cross=t and o=o,
|
||||
possibly like this:
|
||||
|
||||
(cd ta6nt/c && make -f Mf-ta6nt cross=t o=o)
|
||||
|
||||
The executable is written to <machine>/bin/<machine>, and it should be
|
||||
installed with bootfiles in ../boot/<machine>/ relative to the
|
||||
executable.
|
||||
55
CHARTER.md
Normal file
55
CHARTER.md
Normal file
|
|
@ -0,0 +1,55 @@
|
|||
# Chez Scheme Project Charter (the “Charter”)
|
||||
|
||||
This Charter sets forth the responsibilities and procedures for
|
||||
technical contribution to, and oversight of, the Chez Scheme Project
|
||||
(the “Project”). Participation in the Project is open to all in a
|
||||
fair, reasonable, and non-discriminatory manner. Contributors to
|
||||
the Project must comply with the terms of this Charter.
|
||||
|
||||
1. Governance
|
||||
* The Project will involve Contributors and Committers.
|
||||
Contributors include anyone in the technical community who
|
||||
contributes code, documentation, or other technical artifacts
|
||||
to the Project. Committers are Contributors who have the
|
||||
ability to commit code directly to the Project’s main branch
|
||||
or repository.
|
||||
* The Committers shall be responsible for technical oversight
|
||||
and other decision making of the Project. The Committers will
|
||||
seek to make decisions by consensus. Except where otherwise
|
||||
specified below, if a consensus cannot be reached, Project
|
||||
decisions shall be made by a two-thirds vote of the Committers.
|
||||
* A unanimous vote of the Committers shall be required for any
|
||||
change or amendment to this Charter.
|
||||
|
||||
2. Technical Policy
|
||||
* Any Committer may review a pull request and accept, reject,
|
||||
or solicit modifications to the request, at the Committer’s
|
||||
sole discretion. For changes that might be highly impactful
|
||||
or controversial, Committers are encouraged, but not required,
|
||||
to seek consensus from the other Committers before proceeding.
|
||||
Committers are not required to respond to every pull request,
|
||||
but shall make reasonable efforts to do so.
|
||||
* Any existing Committer may nominate a Contributor with the
|
||||
demonstrated experience, knowledge, and commitment to the
|
||||
Project to become a new Committer. A nominee can become a
|
||||
Committer only by a unanimous vote of the existing Committers.
|
||||
* Any Committer may resign at any time by giving notice to the
|
||||
other Committers. Any Committer may also be removed at any
|
||||
time by a unanimous vote of the other Committers.
|
||||
|
||||
3. Intellectual Property Policy
|
||||
* All new inbound code contributions to the Project shall be
|
||||
made under the [Apache 2.0 license]
|
||||
(http://www.apache.org/licenses/LICENSE-2.0).
|
||||
* By submitting a contribution, a Contributor certifies that
|
||||
the Contributor is the sole creator of the contribution and/or
|
||||
has the right under all applicable intellectual property laws
|
||||
to provide the contribution to the Project under the terms of
|
||||
the Apache 2.0 license.
|
||||
* If a Contributor wishes to contribute existing source code
|
||||
covered by an open-source license other than Apache 2.0, the
|
||||
Contributor must seek an exception from the Committers.
|
||||
Exceptions shall be approved only by a unanimous vote of the
|
||||
Committers and duly recorded in the file NOTICE.
|
||||
* All outbound code will be made available under the Apache 2.0
|
||||
license.
|
||||
94
CONTRIBUTING.md
Normal file
94
CONTRIBUTING.md
Normal file
|
|
@ -0,0 +1,94 @@
|
|||
# Contributing to Chez Scheme
|
||||
|
||||
Chez Scheme is a work in progress, and we invite contributions from
|
||||
anyone who is interested in putting forth the necessary effort.
|
||||
One or more of the committers will review pull requests for
|
||||
compatibility with the principles and guidance given below. Details
|
||||
on pull-request processing are given in [the governance
|
||||
document](CHARTER.md).
|
||||
|
||||
Our core principles are pretty simple: we try to make Chez Scheme
|
||||
reliable and efficient.
|
||||
|
||||
Reliability means behaving as designed and documented. We have no
|
||||
"known bugs" list, preferring instead careful design, coding, and
|
||||
testing practices that prevent most bugs and fixing bugs that do
|
||||
occur as they are discovered. A Scheme program run using Chez
|
||||
Scheme can crash due to bugs in the program, but it should not crash
|
||||
due to bugs in the implementation.
|
||||
|
||||
Efficiency means performing at a high level, consuming minimal cpu
|
||||
time and memory. Performance should be a continuous function, with
|
||||
no cliffs or surprises, and should scale well as program or problem
|
||||
size grow. Performance should be balanced across features, not
|
||||
good in one area and bad in another. Compile time is important as
|
||||
well as run time, so compiler optimizations are generally expected
|
||||
to pay their own way, i.e., indirectly benefit compiler performance
|
||||
enough to cover the direct cost of the optimization.
|
||||
|
||||
We attempt to achieve the core principles through careful control
|
||||
over growth, testing, and documentation.
|
||||
|
||||
Like the Scheme language itself, a good implementation is not built
|
||||
by piling up features but by providing enabling building blocks.
|
||||
So when asked to add a new feature, we first look for a way to
|
||||
achieve the same effect with existing functionality or smaller
|
||||
extensions that are more generally applicable.
|
||||
|
||||
Chez Scheme is tested in two ways: implicitly by bootstrapping
|
||||
itself and explicitly via a suite of tests. The suite of tests is
|
||||
about as large as the code base for the implementation, and it is
|
||||
often the case that more lines of test code than implementation
|
||||
code are added to support a new feature. We also benchmark the
|
||||
system whenever we make a change that might materially affect
|
||||
performance.
|
||||
|
||||
This project also includes documentation for Chez Scheme in the
|
||||
form of a manual page, a user's guide, and release notes, and we
|
||||
try to set high standards for this documentation. A feature isn't
|
||||
fully implemented until it has been documented. Writing documentation
|
||||
often exposes unnecessary complexity in the design and bugs in the
|
||||
implementation, particularly in corner cases.
|
||||
|
||||
Consistent with these principles, we naturally want Chez Scheme to
|
||||
evolve in various useful ways to, among other things:
|
||||
|
||||
* increase utility
|
||||
* improve user friendliness
|
||||
* support new standards
|
||||
* run on new platforms
|
||||
|
||||
Backward compatibility should be maintained whenever feasible but
|
||||
must sometimes take a back seat to progress in a system whose
|
||||
lifetime is measured in decades.
|
||||
|
||||
Please keep in mind the following guidance when preparing contributions:
|
||||
|
||||
* Appropriate tests and documentation changes should be included
|
||||
with all code changes.
|
||||
|
||||
* Coding structure (including indentation) should be consistent
|
||||
with the existing code base. This implies that contributors should
|
||||
study the existing code before contributing.
|
||||
|
||||
* Spend the time required to make the code as clean, clear, and
|
||||
efficient as possible. All other things equal, shorter code is
|
||||
preferable to longer code. Although some people believe more klocs
|
||||
equals more value, code quality is in fact inversely proportional
|
||||
to code size.
|
||||
|
||||
* All changes must be described in LOG as well as via git commit
|
||||
messages and/or github pull request logs. The revision-control
|
||||
system might change over time, but the LOG should always be present.
|
||||
|
||||
* Some contributions may be more appropriately published as projects
|
||||
of their own. If you are contributing a significant extension built
|
||||
using Chez Scheme, consider whether your contribution is such an
|
||||
independent project. An example of such a project is the [Nanopass
|
||||
Framework](http://github.com/nanopass/nanopass-framework-scheme)
|
||||
which is both used by Chez Scheme and was initially written using
|
||||
Chez Scheme, but evolves separately.
|
||||
|
||||
Before investing significant effort preparing a contribution,
|
||||
consider running the idea by one of the committers for additional
|
||||
guidance and advice.
|
||||
33
NOTICE
Normal file
33
NOTICE
Normal file
|
|
@ -0,0 +1,33 @@
|
|||
Chez Scheme Version 9.5.9
|
||||
Copyright 1984-2022 Cisco Systems, Inc.
|
||||
|
||||
This product includes code developed by Cisco Systems, Inc.
|
||||
|
||||
This product also includes separately copyrighted:
|
||||
|
||||
* Unicode data files from the Unicode Consortium
|
||||
|
||||
* Unicode data-file processing code developed by Abdulaziz Ghuloum and
|
||||
R. Kent Dybvig
|
||||
|
||||
* sorting code developed by Olin Shivers
|
||||
|
||||
* example programs, an html formatting module, and documentation
|
||||
support files developed by R. Kent Dybvig
|
||||
|
||||
* test code and other code used for testing developed by
|
||||
William D Clinger, by Dirk Lutzebaeck, and by Oscar Waddell and
|
||||
R. Kent Dybvig.
|
||||
|
||||
* code derived from C. David Boyer's command-line editor
|
||||
|
||||
Builds of this product incorporate separately copyrighted code from:
|
||||
|
||||
* the Nanopass Infrastructure, developed by Dipanwita Sarkar,
|
||||
Andrew W. Keep, R. Kent Dybvig, and Oscar Waddell
|
||||
|
||||
* the Zlib compression library, developed by Jean-loup Gailly and
|
||||
Mark Adler
|
||||
|
||||
* the LZ4 compression library, developed by Yann Collet and
|
||||
contributors.
|
||||
86
bintar/Makefile
Normal file
86
bintar/Makefile
Normal file
|
|
@ -0,0 +1,86 @@
|
|||
# Makefile
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
version = 9.5.9
|
||||
m := $(shell find ../bin/* -type d | xargs basename)
|
||||
|
||||
R = csv$(version)
|
||||
TARBALL = $(R)-$(m).tar.gz
|
||||
|
||||
CONTENTS=\
|
||||
$(R)/LICENSE\
|
||||
$(R)/NOTICE\
|
||||
$(R)/scheme.1.in\
|
||||
$(R)/installsh\
|
||||
$(R)/Makefile\
|
||||
$(R)/examples\
|
||||
$(R)/boot\
|
||||
$(R)/bin
|
||||
|
||||
$(TARBALL): $(CONTENTS)
|
||||
( BROKEN=`find -L $R -type l` ; \
|
||||
if test -n "$$BROKEN" ; then \
|
||||
echo "Error: missing $(BROKEN)" ; \
|
||||
exit 1 ; \
|
||||
fi )
|
||||
tar -czhf $(TARBALL) $R
|
||||
rm -rf $(R)
|
||||
|
||||
$(R)/LICENSE: $(R)
|
||||
( cd $(R) ; ln -s ../../../LICENSE . )
|
||||
|
||||
$(R)/NOTICE: $(R)
|
||||
( cd $(R) ; ln -s ../../../NOTICE . )
|
||||
|
||||
$(R)/scheme.1.in: $(R)
|
||||
( cd $(R) ; ln -s ../../scheme.1.in . )
|
||||
|
||||
$(R)/installsh: $(R)
|
||||
( cd $(R) ; ln -s ../../installsh . )
|
||||
|
||||
$(R)/Makefile: $(R)
|
||||
( cd $(R) ; ln -s ../../Mf-install Makefile )
|
||||
|
||||
$(R)/examples: $(R)
|
||||
( cd $(R) ; ln -s ../../examples . )
|
||||
|
||||
$(R)/boot: $(R)
|
||||
mkdir -p $(R)/boot/$(m)
|
||||
( cd $(R)/boot/$(m) ; ln -s ../../../../boot/$(m)/{scheme.h,petite.boot,scheme.boot,revision} . )
|
||||
case $(m) in \
|
||||
*nt) \
|
||||
( cd $R/boot/$(m) ; ln -s ../../../../boot/$(m)/{csv959md.lib,csv959mt.lib,mainmd.obj,mainmt.obj,scheme.res} . ) \
|
||||
;; \
|
||||
*) \
|
||||
( cd $R/boot/$(m) ; ln -s ../../../../boot/$(m)/{main.o,kernel.o} . ) \
|
||||
;; \
|
||||
esac
|
||||
|
||||
$(R)/bin: $(R)
|
||||
mkdir -p $(R)/bin/$(m)
|
||||
case $(m) in \
|
||||
*nt) \
|
||||
( cd $R/bin/$(m) ; ln -s ../../../../bin/$(m)/{scheme.exe,csv959.dll,csv959.lib,vcruntime140.lib} . ) \
|
||||
;; \
|
||||
*) \
|
||||
( cd $R/bin/$(m) ; ln -s ../../../../bin/$(m)/scheme . ) \
|
||||
;; \
|
||||
esac
|
||||
|
||||
$(R):
|
||||
mkdir $(R)
|
||||
|
||||
clean:
|
||||
rm -rf $(R) $(TARBALL)
|
||||
993
boot/a6le/equates.h
Normal file
993
boot/a6le/equates.h
Normal file
|
|
@ -0,0 +1,993 @@
|
|||
/* equates.h for Chez Scheme Version 9.5.9 */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct version */
|
||||
/* of this file for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Integer typedefs */
|
||||
typedef char I8;
|
||||
typedef unsigned char U8;
|
||||
typedef short I16;
|
||||
typedef unsigned short U16;
|
||||
typedef int I32;
|
||||
typedef unsigned int U32;
|
||||
typedef long I64;
|
||||
typedef unsigned long U64;
|
||||
|
||||
/* constants from cmacros.ss */
|
||||
#define $c_func_closure_index 0x4
|
||||
#define $c_func_closure_record_index 0x3
|
||||
#define $c_func_code_object_index 0x2
|
||||
#define $c_func_code_record_index 0x1
|
||||
#define COMPRESS_FORMAT_BITS 0x3
|
||||
#define COMPRESS_GZIP 0x0
|
||||
#define COMPRESS_HIGH 0x3
|
||||
#define COMPRESS_LOW 0x1
|
||||
#define COMPRESS_LZ4 0x1
|
||||
#define COMPRESS_MAX 0x4
|
||||
#define COMPRESS_MEDIUM 0x2
|
||||
#define COMPRESS_MIN 0x0
|
||||
#define ERROR_CALL_ARGUMENT_COUNT 0x4
|
||||
#define ERROR_CALL_NONPROCEDURE 0x3
|
||||
#define ERROR_CALL_NONPROCEDURE_SYMBOL 0x2
|
||||
#define ERROR_CALL_UNBOUND 0x1
|
||||
#define ERROR_MVLET 0x8
|
||||
#define ERROR_NONCONTINUABLE_INTERRUPT 0x6
|
||||
#define ERROR_OTHER 0x0
|
||||
#define ERROR_RESET 0x5
|
||||
#define ERROR_VALUES 0x7
|
||||
#define OPEN_ERROR_EXISTS 0x2
|
||||
#define OPEN_ERROR_EXISTSNOT 0x3
|
||||
#define OPEN_ERROR_OTHER 0x0
|
||||
#define OPEN_ERROR_PROTECTION 0x1
|
||||
#define PORT_FLAG_BINARY 0x400
|
||||
#define PORT_FLAG_BLOCK_BUFFERED 0x20000
|
||||
#define PORT_FLAG_BOL 0x8000
|
||||
#define PORT_FLAG_CHAR_POSITIONS 0x100000
|
||||
#define PORT_FLAG_CLOSED 0x800
|
||||
#define PORT_FLAG_COMPRESSED 0x2000
|
||||
#define PORT_FLAG_EOF 0x10000
|
||||
#define PORT_FLAG_EXCLUSIVE 0x4000
|
||||
#define PORT_FLAG_FILE 0x1000
|
||||
#define PORT_FLAG_FOLD_CASE 0x400000
|
||||
#define PORT_FLAG_INPUT 0x100
|
||||
#define PORT_FLAG_INPUT_MODE 0x80000
|
||||
#define PORT_FLAG_LINE_BUFFERED 0x40000
|
||||
#define PORT_FLAG_NO_FOLD_CASE 0x800000
|
||||
#define PORT_FLAG_OUTPUT 0x200
|
||||
#define PORT_FLAG_R6RS 0x200000
|
||||
#define SAPPEND 0x3
|
||||
#define SDEFAULT 0x4
|
||||
#define SEOF -0x1
|
||||
#define SERROR 0x0
|
||||
#define SICONV_DUNNO 0x0
|
||||
#define SICONV_INCOMPLETE 0x2
|
||||
#define SICONV_INVALID 0x1
|
||||
#define SICONV_NOROOM 0x3
|
||||
#define SREPLACE 0x2
|
||||
#define STRVNCATE 0x1
|
||||
#define address_bits 0x40
|
||||
#define alloc_waste_maximum 0x800
|
||||
#define annotation_all 0x3
|
||||
#define annotation_debug 0x1
|
||||
#define annotation_profile 0x2
|
||||
#define architecture x86_64
|
||||
#define asm_arg_reg_cnt 0x3
|
||||
#define asm_arg_reg_max 0x5
|
||||
#define bigit_bits 0x20
|
||||
#define bigit_bytes 0x4
|
||||
#define bignum_data_disp 0x9
|
||||
#define bignum_length_factor 0x40
|
||||
#define bignum_length_offset 0x6
|
||||
#define bignum_sign_offset 0x5
|
||||
#define bignum_type_disp 0x1
|
||||
#define black_hole (ptr)0x46
|
||||
#define box_ref_disp 0x9
|
||||
#define box_type_disp 0x1
|
||||
#define byte_alignment 0x10
|
||||
#define byte_constant_mask 0xFFFFFFFFFFFFFFFF
|
||||
#define bytes_per_card 0x200
|
||||
#define bytes_per_segment 0x4000
|
||||
#define bytevector_data_disp 0x9
|
||||
#define bytevector_immutable_flag 0x4
|
||||
#define bytevector_length_factor 0x8
|
||||
#define bytevector_length_offset 0x3
|
||||
#define bytevector_type_disp 0x1
|
||||
#define c_entry_name_vector #(thread-context get-thread-context handle-apply-overflood handle-docall-error handle-overflow handle-overflood handle-nonprocedure-symbol thread-list split-and-resize raw-collect-cond raw-tc-mutex activate-thread deactivate-thread unactivate-thread handle-values-error handle-mvlet-error handle-arg-error foreign-entry install-library-entry get-more-room scan-remembered-set instantiate-code-object Sreturn Scall-one-result Scall-any-results)
|
||||
#define c_entry_vector_size 0x19
|
||||
#define cached_stack_link_disp 0x8
|
||||
#define cached_stack_size_disp 0x0
|
||||
#define card_offset_bits 0x9
|
||||
#define cards_per_segment 0x20
|
||||
#define char_data_offset 0x8
|
||||
#define char_factor 0x100
|
||||
#define closure_code_disp 0x3
|
||||
#define closure_data_disp 0xB
|
||||
#define code_arity_mask_disp 0x21
|
||||
#define code_closure_length_disp 0x29
|
||||
#define code_data_disp 0x41
|
||||
#define code_flag_continuation 0x2
|
||||
#define code_flag_guardian 0x8
|
||||
#define code_flag_system 0x1
|
||||
#define code_flag_template 0x4
|
||||
#define code_flags_offset 0x8
|
||||
#define code_info_disp 0x31
|
||||
#define code_length_disp 0x9
|
||||
#define code_name_disp 0x19
|
||||
#define code_pinfos_disp 0x39
|
||||
#define code_reloc_disp 0x11
|
||||
#define code_type_disp 0x1
|
||||
#define collect_interrupt_index 0x1
|
||||
#define continuation_code_disp 0x3
|
||||
#define continuation_link_disp 0x23
|
||||
#define continuation_return_address_disp 0x2B
|
||||
#define continuation_stack_clength_disp 0x1B
|
||||
#define continuation_stack_disp 0xB
|
||||
#define continuation_stack_length_disp 0x13
|
||||
#define continuation_winders_disp 0x33
|
||||
#define countof_bignum 0x5
|
||||
#define countof_box 0x9
|
||||
#define countof_bytevector 0x15
|
||||
#define countof_closure 0x3
|
||||
#define countof_code 0xB
|
||||
#define countof_continuation 0x4
|
||||
#define countof_ephemeron 0x19
|
||||
#define countof_exactnum 0x8
|
||||
#define countof_flonum 0x2
|
||||
#define countof_fxvector 0x14
|
||||
#define countof_guardian 0x17
|
||||
#define countof_inexactnum 0x7
|
||||
#define countof_locked 0x16
|
||||
#define countof_oblist 0x18
|
||||
#define countof_pair 0x0
|
||||
#define countof_port 0xA
|
||||
#define countof_ratnum 0x6
|
||||
#define countof_relocation_table 0x10
|
||||
#define countof_rtd_counts 0xE
|
||||
#define countof_stack 0xF
|
||||
#define countof_string 0x13
|
||||
#define countof_symbol 0x1
|
||||
#define countof_thread 0xC
|
||||
#define countof_tlc 0xD
|
||||
#define countof_types 0x1A
|
||||
#define countof_vector 0x12
|
||||
#define countof_weakpair 0x11
|
||||
#define default_collect_trip_bytes 0x800000
|
||||
#define default_heap_reserve_ratio 1.0
|
||||
#define default_max_nonstatic_generation 0x4
|
||||
#define default_stack_size 0xFFF0
|
||||
#define default_timer_ticks 0x3E8
|
||||
#define dtvec_hour 0x3
|
||||
#define dtvec_isdst 0x9
|
||||
#define dtvec_mday 0x4
|
||||
#define dtvec_min 0x2
|
||||
#define dtvec_mon 0x5
|
||||
#define dtvec_nsec 0x0
|
||||
#define dtvec_sec 0x1
|
||||
#define dtvec_size 0xC
|
||||
#define dtvec_tzname 0xB
|
||||
#define dtvec_tzoff 0xA
|
||||
#define dtvec_wday 0x7
|
||||
#define dtvec_yday 0x8
|
||||
#define dtvec_year 0x6
|
||||
#define ephemeron_car_disp 0x7
|
||||
#define ephemeron_cdr_disp 0xF
|
||||
#define ephemeron_next_disp 0x17
|
||||
#define ephemeron_trigger_next_disp 0x1F
|
||||
#define eq_hashtable_subtype_ephemeron 0x2
|
||||
#define eq_hashtable_subtype_normal 0x0
|
||||
#define eq_hashtable_subtype_weak 0x1
|
||||
#define exactnum_imag_disp 0x11
|
||||
#define exactnum_real_disp 0x9
|
||||
#define exactnum_type_disp 0x1
|
||||
#define fasl_fld_double 0xA
|
||||
#define fasl_fld_i16 0x2
|
||||
#define fasl_fld_i24 0x3
|
||||
#define fasl_fld_i32 0x4
|
||||
#define fasl_fld_i40 0x5
|
||||
#define fasl_fld_i48 0x6
|
||||
#define fasl_fld_i56 0x7
|
||||
#define fasl_fld_i64 0x8
|
||||
#define fasl_fld_ptr 0x0
|
||||
#define fasl_fld_single 0x9
|
||||
#define fasl_fld_u8 0x1
|
||||
#define fasl_header #vu8(0 0 0 0 99 104 101 122)
|
||||
#define fasl_type_base_rtd 0x1A
|
||||
#define fasl_type_box 0x1
|
||||
#define fasl_type_bytevector 0x1D
|
||||
#define fasl_type_closure 0x6
|
||||
#define fasl_type_code 0xB
|
||||
#define fasl_type_entry 0xD
|
||||
#define fasl_type_ephemeron 0x1C
|
||||
#define fasl_type_eq_hashtable 0x1F
|
||||
#define fasl_type_exactnum 0x14
|
||||
#define fasl_type_flonum 0x8
|
||||
#define fasl_type_fxvector 0x1B
|
||||
#define fasl_type_gensym 0x13
|
||||
#define fasl_type_graph 0x10
|
||||
#define fasl_type_graph_def 0x11
|
||||
#define fasl_type_graph_ref 0x12
|
||||
#define fasl_type_gzip 0x2B
|
||||
#define fasl_type_header 0x0
|
||||
#define fasl_type_immediate 0xC
|
||||
#define fasl_type_immutable_box 0x29
|
||||
#define fasl_type_immutable_bytevector 0x28
|
||||
#define fasl_type_immutable_fxvector 0x27
|
||||
#define fasl_type_immutable_string 0x26
|
||||
#define fasl_type_immutable_vector 0x25
|
||||
#define fasl_type_inexactnum 0x5
|
||||
#define fasl_type_large_integer 0xA
|
||||
#define fasl_type_library 0xE
|
||||
#define fasl_type_library_code 0xF
|
||||
#define fasl_type_lz4 0x2C
|
||||
#define fasl_type_pair 0x7
|
||||
#define fasl_type_ratnum 0x3
|
||||
#define fasl_type_record 0x17
|
||||
#define fasl_type_revisit 0x23
|
||||
#define fasl_type_rtd 0x18
|
||||
#define fasl_type_small_integer 0x19
|
||||
#define fasl_type_string 0x9
|
||||
#define fasl_type_symbol 0x2
|
||||
#define fasl_type_symbol_hashtable 0x20
|
||||
#define fasl_type_uncompressed 0x2A
|
||||
#define fasl_type_vector 0x4
|
||||
#define fasl_type_visit 0x22
|
||||
#define fasl_type_visit_revisit 0x24
|
||||
#define fasl_type_weak_pair 0x1E
|
||||
#define fixnum_bits 0x3D
|
||||
#define fixnum_factor 0x8
|
||||
#define fixnum_offset 0x3
|
||||
#define fld_byte_index 0x4
|
||||
#define fld_mutablep_index 0x2
|
||||
#define fld_name_index 0x1
|
||||
#define fld_type_index 0x3
|
||||
#define flonum_data_disp 0x6
|
||||
#define forward_address_disp 0x8
|
||||
#define forward_marker (ptr)0x2E
|
||||
#define forward_marker_disp 0x0
|
||||
#define ftype_guardian_rep (ptr)0x56
|
||||
#define fxvector_data_disp 0x9
|
||||
#define fxvector_immutable_flag 0x8
|
||||
#define fxvector_length_factor 0x10
|
||||
#define fxvector_length_offset 0x4
|
||||
#define fxvector_type_disp 0x1
|
||||
#define guardian_entry_next_disp 0x18
|
||||
#define guardian_entry_obj_disp 0x0
|
||||
#define guardian_entry_rep_disp 0x8
|
||||
#define guardian_entry_tconc_disp 0x10
|
||||
#define hashtable_default_size 0x8
|
||||
#define header_size_bignum 0x8
|
||||
#define header_size_bytevector 0x8
|
||||
#define header_size_closure 0x8
|
||||
#define header_size_code 0x40
|
||||
#define header_size_fxvector 0x8
|
||||
#define header_size_record 0x8
|
||||
#define header_size_reloc_table 0x10
|
||||
#define header_size_string 0x8
|
||||
#define header_size_vector 0x8
|
||||
#define ignore_event_flag 0x0
|
||||
#define inexactnum_imag_disp 0x19
|
||||
#define inexactnum_pad_disp 0x9
|
||||
#define inexactnum_real_disp 0x11
|
||||
#define inexactnum_type_disp 0x1
|
||||
#define int_bits 0x20
|
||||
#define integer_divide_instruction 1
|
||||
#define keyboard_interrupt_index 0x3
|
||||
#define library_entry_vector_size 0x210
|
||||
#define libspec_closure_index 0xD
|
||||
#define libspec_does_not_expect_headroom_index 0x0
|
||||
#define libspec_error_index 0xE
|
||||
#define libspec_fake_index 0x10
|
||||
#define libspec_flags_index 0x2
|
||||
#define libspec_has_does_not_expect_headroom_version_index 0xF
|
||||
#define libspec_index_base_offset 0x1
|
||||
#define libspec_index_base_size 0x9
|
||||
#define libspec_index_offset 0x0
|
||||
#define libspec_index_size 0xA
|
||||
#define libspec_interface_offset 0xA
|
||||
#define libspec_interface_size 0x3
|
||||
#define libspec_name_index 0x1
|
||||
#define log2_ptr_bytes 0x3
|
||||
#define long_bits 0x40
|
||||
#define long_long_bits 0x40
|
||||
#define machine_type 0xB
|
||||
#define machine_type_a6fb 0x15
|
||||
#define machine_type_a6le 0xB
|
||||
#define machine_type_a6nb 0x19
|
||||
#define machine_type_a6nt 0x1B
|
||||
#define machine_type_a6ob 0xF
|
||||
#define machine_type_a6osx 0xD
|
||||
#define machine_type_a6s2 0x11
|
||||
#define machine_type_alist ((0 . any) (1 . i3le) (2 . ti3le) (3 . i3nt) (4 . ti3nt) (5 . i3fb) (6 . ti3fb) (7 . i3ob) (8 . ti3ob) (9 . i3osx) (10 . ti3osx) (11 . a6le) (12 . ta6le) (13 . a6osx) (14 . ta6osx) (15 . a6ob) (16 . ta6ob) (17 . a6s2) (18 . ta6s2) (19 . i3s2) (20 . ti3s2) (21 . a6fb) (22 . ta6fb) (23 . i3nb) (24 . ti3nb) (25 . a6nb) (26 . ta6nb) (27 . a6nt) (28 . ta6nt) (29 . i3qnx) (30 . ti3qnx) (31 . arm32le) (32 . tarm32le) (33 . ppc32le) (34 . tppc32le))
|
||||
#define machine_type_any 0x0
|
||||
#define machine_type_arm32le 0x1F
|
||||
#define machine_type_i3fb 0x5
|
||||
#define machine_type_i3le 0x1
|
||||
#define machine_type_i3nb 0x17
|
||||
#define machine_type_i3nt 0x3
|
||||
#define machine_type_i3ob 0x7
|
||||
#define machine_type_i3osx 0x9
|
||||
#define machine_type_i3qnx 0x1D
|
||||
#define machine_type_i3s2 0x13
|
||||
#define machine_type_limit 0x23
|
||||
#define machine_type_name a6le
|
||||
#define machine_type_ppc32le 0x21
|
||||
#define machine_type_ta6fb 0x16
|
||||
#define machine_type_ta6le 0xC
|
||||
#define machine_type_ta6nb 0x1A
|
||||
#define machine_type_ta6nt 0x1C
|
||||
#define machine_type_ta6ob 0x10
|
||||
#define machine_type_ta6osx 0xE
|
||||
#define machine_type_ta6s2 0x12
|
||||
#define machine_type_tarm32le 0x20
|
||||
#define machine_type_ti3fb 0x6
|
||||
#define machine_type_ti3le 0x2
|
||||
#define machine_type_ti3nb 0x18
|
||||
#define machine_type_ti3nt 0x4
|
||||
#define machine_type_ti3ob 0x8
|
||||
#define machine_type_ti3osx 0xA
|
||||
#define machine_type_ti3qnx 0x1E
|
||||
#define machine_type_ti3s2 0x14
|
||||
#define machine_type_tppc32le 0x22
|
||||
#define mask_bignum 0x1F
|
||||
#define mask_bignum_sign 0x20
|
||||
#define mask_binary_input_port 0x5FF
|
||||
#define mask_binary_output_port 0x6FF
|
||||
#define mask_binary_port 0x4FF
|
||||
#define mask_boolean 0xF7
|
||||
#define mask_box 0x7F
|
||||
#define mask_bwp 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_bytevector 0x3
|
||||
#define mask_char 0xFF
|
||||
#define mask_closure 0x7
|
||||
#define mask_code 0xFF
|
||||
#define mask_continuation_code 0x2FF
|
||||
#define mask_eof 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_exactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_false 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_fixnum 0x7
|
||||
#define mask_flonum 0x7
|
||||
#define mask_fxvector 0x7
|
||||
#define mask_guardian_code 0x8FF
|
||||
#define mask_immediate 0x7
|
||||
#define mask_inexactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_input_port 0x1FF
|
||||
#define mask_mutable_box 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_mutable_bytevector 0x7
|
||||
#define mask_mutable_fxvector 0xF
|
||||
#define mask_mutable_string 0xF
|
||||
#define mask_mutable_vector 0xF
|
||||
#define mask_nil 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_octet -0x7F9
|
||||
#define mask_other_number 0xF
|
||||
#define mask_output_port 0x2FF
|
||||
#define mask_pair 0x7
|
||||
#define mask_port 0xFF
|
||||
#define mask_ratnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_record 0x7
|
||||
#define mask_rtd_counts 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_signed_bignum 0x3F
|
||||
#define mask_string 0x7
|
||||
#define mask_symbol 0x7
|
||||
#define mask_system_code 0x1FF
|
||||
#define mask_textual_input_port 0x5FF
|
||||
#define mask_textual_output_port 0x6FF
|
||||
#define mask_textual_port 0x4FF
|
||||
#define mask_thread 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_tlc 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_typed_object 0x7
|
||||
#define mask_unbound 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_vector 0x7
|
||||
#define max_float_alignment 0x8
|
||||
#define max_integer_alignment 0x8
|
||||
#define max_real_space 0xB
|
||||
#define max_space 0xC
|
||||
#define max_sweep_space 0xA
|
||||
#define maximum_bignum_length (iptr)0x3FFFFFFFFFFFFFF
|
||||
#define maximum_bytevector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_fxvector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_interrupt_index 0x4
|
||||
#define maximum_string_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_vector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define minimum_segment_request 0x80
|
||||
#define most_negative_fixnum (iptr)-0x1000000000000000
|
||||
#define most_positive_fixnum (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define native_endianness little
|
||||
#define one_shot_headroom 0xC00
|
||||
#define ordinary_type_bits 0x8
|
||||
#define pair_car_disp 0x7
|
||||
#define pair_cdr_disp 0xF
|
||||
#define pair_shift 0x4
|
||||
#define port_flag_binary 0x4
|
||||
#define port_flag_block_buffered 0x200
|
||||
#define port_flag_bol 0x80
|
||||
#define port_flag_char_positions 0x1000
|
||||
#define port_flag_closed 0x8
|
||||
#define port_flag_compressed 0x20
|
||||
#define port_flag_eof 0x100
|
||||
#define port_flag_exclusive 0x40
|
||||
#define port_flag_file 0x10
|
||||
#define port_flag_fold_case 0x4000
|
||||
#define port_flag_input 0x1
|
||||
#define port_flag_input_mode 0x800
|
||||
#define port_flag_line_buffered 0x400
|
||||
#define port_flag_no_fold_case 0x8000
|
||||
#define port_flag_output 0x2
|
||||
#define port_flag_r6rs 0x2000
|
||||
#define port_flags_offset 0x8
|
||||
#define port_handler_disp 0x9
|
||||
#define port_ibuffer_disp 0x39
|
||||
#define port_icount_disp 0x19
|
||||
#define port_ilast_disp 0x31
|
||||
#define port_info_disp 0x41
|
||||
#define port_name_disp 0x49
|
||||
#define port_obuffer_disp 0x29
|
||||
#define port_ocount_disp 0x11
|
||||
#define port_olast_disp 0x21
|
||||
#define port_type_disp 0x1
|
||||
#define prelex_is_flags_offset 0x8
|
||||
#define prelex_is_mask 0xFF00
|
||||
#define prelex_sticky_mask 0xFF
|
||||
#define prelex_was_flags_offset 0x10
|
||||
#define primary_type_bits 0x3
|
||||
#define ptr_bits 0x40
|
||||
#define ptr_bytes 0x8
|
||||
#define ptrdiff_t_bits 0x40
|
||||
#define ratnum_denominator_disp 0x11
|
||||
#define ratnum_numerator_disp 0x9
|
||||
#define ratnum_type_disp 0x1
|
||||
#define real_space_alist ((new . 0) (impure . 1) (symbol . 2) (port . 3) (weakpair . 4) (ephemeron . 5) (pure . 6) (continuation . 7) (code . 8) (pure-typed-object . 9) (impure-record . 10) (data . 11))
|
||||
#define record_data_disp 0x9
|
||||
#define record_type_counts_disp 0x49
|
||||
#define record_type_disp 0x1
|
||||
#define record_type_flags_disp 0x39
|
||||
#define record_type_flds_disp 0x31
|
||||
#define record_type_mpm_disp 0x21
|
||||
#define record_type_name_disp 0x29
|
||||
#define record_type_parent_disp 0x9
|
||||
#define record_type_pm_disp 0x19
|
||||
#define record_type_size_disp 0x11
|
||||
#define record_type_type_disp 0x1
|
||||
#define record_type_uid_disp 0x41
|
||||
#define reloc_abs 0x0
|
||||
#define reloc_code_offset_index 0x3
|
||||
#define reloc_code_offset_mask 0x3FFFFFF
|
||||
#define reloc_code_offset_offset 0x4
|
||||
#define reloc_extended_format 0x1
|
||||
#define reloc_item_offset_index 0x2
|
||||
#define reloc_item_offset_mask 0x3FFFFFF
|
||||
#define reloc_item_offset_offset 0x1E
|
||||
#define reloc_longp_index 0x4
|
||||
#define reloc_table_code_disp 0x8
|
||||
#define reloc_table_data_disp 0x10
|
||||
#define reloc_table_size_disp 0x0
|
||||
#define reloc_type_index 0x1
|
||||
#define reloc_type_mask 0x7
|
||||
#define reloc_type_offset 0x1
|
||||
#define reloc_x86_64_call 0x1
|
||||
#define reloc_x86_64_jump 0x2
|
||||
#define return_address_frame_size_disp -0x10
|
||||
#define return_address_livemask_disp -0x20
|
||||
#define return_address_mv_return_address_disp -0x8
|
||||
#define return_address_toplink_disp -0x18
|
||||
#define rp_header_frame_size_disp 0x10
|
||||
#define rp_header_livemask_disp 0x0
|
||||
#define rp_header_mv_return_address_disp 0x18
|
||||
#define rp_header_toplink_disp 0x8
|
||||
#define rtd_counts_data_disp 0x11
|
||||
#define rtd_counts_timestamp_disp 0x9
|
||||
#define rtd_counts_type_disp 0x1
|
||||
#define rtd_generative 0x1
|
||||
#define rtd_opaque 0x2
|
||||
#define rtd_sealed 0x4
|
||||
#define sbwp (ptr)0x4E
|
||||
#define scaled_shot_1_shot_flag -0x8
|
||||
#define scheme_version 0x90509
|
||||
#define segment_card_offset_bits 0x5
|
||||
#define segment_offset_bits 0xE
|
||||
#define segment_t1_bits 0x10
|
||||
#define segment_t2_bits 0x11
|
||||
#define segment_t3_bits 0x11
|
||||
#define segment_table_levels 0x3
|
||||
#define seof (ptr)0x36
|
||||
#define sfalse (ptr)0x6
|
||||
#define short_bits 0x10
|
||||
#define signal_interrupt_index 0x4
|
||||
#define size_box 0x10
|
||||
#define size_cached_stack 0x10
|
||||
#define size_continuation 0x40
|
||||
#define size_ephemeron 0x20
|
||||
#define size_exactnum 0x20
|
||||
#define size_flonum 0x10
|
||||
#define size_forward 0x10
|
||||
#define size_guardian_entry 0x20
|
||||
#define size_inexactnum 0x20
|
||||
#define size_pair 0x10
|
||||
#define size_port 0x50
|
||||
#define size_ratnum 0x20
|
||||
#define size_record_type 0x50
|
||||
#define size_rp_header 0x20
|
||||
#define size_rtd_counts 0x810
|
||||
#define size_symbol 0x30
|
||||
#define size_tc 0x2C0
|
||||
#define size_thread 0x10
|
||||
#define size_tlc 0x20
|
||||
#define size_typed_object 0x10
|
||||
#define size_t_bits 0x40
|
||||
#define snil (ptr)0x26
|
||||
#define space_char_list (#\n #\i #\x #\q #\w #\e #\p #\k #\c #\r #\s #\d #\e)
|
||||
#define space_cname_list ("new" "impure" "symbol" "port" "weakpr" "emph" "pure" "cont" "code" "p-tobj" "ip-rec" "data" "empty")
|
||||
#define space_code 0x8
|
||||
#define space_continuation 0x7
|
||||
#define space_data 0xB
|
||||
#define space_empty 0xC
|
||||
#define space_ephemeron 0x5
|
||||
#define space_impure 0x1
|
||||
#define space_impure_record 0xA
|
||||
#define space_locked 0x20
|
||||
#define space_new 0x0
|
||||
#define space_old 0x40
|
||||
#define space_port 0x3
|
||||
#define space_pure 0x6
|
||||
#define space_pure_typed_object 0x9
|
||||
#define space_symbol 0x2
|
||||
#define space_weakpair 0x4
|
||||
#define stack_frame_limit 0x200
|
||||
#define stack_slop 0x400
|
||||
#define static_generation 0xFF
|
||||
#define string_char_bits 0x20
|
||||
#define string_char_bytes 0x4
|
||||
#define string_char_offset 0x2
|
||||
#define string_data_disp 0x9
|
||||
#define string_immutable_flag 0x8
|
||||
#define string_length_factor 0x10
|
||||
#define string_length_offset 0x4
|
||||
#define string_type_disp 0x1
|
||||
#define strue (ptr)0xE
|
||||
#define sunbound (ptr)0x1E
|
||||
#define svoid (ptr)0x3E
|
||||
#define symbol_hash_disp 0x2D
|
||||
#define symbol_name_disp 0x1D
|
||||
#define symbol_plist_disp 0x15
|
||||
#define symbol_pvalue_disp 0xD
|
||||
#define symbol_splist_disp 0x25
|
||||
#define symbol_value_disp 0x5
|
||||
#define tc_DSTBV_disp 0x2A8
|
||||
#define tc_SRCBV_disp 0x2B0
|
||||
#define tc_U_disp 0x160
|
||||
#define tc_V_disp 0x168
|
||||
#define tc_W_disp 0x170
|
||||
#define tc_X_disp 0x178
|
||||
#define tc_Y_disp 0x180
|
||||
#define tc_ac0_disp 0x28
|
||||
#define tc_ac1_disp 0x30
|
||||
#define tc_active_disp 0x134
|
||||
#define tc_alloc_counter_disp 0x298
|
||||
#define tc_ap_disp 0x50
|
||||
#define tc_arg_regs_disp 0x0
|
||||
#define tc_block_counter_disp 0x1D8
|
||||
#define tc_cchain_disp 0x120
|
||||
#define tc_code_ranges_to_flush_disp 0x128
|
||||
#define tc_compile_profile_disp 0x230
|
||||
#define tc_compress_format_disp 0x278
|
||||
#define tc_compress_level_disp 0x280
|
||||
#define tc_cp_disp 0x40
|
||||
#define tc_current_error_disp 0x1D0
|
||||
#define tc_current_input_disp 0x1C0
|
||||
#define tc_current_mso_disp 0x1E8
|
||||
#define tc_current_output_disp 0x1C8
|
||||
#define tc_default_record_equal_procedure_disp 0x268
|
||||
#define tc_default_record_hash_procedure_disp 0x270
|
||||
#define tc_disable_count_disp 0x198
|
||||
#define tc_eap_disp 0x58
|
||||
#define tc_esp_disp 0x48
|
||||
#define tc_fxfirst_bit_set_bv_disp 0x200
|
||||
#define tc_fxlength_bv_disp 0x1F8
|
||||
#define tc_generate_inspector_information_disp 0x238
|
||||
#define tc_generate_procedure_source_information_disp 0x240
|
||||
#define tc_generate_profile_forms_disp 0x248
|
||||
#define tc_guardian_entries_disp 0x118
|
||||
#define tc_instr_counter_disp 0x290
|
||||
#define tc_keyboard_interrupt_pending_disp 0x1B0
|
||||
#define tc_lz4_out_buffer_disp 0x288
|
||||
#define tc_meta_level_disp 0x228
|
||||
#define tc_null_immutable_bytevector_disp 0x218
|
||||
#define tc_null_immutable_fxvector_disp 0x210
|
||||
#define tc_null_immutable_string_disp 0x220
|
||||
#define tc_null_immutable_vector_disp 0x208
|
||||
#define tc_optimize_level_disp 0x250
|
||||
#define tc_parameters_disp 0x2A0
|
||||
#define tc_random_seed_disp 0x130
|
||||
#define tc_real_eap_disp 0x90
|
||||
#define tc_ret_disp 0x60
|
||||
#define tc_scheme_stack_disp 0x138
|
||||
#define tc_scheme_stack_size_disp 0x150
|
||||
#define tc_sfd_disp 0x1E0
|
||||
#define tc_sfp_disp 0x38
|
||||
#define tc_signal_interrupt_pending_disp 0x1A0
|
||||
#define tc_signal_interrupt_queue_disp 0x1A8
|
||||
#define tc_something_pending_disp 0x188
|
||||
#define tc_stack_cache_disp 0x140
|
||||
#define tc_stack_link_disp 0x148
|
||||
#define tc_subset_mode_disp 0x258
|
||||
#define tc_suppress_primitive_inlining_disp 0x260
|
||||
#define tc_target_machine_disp 0x1F0
|
||||
#define tc_td_disp 0x88
|
||||
#define tc_threadno_disp 0x1B8
|
||||
#define tc_timer_ticks_disp 0x190
|
||||
#define tc_trap_disp 0x68
|
||||
#define tc_ts_disp 0x80
|
||||
#define tc_virtual_registers_disp 0x98
|
||||
#define tc_winders_disp 0x158
|
||||
#define tc_xp_disp 0x70
|
||||
#define tc_yp_disp 0x78
|
||||
#define thread_tc_disp 0x9
|
||||
#define thread_type_disp 0x1
|
||||
#define time_collector_cpu 0x5
|
||||
#define time_collector_real 0x6
|
||||
#define time_duration 0x2
|
||||
#define time_monotonic 0x3
|
||||
#define time_process 0x0
|
||||
#define time_t_bits 0x40
|
||||
#define time_thread 0x1
|
||||
#define time_utc 0x4
|
||||
#define timer_interrupt_index 0x2
|
||||
#define tlc_ht_disp 0x11
|
||||
#define tlc_keyval_disp 0x9
|
||||
#define tlc_next_disp 0x19
|
||||
#define tlc_type_disp 0x1
|
||||
#define type_bignum 0x6
|
||||
#define type_binary_input_port 0x51E
|
||||
#define type_binary_output_port 0x61E
|
||||
#define type_binary_port 0x41E
|
||||
#define type_boolean 0x6
|
||||
#define type_box 0xE
|
||||
#define type_bytevector 0x1
|
||||
#define type_char 0x16
|
||||
#define type_closure 0x5
|
||||
#define type_code 0x3E
|
||||
#define type_continuation_code 0x23E
|
||||
#define type_exactnum 0x56
|
||||
#define type_fixnum 0x0
|
||||
#define type_flonum 0x2
|
||||
#define type_fxvector 0x3
|
||||
#define type_guardian_code 0x83E
|
||||
#define type_immediate 0x6
|
||||
#define type_immutable_box 0x8E
|
||||
#define type_immutable_bytevector 0x5
|
||||
#define type_immutable_fxvector 0xB
|
||||
#define type_immutable_string 0xA
|
||||
#define type_immutable_vector 0x8
|
||||
#define type_inexactnum 0x36
|
||||
#define type_input_port 0x11E
|
||||
#define type_io_port 0x31E
|
||||
#define type_mutable_box 0xE
|
||||
#define type_mutable_bytevector 0x1
|
||||
#define type_mutable_fxvector 0x3
|
||||
#define type_mutable_string 0x2
|
||||
#define type_mutable_vector 0x0
|
||||
#define type_negative_bignum 0x26
|
||||
#define type_octet 0x0
|
||||
#define type_other_number 0x6
|
||||
#define type_output_port 0x21E
|
||||
#define type_pair 0x1
|
||||
#define type_port 0x1E
|
||||
#define type_positive_bignum 0x6
|
||||
#define type_ratnum 0x16
|
||||
#define type_record 0x7
|
||||
#define type_rtd_counts 0x6E
|
||||
#define type_string 0x2
|
||||
#define type_symbol 0x3
|
||||
#define type_system_code 0x13E
|
||||
#define type_textual_input_port 0x11E
|
||||
#define type_textual_output_port 0x21E
|
||||
#define type_textual_port 0x1E
|
||||
#define type_thread 0x4E
|
||||
#define type_tlc 0x5E
|
||||
#define type_typed_object 0x7
|
||||
#define type_vector 0x0
|
||||
#define typed_object_type_disp 0x1
|
||||
#define typedef_i16 "short"
|
||||
#define typedef_i32 "int"
|
||||
#define typedef_i64 "long"
|
||||
#define typedef_i8 "char"
|
||||
#define typedef_iptr "long int"
|
||||
#define typedef_ptr "void *"
|
||||
#define typedef_string_char "unsigned int"
|
||||
#define typedef_u16 "unsigned short"
|
||||
#define typedef_u32 "unsigned int"
|
||||
#define typedef_u64 "unsigned long"
|
||||
#define typedef_u8 "unsigned char"
|
||||
#define typedef_uptr "unsigned long int"
|
||||
#define typemod 0x8
|
||||
#define unactivate_mode_deactivate 0x1
|
||||
#define unactivate_mode_destroy 0x2
|
||||
#define unactivate_mode_noop 0x0
|
||||
#define unaligned_floats 1
|
||||
#define unaligned_integers 1
|
||||
#define underflow_limit 0x80
|
||||
#define unscaled_shot_1_shot_flag -0x1
|
||||
#define vector_data_disp 0x9
|
||||
#define vector_immutable_flag 0x8
|
||||
#define vector_length_factor 0x10
|
||||
#define vector_length_offset 0x4
|
||||
#define vector_type_disp 0x1
|
||||
#define virtual_register_count 0x10
|
||||
#define wchar_bits 0x20
|
||||
|
||||
/* constants from declare-c-entries */
|
||||
#define CENTRY_Scall_any_results 24
|
||||
#define CENTRY_Scall_one_result 23
|
||||
#define CENTRY_Sreturn 22
|
||||
#define CENTRY_activate_thread 11
|
||||
#define CENTRY_deactivate_thread 12
|
||||
#define CENTRY_foreign_entry 17
|
||||
#define CENTRY_get_more_room 19
|
||||
#define CENTRY_get_thread_context 1
|
||||
#define CENTRY_handle_apply_overflood 2
|
||||
#define CENTRY_handle_arg_error 16
|
||||
#define CENTRY_handle_docall_error 3
|
||||
#define CENTRY_handle_mvlet_error 15
|
||||
#define CENTRY_handle_nonprocedure_symbol 6
|
||||
#define CENTRY_handle_overflood 5
|
||||
#define CENTRY_handle_overflow 4
|
||||
#define CENTRY_handle_values_error 14
|
||||
#define CENTRY_install_library_entry 18
|
||||
#define CENTRY_instantiate_code_object 21
|
||||
#define CENTRY_raw_collect_cond 9
|
||||
#define CENTRY_raw_tc_mutex 10
|
||||
#define CENTRY_scan_remembered_set 20
|
||||
#define CENTRY_split_and_resize 8
|
||||
#define CENTRY_thread_context 0
|
||||
#define CENTRY_thread_list 7
|
||||
#define CENTRY_unactivate_thread 13
|
||||
|
||||
/* displacements for records */
|
||||
#define eq_hashtable_rtd_disp 1
|
||||
#define eq_hashtable_type_disp 9
|
||||
#define eq_hashtable_mutablep_disp 17
|
||||
#define eq_hashtable_vec_disp 25
|
||||
#define eq_hashtable_minlen_disp 33
|
||||
#define eq_hashtable_size_disp 41
|
||||
#define eq_hashtable_subtype_disp 49
|
||||
#define symbol_hashtable_rtd_disp 1
|
||||
#define symbol_hashtable_type_disp 9
|
||||
#define symbol_hashtable_mutablep_disp 17
|
||||
#define symbol_hashtable_vec_disp 25
|
||||
#define symbol_hashtable_minlen_disp 33
|
||||
#define symbol_hashtable_size_disp 41
|
||||
#define symbol_hashtable_equivp_disp 49
|
||||
#define code_info_rtd_disp 1
|
||||
#define code_info_src_disp 9
|
||||
#define code_info_sexpr_disp 17
|
||||
#define code_info_free_disp 25
|
||||
#define code_info_live_disp 33
|
||||
#define code_info_rpis_disp 41
|
||||
|
||||
/* predicates */
|
||||
#define Simmediatep(x) (((uptr)(x)&0x7)==0x6)
|
||||
#define Sportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x1E))
|
||||
#define Scodep(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x3E))
|
||||
|
||||
/* structure accessors */
|
||||
#define INITCAR(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define INITCDR(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define SETCAR(x,y) DIRTYSET(((ptr *)((uptr)(x)+7)),(y))
|
||||
#define SETCDR(x,y) DIRTYSET(((ptr *)((uptr)(x)+15)),(y))
|
||||
#define BOXTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITBOXREF(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define SETBOXREF(x,y) DIRTYSET(((ptr *)((uptr)(x)+9)),(y))
|
||||
#define EPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define INITEPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define EPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define INITEPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define TLCTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define TLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define TLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define TLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define INITTLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITTLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define INITTLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define SETTLCNEXT(x,y) DIRTYSET(((ptr *)((uptr)(x)+25)),(y))
|
||||
#define SYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define SYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define SYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define SYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define INITSYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITSYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITSYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define INITSYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define INITSYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define INITSYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define SETSYMVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define SETSYMPVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SETSYMPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+21)),(y))
|
||||
#define SETSYMNAME(x,y) DIRTYSET(((ptr *)((uptr)(x)+29)),(y))
|
||||
#define SETSYMSPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+37)),(y))
|
||||
#define SETSYMHASH(x,y) DIRTYSET(((ptr *)((uptr)(x)+45)),(y))
|
||||
#define VECTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define SETVECTIT(x,i,y) DIRTYSET((((ptr *)((uptr)(x)+9))+i),(y))
|
||||
#define FXVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define FXVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define BYTEVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BVIT(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
#define INEXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INEXACTNUM_REAL_PART(x) (*((double *)((uptr)(x)+17)))
|
||||
#define INEXACTNUM_IMAG_PART(x) (*((double *)((uptr)(x)+25)))
|
||||
#define EXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define EXACTNUM_REAL_PART(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define EXACTNUM_IMAG_PART(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RATTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RATNUM(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RATDEN(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CLOSENTRY(x) (*((ptr *)((uptr)(x)+3)))
|
||||
#define CLOSIT(x,i) (((ptr *)((uptr)(x)+11))[i])
|
||||
#define FLODAT(x) (*((double *)((uptr)(x)+6)))
|
||||
#define PORTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define PORTNAME(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define PORTHANDLER(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define PORTINFO(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define PORTOCNT(x) (*((iptr *)((uptr)(x)+17)))
|
||||
#define PORTOLAST(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define PORTOBUF(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define PORTICNT(x) (*((iptr *)((uptr)(x)+25)))
|
||||
#define PORTILAST(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define PORTIBUF(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define STRTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define STRIT(x,i) (((string_char *)((uptr)(x)+9))[i])
|
||||
#define BIGTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BIGIT(x,i) (((bigit *)((uptr)(x)+9))[i])
|
||||
#define CODETYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define CODELEN(x) (*((iptr *)((uptr)(x)+9)))
|
||||
#define CODERELOC(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CODENAME(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define CODEARITYMASK(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define CODEFREE(x) (*((iptr *)((uptr)(x)+41)))
|
||||
#define CODEINFO(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define CODEPINFOS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define CODEIT(x,i) (((octet *)((uptr)(x)+65))[i])
|
||||
#define RELOCSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define RELOCCODE(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RELOCIT(x,i) (((uptr *)((uptr)(x)+16))[i])
|
||||
#define CONTSTACK(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define CONTLENGTH(x) (*((iptr *)((uptr)(x)+19)))
|
||||
#define CONTCLENGTH(x) (*((iptr *)((uptr)(x)+27)))
|
||||
#define CONTLINK(x) (*((ptr *)((uptr)(x)+35)))
|
||||
#define CONTRET(x) (*((ptr *)((uptr)(x)+43)))
|
||||
#define CONTWINDERS(x) (*((ptr *)((uptr)(x)+51)))
|
||||
#define RTDCOUNTSTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RTDCOUNTSTIMESTAMP(x) (*((U64 *)((uptr)(x)+9)))
|
||||
#define RTDCOUNTSIT(x,i) (((uptr *)((uptr)(x)+17))[i])
|
||||
#define RECORDDESCPARENT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RECORDDESCSIZE(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RECORDDESCPM(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define RECORDDESCMPM(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define RECORDDESCNAME(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define RECORDDESCFLDS(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define RECORDDESCFLAGS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define RECORDDESCUID(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define RECORDDESCCOUNTS(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define RECORDINSTTYPE(x) (*((ptr *)((uptr)(x)+1)))
|
||||
#define RECORDINSTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define CLOSCODE(p) ((ptr)((uptr)CLOSENTRY(p)-code_data_disp))
|
||||
#define CODEENTRYPOINT(x) ((ptr)((uptr)(x)+code_data_disp))
|
||||
#define SETCLOSCODE(p,x) (CLOSENTRY(p) = CODEENTRYPOINT(x))
|
||||
#define SYMCODE(p) ((ptr)((uptr)SYMPVAL(p)-code_data_disp))
|
||||
#define INITSYMCODE(p,x) (INITSYMPVAL(p) = CODEENTRYPOINT(x))
|
||||
#define SETSYMCODE(p,x) SETSYMPVAL(p,CODEENTRYPOINT(x))
|
||||
#define BIGLEN(x) ((iptr)((uptr)BIGTYPE(x) >> bignum_length_offset))
|
||||
#define BIGSIGN(x) ((BIGTYPE(x) & mask_bignum_sign) >> bignum_sign_offset)
|
||||
#define SETBIGLENANDSIGN(x,xl,xs) BIGTYPE(x) = (uptr)(xl) << bignum_length_offset | (xs) << bignum_sign_offset | type_bignum
|
||||
#define CLOSLEN(p) CODEFREE(CLOSCODE(p))
|
||||
#define GUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define GUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define GUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define GUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define INITGUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define INITGUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define INITGUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define INITGUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define FORWARDMARKER(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define FORWARDADDRESS(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define CACHEDSTACKSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define CACHEDSTACKLINK(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RPHEADERFRAMESIZE(x) (*((iptr *)((uptr)(x)+16)))
|
||||
#define RPHEADERLIVEMASK(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define RPHEADERTOPLINK(x) (*((uptr *)((uptr)(x)+8)))
|
||||
|
||||
/* machine types */
|
||||
#define machine_type_names {"any", "i3le", "ti3le", "i3nt", "ti3nt", "i3fb", "ti3fb", "i3ob", "ti3ob", "i3osx", "ti3osx", "a6le", "ta6le", "a6osx", "ta6osx", "a6ob", "ta6ob", "a6s2", "ta6s2", "i3s2", "ti3s2", "a6fb", "ta6fb", "i3nb", "ti3nb", "a6nb", "ta6nb", "a6nt", "ta6nt", "i3qnx", "ti3qnx", "arm32le", "tarm32le", "ppc32le", "tppc32le"}
|
||||
|
||||
/* allocation-space names */
|
||||
#define alloc_space_names "new", "impure", "symbol", "port", "weakpr", "emph", "pure", "cont", "code", "p-tobj", "ip-rec", "data", "empty"
|
||||
|
||||
/* allocation-space characters */
|
||||
#define alloc_space_chars 'n', 'i', 'x', 'q', 'w', 'e', 'p', 'k', 'c', 'r', 's', 'd', 'e'
|
||||
|
||||
/* threads */
|
||||
#define THREADTC(x) (*((uptr *)((uptr)(x)+9)))
|
||||
|
||||
/* thread-context data */
|
||||
#define DSTBV(x) (*((ptr *)((uptr)(x)+680)))
|
||||
#define SRCBV(x) (*((ptr *)((uptr)(x)+688)))
|
||||
#define U(x) (*((ptr *)((uptr)(x)+352)))
|
||||
#define V(x) (*((ptr *)((uptr)(x)+360)))
|
||||
#define W(x) (*((ptr *)((uptr)(x)+368)))
|
||||
#define X(x) (*((ptr *)((uptr)(x)+376)))
|
||||
#define Y(x) (*((ptr *)((uptr)(x)+384)))
|
||||
#define AC0(x) (*((void* *)((uptr)(x)+40)))
|
||||
#define AC1(x) (*((void* *)((uptr)(x)+48)))
|
||||
#define ACTIVE(x) (*((I32 *)((uptr)(x)+308)))
|
||||
#define ALLOCCOUNTER(x) (*((U64 *)((uptr)(x)+664)))
|
||||
#define AP(x) (*((void* *)((uptr)(x)+80)))
|
||||
#define ARGREGS(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define BLOCKCOUNTER(x) (*((ptr *)((uptr)(x)+472)))
|
||||
#define CCHAIN(x) (*((ptr *)((uptr)(x)+288)))
|
||||
#define CODERANGESTOFLUSH(x) (*((ptr *)((uptr)(x)+296)))
|
||||
#define COMPILEPROFILE(x) (*((ptr *)((uptr)(x)+560)))
|
||||
#define COMPRESSFORMAT(x) (*((ptr *)((uptr)(x)+632)))
|
||||
#define COMPRESSLEVEL(x) (*((ptr *)((uptr)(x)+640)))
|
||||
#define CP(x) (*((void* *)((uptr)(x)+64)))
|
||||
#define CURRENTERROR(x) (*((ptr *)((uptr)(x)+464)))
|
||||
#define CURRENTINPUT(x) (*((ptr *)((uptr)(x)+448)))
|
||||
#define CURRENTMSO(x) (*((ptr *)((uptr)(x)+488)))
|
||||
#define CURRENTOUTPUT(x) (*((ptr *)((uptr)(x)+456)))
|
||||
#define DEFAULTRECORDEQUALPROCEDURE(x) (*((ptr *)((uptr)(x)+616)))
|
||||
#define DEFAULTRECORDHASHPROCEDURE(x) (*((ptr *)((uptr)(x)+624)))
|
||||
#define DISABLECOUNT(x) (*((ptr *)((uptr)(x)+408)))
|
||||
#define EAP(x) (*((void* *)((uptr)(x)+88)))
|
||||
#define ESP(x) (*((void* *)((uptr)(x)+72)))
|
||||
#define FXFIRSTBITSETBV(x) (*((ptr *)((uptr)(x)+512)))
|
||||
#define FXLENGTHBV(x) (*((ptr *)((uptr)(x)+504)))
|
||||
#define GENERATEINSPECTORINFORMATION(x) (*((ptr *)((uptr)(x)+568)))
|
||||
#define GENERATEPROCEDURESOURCEINFORMATION(x) (*((ptr *)((uptr)(x)+576)))
|
||||
#define GENERATEPROFILEFORMS(x) (*((ptr *)((uptr)(x)+584)))
|
||||
#define GUARDIANENTRIES(x) (*((ptr *)((uptr)(x)+280)))
|
||||
#define INSTRCOUNTER(x) (*((U64 *)((uptr)(x)+656)))
|
||||
#define KEYBOARDINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+432)))
|
||||
#define LZ4OUTBUFFER(x) (*((void* *)((uptr)(x)+648)))
|
||||
#define METALEVEL(x) (*((ptr *)((uptr)(x)+552)))
|
||||
#define NULLIMMUTABLEBYTEVECTOR(x) (*((ptr *)((uptr)(x)+536)))
|
||||
#define NULLIMMUTABLEFXVECTOR(x) (*((ptr *)((uptr)(x)+528)))
|
||||
#define NULLIMMUTABLESTRING(x) (*((ptr *)((uptr)(x)+544)))
|
||||
#define NULLIMMUTABLEVECTOR(x) (*((ptr *)((uptr)(x)+520)))
|
||||
#define OPTIMIZELEVEL(x) (*((ptr *)((uptr)(x)+592)))
|
||||
#define PARAMETERS(x) (*((ptr *)((uptr)(x)+672)))
|
||||
#define RANDOMSEED(x) (*((U32 *)((uptr)(x)+304)))
|
||||
#define REAL_EAP(x) (*((void* *)((uptr)(x)+144)))
|
||||
#define RET(x) (*((void* *)((uptr)(x)+96)))
|
||||
#define SCHEMESTACK(x) (*((void* *)((uptr)(x)+312)))
|
||||
#define SCHEMESTACKSIZE(x) (*((iptr *)((uptr)(x)+336)))
|
||||
#define SFD(x) (*((ptr *)((uptr)(x)+480)))
|
||||
#define SFP(x) (*((void* *)((uptr)(x)+56)))
|
||||
#define SIGNALINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+416)))
|
||||
#define SIGNALINTERRUPTQUEUE(x) (*((ptr *)((uptr)(x)+424)))
|
||||
#define SOMETHINGPENDING(x) (*((ptr *)((uptr)(x)+392)))
|
||||
#define STACKCACHE(x) (*((ptr *)((uptr)(x)+320)))
|
||||
#define STACKLINK(x) (*((ptr *)((uptr)(x)+328)))
|
||||
#define SUBSETMODE(x) (*((ptr *)((uptr)(x)+600)))
|
||||
#define SUPPRESSPRIMITIVEINLINING(x) (*((ptr *)((uptr)(x)+608)))
|
||||
#define TARGETMACHINE(x) (*((ptr *)((uptr)(x)+496)))
|
||||
#define TD(x) (*((void* *)((uptr)(x)+136)))
|
||||
#define THREADNO(x) (*((ptr *)((uptr)(x)+440)))
|
||||
#define TIMERTICKS(x) (*((ptr *)((uptr)(x)+400)))
|
||||
#define TRAP(x) (*((void* *)((uptr)(x)+104)))
|
||||
#define TS(x) (*((void* *)((uptr)(x)+128)))
|
||||
#define VIRTUALREGISTERS(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
#define WINDERS(x) (*((ptr *)((uptr)(x)+344)))
|
||||
#define XP(x) (*((void* *)((uptr)(x)+112)))
|
||||
#define YP(x) (*((void* *)((uptr)(x)+120)))
|
||||
#define ARGREG(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define VIRTREG(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
|
||||
/* library entries we access from C code */
|
||||
#define library_nonprocedure_code 152
|
||||
#define library_dounderflow 154
|
||||
BIN
boot/a6le/petite.boot
Normal file
BIN
boot/a6le/petite.boot
Normal file
Binary file not shown.
BIN
boot/a6le/scheme.boot
Normal file
BIN
boot/a6le/scheme.boot
Normal file
Binary file not shown.
239
boot/a6le/scheme.h
Normal file
239
boot/a6le/scheme.h
Normal file
|
|
@ -0,0 +1,239 @@
|
|||
/* scheme.h for Chez Scheme Version 9.5.9 (a6le) */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct scheme.h */
|
||||
/* for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Specify declaration of exports. */
|
||||
#ifdef _WIN32
|
||||
# if __cplusplus
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern "C" __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern "C" __declspec (dllexport)
|
||||
# endif
|
||||
# else
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern
|
||||
# else
|
||||
# define EXPORT extern __declspec (dllexport)
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# if __cplusplus
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern
|
||||
# endif
|
||||
#endif
|
||||
|
||||
/* Chez Scheme Version and machine type */
|
||||
#define VERSION "9.5.9"
|
||||
#define MACHINE_TYPE "a6le"
|
||||
|
||||
/* All Scheme objects are of type ptr. Type iptr and */
|
||||
/* uptr are signed and unsigned ints of the same size */
|
||||
/* as a ptr */
|
||||
typedef void * ptr;
|
||||
typedef long int iptr;
|
||||
typedef unsigned long int uptr;
|
||||
|
||||
/* String elements are 32-bit tagged char objects */
|
||||
typedef unsigned int string_char;
|
||||
|
||||
/* Bytevector elements are 8-bit unsigned "octets" */
|
||||
typedef unsigned char octet;
|
||||
|
||||
/* Type predicates */
|
||||
#define Sfixnump(x) (((uptr)(x)&0x7)==0x0)
|
||||
#define Scharp(x) (((uptr)(x)&0xFF)==0x16)
|
||||
#define Snullp(x) ((uptr)(x)==0x26)
|
||||
#define Seof_objectp(x) ((uptr)(x)==0x36)
|
||||
#define Sbwp_objectp(x) ((uptr)(x)==0x4E)
|
||||
#define Sbooleanp(x) (((uptr)(x)&0xF7)==0x6)
|
||||
#define Spairp(x) (((uptr)(x)&0x7)==0x1)
|
||||
#define Ssymbolp(x) (((uptr)(x)&0x7)==0x3)
|
||||
#define Sprocedurep(x) (((uptr)(x)&0x7)==0x5)
|
||||
#define Sflonump(x) (((uptr)(x)&0x7)==0x2)
|
||||
#define Svectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x0))
|
||||
#define Sfxvectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x3))
|
||||
#define Sbytevectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x1))
|
||||
#define Sstringp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x2))
|
||||
#define Sbignump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1F)==0x6))
|
||||
#define Sboxp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7F)==0xE))
|
||||
#define Sinexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x36))
|
||||
#define Sexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x56))
|
||||
#define Sratnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x16))
|
||||
#define Sinputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1FF)==0x11E))
|
||||
#define Soutputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x2FF)==0x21E))
|
||||
#define Srecordp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x7))
|
||||
|
||||
/* Accessors */
|
||||
#define Sfixnum_value(x) ((iptr)(x)/8)
|
||||
#define Schar_value(x) ((string_char)((uptr)(x)>>8))
|
||||
#define Sboolean_value(x) ((x) != Sfalse)
|
||||
#define Scar(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define Scdr(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define Sflonum_value(x) (*((double *)((uptr)(x)+6)))
|
||||
#define Svector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Svector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sfxvector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sfxvector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sbytevector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Sbytevector_u8_ref(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
/* Warning: Sbytevector_data(x) returns a pointer into x. */
|
||||
#define Sbytevector_data(x) &Sbytevector_u8_ref(x,0)
|
||||
#define Sstring_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sstring_ref(x,i) Schar_value(((string_char *)((uptr)(x)+9))[i])
|
||||
#define Sunbox(x) (*((ptr *)((uptr)(x)+9)))
|
||||
EXPORT iptr Sinteger_value(ptr);
|
||||
#define Sunsigned_value(x) (uptr)Sinteger_value(x)
|
||||
EXPORT int Sinteger32_value(ptr);
|
||||
#define Sunsigned32_value(x) (unsigned int)Sinteger32_value(x)
|
||||
EXPORT long Sinteger64_value(ptr);
|
||||
#define Sunsigned64_value(x) (unsigned long)Sinteger64_value(x)
|
||||
|
||||
/* Mutators */
|
||||
EXPORT void Sset_box(ptr, ptr);
|
||||
EXPORT void Sset_car(ptr, ptr);
|
||||
EXPORT void Sset_cdr(ptr, ptr);
|
||||
#define Sstring_set(x,i,c) ((void)((((string_char *)((uptr)(x)+9))[i]) = (string_char)(uptr)Schar(c)))
|
||||
#define Sfxvector_set(x,i,n) ((void)(Sfxvector_ref(x,i) = (n)))
|
||||
#define Sbytevector_u8_set(x,i,n) ((void)(Sbytevector_u8_ref(x,i) = (n)))
|
||||
EXPORT void Svector_set(ptr, iptr, ptr);
|
||||
|
||||
/* Constructors */
|
||||
#define Sfixnum(x) ((ptr)(uptr)((x)*8))
|
||||
#define Schar(x) ((ptr)(uptr)((x)<<8|0x16))
|
||||
#define Snil ((ptr)0x26)
|
||||
#define Strue ((ptr)0xE)
|
||||
#define Sfalse ((ptr)0x6)
|
||||
#define Sboolean(x) ((x)?Strue:Sfalse)
|
||||
#define Sbwp_object ((ptr)0x4E)
|
||||
#define Seof_object ((ptr)0x36)
|
||||
#define Svoid ((ptr)0x3E)
|
||||
EXPORT ptr Scons(ptr, ptr);
|
||||
EXPORT ptr Sstring_to_symbol(const char *);
|
||||
EXPORT ptr Ssymbol_to_string(ptr);
|
||||
EXPORT ptr Sflonum(double);
|
||||
EXPORT ptr Smake_vector(iptr, ptr);
|
||||
EXPORT ptr Smake_fxvector(iptr, ptr);
|
||||
EXPORT ptr Smake_bytevector(iptr, int);
|
||||
EXPORT ptr Smake_string(iptr, int);
|
||||
EXPORT ptr Smake_uninitialized_string(iptr);
|
||||
EXPORT ptr Sstring(const char *);
|
||||
EXPORT ptr Sstring_of_length(const char *, iptr);
|
||||
EXPORT ptr Sstring_utf8(const char*, iptr);
|
||||
EXPORT ptr Sbox(ptr);
|
||||
EXPORT ptr Sinteger(iptr);
|
||||
EXPORT ptr Sunsigned(uptr);
|
||||
EXPORT ptr Sinteger32(int);
|
||||
EXPORT ptr Sunsigned32(unsigned int);
|
||||
EXPORT ptr Sinteger64(long);
|
||||
EXPORT ptr Sunsigned64(unsigned long);
|
||||
|
||||
/* Miscellaneous */
|
||||
EXPORT ptr Stop_level_value(ptr);
|
||||
EXPORT void Sset_top_level_value(ptr, ptr);
|
||||
EXPORT void Slock_object(ptr);
|
||||
EXPORT void Sunlock_object(ptr);
|
||||
EXPORT int Slocked_objectp(ptr);
|
||||
EXPORT void Sforeign_symbol(const char *, void *);
|
||||
EXPORT void Sregister_symbol(const char *, void *);
|
||||
|
||||
/* Support for calls into Scheme */
|
||||
EXPORT ptr Scall0(ptr);
|
||||
EXPORT ptr Scall1(ptr, ptr);
|
||||
EXPORT ptr Scall2(ptr, ptr, ptr);
|
||||
EXPORT ptr Scall3(ptr, ptr, ptr, ptr);
|
||||
EXPORT void Sinitframe(iptr);
|
||||
EXPORT void Sput_arg(iptr, ptr);
|
||||
EXPORT ptr Scall(ptr, iptr);
|
||||
/* Warning: Sforeign_callable_entry_point(x) returns a pointer into x. */
|
||||
#define Sforeign_callable_entry_point(x) ((void (*)(void))((uptr)(x)+65))
|
||||
#define Sforeign_callable_code_object(x) ((ptr)((uptr)(x)-65))
|
||||
|
||||
/* Customization support. */
|
||||
EXPORT const char * Skernel_version(void);
|
||||
EXPORT void Sretain_static_relocation(void);
|
||||
EXPORT void Sset_verbose(int);
|
||||
EXPORT void Sscheme_init(void (*)(void));
|
||||
EXPORT void Sregister_boot_file(const char *);
|
||||
EXPORT void Sregister_boot_file_fd(const char *, int fd);
|
||||
EXPORT void Sregister_heap_file(const char *);
|
||||
EXPORT void Scompact_heap(void);
|
||||
EXPORT void Ssave_heap(const char *, int);
|
||||
EXPORT void Sbuild_heap(const char *, void (*)(void));
|
||||
EXPORT void Senable_expeditor(const char *);
|
||||
EXPORT int Sscheme_start(int, const char *[]);
|
||||
EXPORT int Sscheme_script(const char *, int, const char *[]);
|
||||
EXPORT int Sscheme_program(const char *, int, const char *[]);
|
||||
EXPORT void Sscheme_deinit(void);
|
||||
|
||||
/* Features. */
|
||||
#define FEATURE_ICONV
|
||||
#define FEATURE_EXPEDITOR
|
||||
|
||||
/* Locking macros. */
|
||||
#define INITLOCK(addr) \
|
||||
__asm__ __volatile__ ("movq $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "memory")
|
||||
|
||||
#define SPINLOCK(addr) \
|
||||
__asm__ __volatile__ ("0:\n\t"\
|
||||
"movq $1, %%rax\n\t"\
|
||||
"xchgq (%0), %%rax\n\t"\
|
||||
"cmpq $0, %%rax\n\t"\
|
||||
"je 2f\n\t"\
|
||||
"1:\n\t"\
|
||||
"pause\n\t"\
|
||||
"cmpq $0, (%0)\n\t"\
|
||||
"je 0b\n\t"\
|
||||
"jmp 1b\n\t"\
|
||||
"2:"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "rax", "flags", "memory")
|
||||
|
||||
#define UNLOCK(addr) \
|
||||
__asm__ __volatile__ ("movq $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
:"memory")
|
||||
|
||||
#define LOCKED_INCR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; incq (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
|
||||
#define LOCKED_DECR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; decq (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
993
boot/a6nt/equates.h
Normal file
993
boot/a6nt/equates.h
Normal file
|
|
@ -0,0 +1,993 @@
|
|||
/* equates.h for Chez Scheme Version 9.5.9 */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct version */
|
||||
/* of this file for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Integer typedefs */
|
||||
typedef char I8;
|
||||
typedef unsigned char U8;
|
||||
typedef short I16;
|
||||
typedef unsigned short U16;
|
||||
typedef int I32;
|
||||
typedef unsigned int U32;
|
||||
typedef long long I64;
|
||||
typedef unsigned long long U64;
|
||||
|
||||
/* constants from cmacros.ss */
|
||||
#define $c_func_closure_index 0x4
|
||||
#define $c_func_closure_record_index 0x3
|
||||
#define $c_func_code_object_index 0x2
|
||||
#define $c_func_code_record_index 0x1
|
||||
#define COMPRESS_FORMAT_BITS 0x3
|
||||
#define COMPRESS_GZIP 0x0
|
||||
#define COMPRESS_HIGH 0x3
|
||||
#define COMPRESS_LOW 0x1
|
||||
#define COMPRESS_LZ4 0x1
|
||||
#define COMPRESS_MAX 0x4
|
||||
#define COMPRESS_MEDIUM 0x2
|
||||
#define COMPRESS_MIN 0x0
|
||||
#define ERROR_CALL_ARGUMENT_COUNT 0x4
|
||||
#define ERROR_CALL_NONPROCEDURE 0x3
|
||||
#define ERROR_CALL_NONPROCEDURE_SYMBOL 0x2
|
||||
#define ERROR_CALL_UNBOUND 0x1
|
||||
#define ERROR_MVLET 0x8
|
||||
#define ERROR_NONCONTINUABLE_INTERRUPT 0x6
|
||||
#define ERROR_OTHER 0x0
|
||||
#define ERROR_RESET 0x5
|
||||
#define ERROR_VALUES 0x7
|
||||
#define OPEN_ERROR_EXISTS 0x2
|
||||
#define OPEN_ERROR_EXISTSNOT 0x3
|
||||
#define OPEN_ERROR_OTHER 0x0
|
||||
#define OPEN_ERROR_PROTECTION 0x1
|
||||
#define PORT_FLAG_BINARY 0x400
|
||||
#define PORT_FLAG_BLOCK_BUFFERED 0x20000
|
||||
#define PORT_FLAG_BOL 0x8000
|
||||
#define PORT_FLAG_CHAR_POSITIONS 0x100000
|
||||
#define PORT_FLAG_CLOSED 0x800
|
||||
#define PORT_FLAG_COMPRESSED 0x2000
|
||||
#define PORT_FLAG_EOF 0x10000
|
||||
#define PORT_FLAG_EXCLUSIVE 0x4000
|
||||
#define PORT_FLAG_FILE 0x1000
|
||||
#define PORT_FLAG_FOLD_CASE 0x400000
|
||||
#define PORT_FLAG_INPUT 0x100
|
||||
#define PORT_FLAG_INPUT_MODE 0x80000
|
||||
#define PORT_FLAG_LINE_BUFFERED 0x40000
|
||||
#define PORT_FLAG_NO_FOLD_CASE 0x800000
|
||||
#define PORT_FLAG_OUTPUT 0x200
|
||||
#define PORT_FLAG_R6RS 0x200000
|
||||
#define SAPPEND 0x3
|
||||
#define SDEFAULT 0x4
|
||||
#define SEOF -0x1
|
||||
#define SERROR 0x0
|
||||
#define SICONV_DUNNO 0x0
|
||||
#define SICONV_INCOMPLETE 0x2
|
||||
#define SICONV_INVALID 0x1
|
||||
#define SICONV_NOROOM 0x3
|
||||
#define SREPLACE 0x2
|
||||
#define STRVNCATE 0x1
|
||||
#define address_bits 0x40
|
||||
#define alloc_waste_maximum 0x800
|
||||
#define annotation_all 0x3
|
||||
#define annotation_debug 0x1
|
||||
#define annotation_profile 0x2
|
||||
#define architecture x86_64
|
||||
#define asm_arg_reg_cnt 0x3
|
||||
#define asm_arg_reg_max 0x5
|
||||
#define bigit_bits 0x20
|
||||
#define bigit_bytes 0x4
|
||||
#define bignum_data_disp 0x9
|
||||
#define bignum_length_factor 0x40
|
||||
#define bignum_length_offset 0x6
|
||||
#define bignum_sign_offset 0x5
|
||||
#define bignum_type_disp 0x1
|
||||
#define black_hole (ptr)0x46
|
||||
#define box_ref_disp 0x9
|
||||
#define box_type_disp 0x1
|
||||
#define byte_alignment 0x10
|
||||
#define byte_constant_mask 0xFFFFFFFFFFFFFFFF
|
||||
#define bytes_per_card 0x200
|
||||
#define bytes_per_segment 0x4000
|
||||
#define bytevector_data_disp 0x9
|
||||
#define bytevector_immutable_flag 0x4
|
||||
#define bytevector_length_factor 0x8
|
||||
#define bytevector_length_offset 0x3
|
||||
#define bytevector_type_disp 0x1
|
||||
#define c_entry_name_vector #(thread-context get-thread-context handle-apply-overflood handle-docall-error handle-overflow handle-overflood handle-nonprocedure-symbol thread-list split-and-resize raw-collect-cond raw-tc-mutex activate-thread deactivate-thread unactivate-thread handle-values-error handle-mvlet-error handle-arg-error foreign-entry install-library-entry get-more-room scan-remembered-set instantiate-code-object Sreturn Scall-one-result Scall-any-results)
|
||||
#define c_entry_vector_size 0x19
|
||||
#define cached_stack_link_disp 0x8
|
||||
#define cached_stack_size_disp 0x0
|
||||
#define card_offset_bits 0x9
|
||||
#define cards_per_segment 0x20
|
||||
#define char_data_offset 0x8
|
||||
#define char_factor 0x100
|
||||
#define closure_code_disp 0x3
|
||||
#define closure_data_disp 0xB
|
||||
#define code_arity_mask_disp 0x21
|
||||
#define code_closure_length_disp 0x29
|
||||
#define code_data_disp 0x41
|
||||
#define code_flag_continuation 0x2
|
||||
#define code_flag_guardian 0x8
|
||||
#define code_flag_system 0x1
|
||||
#define code_flag_template 0x4
|
||||
#define code_flags_offset 0x8
|
||||
#define code_info_disp 0x31
|
||||
#define code_length_disp 0x9
|
||||
#define code_name_disp 0x19
|
||||
#define code_pinfos_disp 0x39
|
||||
#define code_reloc_disp 0x11
|
||||
#define code_type_disp 0x1
|
||||
#define collect_interrupt_index 0x1
|
||||
#define continuation_code_disp 0x3
|
||||
#define continuation_link_disp 0x23
|
||||
#define continuation_return_address_disp 0x2B
|
||||
#define continuation_stack_clength_disp 0x1B
|
||||
#define continuation_stack_disp 0xB
|
||||
#define continuation_stack_length_disp 0x13
|
||||
#define continuation_winders_disp 0x33
|
||||
#define countof_bignum 0x5
|
||||
#define countof_box 0x9
|
||||
#define countof_bytevector 0x15
|
||||
#define countof_closure 0x3
|
||||
#define countof_code 0xB
|
||||
#define countof_continuation 0x4
|
||||
#define countof_ephemeron 0x19
|
||||
#define countof_exactnum 0x8
|
||||
#define countof_flonum 0x2
|
||||
#define countof_fxvector 0x14
|
||||
#define countof_guardian 0x17
|
||||
#define countof_inexactnum 0x7
|
||||
#define countof_locked 0x16
|
||||
#define countof_oblist 0x18
|
||||
#define countof_pair 0x0
|
||||
#define countof_port 0xA
|
||||
#define countof_ratnum 0x6
|
||||
#define countof_relocation_table 0x10
|
||||
#define countof_rtd_counts 0xE
|
||||
#define countof_stack 0xF
|
||||
#define countof_string 0x13
|
||||
#define countof_symbol 0x1
|
||||
#define countof_thread 0xC
|
||||
#define countof_tlc 0xD
|
||||
#define countof_types 0x1A
|
||||
#define countof_vector 0x12
|
||||
#define countof_weakpair 0x11
|
||||
#define default_collect_trip_bytes 0x800000
|
||||
#define default_heap_reserve_ratio 1.0
|
||||
#define default_max_nonstatic_generation 0x4
|
||||
#define default_stack_size 0xFFF0
|
||||
#define default_timer_ticks 0x3E8
|
||||
#define dtvec_hour 0x3
|
||||
#define dtvec_isdst 0x9
|
||||
#define dtvec_mday 0x4
|
||||
#define dtvec_min 0x2
|
||||
#define dtvec_mon 0x5
|
||||
#define dtvec_nsec 0x0
|
||||
#define dtvec_sec 0x1
|
||||
#define dtvec_size 0xC
|
||||
#define dtvec_tzname 0xB
|
||||
#define dtvec_tzoff 0xA
|
||||
#define dtvec_wday 0x7
|
||||
#define dtvec_yday 0x8
|
||||
#define dtvec_year 0x6
|
||||
#define ephemeron_car_disp 0x7
|
||||
#define ephemeron_cdr_disp 0xF
|
||||
#define ephemeron_next_disp 0x17
|
||||
#define ephemeron_trigger_next_disp 0x1F
|
||||
#define eq_hashtable_subtype_ephemeron 0x2
|
||||
#define eq_hashtable_subtype_normal 0x0
|
||||
#define eq_hashtable_subtype_weak 0x1
|
||||
#define exactnum_imag_disp 0x11
|
||||
#define exactnum_real_disp 0x9
|
||||
#define exactnum_type_disp 0x1
|
||||
#define fasl_fld_double 0xA
|
||||
#define fasl_fld_i16 0x2
|
||||
#define fasl_fld_i24 0x3
|
||||
#define fasl_fld_i32 0x4
|
||||
#define fasl_fld_i40 0x5
|
||||
#define fasl_fld_i48 0x6
|
||||
#define fasl_fld_i56 0x7
|
||||
#define fasl_fld_i64 0x8
|
||||
#define fasl_fld_ptr 0x0
|
||||
#define fasl_fld_single 0x9
|
||||
#define fasl_fld_u8 0x1
|
||||
#define fasl_header #vu8(0 0 0 0 99 104 101 122)
|
||||
#define fasl_type_base_rtd 0x1A
|
||||
#define fasl_type_box 0x1
|
||||
#define fasl_type_bytevector 0x1D
|
||||
#define fasl_type_closure 0x6
|
||||
#define fasl_type_code 0xB
|
||||
#define fasl_type_entry 0xD
|
||||
#define fasl_type_ephemeron 0x1C
|
||||
#define fasl_type_eq_hashtable 0x1F
|
||||
#define fasl_type_exactnum 0x14
|
||||
#define fasl_type_flonum 0x8
|
||||
#define fasl_type_fxvector 0x1B
|
||||
#define fasl_type_gensym 0x13
|
||||
#define fasl_type_graph 0x10
|
||||
#define fasl_type_graph_def 0x11
|
||||
#define fasl_type_graph_ref 0x12
|
||||
#define fasl_type_gzip 0x2B
|
||||
#define fasl_type_header 0x0
|
||||
#define fasl_type_immediate 0xC
|
||||
#define fasl_type_immutable_box 0x29
|
||||
#define fasl_type_immutable_bytevector 0x28
|
||||
#define fasl_type_immutable_fxvector 0x27
|
||||
#define fasl_type_immutable_string 0x26
|
||||
#define fasl_type_immutable_vector 0x25
|
||||
#define fasl_type_inexactnum 0x5
|
||||
#define fasl_type_large_integer 0xA
|
||||
#define fasl_type_library 0xE
|
||||
#define fasl_type_library_code 0xF
|
||||
#define fasl_type_lz4 0x2C
|
||||
#define fasl_type_pair 0x7
|
||||
#define fasl_type_ratnum 0x3
|
||||
#define fasl_type_record 0x17
|
||||
#define fasl_type_revisit 0x23
|
||||
#define fasl_type_rtd 0x18
|
||||
#define fasl_type_small_integer 0x19
|
||||
#define fasl_type_string 0x9
|
||||
#define fasl_type_symbol 0x2
|
||||
#define fasl_type_symbol_hashtable 0x20
|
||||
#define fasl_type_uncompressed 0x2A
|
||||
#define fasl_type_vector 0x4
|
||||
#define fasl_type_visit 0x22
|
||||
#define fasl_type_visit_revisit 0x24
|
||||
#define fasl_type_weak_pair 0x1E
|
||||
#define fixnum_bits 0x3D
|
||||
#define fixnum_factor 0x8
|
||||
#define fixnum_offset 0x3
|
||||
#define fld_byte_index 0x4
|
||||
#define fld_mutablep_index 0x2
|
||||
#define fld_name_index 0x1
|
||||
#define fld_type_index 0x3
|
||||
#define flonum_data_disp 0x6
|
||||
#define forward_address_disp 0x8
|
||||
#define forward_marker (ptr)0x2E
|
||||
#define forward_marker_disp 0x0
|
||||
#define ftype_guardian_rep (ptr)0x56
|
||||
#define fxvector_data_disp 0x9
|
||||
#define fxvector_immutable_flag 0x8
|
||||
#define fxvector_length_factor 0x10
|
||||
#define fxvector_length_offset 0x4
|
||||
#define fxvector_type_disp 0x1
|
||||
#define guardian_entry_next_disp 0x18
|
||||
#define guardian_entry_obj_disp 0x0
|
||||
#define guardian_entry_rep_disp 0x8
|
||||
#define guardian_entry_tconc_disp 0x10
|
||||
#define hashtable_default_size 0x8
|
||||
#define header_size_bignum 0x8
|
||||
#define header_size_bytevector 0x8
|
||||
#define header_size_closure 0x8
|
||||
#define header_size_code 0x40
|
||||
#define header_size_fxvector 0x8
|
||||
#define header_size_record 0x8
|
||||
#define header_size_reloc_table 0x10
|
||||
#define header_size_string 0x8
|
||||
#define header_size_vector 0x8
|
||||
#define ignore_event_flag 0x0
|
||||
#define inexactnum_imag_disp 0x19
|
||||
#define inexactnum_pad_disp 0x9
|
||||
#define inexactnum_real_disp 0x11
|
||||
#define inexactnum_type_disp 0x1
|
||||
#define int_bits 0x20
|
||||
#define integer_divide_instruction 1
|
||||
#define keyboard_interrupt_index 0x3
|
||||
#define library_entry_vector_size 0x210
|
||||
#define libspec_closure_index 0xD
|
||||
#define libspec_does_not_expect_headroom_index 0x0
|
||||
#define libspec_error_index 0xE
|
||||
#define libspec_fake_index 0x10
|
||||
#define libspec_flags_index 0x2
|
||||
#define libspec_has_does_not_expect_headroom_version_index 0xF
|
||||
#define libspec_index_base_offset 0x1
|
||||
#define libspec_index_base_size 0x9
|
||||
#define libspec_index_offset 0x0
|
||||
#define libspec_index_size 0xA
|
||||
#define libspec_interface_offset 0xA
|
||||
#define libspec_interface_size 0x3
|
||||
#define libspec_name_index 0x1
|
||||
#define log2_ptr_bytes 0x3
|
||||
#define long_bits 0x20
|
||||
#define long_long_bits 0x40
|
||||
#define machine_type 0x1B
|
||||
#define machine_type_a6fb 0x15
|
||||
#define machine_type_a6le 0xB
|
||||
#define machine_type_a6nb 0x19
|
||||
#define machine_type_a6nt 0x1B
|
||||
#define machine_type_a6ob 0xF
|
||||
#define machine_type_a6osx 0xD
|
||||
#define machine_type_a6s2 0x11
|
||||
#define machine_type_alist ((0 . any) (1 . i3le) (2 . ti3le) (3 . i3nt) (4 . ti3nt) (5 . i3fb) (6 . ti3fb) (7 . i3ob) (8 . ti3ob) (9 . i3osx) (10 . ti3osx) (11 . a6le) (12 . ta6le) (13 . a6osx) (14 . ta6osx) (15 . a6ob) (16 . ta6ob) (17 . a6s2) (18 . ta6s2) (19 . i3s2) (20 . ti3s2) (21 . a6fb) (22 . ta6fb) (23 . i3nb) (24 . ti3nb) (25 . a6nb) (26 . ta6nb) (27 . a6nt) (28 . ta6nt) (29 . i3qnx) (30 . ti3qnx) (31 . arm32le) (32 . tarm32le) (33 . ppc32le) (34 . tppc32le))
|
||||
#define machine_type_any 0x0
|
||||
#define machine_type_arm32le 0x1F
|
||||
#define machine_type_i3fb 0x5
|
||||
#define machine_type_i3le 0x1
|
||||
#define machine_type_i3nb 0x17
|
||||
#define machine_type_i3nt 0x3
|
||||
#define machine_type_i3ob 0x7
|
||||
#define machine_type_i3osx 0x9
|
||||
#define machine_type_i3qnx 0x1D
|
||||
#define machine_type_i3s2 0x13
|
||||
#define machine_type_limit 0x23
|
||||
#define machine_type_name a6nt
|
||||
#define machine_type_ppc32le 0x21
|
||||
#define machine_type_ta6fb 0x16
|
||||
#define machine_type_ta6le 0xC
|
||||
#define machine_type_ta6nb 0x1A
|
||||
#define machine_type_ta6nt 0x1C
|
||||
#define machine_type_ta6ob 0x10
|
||||
#define machine_type_ta6osx 0xE
|
||||
#define machine_type_ta6s2 0x12
|
||||
#define machine_type_tarm32le 0x20
|
||||
#define machine_type_ti3fb 0x6
|
||||
#define machine_type_ti3le 0x2
|
||||
#define machine_type_ti3nb 0x18
|
||||
#define machine_type_ti3nt 0x4
|
||||
#define machine_type_ti3ob 0x8
|
||||
#define machine_type_ti3osx 0xA
|
||||
#define machine_type_ti3qnx 0x1E
|
||||
#define machine_type_ti3s2 0x14
|
||||
#define machine_type_tppc32le 0x22
|
||||
#define mask_bignum 0x1F
|
||||
#define mask_bignum_sign 0x20
|
||||
#define mask_binary_input_port 0x5FF
|
||||
#define mask_binary_output_port 0x6FF
|
||||
#define mask_binary_port 0x4FF
|
||||
#define mask_boolean 0xF7
|
||||
#define mask_box 0x7F
|
||||
#define mask_bwp 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_bytevector 0x3
|
||||
#define mask_char 0xFF
|
||||
#define mask_closure 0x7
|
||||
#define mask_code 0xFF
|
||||
#define mask_continuation_code 0x2FF
|
||||
#define mask_eof 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_exactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_false 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_fixnum 0x7
|
||||
#define mask_flonum 0x7
|
||||
#define mask_fxvector 0x7
|
||||
#define mask_guardian_code 0x8FF
|
||||
#define mask_immediate 0x7
|
||||
#define mask_inexactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_input_port 0x1FF
|
||||
#define mask_mutable_box 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_mutable_bytevector 0x7
|
||||
#define mask_mutable_fxvector 0xF
|
||||
#define mask_mutable_string 0xF
|
||||
#define mask_mutable_vector 0xF
|
||||
#define mask_nil 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_octet -0x7F9
|
||||
#define mask_other_number 0xF
|
||||
#define mask_output_port 0x2FF
|
||||
#define mask_pair 0x7
|
||||
#define mask_port 0xFF
|
||||
#define mask_ratnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_record 0x7
|
||||
#define mask_rtd_counts 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_signed_bignum 0x3F
|
||||
#define mask_string 0x7
|
||||
#define mask_symbol 0x7
|
||||
#define mask_system_code 0x1FF
|
||||
#define mask_textual_input_port 0x5FF
|
||||
#define mask_textual_output_port 0x6FF
|
||||
#define mask_textual_port 0x4FF
|
||||
#define mask_thread 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_tlc 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_typed_object 0x7
|
||||
#define mask_unbound 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_vector 0x7
|
||||
#define max_float_alignment 0x8
|
||||
#define max_integer_alignment 0x8
|
||||
#define max_real_space 0xB
|
||||
#define max_space 0xC
|
||||
#define max_sweep_space 0xA
|
||||
#define maximum_bignum_length (iptr)0x3FFFFFFFFFFFFFF
|
||||
#define maximum_bytevector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_fxvector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_interrupt_index 0x4
|
||||
#define maximum_string_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_vector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define minimum_segment_request 0x80
|
||||
#define most_negative_fixnum (iptr)-0x1000000000000000
|
||||
#define most_positive_fixnum (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define native_endianness little
|
||||
#define one_shot_headroom 0xC00
|
||||
#define ordinary_type_bits 0x8
|
||||
#define pair_car_disp 0x7
|
||||
#define pair_cdr_disp 0xF
|
||||
#define pair_shift 0x4
|
||||
#define port_flag_binary 0x4
|
||||
#define port_flag_block_buffered 0x200
|
||||
#define port_flag_bol 0x80
|
||||
#define port_flag_char_positions 0x1000
|
||||
#define port_flag_closed 0x8
|
||||
#define port_flag_compressed 0x20
|
||||
#define port_flag_eof 0x100
|
||||
#define port_flag_exclusive 0x40
|
||||
#define port_flag_file 0x10
|
||||
#define port_flag_fold_case 0x4000
|
||||
#define port_flag_input 0x1
|
||||
#define port_flag_input_mode 0x800
|
||||
#define port_flag_line_buffered 0x400
|
||||
#define port_flag_no_fold_case 0x8000
|
||||
#define port_flag_output 0x2
|
||||
#define port_flag_r6rs 0x2000
|
||||
#define port_flags_offset 0x8
|
||||
#define port_handler_disp 0x9
|
||||
#define port_ibuffer_disp 0x39
|
||||
#define port_icount_disp 0x19
|
||||
#define port_ilast_disp 0x31
|
||||
#define port_info_disp 0x41
|
||||
#define port_name_disp 0x49
|
||||
#define port_obuffer_disp 0x29
|
||||
#define port_ocount_disp 0x11
|
||||
#define port_olast_disp 0x21
|
||||
#define port_type_disp 0x1
|
||||
#define prelex_is_flags_offset 0x8
|
||||
#define prelex_is_mask 0xFF00
|
||||
#define prelex_sticky_mask 0xFF
|
||||
#define prelex_was_flags_offset 0x10
|
||||
#define primary_type_bits 0x3
|
||||
#define ptr_bits 0x40
|
||||
#define ptr_bytes 0x8
|
||||
#define ptrdiff_t_bits 0x40
|
||||
#define ratnum_denominator_disp 0x11
|
||||
#define ratnum_numerator_disp 0x9
|
||||
#define ratnum_type_disp 0x1
|
||||
#define real_space_alist ((new . 0) (impure . 1) (symbol . 2) (port . 3) (weakpair . 4) (ephemeron . 5) (pure . 6) (continuation . 7) (code . 8) (pure-typed-object . 9) (impure-record . 10) (data . 11))
|
||||
#define record_data_disp 0x9
|
||||
#define record_type_counts_disp 0x49
|
||||
#define record_type_disp 0x1
|
||||
#define record_type_flags_disp 0x39
|
||||
#define record_type_flds_disp 0x31
|
||||
#define record_type_mpm_disp 0x21
|
||||
#define record_type_name_disp 0x29
|
||||
#define record_type_parent_disp 0x9
|
||||
#define record_type_pm_disp 0x19
|
||||
#define record_type_size_disp 0x11
|
||||
#define record_type_type_disp 0x1
|
||||
#define record_type_uid_disp 0x41
|
||||
#define reloc_abs 0x0
|
||||
#define reloc_code_offset_index 0x3
|
||||
#define reloc_code_offset_mask 0x3FFFFFF
|
||||
#define reloc_code_offset_offset 0x4
|
||||
#define reloc_extended_format 0x1
|
||||
#define reloc_item_offset_index 0x2
|
||||
#define reloc_item_offset_mask 0x3FFFFFF
|
||||
#define reloc_item_offset_offset 0x1E
|
||||
#define reloc_longp_index 0x4
|
||||
#define reloc_table_code_disp 0x8
|
||||
#define reloc_table_data_disp 0x10
|
||||
#define reloc_table_size_disp 0x0
|
||||
#define reloc_type_index 0x1
|
||||
#define reloc_type_mask 0x7
|
||||
#define reloc_type_offset 0x1
|
||||
#define reloc_x86_64_call 0x1
|
||||
#define reloc_x86_64_jump 0x2
|
||||
#define return_address_frame_size_disp -0x10
|
||||
#define return_address_livemask_disp -0x20
|
||||
#define return_address_mv_return_address_disp -0x8
|
||||
#define return_address_toplink_disp -0x18
|
||||
#define rp_header_frame_size_disp 0x10
|
||||
#define rp_header_livemask_disp 0x0
|
||||
#define rp_header_mv_return_address_disp 0x18
|
||||
#define rp_header_toplink_disp 0x8
|
||||
#define rtd_counts_data_disp 0x11
|
||||
#define rtd_counts_timestamp_disp 0x9
|
||||
#define rtd_counts_type_disp 0x1
|
||||
#define rtd_generative 0x1
|
||||
#define rtd_opaque 0x2
|
||||
#define rtd_sealed 0x4
|
||||
#define sbwp (ptr)0x4E
|
||||
#define scaled_shot_1_shot_flag -0x8
|
||||
#define scheme_version 0x90509
|
||||
#define segment_card_offset_bits 0x5
|
||||
#define segment_offset_bits 0xE
|
||||
#define segment_t1_bits 0x10
|
||||
#define segment_t2_bits 0x11
|
||||
#define segment_t3_bits 0x11
|
||||
#define segment_table_levels 0x3
|
||||
#define seof (ptr)0x36
|
||||
#define sfalse (ptr)0x6
|
||||
#define short_bits 0x10
|
||||
#define signal_interrupt_index 0x4
|
||||
#define size_box 0x10
|
||||
#define size_cached_stack 0x10
|
||||
#define size_continuation 0x40
|
||||
#define size_ephemeron 0x20
|
||||
#define size_exactnum 0x20
|
||||
#define size_flonum 0x10
|
||||
#define size_forward 0x10
|
||||
#define size_guardian_entry 0x20
|
||||
#define size_inexactnum 0x20
|
||||
#define size_pair 0x10
|
||||
#define size_port 0x50
|
||||
#define size_ratnum 0x20
|
||||
#define size_record_type 0x50
|
||||
#define size_rp_header 0x20
|
||||
#define size_rtd_counts 0x810
|
||||
#define size_symbol 0x30
|
||||
#define size_tc 0x2C0
|
||||
#define size_thread 0x10
|
||||
#define size_tlc 0x20
|
||||
#define size_typed_object 0x10
|
||||
#define size_t_bits 0x40
|
||||
#define snil (ptr)0x26
|
||||
#define space_char_list (#\n #\i #\x #\q #\w #\e #\p #\k #\c #\r #\s #\d #\e)
|
||||
#define space_cname_list ("new" "impure" "symbol" "port" "weakpr" "emph" "pure" "cont" "code" "p-tobj" "ip-rec" "data" "empty")
|
||||
#define space_code 0x8
|
||||
#define space_continuation 0x7
|
||||
#define space_data 0xB
|
||||
#define space_empty 0xC
|
||||
#define space_ephemeron 0x5
|
||||
#define space_impure 0x1
|
||||
#define space_impure_record 0xA
|
||||
#define space_locked 0x20
|
||||
#define space_new 0x0
|
||||
#define space_old 0x40
|
||||
#define space_port 0x3
|
||||
#define space_pure 0x6
|
||||
#define space_pure_typed_object 0x9
|
||||
#define space_symbol 0x2
|
||||
#define space_weakpair 0x4
|
||||
#define stack_frame_limit 0x200
|
||||
#define stack_slop 0x400
|
||||
#define static_generation 0xFF
|
||||
#define string_char_bits 0x20
|
||||
#define string_char_bytes 0x4
|
||||
#define string_char_offset 0x2
|
||||
#define string_data_disp 0x9
|
||||
#define string_immutable_flag 0x8
|
||||
#define string_length_factor 0x10
|
||||
#define string_length_offset 0x4
|
||||
#define string_type_disp 0x1
|
||||
#define strue (ptr)0xE
|
||||
#define sunbound (ptr)0x1E
|
||||
#define svoid (ptr)0x3E
|
||||
#define symbol_hash_disp 0x2D
|
||||
#define symbol_name_disp 0x1D
|
||||
#define symbol_plist_disp 0x15
|
||||
#define symbol_pvalue_disp 0xD
|
||||
#define symbol_splist_disp 0x25
|
||||
#define symbol_value_disp 0x5
|
||||
#define tc_DSTBV_disp 0x2A8
|
||||
#define tc_SRCBV_disp 0x2B0
|
||||
#define tc_U_disp 0x160
|
||||
#define tc_V_disp 0x168
|
||||
#define tc_W_disp 0x170
|
||||
#define tc_X_disp 0x178
|
||||
#define tc_Y_disp 0x180
|
||||
#define tc_ac0_disp 0x28
|
||||
#define tc_ac1_disp 0x30
|
||||
#define tc_active_disp 0x134
|
||||
#define tc_alloc_counter_disp 0x298
|
||||
#define tc_ap_disp 0x50
|
||||
#define tc_arg_regs_disp 0x0
|
||||
#define tc_block_counter_disp 0x1D8
|
||||
#define tc_cchain_disp 0x120
|
||||
#define tc_code_ranges_to_flush_disp 0x128
|
||||
#define tc_compile_profile_disp 0x230
|
||||
#define tc_compress_format_disp 0x278
|
||||
#define tc_compress_level_disp 0x280
|
||||
#define tc_cp_disp 0x40
|
||||
#define tc_current_error_disp 0x1D0
|
||||
#define tc_current_input_disp 0x1C0
|
||||
#define tc_current_mso_disp 0x1E8
|
||||
#define tc_current_output_disp 0x1C8
|
||||
#define tc_default_record_equal_procedure_disp 0x268
|
||||
#define tc_default_record_hash_procedure_disp 0x270
|
||||
#define tc_disable_count_disp 0x198
|
||||
#define tc_eap_disp 0x58
|
||||
#define tc_esp_disp 0x48
|
||||
#define tc_fxfirst_bit_set_bv_disp 0x200
|
||||
#define tc_fxlength_bv_disp 0x1F8
|
||||
#define tc_generate_inspector_information_disp 0x238
|
||||
#define tc_generate_procedure_source_information_disp 0x240
|
||||
#define tc_generate_profile_forms_disp 0x248
|
||||
#define tc_guardian_entries_disp 0x118
|
||||
#define tc_instr_counter_disp 0x290
|
||||
#define tc_keyboard_interrupt_pending_disp 0x1B0
|
||||
#define tc_lz4_out_buffer_disp 0x288
|
||||
#define tc_meta_level_disp 0x228
|
||||
#define tc_null_immutable_bytevector_disp 0x218
|
||||
#define tc_null_immutable_fxvector_disp 0x210
|
||||
#define tc_null_immutable_string_disp 0x220
|
||||
#define tc_null_immutable_vector_disp 0x208
|
||||
#define tc_optimize_level_disp 0x250
|
||||
#define tc_parameters_disp 0x2A0
|
||||
#define tc_random_seed_disp 0x130
|
||||
#define tc_real_eap_disp 0x90
|
||||
#define tc_ret_disp 0x60
|
||||
#define tc_scheme_stack_disp 0x138
|
||||
#define tc_scheme_stack_size_disp 0x150
|
||||
#define tc_sfd_disp 0x1E0
|
||||
#define tc_sfp_disp 0x38
|
||||
#define tc_signal_interrupt_pending_disp 0x1A0
|
||||
#define tc_signal_interrupt_queue_disp 0x1A8
|
||||
#define tc_something_pending_disp 0x188
|
||||
#define tc_stack_cache_disp 0x140
|
||||
#define tc_stack_link_disp 0x148
|
||||
#define tc_subset_mode_disp 0x258
|
||||
#define tc_suppress_primitive_inlining_disp 0x260
|
||||
#define tc_target_machine_disp 0x1F0
|
||||
#define tc_td_disp 0x88
|
||||
#define tc_threadno_disp 0x1B8
|
||||
#define tc_timer_ticks_disp 0x190
|
||||
#define tc_trap_disp 0x68
|
||||
#define tc_ts_disp 0x80
|
||||
#define tc_virtual_registers_disp 0x98
|
||||
#define tc_winders_disp 0x158
|
||||
#define tc_xp_disp 0x70
|
||||
#define tc_yp_disp 0x78
|
||||
#define thread_tc_disp 0x9
|
||||
#define thread_type_disp 0x1
|
||||
#define time_collector_cpu 0x5
|
||||
#define time_collector_real 0x6
|
||||
#define time_duration 0x2
|
||||
#define time_monotonic 0x3
|
||||
#define time_process 0x0
|
||||
#define time_t_bits 0x40
|
||||
#define time_thread 0x1
|
||||
#define time_utc 0x4
|
||||
#define timer_interrupt_index 0x2
|
||||
#define tlc_ht_disp 0x11
|
||||
#define tlc_keyval_disp 0x9
|
||||
#define tlc_next_disp 0x19
|
||||
#define tlc_type_disp 0x1
|
||||
#define type_bignum 0x6
|
||||
#define type_binary_input_port 0x51E
|
||||
#define type_binary_output_port 0x61E
|
||||
#define type_binary_port 0x41E
|
||||
#define type_boolean 0x6
|
||||
#define type_box 0xE
|
||||
#define type_bytevector 0x1
|
||||
#define type_char 0x16
|
||||
#define type_closure 0x5
|
||||
#define type_code 0x3E
|
||||
#define type_continuation_code 0x23E
|
||||
#define type_exactnum 0x56
|
||||
#define type_fixnum 0x0
|
||||
#define type_flonum 0x2
|
||||
#define type_fxvector 0x3
|
||||
#define type_guardian_code 0x83E
|
||||
#define type_immediate 0x6
|
||||
#define type_immutable_box 0x8E
|
||||
#define type_immutable_bytevector 0x5
|
||||
#define type_immutable_fxvector 0xB
|
||||
#define type_immutable_string 0xA
|
||||
#define type_immutable_vector 0x8
|
||||
#define type_inexactnum 0x36
|
||||
#define type_input_port 0x11E
|
||||
#define type_io_port 0x31E
|
||||
#define type_mutable_box 0xE
|
||||
#define type_mutable_bytevector 0x1
|
||||
#define type_mutable_fxvector 0x3
|
||||
#define type_mutable_string 0x2
|
||||
#define type_mutable_vector 0x0
|
||||
#define type_negative_bignum 0x26
|
||||
#define type_octet 0x0
|
||||
#define type_other_number 0x6
|
||||
#define type_output_port 0x21E
|
||||
#define type_pair 0x1
|
||||
#define type_port 0x1E
|
||||
#define type_positive_bignum 0x6
|
||||
#define type_ratnum 0x16
|
||||
#define type_record 0x7
|
||||
#define type_rtd_counts 0x6E
|
||||
#define type_string 0x2
|
||||
#define type_symbol 0x3
|
||||
#define type_system_code 0x13E
|
||||
#define type_textual_input_port 0x11E
|
||||
#define type_textual_output_port 0x21E
|
||||
#define type_textual_port 0x1E
|
||||
#define type_thread 0x4E
|
||||
#define type_tlc 0x5E
|
||||
#define type_typed_object 0x7
|
||||
#define type_vector 0x0
|
||||
#define typed_object_type_disp 0x1
|
||||
#define typedef_i16 "short"
|
||||
#define typedef_i32 "int"
|
||||
#define typedef_i64 "long long"
|
||||
#define typedef_i8 "char"
|
||||
#define typedef_iptr "long long int"
|
||||
#define typedef_ptr "void *"
|
||||
#define typedef_string_char "unsigned int"
|
||||
#define typedef_u16 "unsigned short"
|
||||
#define typedef_u32 "unsigned int"
|
||||
#define typedef_u64 "unsigned long long"
|
||||
#define typedef_u8 "unsigned char"
|
||||
#define typedef_uptr "unsigned long long int"
|
||||
#define typemod 0x8
|
||||
#define unactivate_mode_deactivate 0x1
|
||||
#define unactivate_mode_destroy 0x2
|
||||
#define unactivate_mode_noop 0x0
|
||||
#define unaligned_floats 1
|
||||
#define unaligned_integers 1
|
||||
#define underflow_limit 0x80
|
||||
#define unscaled_shot_1_shot_flag -0x1
|
||||
#define vector_data_disp 0x9
|
||||
#define vector_immutable_flag 0x8
|
||||
#define vector_length_factor 0x10
|
||||
#define vector_length_offset 0x4
|
||||
#define vector_type_disp 0x1
|
||||
#define virtual_register_count 0x10
|
||||
#define wchar_bits 0x10
|
||||
|
||||
/* constants from declare-c-entries */
|
||||
#define CENTRY_Scall_any_results 24
|
||||
#define CENTRY_Scall_one_result 23
|
||||
#define CENTRY_Sreturn 22
|
||||
#define CENTRY_activate_thread 11
|
||||
#define CENTRY_deactivate_thread 12
|
||||
#define CENTRY_foreign_entry 17
|
||||
#define CENTRY_get_more_room 19
|
||||
#define CENTRY_get_thread_context 1
|
||||
#define CENTRY_handle_apply_overflood 2
|
||||
#define CENTRY_handle_arg_error 16
|
||||
#define CENTRY_handle_docall_error 3
|
||||
#define CENTRY_handle_mvlet_error 15
|
||||
#define CENTRY_handle_nonprocedure_symbol 6
|
||||
#define CENTRY_handle_overflood 5
|
||||
#define CENTRY_handle_overflow 4
|
||||
#define CENTRY_handle_values_error 14
|
||||
#define CENTRY_install_library_entry 18
|
||||
#define CENTRY_instantiate_code_object 21
|
||||
#define CENTRY_raw_collect_cond 9
|
||||
#define CENTRY_raw_tc_mutex 10
|
||||
#define CENTRY_scan_remembered_set 20
|
||||
#define CENTRY_split_and_resize 8
|
||||
#define CENTRY_thread_context 0
|
||||
#define CENTRY_thread_list 7
|
||||
#define CENTRY_unactivate_thread 13
|
||||
|
||||
/* displacements for records */
|
||||
#define eq_hashtable_rtd_disp 1
|
||||
#define eq_hashtable_type_disp 9
|
||||
#define eq_hashtable_mutablep_disp 17
|
||||
#define eq_hashtable_vec_disp 25
|
||||
#define eq_hashtable_minlen_disp 33
|
||||
#define eq_hashtable_size_disp 41
|
||||
#define eq_hashtable_subtype_disp 49
|
||||
#define symbol_hashtable_rtd_disp 1
|
||||
#define symbol_hashtable_type_disp 9
|
||||
#define symbol_hashtable_mutablep_disp 17
|
||||
#define symbol_hashtable_vec_disp 25
|
||||
#define symbol_hashtable_minlen_disp 33
|
||||
#define symbol_hashtable_size_disp 41
|
||||
#define symbol_hashtable_equivp_disp 49
|
||||
#define code_info_rtd_disp 1
|
||||
#define code_info_src_disp 9
|
||||
#define code_info_sexpr_disp 17
|
||||
#define code_info_free_disp 25
|
||||
#define code_info_live_disp 33
|
||||
#define code_info_rpis_disp 41
|
||||
|
||||
/* predicates */
|
||||
#define Simmediatep(x) (((uptr)(x)&0x7)==0x6)
|
||||
#define Sportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x1E))
|
||||
#define Scodep(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x3E))
|
||||
|
||||
/* structure accessors */
|
||||
#define INITCAR(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define INITCDR(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define SETCAR(x,y) DIRTYSET(((ptr *)((uptr)(x)+7)),(y))
|
||||
#define SETCDR(x,y) DIRTYSET(((ptr *)((uptr)(x)+15)),(y))
|
||||
#define BOXTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITBOXREF(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define SETBOXREF(x,y) DIRTYSET(((ptr *)((uptr)(x)+9)),(y))
|
||||
#define EPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define INITEPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define EPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define INITEPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define TLCTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define TLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define TLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define TLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define INITTLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITTLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define INITTLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define SETTLCNEXT(x,y) DIRTYSET(((ptr *)((uptr)(x)+25)),(y))
|
||||
#define SYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define SYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define SYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define SYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define INITSYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITSYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITSYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define INITSYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define INITSYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define INITSYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define SETSYMVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define SETSYMPVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SETSYMPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+21)),(y))
|
||||
#define SETSYMNAME(x,y) DIRTYSET(((ptr *)((uptr)(x)+29)),(y))
|
||||
#define SETSYMSPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+37)),(y))
|
||||
#define SETSYMHASH(x,y) DIRTYSET(((ptr *)((uptr)(x)+45)),(y))
|
||||
#define VECTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define SETVECTIT(x,i,y) DIRTYSET((((ptr *)((uptr)(x)+9))+i),(y))
|
||||
#define FXVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define FXVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define BYTEVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BVIT(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
#define INEXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INEXACTNUM_REAL_PART(x) (*((double *)((uptr)(x)+17)))
|
||||
#define INEXACTNUM_IMAG_PART(x) (*((double *)((uptr)(x)+25)))
|
||||
#define EXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define EXACTNUM_REAL_PART(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define EXACTNUM_IMAG_PART(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RATTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RATNUM(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RATDEN(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CLOSENTRY(x) (*((ptr *)((uptr)(x)+3)))
|
||||
#define CLOSIT(x,i) (((ptr *)((uptr)(x)+11))[i])
|
||||
#define FLODAT(x) (*((double *)((uptr)(x)+6)))
|
||||
#define PORTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define PORTNAME(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define PORTHANDLER(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define PORTINFO(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define PORTOCNT(x) (*((iptr *)((uptr)(x)+17)))
|
||||
#define PORTOLAST(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define PORTOBUF(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define PORTICNT(x) (*((iptr *)((uptr)(x)+25)))
|
||||
#define PORTILAST(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define PORTIBUF(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define STRTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define STRIT(x,i) (((string_char *)((uptr)(x)+9))[i])
|
||||
#define BIGTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BIGIT(x,i) (((bigit *)((uptr)(x)+9))[i])
|
||||
#define CODETYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define CODELEN(x) (*((iptr *)((uptr)(x)+9)))
|
||||
#define CODERELOC(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CODENAME(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define CODEARITYMASK(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define CODEFREE(x) (*((iptr *)((uptr)(x)+41)))
|
||||
#define CODEINFO(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define CODEPINFOS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define CODEIT(x,i) (((octet *)((uptr)(x)+65))[i])
|
||||
#define RELOCSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define RELOCCODE(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RELOCIT(x,i) (((uptr *)((uptr)(x)+16))[i])
|
||||
#define CONTSTACK(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define CONTLENGTH(x) (*((iptr *)((uptr)(x)+19)))
|
||||
#define CONTCLENGTH(x) (*((iptr *)((uptr)(x)+27)))
|
||||
#define CONTLINK(x) (*((ptr *)((uptr)(x)+35)))
|
||||
#define CONTRET(x) (*((ptr *)((uptr)(x)+43)))
|
||||
#define CONTWINDERS(x) (*((ptr *)((uptr)(x)+51)))
|
||||
#define RTDCOUNTSTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RTDCOUNTSTIMESTAMP(x) (*((U64 *)((uptr)(x)+9)))
|
||||
#define RTDCOUNTSIT(x,i) (((uptr *)((uptr)(x)+17))[i])
|
||||
#define RECORDDESCPARENT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RECORDDESCSIZE(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RECORDDESCPM(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define RECORDDESCMPM(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define RECORDDESCNAME(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define RECORDDESCFLDS(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define RECORDDESCFLAGS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define RECORDDESCUID(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define RECORDDESCCOUNTS(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define RECORDINSTTYPE(x) (*((ptr *)((uptr)(x)+1)))
|
||||
#define RECORDINSTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define CLOSCODE(p) ((ptr)((uptr)CLOSENTRY(p)-code_data_disp))
|
||||
#define CODEENTRYPOINT(x) ((ptr)((uptr)(x)+code_data_disp))
|
||||
#define SETCLOSCODE(p,x) (CLOSENTRY(p) = CODEENTRYPOINT(x))
|
||||
#define SYMCODE(p) ((ptr)((uptr)SYMPVAL(p)-code_data_disp))
|
||||
#define INITSYMCODE(p,x) (INITSYMPVAL(p) = CODEENTRYPOINT(x))
|
||||
#define SETSYMCODE(p,x) SETSYMPVAL(p,CODEENTRYPOINT(x))
|
||||
#define BIGLEN(x) ((iptr)((uptr)BIGTYPE(x) >> bignum_length_offset))
|
||||
#define BIGSIGN(x) ((BIGTYPE(x) & mask_bignum_sign) >> bignum_sign_offset)
|
||||
#define SETBIGLENANDSIGN(x,xl,xs) BIGTYPE(x) = (uptr)(xl) << bignum_length_offset | (xs) << bignum_sign_offset | type_bignum
|
||||
#define CLOSLEN(p) CODEFREE(CLOSCODE(p))
|
||||
#define GUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define GUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define GUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define GUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define INITGUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define INITGUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define INITGUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define INITGUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define FORWARDMARKER(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define FORWARDADDRESS(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define CACHEDSTACKSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define CACHEDSTACKLINK(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RPHEADERFRAMESIZE(x) (*((iptr *)((uptr)(x)+16)))
|
||||
#define RPHEADERLIVEMASK(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define RPHEADERTOPLINK(x) (*((uptr *)((uptr)(x)+8)))
|
||||
|
||||
/* machine types */
|
||||
#define machine_type_names {"any", "i3le", "ti3le", "i3nt", "ti3nt", "i3fb", "ti3fb", "i3ob", "ti3ob", "i3osx", "ti3osx", "a6le", "ta6le", "a6osx", "ta6osx", "a6ob", "ta6ob", "a6s2", "ta6s2", "i3s2", "ti3s2", "a6fb", "ta6fb", "i3nb", "ti3nb", "a6nb", "ta6nb", "a6nt", "ta6nt", "i3qnx", "ti3qnx", "arm32le", "tarm32le", "ppc32le", "tppc32le"}
|
||||
|
||||
/* allocation-space names */
|
||||
#define alloc_space_names "new", "impure", "symbol", "port", "weakpr", "emph", "pure", "cont", "code", "p-tobj", "ip-rec", "data", "empty"
|
||||
|
||||
/* allocation-space characters */
|
||||
#define alloc_space_chars 'n', 'i', 'x', 'q', 'w', 'e', 'p', 'k', 'c', 'r', 's', 'd', 'e'
|
||||
|
||||
/* threads */
|
||||
#define THREADTC(x) (*((uptr *)((uptr)(x)+9)))
|
||||
|
||||
/* thread-context data */
|
||||
#define DSTBV(x) (*((ptr *)((uptr)(x)+680)))
|
||||
#define SRCBV(x) (*((ptr *)((uptr)(x)+688)))
|
||||
#define U(x) (*((ptr *)((uptr)(x)+352)))
|
||||
#define V(x) (*((ptr *)((uptr)(x)+360)))
|
||||
#define W(x) (*((ptr *)((uptr)(x)+368)))
|
||||
#define X(x) (*((ptr *)((uptr)(x)+376)))
|
||||
#define Y(x) (*((ptr *)((uptr)(x)+384)))
|
||||
#define AC0(x) (*((void* *)((uptr)(x)+40)))
|
||||
#define AC1(x) (*((void* *)((uptr)(x)+48)))
|
||||
#define ACTIVE(x) (*((I32 *)((uptr)(x)+308)))
|
||||
#define ALLOCCOUNTER(x) (*((U64 *)((uptr)(x)+664)))
|
||||
#define AP(x) (*((void* *)((uptr)(x)+80)))
|
||||
#define ARGREGS(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define BLOCKCOUNTER(x) (*((ptr *)((uptr)(x)+472)))
|
||||
#define CCHAIN(x) (*((ptr *)((uptr)(x)+288)))
|
||||
#define CODERANGESTOFLUSH(x) (*((ptr *)((uptr)(x)+296)))
|
||||
#define COMPILEPROFILE(x) (*((ptr *)((uptr)(x)+560)))
|
||||
#define COMPRESSFORMAT(x) (*((ptr *)((uptr)(x)+632)))
|
||||
#define COMPRESSLEVEL(x) (*((ptr *)((uptr)(x)+640)))
|
||||
#define CP(x) (*((void* *)((uptr)(x)+64)))
|
||||
#define CURRENTERROR(x) (*((ptr *)((uptr)(x)+464)))
|
||||
#define CURRENTINPUT(x) (*((ptr *)((uptr)(x)+448)))
|
||||
#define CURRENTMSO(x) (*((ptr *)((uptr)(x)+488)))
|
||||
#define CURRENTOUTPUT(x) (*((ptr *)((uptr)(x)+456)))
|
||||
#define DEFAULTRECORDEQUALPROCEDURE(x) (*((ptr *)((uptr)(x)+616)))
|
||||
#define DEFAULTRECORDHASHPROCEDURE(x) (*((ptr *)((uptr)(x)+624)))
|
||||
#define DISABLECOUNT(x) (*((ptr *)((uptr)(x)+408)))
|
||||
#define EAP(x) (*((void* *)((uptr)(x)+88)))
|
||||
#define ESP(x) (*((void* *)((uptr)(x)+72)))
|
||||
#define FXFIRSTBITSETBV(x) (*((ptr *)((uptr)(x)+512)))
|
||||
#define FXLENGTHBV(x) (*((ptr *)((uptr)(x)+504)))
|
||||
#define GENERATEINSPECTORINFORMATION(x) (*((ptr *)((uptr)(x)+568)))
|
||||
#define GENERATEPROCEDURESOURCEINFORMATION(x) (*((ptr *)((uptr)(x)+576)))
|
||||
#define GENERATEPROFILEFORMS(x) (*((ptr *)((uptr)(x)+584)))
|
||||
#define GUARDIANENTRIES(x) (*((ptr *)((uptr)(x)+280)))
|
||||
#define INSTRCOUNTER(x) (*((U64 *)((uptr)(x)+656)))
|
||||
#define KEYBOARDINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+432)))
|
||||
#define LZ4OUTBUFFER(x) (*((void* *)((uptr)(x)+648)))
|
||||
#define METALEVEL(x) (*((ptr *)((uptr)(x)+552)))
|
||||
#define NULLIMMUTABLEBYTEVECTOR(x) (*((ptr *)((uptr)(x)+536)))
|
||||
#define NULLIMMUTABLEFXVECTOR(x) (*((ptr *)((uptr)(x)+528)))
|
||||
#define NULLIMMUTABLESTRING(x) (*((ptr *)((uptr)(x)+544)))
|
||||
#define NULLIMMUTABLEVECTOR(x) (*((ptr *)((uptr)(x)+520)))
|
||||
#define OPTIMIZELEVEL(x) (*((ptr *)((uptr)(x)+592)))
|
||||
#define PARAMETERS(x) (*((ptr *)((uptr)(x)+672)))
|
||||
#define RANDOMSEED(x) (*((U32 *)((uptr)(x)+304)))
|
||||
#define REAL_EAP(x) (*((void* *)((uptr)(x)+144)))
|
||||
#define RET(x) (*((void* *)((uptr)(x)+96)))
|
||||
#define SCHEMESTACK(x) (*((void* *)((uptr)(x)+312)))
|
||||
#define SCHEMESTACKSIZE(x) (*((iptr *)((uptr)(x)+336)))
|
||||
#define SFD(x) (*((ptr *)((uptr)(x)+480)))
|
||||
#define SFP(x) (*((void* *)((uptr)(x)+56)))
|
||||
#define SIGNALINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+416)))
|
||||
#define SIGNALINTERRUPTQUEUE(x) (*((ptr *)((uptr)(x)+424)))
|
||||
#define SOMETHINGPENDING(x) (*((ptr *)((uptr)(x)+392)))
|
||||
#define STACKCACHE(x) (*((ptr *)((uptr)(x)+320)))
|
||||
#define STACKLINK(x) (*((ptr *)((uptr)(x)+328)))
|
||||
#define SUBSETMODE(x) (*((ptr *)((uptr)(x)+600)))
|
||||
#define SUPPRESSPRIMITIVEINLINING(x) (*((ptr *)((uptr)(x)+608)))
|
||||
#define TARGETMACHINE(x) (*((ptr *)((uptr)(x)+496)))
|
||||
#define TD(x) (*((void* *)((uptr)(x)+136)))
|
||||
#define THREADNO(x) (*((ptr *)((uptr)(x)+440)))
|
||||
#define TIMERTICKS(x) (*((ptr *)((uptr)(x)+400)))
|
||||
#define TRAP(x) (*((void* *)((uptr)(x)+104)))
|
||||
#define TS(x) (*((void* *)((uptr)(x)+128)))
|
||||
#define VIRTUALREGISTERS(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
#define WINDERS(x) (*((ptr *)((uptr)(x)+344)))
|
||||
#define XP(x) (*((void* *)((uptr)(x)+112)))
|
||||
#define YP(x) (*((void* *)((uptr)(x)+120)))
|
||||
#define ARGREG(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define VIRTREG(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
|
||||
/* library entries we access from C code */
|
||||
#define library_nonprocedure_code 152
|
||||
#define library_dounderflow 154
|
||||
BIN
boot/a6nt/petite.boot
Normal file
BIN
boot/a6nt/petite.boot
Normal file
Binary file not shown.
BIN
boot/a6nt/scheme.boot
Normal file
BIN
boot/a6nt/scheme.boot
Normal file
Binary file not shown.
217
boot/a6nt/scheme.h
Normal file
217
boot/a6nt/scheme.h
Normal file
|
|
@ -0,0 +1,217 @@
|
|||
/* scheme.h for Chez Scheme Version 9.5.9 (a6nt) */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct scheme.h */
|
||||
/* for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Specify declaration of exports. */
|
||||
#ifdef _WIN32
|
||||
# if __cplusplus
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern "C" __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern "C" __declspec (dllexport)
|
||||
# endif
|
||||
# else
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern
|
||||
# else
|
||||
# define EXPORT extern __declspec (dllexport)
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# if __cplusplus
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern
|
||||
# endif
|
||||
#endif
|
||||
|
||||
/* Chez Scheme Version and machine type */
|
||||
#define VERSION "9.5.9"
|
||||
#define MACHINE_TYPE "a6nt"
|
||||
|
||||
/* All Scheme objects are of type ptr. Type iptr and */
|
||||
/* uptr are signed and unsigned ints of the same size */
|
||||
/* as a ptr */
|
||||
typedef void * ptr;
|
||||
typedef long long int iptr;
|
||||
typedef unsigned long long int uptr;
|
||||
|
||||
/* String elements are 32-bit tagged char objects */
|
||||
typedef unsigned int string_char;
|
||||
|
||||
/* Bytevector elements are 8-bit unsigned "octets" */
|
||||
typedef unsigned char octet;
|
||||
|
||||
/* Type predicates */
|
||||
#define Sfixnump(x) (((uptr)(x)&0x7)==0x0)
|
||||
#define Scharp(x) (((uptr)(x)&0xFF)==0x16)
|
||||
#define Snullp(x) ((uptr)(x)==0x26)
|
||||
#define Seof_objectp(x) ((uptr)(x)==0x36)
|
||||
#define Sbwp_objectp(x) ((uptr)(x)==0x4E)
|
||||
#define Sbooleanp(x) (((uptr)(x)&0xF7)==0x6)
|
||||
#define Spairp(x) (((uptr)(x)&0x7)==0x1)
|
||||
#define Ssymbolp(x) (((uptr)(x)&0x7)==0x3)
|
||||
#define Sprocedurep(x) (((uptr)(x)&0x7)==0x5)
|
||||
#define Sflonump(x) (((uptr)(x)&0x7)==0x2)
|
||||
#define Svectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x0))
|
||||
#define Sfxvectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x3))
|
||||
#define Sbytevectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x1))
|
||||
#define Sstringp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x2))
|
||||
#define Sbignump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1F)==0x6))
|
||||
#define Sboxp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7F)==0xE))
|
||||
#define Sinexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x36))
|
||||
#define Sexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x56))
|
||||
#define Sratnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x16))
|
||||
#define Sinputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1FF)==0x11E))
|
||||
#define Soutputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x2FF)==0x21E))
|
||||
#define Srecordp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x7))
|
||||
|
||||
/* Accessors */
|
||||
#define Sfixnum_value(x) ((iptr)(x)/8)
|
||||
#define Schar_value(x) ((string_char)((uptr)(x)>>8))
|
||||
#define Sboolean_value(x) ((x) != Sfalse)
|
||||
#define Scar(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define Scdr(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define Sflonum_value(x) (*((double *)((uptr)(x)+6)))
|
||||
#define Svector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Svector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sfxvector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sfxvector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sbytevector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Sbytevector_u8_ref(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
/* Warning: Sbytevector_data(x) returns a pointer into x. */
|
||||
#define Sbytevector_data(x) &Sbytevector_u8_ref(x,0)
|
||||
#define Sstring_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sstring_ref(x,i) Schar_value(((string_char *)((uptr)(x)+9))[i])
|
||||
#define Sunbox(x) (*((ptr *)((uptr)(x)+9)))
|
||||
EXPORT iptr Sinteger_value(ptr);
|
||||
#define Sunsigned_value(x) (uptr)Sinteger_value(x)
|
||||
EXPORT int Sinteger32_value(ptr);
|
||||
#define Sunsigned32_value(x) (unsigned int)Sinteger32_value(x)
|
||||
EXPORT long long Sinteger64_value(ptr);
|
||||
#define Sunsigned64_value(x) (unsigned long long)Sinteger64_value(x)
|
||||
|
||||
/* Mutators */
|
||||
EXPORT void Sset_box(ptr, ptr);
|
||||
EXPORT void Sset_car(ptr, ptr);
|
||||
EXPORT void Sset_cdr(ptr, ptr);
|
||||
#define Sstring_set(x,i,c) ((void)((((string_char *)((uptr)(x)+9))[i]) = (string_char)(uptr)Schar(c)))
|
||||
#define Sfxvector_set(x,i,n) ((void)(Sfxvector_ref(x,i) = (n)))
|
||||
#define Sbytevector_u8_set(x,i,n) ((void)(Sbytevector_u8_ref(x,i) = (n)))
|
||||
EXPORT void Svector_set(ptr, iptr, ptr);
|
||||
|
||||
/* Constructors */
|
||||
#define Sfixnum(x) ((ptr)(uptr)((x)*8))
|
||||
#define Schar(x) ((ptr)(uptr)((x)<<8|0x16))
|
||||
#define Snil ((ptr)0x26)
|
||||
#define Strue ((ptr)0xE)
|
||||
#define Sfalse ((ptr)0x6)
|
||||
#define Sboolean(x) ((x)?Strue:Sfalse)
|
||||
#define Sbwp_object ((ptr)0x4E)
|
||||
#define Seof_object ((ptr)0x36)
|
||||
#define Svoid ((ptr)0x3E)
|
||||
EXPORT ptr Scons(ptr, ptr);
|
||||
EXPORT ptr Sstring_to_symbol(const char *);
|
||||
EXPORT ptr Ssymbol_to_string(ptr);
|
||||
EXPORT ptr Sflonum(double);
|
||||
EXPORT ptr Smake_vector(iptr, ptr);
|
||||
EXPORT ptr Smake_fxvector(iptr, ptr);
|
||||
EXPORT ptr Smake_bytevector(iptr, int);
|
||||
EXPORT ptr Smake_string(iptr, int);
|
||||
EXPORT ptr Smake_uninitialized_string(iptr);
|
||||
EXPORT ptr Sstring(const char *);
|
||||
EXPORT ptr Sstring_of_length(const char *, iptr);
|
||||
EXPORT ptr Sstring_utf8(const char*, iptr);
|
||||
EXPORT ptr Sbox(ptr);
|
||||
EXPORT ptr Sinteger(iptr);
|
||||
EXPORT ptr Sunsigned(uptr);
|
||||
EXPORT ptr Sinteger32(int);
|
||||
EXPORT ptr Sunsigned32(unsigned int);
|
||||
EXPORT ptr Sinteger64(long long);
|
||||
EXPORT ptr Sunsigned64(unsigned long long);
|
||||
|
||||
/* Miscellaneous */
|
||||
EXPORT ptr Stop_level_value(ptr);
|
||||
EXPORT void Sset_top_level_value(ptr, ptr);
|
||||
EXPORT void Slock_object(ptr);
|
||||
EXPORT void Sunlock_object(ptr);
|
||||
EXPORT int Slocked_objectp(ptr);
|
||||
EXPORT void Sforeign_symbol(const char *, void *);
|
||||
EXPORT void Sregister_symbol(const char *, void *);
|
||||
|
||||
/* Support for calls into Scheme */
|
||||
EXPORT ptr Scall0(ptr);
|
||||
EXPORT ptr Scall1(ptr, ptr);
|
||||
EXPORT ptr Scall2(ptr, ptr, ptr);
|
||||
EXPORT ptr Scall3(ptr, ptr, ptr, ptr);
|
||||
EXPORT void Sinitframe(iptr);
|
||||
EXPORT void Sput_arg(iptr, ptr);
|
||||
EXPORT ptr Scall(ptr, iptr);
|
||||
/* Warning: Sforeign_callable_entry_point(x) returns a pointer into x. */
|
||||
#define Sforeign_callable_entry_point(x) ((void (*)(void))((uptr)(x)+65))
|
||||
#define Sforeign_callable_code_object(x) ((ptr)((uptr)(x)-65))
|
||||
|
||||
/* Customization support. */
|
||||
EXPORT const char * Skernel_version(void);
|
||||
EXPORT void Sretain_static_relocation(void);
|
||||
EXPORT void Sset_verbose(int);
|
||||
EXPORT void Sscheme_init(void (*)(void));
|
||||
EXPORT void Sregister_boot_file(const char *);
|
||||
EXPORT void Sregister_boot_file_fd(const char *, int fd);
|
||||
EXPORT void Sregister_heap_file(const char *);
|
||||
EXPORT void Scompact_heap(void);
|
||||
EXPORT void Ssave_heap(const char *, int);
|
||||
EXPORT void Sbuild_heap(const char *, void (*)(void));
|
||||
EXPORT void Senable_expeditor(const char *);
|
||||
EXPORT int Sscheme_start(int, const char *[]);
|
||||
EXPORT int Sscheme_script(const char *, int, const char *[]);
|
||||
EXPORT int Sscheme_program(const char *, int, const char *[]);
|
||||
EXPORT void Sscheme_deinit(void);
|
||||
|
||||
/* Windows support. */
|
||||
#include <wchar.h>
|
||||
EXPORT char * Sgetenv(const char *);
|
||||
EXPORT wchar_t * Sutf8_to_wide(const char *);
|
||||
EXPORT char * Swide_to_utf8(const wchar_t *);
|
||||
|
||||
/* Features. */
|
||||
#define FEATURE_ICONV
|
||||
#define FEATURE_EXPEDITOR
|
||||
#define FEATURE_WINDOWS
|
||||
|
||||
/* Locking macros. */
|
||||
#define INITLOCK(addr) (*((long long *) addr) = 0)
|
||||
|
||||
#define SPINLOCK(addr) \
|
||||
{ \
|
||||
while (_InterlockedExchange64(addr, 1) != 0) { \
|
||||
while(*((long long *) addr) != 0); \
|
||||
} \
|
||||
} while(0)
|
||||
|
||||
#define UNLOCK(addr) (*((long long *) addr) = 0)
|
||||
|
||||
#define LOCKED_INCR(addr, res) (res = (-1 == _InterlockedExchangeAdd64(addr, 1)))
|
||||
|
||||
#define LOCKED_DECR(addr, res) (res = (1 == _InterlockedExchangeAdd64(addr, -1)))
|
||||
993
boot/a6ob/equates.h
Normal file
993
boot/a6ob/equates.h
Normal file
|
|
@ -0,0 +1,993 @@
|
|||
/* equates.h for Chez Scheme Version 9.5.9 */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct version */
|
||||
/* of this file for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Integer typedefs */
|
||||
typedef char I8;
|
||||
typedef unsigned char U8;
|
||||
typedef short I16;
|
||||
typedef unsigned short U16;
|
||||
typedef int I32;
|
||||
typedef unsigned int U32;
|
||||
typedef long I64;
|
||||
typedef unsigned long U64;
|
||||
|
||||
/* constants from cmacros.ss */
|
||||
#define $c_func_closure_index 0x4
|
||||
#define $c_func_closure_record_index 0x3
|
||||
#define $c_func_code_object_index 0x2
|
||||
#define $c_func_code_record_index 0x1
|
||||
#define COMPRESS_FORMAT_BITS 0x3
|
||||
#define COMPRESS_GZIP 0x0
|
||||
#define COMPRESS_HIGH 0x3
|
||||
#define COMPRESS_LOW 0x1
|
||||
#define COMPRESS_LZ4 0x1
|
||||
#define COMPRESS_MAX 0x4
|
||||
#define COMPRESS_MEDIUM 0x2
|
||||
#define COMPRESS_MIN 0x0
|
||||
#define ERROR_CALL_ARGUMENT_COUNT 0x4
|
||||
#define ERROR_CALL_NONPROCEDURE 0x3
|
||||
#define ERROR_CALL_NONPROCEDURE_SYMBOL 0x2
|
||||
#define ERROR_CALL_UNBOUND 0x1
|
||||
#define ERROR_MVLET 0x8
|
||||
#define ERROR_NONCONTINUABLE_INTERRUPT 0x6
|
||||
#define ERROR_OTHER 0x0
|
||||
#define ERROR_RESET 0x5
|
||||
#define ERROR_VALUES 0x7
|
||||
#define OPEN_ERROR_EXISTS 0x2
|
||||
#define OPEN_ERROR_EXISTSNOT 0x3
|
||||
#define OPEN_ERROR_OTHER 0x0
|
||||
#define OPEN_ERROR_PROTECTION 0x1
|
||||
#define PORT_FLAG_BINARY 0x400
|
||||
#define PORT_FLAG_BLOCK_BUFFERED 0x20000
|
||||
#define PORT_FLAG_BOL 0x8000
|
||||
#define PORT_FLAG_CHAR_POSITIONS 0x100000
|
||||
#define PORT_FLAG_CLOSED 0x800
|
||||
#define PORT_FLAG_COMPRESSED 0x2000
|
||||
#define PORT_FLAG_EOF 0x10000
|
||||
#define PORT_FLAG_EXCLUSIVE 0x4000
|
||||
#define PORT_FLAG_FILE 0x1000
|
||||
#define PORT_FLAG_FOLD_CASE 0x400000
|
||||
#define PORT_FLAG_INPUT 0x100
|
||||
#define PORT_FLAG_INPUT_MODE 0x80000
|
||||
#define PORT_FLAG_LINE_BUFFERED 0x40000
|
||||
#define PORT_FLAG_NO_FOLD_CASE 0x800000
|
||||
#define PORT_FLAG_OUTPUT 0x200
|
||||
#define PORT_FLAG_R6RS 0x200000
|
||||
#define SAPPEND 0x3
|
||||
#define SDEFAULT 0x4
|
||||
#define SEOF -0x1
|
||||
#define SERROR 0x0
|
||||
#define SICONV_DUNNO 0x0
|
||||
#define SICONV_INCOMPLETE 0x2
|
||||
#define SICONV_INVALID 0x1
|
||||
#define SICONV_NOROOM 0x3
|
||||
#define SREPLACE 0x2
|
||||
#define STRVNCATE 0x1
|
||||
#define address_bits 0x40
|
||||
#define alloc_waste_maximum 0x800
|
||||
#define annotation_all 0x3
|
||||
#define annotation_debug 0x1
|
||||
#define annotation_profile 0x2
|
||||
#define architecture x86_64
|
||||
#define asm_arg_reg_cnt 0x3
|
||||
#define asm_arg_reg_max 0x5
|
||||
#define bigit_bits 0x20
|
||||
#define bigit_bytes 0x4
|
||||
#define bignum_data_disp 0x9
|
||||
#define bignum_length_factor 0x40
|
||||
#define bignum_length_offset 0x6
|
||||
#define bignum_sign_offset 0x5
|
||||
#define bignum_type_disp 0x1
|
||||
#define black_hole (ptr)0x46
|
||||
#define box_ref_disp 0x9
|
||||
#define box_type_disp 0x1
|
||||
#define byte_alignment 0x10
|
||||
#define byte_constant_mask 0xFFFFFFFFFFFFFFFF
|
||||
#define bytes_per_card 0x200
|
||||
#define bytes_per_segment 0x4000
|
||||
#define bytevector_data_disp 0x9
|
||||
#define bytevector_immutable_flag 0x4
|
||||
#define bytevector_length_factor 0x8
|
||||
#define bytevector_length_offset 0x3
|
||||
#define bytevector_type_disp 0x1
|
||||
#define c_entry_name_vector #(thread-context get-thread-context handle-apply-overflood handle-docall-error handle-overflow handle-overflood handle-nonprocedure-symbol thread-list split-and-resize raw-collect-cond raw-tc-mutex activate-thread deactivate-thread unactivate-thread handle-values-error handle-mvlet-error handle-arg-error foreign-entry install-library-entry get-more-room scan-remembered-set instantiate-code-object Sreturn Scall-one-result Scall-any-results)
|
||||
#define c_entry_vector_size 0x19
|
||||
#define cached_stack_link_disp 0x8
|
||||
#define cached_stack_size_disp 0x0
|
||||
#define card_offset_bits 0x9
|
||||
#define cards_per_segment 0x20
|
||||
#define char_data_offset 0x8
|
||||
#define char_factor 0x100
|
||||
#define closure_code_disp 0x3
|
||||
#define closure_data_disp 0xB
|
||||
#define code_arity_mask_disp 0x21
|
||||
#define code_closure_length_disp 0x29
|
||||
#define code_data_disp 0x41
|
||||
#define code_flag_continuation 0x2
|
||||
#define code_flag_guardian 0x8
|
||||
#define code_flag_system 0x1
|
||||
#define code_flag_template 0x4
|
||||
#define code_flags_offset 0x8
|
||||
#define code_info_disp 0x31
|
||||
#define code_length_disp 0x9
|
||||
#define code_name_disp 0x19
|
||||
#define code_pinfos_disp 0x39
|
||||
#define code_reloc_disp 0x11
|
||||
#define code_type_disp 0x1
|
||||
#define collect_interrupt_index 0x1
|
||||
#define continuation_code_disp 0x3
|
||||
#define continuation_link_disp 0x23
|
||||
#define continuation_return_address_disp 0x2B
|
||||
#define continuation_stack_clength_disp 0x1B
|
||||
#define continuation_stack_disp 0xB
|
||||
#define continuation_stack_length_disp 0x13
|
||||
#define continuation_winders_disp 0x33
|
||||
#define countof_bignum 0x5
|
||||
#define countof_box 0x9
|
||||
#define countof_bytevector 0x15
|
||||
#define countof_closure 0x3
|
||||
#define countof_code 0xB
|
||||
#define countof_continuation 0x4
|
||||
#define countof_ephemeron 0x19
|
||||
#define countof_exactnum 0x8
|
||||
#define countof_flonum 0x2
|
||||
#define countof_fxvector 0x14
|
||||
#define countof_guardian 0x17
|
||||
#define countof_inexactnum 0x7
|
||||
#define countof_locked 0x16
|
||||
#define countof_oblist 0x18
|
||||
#define countof_pair 0x0
|
||||
#define countof_port 0xA
|
||||
#define countof_ratnum 0x6
|
||||
#define countof_relocation_table 0x10
|
||||
#define countof_rtd_counts 0xE
|
||||
#define countof_stack 0xF
|
||||
#define countof_string 0x13
|
||||
#define countof_symbol 0x1
|
||||
#define countof_thread 0xC
|
||||
#define countof_tlc 0xD
|
||||
#define countof_types 0x1A
|
||||
#define countof_vector 0x12
|
||||
#define countof_weakpair 0x11
|
||||
#define default_collect_trip_bytes 0x800000
|
||||
#define default_heap_reserve_ratio 1.0
|
||||
#define default_max_nonstatic_generation 0x4
|
||||
#define default_stack_size 0xFFF0
|
||||
#define default_timer_ticks 0x3E8
|
||||
#define dtvec_hour 0x3
|
||||
#define dtvec_isdst 0x9
|
||||
#define dtvec_mday 0x4
|
||||
#define dtvec_min 0x2
|
||||
#define dtvec_mon 0x5
|
||||
#define dtvec_nsec 0x0
|
||||
#define dtvec_sec 0x1
|
||||
#define dtvec_size 0xC
|
||||
#define dtvec_tzname 0xB
|
||||
#define dtvec_tzoff 0xA
|
||||
#define dtvec_wday 0x7
|
||||
#define dtvec_yday 0x8
|
||||
#define dtvec_year 0x6
|
||||
#define ephemeron_car_disp 0x7
|
||||
#define ephemeron_cdr_disp 0xF
|
||||
#define ephemeron_next_disp 0x17
|
||||
#define ephemeron_trigger_next_disp 0x1F
|
||||
#define eq_hashtable_subtype_ephemeron 0x2
|
||||
#define eq_hashtable_subtype_normal 0x0
|
||||
#define eq_hashtable_subtype_weak 0x1
|
||||
#define exactnum_imag_disp 0x11
|
||||
#define exactnum_real_disp 0x9
|
||||
#define exactnum_type_disp 0x1
|
||||
#define fasl_fld_double 0xA
|
||||
#define fasl_fld_i16 0x2
|
||||
#define fasl_fld_i24 0x3
|
||||
#define fasl_fld_i32 0x4
|
||||
#define fasl_fld_i40 0x5
|
||||
#define fasl_fld_i48 0x6
|
||||
#define fasl_fld_i56 0x7
|
||||
#define fasl_fld_i64 0x8
|
||||
#define fasl_fld_ptr 0x0
|
||||
#define fasl_fld_single 0x9
|
||||
#define fasl_fld_u8 0x1
|
||||
#define fasl_header #vu8(0 0 0 0 99 104 101 122)
|
||||
#define fasl_type_base_rtd 0x1A
|
||||
#define fasl_type_box 0x1
|
||||
#define fasl_type_bytevector 0x1D
|
||||
#define fasl_type_closure 0x6
|
||||
#define fasl_type_code 0xB
|
||||
#define fasl_type_entry 0xD
|
||||
#define fasl_type_ephemeron 0x1C
|
||||
#define fasl_type_eq_hashtable 0x1F
|
||||
#define fasl_type_exactnum 0x14
|
||||
#define fasl_type_flonum 0x8
|
||||
#define fasl_type_fxvector 0x1B
|
||||
#define fasl_type_gensym 0x13
|
||||
#define fasl_type_graph 0x10
|
||||
#define fasl_type_graph_def 0x11
|
||||
#define fasl_type_graph_ref 0x12
|
||||
#define fasl_type_gzip 0x2B
|
||||
#define fasl_type_header 0x0
|
||||
#define fasl_type_immediate 0xC
|
||||
#define fasl_type_immutable_box 0x29
|
||||
#define fasl_type_immutable_bytevector 0x28
|
||||
#define fasl_type_immutable_fxvector 0x27
|
||||
#define fasl_type_immutable_string 0x26
|
||||
#define fasl_type_immutable_vector 0x25
|
||||
#define fasl_type_inexactnum 0x5
|
||||
#define fasl_type_large_integer 0xA
|
||||
#define fasl_type_library 0xE
|
||||
#define fasl_type_library_code 0xF
|
||||
#define fasl_type_lz4 0x2C
|
||||
#define fasl_type_pair 0x7
|
||||
#define fasl_type_ratnum 0x3
|
||||
#define fasl_type_record 0x17
|
||||
#define fasl_type_revisit 0x23
|
||||
#define fasl_type_rtd 0x18
|
||||
#define fasl_type_small_integer 0x19
|
||||
#define fasl_type_string 0x9
|
||||
#define fasl_type_symbol 0x2
|
||||
#define fasl_type_symbol_hashtable 0x20
|
||||
#define fasl_type_uncompressed 0x2A
|
||||
#define fasl_type_vector 0x4
|
||||
#define fasl_type_visit 0x22
|
||||
#define fasl_type_visit_revisit 0x24
|
||||
#define fasl_type_weak_pair 0x1E
|
||||
#define fixnum_bits 0x3D
|
||||
#define fixnum_factor 0x8
|
||||
#define fixnum_offset 0x3
|
||||
#define fld_byte_index 0x4
|
||||
#define fld_mutablep_index 0x2
|
||||
#define fld_name_index 0x1
|
||||
#define fld_type_index 0x3
|
||||
#define flonum_data_disp 0x6
|
||||
#define forward_address_disp 0x8
|
||||
#define forward_marker (ptr)0x2E
|
||||
#define forward_marker_disp 0x0
|
||||
#define ftype_guardian_rep (ptr)0x56
|
||||
#define fxvector_data_disp 0x9
|
||||
#define fxvector_immutable_flag 0x8
|
||||
#define fxvector_length_factor 0x10
|
||||
#define fxvector_length_offset 0x4
|
||||
#define fxvector_type_disp 0x1
|
||||
#define guardian_entry_next_disp 0x18
|
||||
#define guardian_entry_obj_disp 0x0
|
||||
#define guardian_entry_rep_disp 0x8
|
||||
#define guardian_entry_tconc_disp 0x10
|
||||
#define hashtable_default_size 0x8
|
||||
#define header_size_bignum 0x8
|
||||
#define header_size_bytevector 0x8
|
||||
#define header_size_closure 0x8
|
||||
#define header_size_code 0x40
|
||||
#define header_size_fxvector 0x8
|
||||
#define header_size_record 0x8
|
||||
#define header_size_reloc_table 0x10
|
||||
#define header_size_string 0x8
|
||||
#define header_size_vector 0x8
|
||||
#define ignore_event_flag 0x0
|
||||
#define inexactnum_imag_disp 0x19
|
||||
#define inexactnum_pad_disp 0x9
|
||||
#define inexactnum_real_disp 0x11
|
||||
#define inexactnum_type_disp 0x1
|
||||
#define int_bits 0x20
|
||||
#define integer_divide_instruction 1
|
||||
#define keyboard_interrupt_index 0x3
|
||||
#define library_entry_vector_size 0x210
|
||||
#define libspec_closure_index 0xD
|
||||
#define libspec_does_not_expect_headroom_index 0x0
|
||||
#define libspec_error_index 0xE
|
||||
#define libspec_fake_index 0x10
|
||||
#define libspec_flags_index 0x2
|
||||
#define libspec_has_does_not_expect_headroom_version_index 0xF
|
||||
#define libspec_index_base_offset 0x1
|
||||
#define libspec_index_base_size 0x9
|
||||
#define libspec_index_offset 0x0
|
||||
#define libspec_index_size 0xA
|
||||
#define libspec_interface_offset 0xA
|
||||
#define libspec_interface_size 0x3
|
||||
#define libspec_name_index 0x1
|
||||
#define log2_ptr_bytes 0x3
|
||||
#define long_bits 0x40
|
||||
#define long_long_bits 0x40
|
||||
#define machine_type 0xF
|
||||
#define machine_type_a6fb 0x15
|
||||
#define machine_type_a6le 0xB
|
||||
#define machine_type_a6nb 0x19
|
||||
#define machine_type_a6nt 0x1B
|
||||
#define machine_type_a6ob 0xF
|
||||
#define machine_type_a6osx 0xD
|
||||
#define machine_type_a6s2 0x11
|
||||
#define machine_type_alist ((0 . any) (1 . i3le) (2 . ti3le) (3 . i3nt) (4 . ti3nt) (5 . i3fb) (6 . ti3fb) (7 . i3ob) (8 . ti3ob) (9 . i3osx) (10 . ti3osx) (11 . a6le) (12 . ta6le) (13 . a6osx) (14 . ta6osx) (15 . a6ob) (16 . ta6ob) (17 . a6s2) (18 . ta6s2) (19 . i3s2) (20 . ti3s2) (21 . a6fb) (22 . ta6fb) (23 . i3nb) (24 . ti3nb) (25 . a6nb) (26 . ta6nb) (27 . a6nt) (28 . ta6nt) (29 . i3qnx) (30 . ti3qnx) (31 . arm32le) (32 . tarm32le) (33 . ppc32le) (34 . tppc32le))
|
||||
#define machine_type_any 0x0
|
||||
#define machine_type_arm32le 0x1F
|
||||
#define machine_type_i3fb 0x5
|
||||
#define machine_type_i3le 0x1
|
||||
#define machine_type_i3nb 0x17
|
||||
#define machine_type_i3nt 0x3
|
||||
#define machine_type_i3ob 0x7
|
||||
#define machine_type_i3osx 0x9
|
||||
#define machine_type_i3qnx 0x1D
|
||||
#define machine_type_i3s2 0x13
|
||||
#define machine_type_limit 0x23
|
||||
#define machine_type_name a6ob
|
||||
#define machine_type_ppc32le 0x21
|
||||
#define machine_type_ta6fb 0x16
|
||||
#define machine_type_ta6le 0xC
|
||||
#define machine_type_ta6nb 0x1A
|
||||
#define machine_type_ta6nt 0x1C
|
||||
#define machine_type_ta6ob 0x10
|
||||
#define machine_type_ta6osx 0xE
|
||||
#define machine_type_ta6s2 0x12
|
||||
#define machine_type_tarm32le 0x20
|
||||
#define machine_type_ti3fb 0x6
|
||||
#define machine_type_ti3le 0x2
|
||||
#define machine_type_ti3nb 0x18
|
||||
#define machine_type_ti3nt 0x4
|
||||
#define machine_type_ti3ob 0x8
|
||||
#define machine_type_ti3osx 0xA
|
||||
#define machine_type_ti3qnx 0x1E
|
||||
#define machine_type_ti3s2 0x14
|
||||
#define machine_type_tppc32le 0x22
|
||||
#define mask_bignum 0x1F
|
||||
#define mask_bignum_sign 0x20
|
||||
#define mask_binary_input_port 0x5FF
|
||||
#define mask_binary_output_port 0x6FF
|
||||
#define mask_binary_port 0x4FF
|
||||
#define mask_boolean 0xF7
|
||||
#define mask_box 0x7F
|
||||
#define mask_bwp 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_bytevector 0x3
|
||||
#define mask_char 0xFF
|
||||
#define mask_closure 0x7
|
||||
#define mask_code 0xFF
|
||||
#define mask_continuation_code 0x2FF
|
||||
#define mask_eof 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_exactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_false 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_fixnum 0x7
|
||||
#define mask_flonum 0x7
|
||||
#define mask_fxvector 0x7
|
||||
#define mask_guardian_code 0x8FF
|
||||
#define mask_immediate 0x7
|
||||
#define mask_inexactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_input_port 0x1FF
|
||||
#define mask_mutable_box 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_mutable_bytevector 0x7
|
||||
#define mask_mutable_fxvector 0xF
|
||||
#define mask_mutable_string 0xF
|
||||
#define mask_mutable_vector 0xF
|
||||
#define mask_nil 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_octet -0x7F9
|
||||
#define mask_other_number 0xF
|
||||
#define mask_output_port 0x2FF
|
||||
#define mask_pair 0x7
|
||||
#define mask_port 0xFF
|
||||
#define mask_ratnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_record 0x7
|
||||
#define mask_rtd_counts 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_signed_bignum 0x3F
|
||||
#define mask_string 0x7
|
||||
#define mask_symbol 0x7
|
||||
#define mask_system_code 0x1FF
|
||||
#define mask_textual_input_port 0x5FF
|
||||
#define mask_textual_output_port 0x6FF
|
||||
#define mask_textual_port 0x4FF
|
||||
#define mask_thread 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_tlc 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_typed_object 0x7
|
||||
#define mask_unbound 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_vector 0x7
|
||||
#define max_float_alignment 0x8
|
||||
#define max_integer_alignment 0x8
|
||||
#define max_real_space 0xB
|
||||
#define max_space 0xC
|
||||
#define max_sweep_space 0xA
|
||||
#define maximum_bignum_length (iptr)0x3FFFFFFFFFFFFFF
|
||||
#define maximum_bytevector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_fxvector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_interrupt_index 0x4
|
||||
#define maximum_string_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_vector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define minimum_segment_request 0x80
|
||||
#define most_negative_fixnum (iptr)-0x1000000000000000
|
||||
#define most_positive_fixnum (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define native_endianness little
|
||||
#define one_shot_headroom 0xC00
|
||||
#define ordinary_type_bits 0x8
|
||||
#define pair_car_disp 0x7
|
||||
#define pair_cdr_disp 0xF
|
||||
#define pair_shift 0x4
|
||||
#define port_flag_binary 0x4
|
||||
#define port_flag_block_buffered 0x200
|
||||
#define port_flag_bol 0x80
|
||||
#define port_flag_char_positions 0x1000
|
||||
#define port_flag_closed 0x8
|
||||
#define port_flag_compressed 0x20
|
||||
#define port_flag_eof 0x100
|
||||
#define port_flag_exclusive 0x40
|
||||
#define port_flag_file 0x10
|
||||
#define port_flag_fold_case 0x4000
|
||||
#define port_flag_input 0x1
|
||||
#define port_flag_input_mode 0x800
|
||||
#define port_flag_line_buffered 0x400
|
||||
#define port_flag_no_fold_case 0x8000
|
||||
#define port_flag_output 0x2
|
||||
#define port_flag_r6rs 0x2000
|
||||
#define port_flags_offset 0x8
|
||||
#define port_handler_disp 0x9
|
||||
#define port_ibuffer_disp 0x39
|
||||
#define port_icount_disp 0x19
|
||||
#define port_ilast_disp 0x31
|
||||
#define port_info_disp 0x41
|
||||
#define port_name_disp 0x49
|
||||
#define port_obuffer_disp 0x29
|
||||
#define port_ocount_disp 0x11
|
||||
#define port_olast_disp 0x21
|
||||
#define port_type_disp 0x1
|
||||
#define prelex_is_flags_offset 0x8
|
||||
#define prelex_is_mask 0xFF00
|
||||
#define prelex_sticky_mask 0xFF
|
||||
#define prelex_was_flags_offset 0x10
|
||||
#define primary_type_bits 0x3
|
||||
#define ptr_bits 0x40
|
||||
#define ptr_bytes 0x8
|
||||
#define ptrdiff_t_bits 0x40
|
||||
#define ratnum_denominator_disp 0x11
|
||||
#define ratnum_numerator_disp 0x9
|
||||
#define ratnum_type_disp 0x1
|
||||
#define real_space_alist ((new . 0) (impure . 1) (symbol . 2) (port . 3) (weakpair . 4) (ephemeron . 5) (pure . 6) (continuation . 7) (code . 8) (pure-typed-object . 9) (impure-record . 10) (data . 11))
|
||||
#define record_data_disp 0x9
|
||||
#define record_type_counts_disp 0x49
|
||||
#define record_type_disp 0x1
|
||||
#define record_type_flags_disp 0x39
|
||||
#define record_type_flds_disp 0x31
|
||||
#define record_type_mpm_disp 0x21
|
||||
#define record_type_name_disp 0x29
|
||||
#define record_type_parent_disp 0x9
|
||||
#define record_type_pm_disp 0x19
|
||||
#define record_type_size_disp 0x11
|
||||
#define record_type_type_disp 0x1
|
||||
#define record_type_uid_disp 0x41
|
||||
#define reloc_abs 0x0
|
||||
#define reloc_code_offset_index 0x3
|
||||
#define reloc_code_offset_mask 0x3FFFFFF
|
||||
#define reloc_code_offset_offset 0x4
|
||||
#define reloc_extended_format 0x1
|
||||
#define reloc_item_offset_index 0x2
|
||||
#define reloc_item_offset_mask 0x3FFFFFF
|
||||
#define reloc_item_offset_offset 0x1E
|
||||
#define reloc_longp_index 0x4
|
||||
#define reloc_table_code_disp 0x8
|
||||
#define reloc_table_data_disp 0x10
|
||||
#define reloc_table_size_disp 0x0
|
||||
#define reloc_type_index 0x1
|
||||
#define reloc_type_mask 0x7
|
||||
#define reloc_type_offset 0x1
|
||||
#define reloc_x86_64_call 0x1
|
||||
#define reloc_x86_64_jump 0x2
|
||||
#define return_address_frame_size_disp -0x10
|
||||
#define return_address_livemask_disp -0x20
|
||||
#define return_address_mv_return_address_disp -0x8
|
||||
#define return_address_toplink_disp -0x18
|
||||
#define rp_header_frame_size_disp 0x10
|
||||
#define rp_header_livemask_disp 0x0
|
||||
#define rp_header_mv_return_address_disp 0x18
|
||||
#define rp_header_toplink_disp 0x8
|
||||
#define rtd_counts_data_disp 0x11
|
||||
#define rtd_counts_timestamp_disp 0x9
|
||||
#define rtd_counts_type_disp 0x1
|
||||
#define rtd_generative 0x1
|
||||
#define rtd_opaque 0x2
|
||||
#define rtd_sealed 0x4
|
||||
#define sbwp (ptr)0x4E
|
||||
#define scaled_shot_1_shot_flag -0x8
|
||||
#define scheme_version 0x90509
|
||||
#define segment_card_offset_bits 0x5
|
||||
#define segment_offset_bits 0xE
|
||||
#define segment_t1_bits 0x10
|
||||
#define segment_t2_bits 0x11
|
||||
#define segment_t3_bits 0x11
|
||||
#define segment_table_levels 0x3
|
||||
#define seof (ptr)0x36
|
||||
#define sfalse (ptr)0x6
|
||||
#define short_bits 0x10
|
||||
#define signal_interrupt_index 0x4
|
||||
#define size_box 0x10
|
||||
#define size_cached_stack 0x10
|
||||
#define size_continuation 0x40
|
||||
#define size_ephemeron 0x20
|
||||
#define size_exactnum 0x20
|
||||
#define size_flonum 0x10
|
||||
#define size_forward 0x10
|
||||
#define size_guardian_entry 0x20
|
||||
#define size_inexactnum 0x20
|
||||
#define size_pair 0x10
|
||||
#define size_port 0x50
|
||||
#define size_ratnum 0x20
|
||||
#define size_record_type 0x50
|
||||
#define size_rp_header 0x20
|
||||
#define size_rtd_counts 0x810
|
||||
#define size_symbol 0x30
|
||||
#define size_tc 0x2C0
|
||||
#define size_thread 0x10
|
||||
#define size_tlc 0x20
|
||||
#define size_typed_object 0x10
|
||||
#define size_t_bits 0x40
|
||||
#define snil (ptr)0x26
|
||||
#define space_char_list (#\n #\i #\x #\q #\w #\e #\p #\k #\c #\r #\s #\d #\e)
|
||||
#define space_cname_list ("new" "impure" "symbol" "port" "weakpr" "emph" "pure" "cont" "code" "p-tobj" "ip-rec" "data" "empty")
|
||||
#define space_code 0x8
|
||||
#define space_continuation 0x7
|
||||
#define space_data 0xB
|
||||
#define space_empty 0xC
|
||||
#define space_ephemeron 0x5
|
||||
#define space_impure 0x1
|
||||
#define space_impure_record 0xA
|
||||
#define space_locked 0x20
|
||||
#define space_new 0x0
|
||||
#define space_old 0x40
|
||||
#define space_port 0x3
|
||||
#define space_pure 0x6
|
||||
#define space_pure_typed_object 0x9
|
||||
#define space_symbol 0x2
|
||||
#define space_weakpair 0x4
|
||||
#define stack_frame_limit 0x200
|
||||
#define stack_slop 0x400
|
||||
#define static_generation 0xFF
|
||||
#define string_char_bits 0x20
|
||||
#define string_char_bytes 0x4
|
||||
#define string_char_offset 0x2
|
||||
#define string_data_disp 0x9
|
||||
#define string_immutable_flag 0x8
|
||||
#define string_length_factor 0x10
|
||||
#define string_length_offset 0x4
|
||||
#define string_type_disp 0x1
|
||||
#define strue (ptr)0xE
|
||||
#define sunbound (ptr)0x1E
|
||||
#define svoid (ptr)0x3E
|
||||
#define symbol_hash_disp 0x2D
|
||||
#define symbol_name_disp 0x1D
|
||||
#define symbol_plist_disp 0x15
|
||||
#define symbol_pvalue_disp 0xD
|
||||
#define symbol_splist_disp 0x25
|
||||
#define symbol_value_disp 0x5
|
||||
#define tc_DSTBV_disp 0x2A8
|
||||
#define tc_SRCBV_disp 0x2B0
|
||||
#define tc_U_disp 0x160
|
||||
#define tc_V_disp 0x168
|
||||
#define tc_W_disp 0x170
|
||||
#define tc_X_disp 0x178
|
||||
#define tc_Y_disp 0x180
|
||||
#define tc_ac0_disp 0x28
|
||||
#define tc_ac1_disp 0x30
|
||||
#define tc_active_disp 0x134
|
||||
#define tc_alloc_counter_disp 0x298
|
||||
#define tc_ap_disp 0x50
|
||||
#define tc_arg_regs_disp 0x0
|
||||
#define tc_block_counter_disp 0x1D8
|
||||
#define tc_cchain_disp 0x120
|
||||
#define tc_code_ranges_to_flush_disp 0x128
|
||||
#define tc_compile_profile_disp 0x230
|
||||
#define tc_compress_format_disp 0x278
|
||||
#define tc_compress_level_disp 0x280
|
||||
#define tc_cp_disp 0x40
|
||||
#define tc_current_error_disp 0x1D0
|
||||
#define tc_current_input_disp 0x1C0
|
||||
#define tc_current_mso_disp 0x1E8
|
||||
#define tc_current_output_disp 0x1C8
|
||||
#define tc_default_record_equal_procedure_disp 0x268
|
||||
#define tc_default_record_hash_procedure_disp 0x270
|
||||
#define tc_disable_count_disp 0x198
|
||||
#define tc_eap_disp 0x58
|
||||
#define tc_esp_disp 0x48
|
||||
#define tc_fxfirst_bit_set_bv_disp 0x200
|
||||
#define tc_fxlength_bv_disp 0x1F8
|
||||
#define tc_generate_inspector_information_disp 0x238
|
||||
#define tc_generate_procedure_source_information_disp 0x240
|
||||
#define tc_generate_profile_forms_disp 0x248
|
||||
#define tc_guardian_entries_disp 0x118
|
||||
#define tc_instr_counter_disp 0x290
|
||||
#define tc_keyboard_interrupt_pending_disp 0x1B0
|
||||
#define tc_lz4_out_buffer_disp 0x288
|
||||
#define tc_meta_level_disp 0x228
|
||||
#define tc_null_immutable_bytevector_disp 0x218
|
||||
#define tc_null_immutable_fxvector_disp 0x210
|
||||
#define tc_null_immutable_string_disp 0x220
|
||||
#define tc_null_immutable_vector_disp 0x208
|
||||
#define tc_optimize_level_disp 0x250
|
||||
#define tc_parameters_disp 0x2A0
|
||||
#define tc_random_seed_disp 0x130
|
||||
#define tc_real_eap_disp 0x90
|
||||
#define tc_ret_disp 0x60
|
||||
#define tc_scheme_stack_disp 0x138
|
||||
#define tc_scheme_stack_size_disp 0x150
|
||||
#define tc_sfd_disp 0x1E0
|
||||
#define tc_sfp_disp 0x38
|
||||
#define tc_signal_interrupt_pending_disp 0x1A0
|
||||
#define tc_signal_interrupt_queue_disp 0x1A8
|
||||
#define tc_something_pending_disp 0x188
|
||||
#define tc_stack_cache_disp 0x140
|
||||
#define tc_stack_link_disp 0x148
|
||||
#define tc_subset_mode_disp 0x258
|
||||
#define tc_suppress_primitive_inlining_disp 0x260
|
||||
#define tc_target_machine_disp 0x1F0
|
||||
#define tc_td_disp 0x88
|
||||
#define tc_threadno_disp 0x1B8
|
||||
#define tc_timer_ticks_disp 0x190
|
||||
#define tc_trap_disp 0x68
|
||||
#define tc_ts_disp 0x80
|
||||
#define tc_virtual_registers_disp 0x98
|
||||
#define tc_winders_disp 0x158
|
||||
#define tc_xp_disp 0x70
|
||||
#define tc_yp_disp 0x78
|
||||
#define thread_tc_disp 0x9
|
||||
#define thread_type_disp 0x1
|
||||
#define time_collector_cpu 0x5
|
||||
#define time_collector_real 0x6
|
||||
#define time_duration 0x2
|
||||
#define time_monotonic 0x3
|
||||
#define time_process 0x0
|
||||
#define time_t_bits 0x40
|
||||
#define time_thread 0x1
|
||||
#define time_utc 0x4
|
||||
#define timer_interrupt_index 0x2
|
||||
#define tlc_ht_disp 0x11
|
||||
#define tlc_keyval_disp 0x9
|
||||
#define tlc_next_disp 0x19
|
||||
#define tlc_type_disp 0x1
|
||||
#define type_bignum 0x6
|
||||
#define type_binary_input_port 0x51E
|
||||
#define type_binary_output_port 0x61E
|
||||
#define type_binary_port 0x41E
|
||||
#define type_boolean 0x6
|
||||
#define type_box 0xE
|
||||
#define type_bytevector 0x1
|
||||
#define type_char 0x16
|
||||
#define type_closure 0x5
|
||||
#define type_code 0x3E
|
||||
#define type_continuation_code 0x23E
|
||||
#define type_exactnum 0x56
|
||||
#define type_fixnum 0x0
|
||||
#define type_flonum 0x2
|
||||
#define type_fxvector 0x3
|
||||
#define type_guardian_code 0x83E
|
||||
#define type_immediate 0x6
|
||||
#define type_immutable_box 0x8E
|
||||
#define type_immutable_bytevector 0x5
|
||||
#define type_immutable_fxvector 0xB
|
||||
#define type_immutable_string 0xA
|
||||
#define type_immutable_vector 0x8
|
||||
#define type_inexactnum 0x36
|
||||
#define type_input_port 0x11E
|
||||
#define type_io_port 0x31E
|
||||
#define type_mutable_box 0xE
|
||||
#define type_mutable_bytevector 0x1
|
||||
#define type_mutable_fxvector 0x3
|
||||
#define type_mutable_string 0x2
|
||||
#define type_mutable_vector 0x0
|
||||
#define type_negative_bignum 0x26
|
||||
#define type_octet 0x0
|
||||
#define type_other_number 0x6
|
||||
#define type_output_port 0x21E
|
||||
#define type_pair 0x1
|
||||
#define type_port 0x1E
|
||||
#define type_positive_bignum 0x6
|
||||
#define type_ratnum 0x16
|
||||
#define type_record 0x7
|
||||
#define type_rtd_counts 0x6E
|
||||
#define type_string 0x2
|
||||
#define type_symbol 0x3
|
||||
#define type_system_code 0x13E
|
||||
#define type_textual_input_port 0x11E
|
||||
#define type_textual_output_port 0x21E
|
||||
#define type_textual_port 0x1E
|
||||
#define type_thread 0x4E
|
||||
#define type_tlc 0x5E
|
||||
#define type_typed_object 0x7
|
||||
#define type_vector 0x0
|
||||
#define typed_object_type_disp 0x1
|
||||
#define typedef_i16 "short"
|
||||
#define typedef_i32 "int"
|
||||
#define typedef_i64 "long"
|
||||
#define typedef_i8 "char"
|
||||
#define typedef_iptr "long int"
|
||||
#define typedef_ptr "void *"
|
||||
#define typedef_string_char "unsigned int"
|
||||
#define typedef_u16 "unsigned short"
|
||||
#define typedef_u32 "unsigned int"
|
||||
#define typedef_u64 "unsigned long"
|
||||
#define typedef_u8 "unsigned char"
|
||||
#define typedef_uptr "unsigned long int"
|
||||
#define typemod 0x8
|
||||
#define unactivate_mode_deactivate 0x1
|
||||
#define unactivate_mode_destroy 0x2
|
||||
#define unactivate_mode_noop 0x0
|
||||
#define unaligned_floats 1
|
||||
#define unaligned_integers 1
|
||||
#define underflow_limit 0x80
|
||||
#define unscaled_shot_1_shot_flag -0x1
|
||||
#define vector_data_disp 0x9
|
||||
#define vector_immutable_flag 0x8
|
||||
#define vector_length_factor 0x10
|
||||
#define vector_length_offset 0x4
|
||||
#define vector_type_disp 0x1
|
||||
#define virtual_register_count 0x10
|
||||
#define wchar_bits 0x20
|
||||
|
||||
/* constants from declare-c-entries */
|
||||
#define CENTRY_Scall_any_results 24
|
||||
#define CENTRY_Scall_one_result 23
|
||||
#define CENTRY_Sreturn 22
|
||||
#define CENTRY_activate_thread 11
|
||||
#define CENTRY_deactivate_thread 12
|
||||
#define CENTRY_foreign_entry 17
|
||||
#define CENTRY_get_more_room 19
|
||||
#define CENTRY_get_thread_context 1
|
||||
#define CENTRY_handle_apply_overflood 2
|
||||
#define CENTRY_handle_arg_error 16
|
||||
#define CENTRY_handle_docall_error 3
|
||||
#define CENTRY_handle_mvlet_error 15
|
||||
#define CENTRY_handle_nonprocedure_symbol 6
|
||||
#define CENTRY_handle_overflood 5
|
||||
#define CENTRY_handle_overflow 4
|
||||
#define CENTRY_handle_values_error 14
|
||||
#define CENTRY_install_library_entry 18
|
||||
#define CENTRY_instantiate_code_object 21
|
||||
#define CENTRY_raw_collect_cond 9
|
||||
#define CENTRY_raw_tc_mutex 10
|
||||
#define CENTRY_scan_remembered_set 20
|
||||
#define CENTRY_split_and_resize 8
|
||||
#define CENTRY_thread_context 0
|
||||
#define CENTRY_thread_list 7
|
||||
#define CENTRY_unactivate_thread 13
|
||||
|
||||
/* displacements for records */
|
||||
#define eq_hashtable_rtd_disp 1
|
||||
#define eq_hashtable_type_disp 9
|
||||
#define eq_hashtable_mutablep_disp 17
|
||||
#define eq_hashtable_vec_disp 25
|
||||
#define eq_hashtable_minlen_disp 33
|
||||
#define eq_hashtable_size_disp 41
|
||||
#define eq_hashtable_subtype_disp 49
|
||||
#define symbol_hashtable_rtd_disp 1
|
||||
#define symbol_hashtable_type_disp 9
|
||||
#define symbol_hashtable_mutablep_disp 17
|
||||
#define symbol_hashtable_vec_disp 25
|
||||
#define symbol_hashtable_minlen_disp 33
|
||||
#define symbol_hashtable_size_disp 41
|
||||
#define symbol_hashtable_equivp_disp 49
|
||||
#define code_info_rtd_disp 1
|
||||
#define code_info_src_disp 9
|
||||
#define code_info_sexpr_disp 17
|
||||
#define code_info_free_disp 25
|
||||
#define code_info_live_disp 33
|
||||
#define code_info_rpis_disp 41
|
||||
|
||||
/* predicates */
|
||||
#define Simmediatep(x) (((uptr)(x)&0x7)==0x6)
|
||||
#define Sportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x1E))
|
||||
#define Scodep(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x3E))
|
||||
|
||||
/* structure accessors */
|
||||
#define INITCAR(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define INITCDR(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define SETCAR(x,y) DIRTYSET(((ptr *)((uptr)(x)+7)),(y))
|
||||
#define SETCDR(x,y) DIRTYSET(((ptr *)((uptr)(x)+15)),(y))
|
||||
#define BOXTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITBOXREF(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define SETBOXREF(x,y) DIRTYSET(((ptr *)((uptr)(x)+9)),(y))
|
||||
#define EPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define INITEPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define EPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define INITEPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define TLCTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define TLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define TLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define TLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define INITTLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITTLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define INITTLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define SETTLCNEXT(x,y) DIRTYSET(((ptr *)((uptr)(x)+25)),(y))
|
||||
#define SYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define SYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define SYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define SYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define INITSYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITSYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITSYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define INITSYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define INITSYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define INITSYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define SETSYMVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define SETSYMPVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SETSYMPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+21)),(y))
|
||||
#define SETSYMNAME(x,y) DIRTYSET(((ptr *)((uptr)(x)+29)),(y))
|
||||
#define SETSYMSPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+37)),(y))
|
||||
#define SETSYMHASH(x,y) DIRTYSET(((ptr *)((uptr)(x)+45)),(y))
|
||||
#define VECTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define SETVECTIT(x,i,y) DIRTYSET((((ptr *)((uptr)(x)+9))+i),(y))
|
||||
#define FXVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define FXVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define BYTEVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BVIT(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
#define INEXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INEXACTNUM_REAL_PART(x) (*((double *)((uptr)(x)+17)))
|
||||
#define INEXACTNUM_IMAG_PART(x) (*((double *)((uptr)(x)+25)))
|
||||
#define EXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define EXACTNUM_REAL_PART(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define EXACTNUM_IMAG_PART(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RATTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RATNUM(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RATDEN(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CLOSENTRY(x) (*((ptr *)((uptr)(x)+3)))
|
||||
#define CLOSIT(x,i) (((ptr *)((uptr)(x)+11))[i])
|
||||
#define FLODAT(x) (*((double *)((uptr)(x)+6)))
|
||||
#define PORTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define PORTNAME(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define PORTHANDLER(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define PORTINFO(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define PORTOCNT(x) (*((iptr *)((uptr)(x)+17)))
|
||||
#define PORTOLAST(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define PORTOBUF(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define PORTICNT(x) (*((iptr *)((uptr)(x)+25)))
|
||||
#define PORTILAST(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define PORTIBUF(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define STRTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define STRIT(x,i) (((string_char *)((uptr)(x)+9))[i])
|
||||
#define BIGTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BIGIT(x,i) (((bigit *)((uptr)(x)+9))[i])
|
||||
#define CODETYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define CODELEN(x) (*((iptr *)((uptr)(x)+9)))
|
||||
#define CODERELOC(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CODENAME(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define CODEARITYMASK(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define CODEFREE(x) (*((iptr *)((uptr)(x)+41)))
|
||||
#define CODEINFO(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define CODEPINFOS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define CODEIT(x,i) (((octet *)((uptr)(x)+65))[i])
|
||||
#define RELOCSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define RELOCCODE(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RELOCIT(x,i) (((uptr *)((uptr)(x)+16))[i])
|
||||
#define CONTSTACK(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define CONTLENGTH(x) (*((iptr *)((uptr)(x)+19)))
|
||||
#define CONTCLENGTH(x) (*((iptr *)((uptr)(x)+27)))
|
||||
#define CONTLINK(x) (*((ptr *)((uptr)(x)+35)))
|
||||
#define CONTRET(x) (*((ptr *)((uptr)(x)+43)))
|
||||
#define CONTWINDERS(x) (*((ptr *)((uptr)(x)+51)))
|
||||
#define RTDCOUNTSTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RTDCOUNTSTIMESTAMP(x) (*((U64 *)((uptr)(x)+9)))
|
||||
#define RTDCOUNTSIT(x,i) (((uptr *)((uptr)(x)+17))[i])
|
||||
#define RECORDDESCPARENT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RECORDDESCSIZE(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RECORDDESCPM(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define RECORDDESCMPM(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define RECORDDESCNAME(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define RECORDDESCFLDS(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define RECORDDESCFLAGS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define RECORDDESCUID(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define RECORDDESCCOUNTS(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define RECORDINSTTYPE(x) (*((ptr *)((uptr)(x)+1)))
|
||||
#define RECORDINSTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define CLOSCODE(p) ((ptr)((uptr)CLOSENTRY(p)-code_data_disp))
|
||||
#define CODEENTRYPOINT(x) ((ptr)((uptr)(x)+code_data_disp))
|
||||
#define SETCLOSCODE(p,x) (CLOSENTRY(p) = CODEENTRYPOINT(x))
|
||||
#define SYMCODE(p) ((ptr)((uptr)SYMPVAL(p)-code_data_disp))
|
||||
#define INITSYMCODE(p,x) (INITSYMPVAL(p) = CODEENTRYPOINT(x))
|
||||
#define SETSYMCODE(p,x) SETSYMPVAL(p,CODEENTRYPOINT(x))
|
||||
#define BIGLEN(x) ((iptr)((uptr)BIGTYPE(x) >> bignum_length_offset))
|
||||
#define BIGSIGN(x) ((BIGTYPE(x) & mask_bignum_sign) >> bignum_sign_offset)
|
||||
#define SETBIGLENANDSIGN(x,xl,xs) BIGTYPE(x) = (uptr)(xl) << bignum_length_offset | (xs) << bignum_sign_offset | type_bignum
|
||||
#define CLOSLEN(p) CODEFREE(CLOSCODE(p))
|
||||
#define GUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define GUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define GUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define GUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define INITGUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define INITGUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define INITGUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define INITGUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define FORWARDMARKER(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define FORWARDADDRESS(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define CACHEDSTACKSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define CACHEDSTACKLINK(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RPHEADERFRAMESIZE(x) (*((iptr *)((uptr)(x)+16)))
|
||||
#define RPHEADERLIVEMASK(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define RPHEADERTOPLINK(x) (*((uptr *)((uptr)(x)+8)))
|
||||
|
||||
/* machine types */
|
||||
#define machine_type_names {"any", "i3le", "ti3le", "i3nt", "ti3nt", "i3fb", "ti3fb", "i3ob", "ti3ob", "i3osx", "ti3osx", "a6le", "ta6le", "a6osx", "ta6osx", "a6ob", "ta6ob", "a6s2", "ta6s2", "i3s2", "ti3s2", "a6fb", "ta6fb", "i3nb", "ti3nb", "a6nb", "ta6nb", "a6nt", "ta6nt", "i3qnx", "ti3qnx", "arm32le", "tarm32le", "ppc32le", "tppc32le"}
|
||||
|
||||
/* allocation-space names */
|
||||
#define alloc_space_names "new", "impure", "symbol", "port", "weakpr", "emph", "pure", "cont", "code", "p-tobj", "ip-rec", "data", "empty"
|
||||
|
||||
/* allocation-space characters */
|
||||
#define alloc_space_chars 'n', 'i', 'x', 'q', 'w', 'e', 'p', 'k', 'c', 'r', 's', 'd', 'e'
|
||||
|
||||
/* threads */
|
||||
#define THREADTC(x) (*((uptr *)((uptr)(x)+9)))
|
||||
|
||||
/* thread-context data */
|
||||
#define DSTBV(x) (*((ptr *)((uptr)(x)+680)))
|
||||
#define SRCBV(x) (*((ptr *)((uptr)(x)+688)))
|
||||
#define U(x) (*((ptr *)((uptr)(x)+352)))
|
||||
#define V(x) (*((ptr *)((uptr)(x)+360)))
|
||||
#define W(x) (*((ptr *)((uptr)(x)+368)))
|
||||
#define X(x) (*((ptr *)((uptr)(x)+376)))
|
||||
#define Y(x) (*((ptr *)((uptr)(x)+384)))
|
||||
#define AC0(x) (*((void* *)((uptr)(x)+40)))
|
||||
#define AC1(x) (*((void* *)((uptr)(x)+48)))
|
||||
#define ACTIVE(x) (*((I32 *)((uptr)(x)+308)))
|
||||
#define ALLOCCOUNTER(x) (*((U64 *)((uptr)(x)+664)))
|
||||
#define AP(x) (*((void* *)((uptr)(x)+80)))
|
||||
#define ARGREGS(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define BLOCKCOUNTER(x) (*((ptr *)((uptr)(x)+472)))
|
||||
#define CCHAIN(x) (*((ptr *)((uptr)(x)+288)))
|
||||
#define CODERANGESTOFLUSH(x) (*((ptr *)((uptr)(x)+296)))
|
||||
#define COMPILEPROFILE(x) (*((ptr *)((uptr)(x)+560)))
|
||||
#define COMPRESSFORMAT(x) (*((ptr *)((uptr)(x)+632)))
|
||||
#define COMPRESSLEVEL(x) (*((ptr *)((uptr)(x)+640)))
|
||||
#define CP(x) (*((void* *)((uptr)(x)+64)))
|
||||
#define CURRENTERROR(x) (*((ptr *)((uptr)(x)+464)))
|
||||
#define CURRENTINPUT(x) (*((ptr *)((uptr)(x)+448)))
|
||||
#define CURRENTMSO(x) (*((ptr *)((uptr)(x)+488)))
|
||||
#define CURRENTOUTPUT(x) (*((ptr *)((uptr)(x)+456)))
|
||||
#define DEFAULTRECORDEQUALPROCEDURE(x) (*((ptr *)((uptr)(x)+616)))
|
||||
#define DEFAULTRECORDHASHPROCEDURE(x) (*((ptr *)((uptr)(x)+624)))
|
||||
#define DISABLECOUNT(x) (*((ptr *)((uptr)(x)+408)))
|
||||
#define EAP(x) (*((void* *)((uptr)(x)+88)))
|
||||
#define ESP(x) (*((void* *)((uptr)(x)+72)))
|
||||
#define FXFIRSTBITSETBV(x) (*((ptr *)((uptr)(x)+512)))
|
||||
#define FXLENGTHBV(x) (*((ptr *)((uptr)(x)+504)))
|
||||
#define GENERATEINSPECTORINFORMATION(x) (*((ptr *)((uptr)(x)+568)))
|
||||
#define GENERATEPROCEDURESOURCEINFORMATION(x) (*((ptr *)((uptr)(x)+576)))
|
||||
#define GENERATEPROFILEFORMS(x) (*((ptr *)((uptr)(x)+584)))
|
||||
#define GUARDIANENTRIES(x) (*((ptr *)((uptr)(x)+280)))
|
||||
#define INSTRCOUNTER(x) (*((U64 *)((uptr)(x)+656)))
|
||||
#define KEYBOARDINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+432)))
|
||||
#define LZ4OUTBUFFER(x) (*((void* *)((uptr)(x)+648)))
|
||||
#define METALEVEL(x) (*((ptr *)((uptr)(x)+552)))
|
||||
#define NULLIMMUTABLEBYTEVECTOR(x) (*((ptr *)((uptr)(x)+536)))
|
||||
#define NULLIMMUTABLEFXVECTOR(x) (*((ptr *)((uptr)(x)+528)))
|
||||
#define NULLIMMUTABLESTRING(x) (*((ptr *)((uptr)(x)+544)))
|
||||
#define NULLIMMUTABLEVECTOR(x) (*((ptr *)((uptr)(x)+520)))
|
||||
#define OPTIMIZELEVEL(x) (*((ptr *)((uptr)(x)+592)))
|
||||
#define PARAMETERS(x) (*((ptr *)((uptr)(x)+672)))
|
||||
#define RANDOMSEED(x) (*((U32 *)((uptr)(x)+304)))
|
||||
#define REAL_EAP(x) (*((void* *)((uptr)(x)+144)))
|
||||
#define RET(x) (*((void* *)((uptr)(x)+96)))
|
||||
#define SCHEMESTACK(x) (*((void* *)((uptr)(x)+312)))
|
||||
#define SCHEMESTACKSIZE(x) (*((iptr *)((uptr)(x)+336)))
|
||||
#define SFD(x) (*((ptr *)((uptr)(x)+480)))
|
||||
#define SFP(x) (*((void* *)((uptr)(x)+56)))
|
||||
#define SIGNALINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+416)))
|
||||
#define SIGNALINTERRUPTQUEUE(x) (*((ptr *)((uptr)(x)+424)))
|
||||
#define SOMETHINGPENDING(x) (*((ptr *)((uptr)(x)+392)))
|
||||
#define STACKCACHE(x) (*((ptr *)((uptr)(x)+320)))
|
||||
#define STACKLINK(x) (*((ptr *)((uptr)(x)+328)))
|
||||
#define SUBSETMODE(x) (*((ptr *)((uptr)(x)+600)))
|
||||
#define SUPPRESSPRIMITIVEINLINING(x) (*((ptr *)((uptr)(x)+608)))
|
||||
#define TARGETMACHINE(x) (*((ptr *)((uptr)(x)+496)))
|
||||
#define TD(x) (*((void* *)((uptr)(x)+136)))
|
||||
#define THREADNO(x) (*((ptr *)((uptr)(x)+440)))
|
||||
#define TIMERTICKS(x) (*((ptr *)((uptr)(x)+400)))
|
||||
#define TRAP(x) (*((void* *)((uptr)(x)+104)))
|
||||
#define TS(x) (*((void* *)((uptr)(x)+128)))
|
||||
#define VIRTUALREGISTERS(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
#define WINDERS(x) (*((ptr *)((uptr)(x)+344)))
|
||||
#define XP(x) (*((void* *)((uptr)(x)+112)))
|
||||
#define YP(x) (*((void* *)((uptr)(x)+120)))
|
||||
#define ARGREG(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define VIRTREG(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
|
||||
/* library entries we access from C code */
|
||||
#define library_nonprocedure_code 152
|
||||
#define library_dounderflow 154
|
||||
BIN
boot/a6ob/petite.boot
Normal file
BIN
boot/a6ob/petite.boot
Normal file
Binary file not shown.
BIN
boot/a6ob/scheme.boot
Normal file
BIN
boot/a6ob/scheme.boot
Normal file
Binary file not shown.
239
boot/a6ob/scheme.h
Normal file
239
boot/a6ob/scheme.h
Normal file
|
|
@ -0,0 +1,239 @@
|
|||
/* scheme.h for Chez Scheme Version 9.5.9 (a6ob) */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct scheme.h */
|
||||
/* for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Specify declaration of exports. */
|
||||
#ifdef _WIN32
|
||||
# if __cplusplus
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern "C" __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern "C" __declspec (dllexport)
|
||||
# endif
|
||||
# else
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern
|
||||
# else
|
||||
# define EXPORT extern __declspec (dllexport)
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# if __cplusplus
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern
|
||||
# endif
|
||||
#endif
|
||||
|
||||
/* Chez Scheme Version and machine type */
|
||||
#define VERSION "9.5.9"
|
||||
#define MACHINE_TYPE "a6ob"
|
||||
|
||||
/* All Scheme objects are of type ptr. Type iptr and */
|
||||
/* uptr are signed and unsigned ints of the same size */
|
||||
/* as a ptr */
|
||||
typedef void * ptr;
|
||||
typedef long int iptr;
|
||||
typedef unsigned long int uptr;
|
||||
|
||||
/* String elements are 32-bit tagged char objects */
|
||||
typedef unsigned int string_char;
|
||||
|
||||
/* Bytevector elements are 8-bit unsigned "octets" */
|
||||
typedef unsigned char octet;
|
||||
|
||||
/* Type predicates */
|
||||
#define Sfixnump(x) (((uptr)(x)&0x7)==0x0)
|
||||
#define Scharp(x) (((uptr)(x)&0xFF)==0x16)
|
||||
#define Snullp(x) ((uptr)(x)==0x26)
|
||||
#define Seof_objectp(x) ((uptr)(x)==0x36)
|
||||
#define Sbwp_objectp(x) ((uptr)(x)==0x4E)
|
||||
#define Sbooleanp(x) (((uptr)(x)&0xF7)==0x6)
|
||||
#define Spairp(x) (((uptr)(x)&0x7)==0x1)
|
||||
#define Ssymbolp(x) (((uptr)(x)&0x7)==0x3)
|
||||
#define Sprocedurep(x) (((uptr)(x)&0x7)==0x5)
|
||||
#define Sflonump(x) (((uptr)(x)&0x7)==0x2)
|
||||
#define Svectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x0))
|
||||
#define Sfxvectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x3))
|
||||
#define Sbytevectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x1))
|
||||
#define Sstringp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x2))
|
||||
#define Sbignump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1F)==0x6))
|
||||
#define Sboxp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7F)==0xE))
|
||||
#define Sinexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x36))
|
||||
#define Sexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x56))
|
||||
#define Sratnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x16))
|
||||
#define Sinputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1FF)==0x11E))
|
||||
#define Soutputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x2FF)==0x21E))
|
||||
#define Srecordp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x7))
|
||||
|
||||
/* Accessors */
|
||||
#define Sfixnum_value(x) ((iptr)(x)/8)
|
||||
#define Schar_value(x) ((string_char)((uptr)(x)>>8))
|
||||
#define Sboolean_value(x) ((x) != Sfalse)
|
||||
#define Scar(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define Scdr(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define Sflonum_value(x) (*((double *)((uptr)(x)+6)))
|
||||
#define Svector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Svector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sfxvector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sfxvector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sbytevector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Sbytevector_u8_ref(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
/* Warning: Sbytevector_data(x) returns a pointer into x. */
|
||||
#define Sbytevector_data(x) &Sbytevector_u8_ref(x,0)
|
||||
#define Sstring_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sstring_ref(x,i) Schar_value(((string_char *)((uptr)(x)+9))[i])
|
||||
#define Sunbox(x) (*((ptr *)((uptr)(x)+9)))
|
||||
EXPORT iptr Sinteger_value(ptr);
|
||||
#define Sunsigned_value(x) (uptr)Sinteger_value(x)
|
||||
EXPORT int Sinteger32_value(ptr);
|
||||
#define Sunsigned32_value(x) (unsigned int)Sinteger32_value(x)
|
||||
EXPORT long Sinteger64_value(ptr);
|
||||
#define Sunsigned64_value(x) (unsigned long)Sinteger64_value(x)
|
||||
|
||||
/* Mutators */
|
||||
EXPORT void Sset_box(ptr, ptr);
|
||||
EXPORT void Sset_car(ptr, ptr);
|
||||
EXPORT void Sset_cdr(ptr, ptr);
|
||||
#define Sstring_set(x,i,c) ((void)((((string_char *)((uptr)(x)+9))[i]) = (string_char)(uptr)Schar(c)))
|
||||
#define Sfxvector_set(x,i,n) ((void)(Sfxvector_ref(x,i) = (n)))
|
||||
#define Sbytevector_u8_set(x,i,n) ((void)(Sbytevector_u8_ref(x,i) = (n)))
|
||||
EXPORT void Svector_set(ptr, iptr, ptr);
|
||||
|
||||
/* Constructors */
|
||||
#define Sfixnum(x) ((ptr)(uptr)((x)*8))
|
||||
#define Schar(x) ((ptr)(uptr)((x)<<8|0x16))
|
||||
#define Snil ((ptr)0x26)
|
||||
#define Strue ((ptr)0xE)
|
||||
#define Sfalse ((ptr)0x6)
|
||||
#define Sboolean(x) ((x)?Strue:Sfalse)
|
||||
#define Sbwp_object ((ptr)0x4E)
|
||||
#define Seof_object ((ptr)0x36)
|
||||
#define Svoid ((ptr)0x3E)
|
||||
EXPORT ptr Scons(ptr, ptr);
|
||||
EXPORT ptr Sstring_to_symbol(const char *);
|
||||
EXPORT ptr Ssymbol_to_string(ptr);
|
||||
EXPORT ptr Sflonum(double);
|
||||
EXPORT ptr Smake_vector(iptr, ptr);
|
||||
EXPORT ptr Smake_fxvector(iptr, ptr);
|
||||
EXPORT ptr Smake_bytevector(iptr, int);
|
||||
EXPORT ptr Smake_string(iptr, int);
|
||||
EXPORT ptr Smake_uninitialized_string(iptr);
|
||||
EXPORT ptr Sstring(const char *);
|
||||
EXPORT ptr Sstring_of_length(const char *, iptr);
|
||||
EXPORT ptr Sstring_utf8(const char*, iptr);
|
||||
EXPORT ptr Sbox(ptr);
|
||||
EXPORT ptr Sinteger(iptr);
|
||||
EXPORT ptr Sunsigned(uptr);
|
||||
EXPORT ptr Sinteger32(int);
|
||||
EXPORT ptr Sunsigned32(unsigned int);
|
||||
EXPORT ptr Sinteger64(long);
|
||||
EXPORT ptr Sunsigned64(unsigned long);
|
||||
|
||||
/* Miscellaneous */
|
||||
EXPORT ptr Stop_level_value(ptr);
|
||||
EXPORT void Sset_top_level_value(ptr, ptr);
|
||||
EXPORT void Slock_object(ptr);
|
||||
EXPORT void Sunlock_object(ptr);
|
||||
EXPORT int Slocked_objectp(ptr);
|
||||
EXPORT void Sforeign_symbol(const char *, void *);
|
||||
EXPORT void Sregister_symbol(const char *, void *);
|
||||
|
||||
/* Support for calls into Scheme */
|
||||
EXPORT ptr Scall0(ptr);
|
||||
EXPORT ptr Scall1(ptr, ptr);
|
||||
EXPORT ptr Scall2(ptr, ptr, ptr);
|
||||
EXPORT ptr Scall3(ptr, ptr, ptr, ptr);
|
||||
EXPORT void Sinitframe(iptr);
|
||||
EXPORT void Sput_arg(iptr, ptr);
|
||||
EXPORT ptr Scall(ptr, iptr);
|
||||
/* Warning: Sforeign_callable_entry_point(x) returns a pointer into x. */
|
||||
#define Sforeign_callable_entry_point(x) ((void (*)(void))((uptr)(x)+65))
|
||||
#define Sforeign_callable_code_object(x) ((ptr)((uptr)(x)-65))
|
||||
|
||||
/* Customization support. */
|
||||
EXPORT const char * Skernel_version(void);
|
||||
EXPORT void Sretain_static_relocation(void);
|
||||
EXPORT void Sset_verbose(int);
|
||||
EXPORT void Sscheme_init(void (*)(void));
|
||||
EXPORT void Sregister_boot_file(const char *);
|
||||
EXPORT void Sregister_boot_file_fd(const char *, int fd);
|
||||
EXPORT void Sregister_heap_file(const char *);
|
||||
EXPORT void Scompact_heap(void);
|
||||
EXPORT void Ssave_heap(const char *, int);
|
||||
EXPORT void Sbuild_heap(const char *, void (*)(void));
|
||||
EXPORT void Senable_expeditor(const char *);
|
||||
EXPORT int Sscheme_start(int, const char *[]);
|
||||
EXPORT int Sscheme_script(const char *, int, const char *[]);
|
||||
EXPORT int Sscheme_program(const char *, int, const char *[]);
|
||||
EXPORT void Sscheme_deinit(void);
|
||||
|
||||
/* Features. */
|
||||
#define FEATURE_ICONV
|
||||
#define FEATURE_EXPEDITOR
|
||||
|
||||
/* Locking macros. */
|
||||
#define INITLOCK(addr) \
|
||||
__asm__ __volatile__ ("movq $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "memory")
|
||||
|
||||
#define SPINLOCK(addr) \
|
||||
__asm__ __volatile__ ("0:\n\t"\
|
||||
"movq $1, %%rax\n\t"\
|
||||
"xchgq (%0), %%rax\n\t"\
|
||||
"cmpq $0, %%rax\n\t"\
|
||||
"je 2f\n\t"\
|
||||
"1:\n\t"\
|
||||
"pause\n\t"\
|
||||
"cmpq $0, (%0)\n\t"\
|
||||
"je 0b\n\t"\
|
||||
"jmp 1b\n\t"\
|
||||
"2:"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "rax", "flags", "memory")
|
||||
|
||||
#define UNLOCK(addr) \
|
||||
__asm__ __volatile__ ("movq $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
:"memory")
|
||||
|
||||
#define LOCKED_INCR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; incq (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
|
||||
#define LOCKED_DECR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; decq (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
993
boot/a6osx/equates.h
Normal file
993
boot/a6osx/equates.h
Normal file
|
|
@ -0,0 +1,993 @@
|
|||
/* equates.h for Chez Scheme Version 9.5.9 */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct version */
|
||||
/* of this file for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Integer typedefs */
|
||||
typedef char I8;
|
||||
typedef unsigned char U8;
|
||||
typedef short I16;
|
||||
typedef unsigned short U16;
|
||||
typedef int I32;
|
||||
typedef unsigned int U32;
|
||||
typedef long I64;
|
||||
typedef unsigned long U64;
|
||||
|
||||
/* constants from cmacros.ss */
|
||||
#define $c_func_closure_index 0x4
|
||||
#define $c_func_closure_record_index 0x3
|
||||
#define $c_func_code_object_index 0x2
|
||||
#define $c_func_code_record_index 0x1
|
||||
#define COMPRESS_FORMAT_BITS 0x3
|
||||
#define COMPRESS_GZIP 0x0
|
||||
#define COMPRESS_HIGH 0x3
|
||||
#define COMPRESS_LOW 0x1
|
||||
#define COMPRESS_LZ4 0x1
|
||||
#define COMPRESS_MAX 0x4
|
||||
#define COMPRESS_MEDIUM 0x2
|
||||
#define COMPRESS_MIN 0x0
|
||||
#define ERROR_CALL_ARGUMENT_COUNT 0x4
|
||||
#define ERROR_CALL_NONPROCEDURE 0x3
|
||||
#define ERROR_CALL_NONPROCEDURE_SYMBOL 0x2
|
||||
#define ERROR_CALL_UNBOUND 0x1
|
||||
#define ERROR_MVLET 0x8
|
||||
#define ERROR_NONCONTINUABLE_INTERRUPT 0x6
|
||||
#define ERROR_OTHER 0x0
|
||||
#define ERROR_RESET 0x5
|
||||
#define ERROR_VALUES 0x7
|
||||
#define OPEN_ERROR_EXISTS 0x2
|
||||
#define OPEN_ERROR_EXISTSNOT 0x3
|
||||
#define OPEN_ERROR_OTHER 0x0
|
||||
#define OPEN_ERROR_PROTECTION 0x1
|
||||
#define PORT_FLAG_BINARY 0x400
|
||||
#define PORT_FLAG_BLOCK_BUFFERED 0x20000
|
||||
#define PORT_FLAG_BOL 0x8000
|
||||
#define PORT_FLAG_CHAR_POSITIONS 0x100000
|
||||
#define PORT_FLAG_CLOSED 0x800
|
||||
#define PORT_FLAG_COMPRESSED 0x2000
|
||||
#define PORT_FLAG_EOF 0x10000
|
||||
#define PORT_FLAG_EXCLUSIVE 0x4000
|
||||
#define PORT_FLAG_FILE 0x1000
|
||||
#define PORT_FLAG_FOLD_CASE 0x400000
|
||||
#define PORT_FLAG_INPUT 0x100
|
||||
#define PORT_FLAG_INPUT_MODE 0x80000
|
||||
#define PORT_FLAG_LINE_BUFFERED 0x40000
|
||||
#define PORT_FLAG_NO_FOLD_CASE 0x800000
|
||||
#define PORT_FLAG_OUTPUT 0x200
|
||||
#define PORT_FLAG_R6RS 0x200000
|
||||
#define SAPPEND 0x3
|
||||
#define SDEFAULT 0x4
|
||||
#define SEOF -0x1
|
||||
#define SERROR 0x0
|
||||
#define SICONV_DUNNO 0x0
|
||||
#define SICONV_INCOMPLETE 0x2
|
||||
#define SICONV_INVALID 0x1
|
||||
#define SICONV_NOROOM 0x3
|
||||
#define SREPLACE 0x2
|
||||
#define STRVNCATE 0x1
|
||||
#define address_bits 0x40
|
||||
#define alloc_waste_maximum 0x800
|
||||
#define annotation_all 0x3
|
||||
#define annotation_debug 0x1
|
||||
#define annotation_profile 0x2
|
||||
#define architecture x86_64
|
||||
#define asm_arg_reg_cnt 0x3
|
||||
#define asm_arg_reg_max 0x5
|
||||
#define bigit_bits 0x20
|
||||
#define bigit_bytes 0x4
|
||||
#define bignum_data_disp 0x9
|
||||
#define bignum_length_factor 0x40
|
||||
#define bignum_length_offset 0x6
|
||||
#define bignum_sign_offset 0x5
|
||||
#define bignum_type_disp 0x1
|
||||
#define black_hole (ptr)0x46
|
||||
#define box_ref_disp 0x9
|
||||
#define box_type_disp 0x1
|
||||
#define byte_alignment 0x10
|
||||
#define byte_constant_mask 0xFFFFFFFFFFFFFFFF
|
||||
#define bytes_per_card 0x200
|
||||
#define bytes_per_segment 0x4000
|
||||
#define bytevector_data_disp 0x9
|
||||
#define bytevector_immutable_flag 0x4
|
||||
#define bytevector_length_factor 0x8
|
||||
#define bytevector_length_offset 0x3
|
||||
#define bytevector_type_disp 0x1
|
||||
#define c_entry_name_vector #(thread-context get-thread-context handle-apply-overflood handle-docall-error handle-overflow handle-overflood handle-nonprocedure-symbol thread-list split-and-resize raw-collect-cond raw-tc-mutex activate-thread deactivate-thread unactivate-thread handle-values-error handle-mvlet-error handle-arg-error foreign-entry install-library-entry get-more-room scan-remembered-set instantiate-code-object Sreturn Scall-one-result Scall-any-results)
|
||||
#define c_entry_vector_size 0x19
|
||||
#define cached_stack_link_disp 0x8
|
||||
#define cached_stack_size_disp 0x0
|
||||
#define card_offset_bits 0x9
|
||||
#define cards_per_segment 0x20
|
||||
#define char_data_offset 0x8
|
||||
#define char_factor 0x100
|
||||
#define closure_code_disp 0x3
|
||||
#define closure_data_disp 0xB
|
||||
#define code_arity_mask_disp 0x21
|
||||
#define code_closure_length_disp 0x29
|
||||
#define code_data_disp 0x41
|
||||
#define code_flag_continuation 0x2
|
||||
#define code_flag_guardian 0x8
|
||||
#define code_flag_system 0x1
|
||||
#define code_flag_template 0x4
|
||||
#define code_flags_offset 0x8
|
||||
#define code_info_disp 0x31
|
||||
#define code_length_disp 0x9
|
||||
#define code_name_disp 0x19
|
||||
#define code_pinfos_disp 0x39
|
||||
#define code_reloc_disp 0x11
|
||||
#define code_type_disp 0x1
|
||||
#define collect_interrupt_index 0x1
|
||||
#define continuation_code_disp 0x3
|
||||
#define continuation_link_disp 0x23
|
||||
#define continuation_return_address_disp 0x2B
|
||||
#define continuation_stack_clength_disp 0x1B
|
||||
#define continuation_stack_disp 0xB
|
||||
#define continuation_stack_length_disp 0x13
|
||||
#define continuation_winders_disp 0x33
|
||||
#define countof_bignum 0x5
|
||||
#define countof_box 0x9
|
||||
#define countof_bytevector 0x15
|
||||
#define countof_closure 0x3
|
||||
#define countof_code 0xB
|
||||
#define countof_continuation 0x4
|
||||
#define countof_ephemeron 0x19
|
||||
#define countof_exactnum 0x8
|
||||
#define countof_flonum 0x2
|
||||
#define countof_fxvector 0x14
|
||||
#define countof_guardian 0x17
|
||||
#define countof_inexactnum 0x7
|
||||
#define countof_locked 0x16
|
||||
#define countof_oblist 0x18
|
||||
#define countof_pair 0x0
|
||||
#define countof_port 0xA
|
||||
#define countof_ratnum 0x6
|
||||
#define countof_relocation_table 0x10
|
||||
#define countof_rtd_counts 0xE
|
||||
#define countof_stack 0xF
|
||||
#define countof_string 0x13
|
||||
#define countof_symbol 0x1
|
||||
#define countof_thread 0xC
|
||||
#define countof_tlc 0xD
|
||||
#define countof_types 0x1A
|
||||
#define countof_vector 0x12
|
||||
#define countof_weakpair 0x11
|
||||
#define default_collect_trip_bytes 0x800000
|
||||
#define default_heap_reserve_ratio 1.0
|
||||
#define default_max_nonstatic_generation 0x4
|
||||
#define default_stack_size 0xFFF0
|
||||
#define default_timer_ticks 0x3E8
|
||||
#define dtvec_hour 0x3
|
||||
#define dtvec_isdst 0x9
|
||||
#define dtvec_mday 0x4
|
||||
#define dtvec_min 0x2
|
||||
#define dtvec_mon 0x5
|
||||
#define dtvec_nsec 0x0
|
||||
#define dtvec_sec 0x1
|
||||
#define dtvec_size 0xC
|
||||
#define dtvec_tzname 0xB
|
||||
#define dtvec_tzoff 0xA
|
||||
#define dtvec_wday 0x7
|
||||
#define dtvec_yday 0x8
|
||||
#define dtvec_year 0x6
|
||||
#define ephemeron_car_disp 0x7
|
||||
#define ephemeron_cdr_disp 0xF
|
||||
#define ephemeron_next_disp 0x17
|
||||
#define ephemeron_trigger_next_disp 0x1F
|
||||
#define eq_hashtable_subtype_ephemeron 0x2
|
||||
#define eq_hashtable_subtype_normal 0x0
|
||||
#define eq_hashtable_subtype_weak 0x1
|
||||
#define exactnum_imag_disp 0x11
|
||||
#define exactnum_real_disp 0x9
|
||||
#define exactnum_type_disp 0x1
|
||||
#define fasl_fld_double 0xA
|
||||
#define fasl_fld_i16 0x2
|
||||
#define fasl_fld_i24 0x3
|
||||
#define fasl_fld_i32 0x4
|
||||
#define fasl_fld_i40 0x5
|
||||
#define fasl_fld_i48 0x6
|
||||
#define fasl_fld_i56 0x7
|
||||
#define fasl_fld_i64 0x8
|
||||
#define fasl_fld_ptr 0x0
|
||||
#define fasl_fld_single 0x9
|
||||
#define fasl_fld_u8 0x1
|
||||
#define fasl_header #vu8(0 0 0 0 99 104 101 122)
|
||||
#define fasl_type_base_rtd 0x1A
|
||||
#define fasl_type_box 0x1
|
||||
#define fasl_type_bytevector 0x1D
|
||||
#define fasl_type_closure 0x6
|
||||
#define fasl_type_code 0xB
|
||||
#define fasl_type_entry 0xD
|
||||
#define fasl_type_ephemeron 0x1C
|
||||
#define fasl_type_eq_hashtable 0x1F
|
||||
#define fasl_type_exactnum 0x14
|
||||
#define fasl_type_flonum 0x8
|
||||
#define fasl_type_fxvector 0x1B
|
||||
#define fasl_type_gensym 0x13
|
||||
#define fasl_type_graph 0x10
|
||||
#define fasl_type_graph_def 0x11
|
||||
#define fasl_type_graph_ref 0x12
|
||||
#define fasl_type_gzip 0x2B
|
||||
#define fasl_type_header 0x0
|
||||
#define fasl_type_immediate 0xC
|
||||
#define fasl_type_immutable_box 0x29
|
||||
#define fasl_type_immutable_bytevector 0x28
|
||||
#define fasl_type_immutable_fxvector 0x27
|
||||
#define fasl_type_immutable_string 0x26
|
||||
#define fasl_type_immutable_vector 0x25
|
||||
#define fasl_type_inexactnum 0x5
|
||||
#define fasl_type_large_integer 0xA
|
||||
#define fasl_type_library 0xE
|
||||
#define fasl_type_library_code 0xF
|
||||
#define fasl_type_lz4 0x2C
|
||||
#define fasl_type_pair 0x7
|
||||
#define fasl_type_ratnum 0x3
|
||||
#define fasl_type_record 0x17
|
||||
#define fasl_type_revisit 0x23
|
||||
#define fasl_type_rtd 0x18
|
||||
#define fasl_type_small_integer 0x19
|
||||
#define fasl_type_string 0x9
|
||||
#define fasl_type_symbol 0x2
|
||||
#define fasl_type_symbol_hashtable 0x20
|
||||
#define fasl_type_uncompressed 0x2A
|
||||
#define fasl_type_vector 0x4
|
||||
#define fasl_type_visit 0x22
|
||||
#define fasl_type_visit_revisit 0x24
|
||||
#define fasl_type_weak_pair 0x1E
|
||||
#define fixnum_bits 0x3D
|
||||
#define fixnum_factor 0x8
|
||||
#define fixnum_offset 0x3
|
||||
#define fld_byte_index 0x4
|
||||
#define fld_mutablep_index 0x2
|
||||
#define fld_name_index 0x1
|
||||
#define fld_type_index 0x3
|
||||
#define flonum_data_disp 0x6
|
||||
#define forward_address_disp 0x8
|
||||
#define forward_marker (ptr)0x2E
|
||||
#define forward_marker_disp 0x0
|
||||
#define ftype_guardian_rep (ptr)0x56
|
||||
#define fxvector_data_disp 0x9
|
||||
#define fxvector_immutable_flag 0x8
|
||||
#define fxvector_length_factor 0x10
|
||||
#define fxvector_length_offset 0x4
|
||||
#define fxvector_type_disp 0x1
|
||||
#define guardian_entry_next_disp 0x18
|
||||
#define guardian_entry_obj_disp 0x0
|
||||
#define guardian_entry_rep_disp 0x8
|
||||
#define guardian_entry_tconc_disp 0x10
|
||||
#define hashtable_default_size 0x8
|
||||
#define header_size_bignum 0x8
|
||||
#define header_size_bytevector 0x8
|
||||
#define header_size_closure 0x8
|
||||
#define header_size_code 0x40
|
||||
#define header_size_fxvector 0x8
|
||||
#define header_size_record 0x8
|
||||
#define header_size_reloc_table 0x10
|
||||
#define header_size_string 0x8
|
||||
#define header_size_vector 0x8
|
||||
#define ignore_event_flag 0x0
|
||||
#define inexactnum_imag_disp 0x19
|
||||
#define inexactnum_pad_disp 0x9
|
||||
#define inexactnum_real_disp 0x11
|
||||
#define inexactnum_type_disp 0x1
|
||||
#define int_bits 0x20
|
||||
#define integer_divide_instruction 1
|
||||
#define keyboard_interrupt_index 0x3
|
||||
#define library_entry_vector_size 0x210
|
||||
#define libspec_closure_index 0xD
|
||||
#define libspec_does_not_expect_headroom_index 0x0
|
||||
#define libspec_error_index 0xE
|
||||
#define libspec_fake_index 0x10
|
||||
#define libspec_flags_index 0x2
|
||||
#define libspec_has_does_not_expect_headroom_version_index 0xF
|
||||
#define libspec_index_base_offset 0x1
|
||||
#define libspec_index_base_size 0x9
|
||||
#define libspec_index_offset 0x0
|
||||
#define libspec_index_size 0xA
|
||||
#define libspec_interface_offset 0xA
|
||||
#define libspec_interface_size 0x3
|
||||
#define libspec_name_index 0x1
|
||||
#define log2_ptr_bytes 0x3
|
||||
#define long_bits 0x40
|
||||
#define long_long_bits 0x40
|
||||
#define machine_type 0xD
|
||||
#define machine_type_a6fb 0x15
|
||||
#define machine_type_a6le 0xB
|
||||
#define machine_type_a6nb 0x19
|
||||
#define machine_type_a6nt 0x1B
|
||||
#define machine_type_a6ob 0xF
|
||||
#define machine_type_a6osx 0xD
|
||||
#define machine_type_a6s2 0x11
|
||||
#define machine_type_alist ((0 . any) (1 . i3le) (2 . ti3le) (3 . i3nt) (4 . ti3nt) (5 . i3fb) (6 . ti3fb) (7 . i3ob) (8 . ti3ob) (9 . i3osx) (10 . ti3osx) (11 . a6le) (12 . ta6le) (13 . a6osx) (14 . ta6osx) (15 . a6ob) (16 . ta6ob) (17 . a6s2) (18 . ta6s2) (19 . i3s2) (20 . ti3s2) (21 . a6fb) (22 . ta6fb) (23 . i3nb) (24 . ti3nb) (25 . a6nb) (26 . ta6nb) (27 . a6nt) (28 . ta6nt) (29 . i3qnx) (30 . ti3qnx) (31 . arm32le) (32 . tarm32le) (33 . ppc32le) (34 . tppc32le))
|
||||
#define machine_type_any 0x0
|
||||
#define machine_type_arm32le 0x1F
|
||||
#define machine_type_i3fb 0x5
|
||||
#define machine_type_i3le 0x1
|
||||
#define machine_type_i3nb 0x17
|
||||
#define machine_type_i3nt 0x3
|
||||
#define machine_type_i3ob 0x7
|
||||
#define machine_type_i3osx 0x9
|
||||
#define machine_type_i3qnx 0x1D
|
||||
#define machine_type_i3s2 0x13
|
||||
#define machine_type_limit 0x23
|
||||
#define machine_type_name a6osx
|
||||
#define machine_type_ppc32le 0x21
|
||||
#define machine_type_ta6fb 0x16
|
||||
#define machine_type_ta6le 0xC
|
||||
#define machine_type_ta6nb 0x1A
|
||||
#define machine_type_ta6nt 0x1C
|
||||
#define machine_type_ta6ob 0x10
|
||||
#define machine_type_ta6osx 0xE
|
||||
#define machine_type_ta6s2 0x12
|
||||
#define machine_type_tarm32le 0x20
|
||||
#define machine_type_ti3fb 0x6
|
||||
#define machine_type_ti3le 0x2
|
||||
#define machine_type_ti3nb 0x18
|
||||
#define machine_type_ti3nt 0x4
|
||||
#define machine_type_ti3ob 0x8
|
||||
#define machine_type_ti3osx 0xA
|
||||
#define machine_type_ti3qnx 0x1E
|
||||
#define machine_type_ti3s2 0x14
|
||||
#define machine_type_tppc32le 0x22
|
||||
#define mask_bignum 0x1F
|
||||
#define mask_bignum_sign 0x20
|
||||
#define mask_binary_input_port 0x5FF
|
||||
#define mask_binary_output_port 0x6FF
|
||||
#define mask_binary_port 0x4FF
|
||||
#define mask_boolean 0xF7
|
||||
#define mask_box 0x7F
|
||||
#define mask_bwp 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_bytevector 0x3
|
||||
#define mask_char 0xFF
|
||||
#define mask_closure 0x7
|
||||
#define mask_code 0xFF
|
||||
#define mask_continuation_code 0x2FF
|
||||
#define mask_eof 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_exactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_false 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_fixnum 0x7
|
||||
#define mask_flonum 0x7
|
||||
#define mask_fxvector 0x7
|
||||
#define mask_guardian_code 0x8FF
|
||||
#define mask_immediate 0x7
|
||||
#define mask_inexactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_input_port 0x1FF
|
||||
#define mask_mutable_box 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_mutable_bytevector 0x7
|
||||
#define mask_mutable_fxvector 0xF
|
||||
#define mask_mutable_string 0xF
|
||||
#define mask_mutable_vector 0xF
|
||||
#define mask_nil 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_octet -0x7F9
|
||||
#define mask_other_number 0xF
|
||||
#define mask_output_port 0x2FF
|
||||
#define mask_pair 0x7
|
||||
#define mask_port 0xFF
|
||||
#define mask_ratnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_record 0x7
|
||||
#define mask_rtd_counts 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_signed_bignum 0x3F
|
||||
#define mask_string 0x7
|
||||
#define mask_symbol 0x7
|
||||
#define mask_system_code 0x1FF
|
||||
#define mask_textual_input_port 0x5FF
|
||||
#define mask_textual_output_port 0x6FF
|
||||
#define mask_textual_port 0x4FF
|
||||
#define mask_thread 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_tlc 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_typed_object 0x7
|
||||
#define mask_unbound 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_vector 0x7
|
||||
#define max_float_alignment 0x8
|
||||
#define max_integer_alignment 0x8
|
||||
#define max_real_space 0xB
|
||||
#define max_space 0xC
|
||||
#define max_sweep_space 0xA
|
||||
#define maximum_bignum_length (iptr)0x3FFFFFFFFFFFFFF
|
||||
#define maximum_bytevector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_fxvector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_interrupt_index 0x4
|
||||
#define maximum_string_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_vector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define minimum_segment_request 0x80
|
||||
#define most_negative_fixnum (iptr)-0x1000000000000000
|
||||
#define most_positive_fixnum (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define native_endianness little
|
||||
#define one_shot_headroom 0xC00
|
||||
#define ordinary_type_bits 0x8
|
||||
#define pair_car_disp 0x7
|
||||
#define pair_cdr_disp 0xF
|
||||
#define pair_shift 0x4
|
||||
#define port_flag_binary 0x4
|
||||
#define port_flag_block_buffered 0x200
|
||||
#define port_flag_bol 0x80
|
||||
#define port_flag_char_positions 0x1000
|
||||
#define port_flag_closed 0x8
|
||||
#define port_flag_compressed 0x20
|
||||
#define port_flag_eof 0x100
|
||||
#define port_flag_exclusive 0x40
|
||||
#define port_flag_file 0x10
|
||||
#define port_flag_fold_case 0x4000
|
||||
#define port_flag_input 0x1
|
||||
#define port_flag_input_mode 0x800
|
||||
#define port_flag_line_buffered 0x400
|
||||
#define port_flag_no_fold_case 0x8000
|
||||
#define port_flag_output 0x2
|
||||
#define port_flag_r6rs 0x2000
|
||||
#define port_flags_offset 0x8
|
||||
#define port_handler_disp 0x9
|
||||
#define port_ibuffer_disp 0x39
|
||||
#define port_icount_disp 0x19
|
||||
#define port_ilast_disp 0x31
|
||||
#define port_info_disp 0x41
|
||||
#define port_name_disp 0x49
|
||||
#define port_obuffer_disp 0x29
|
||||
#define port_ocount_disp 0x11
|
||||
#define port_olast_disp 0x21
|
||||
#define port_type_disp 0x1
|
||||
#define prelex_is_flags_offset 0x8
|
||||
#define prelex_is_mask 0xFF00
|
||||
#define prelex_sticky_mask 0xFF
|
||||
#define prelex_was_flags_offset 0x10
|
||||
#define primary_type_bits 0x3
|
||||
#define ptr_bits 0x40
|
||||
#define ptr_bytes 0x8
|
||||
#define ptrdiff_t_bits 0x40
|
||||
#define ratnum_denominator_disp 0x11
|
||||
#define ratnum_numerator_disp 0x9
|
||||
#define ratnum_type_disp 0x1
|
||||
#define real_space_alist ((new . 0) (impure . 1) (symbol . 2) (port . 3) (weakpair . 4) (ephemeron . 5) (pure . 6) (continuation . 7) (code . 8) (pure-typed-object . 9) (impure-record . 10) (data . 11))
|
||||
#define record_data_disp 0x9
|
||||
#define record_type_counts_disp 0x49
|
||||
#define record_type_disp 0x1
|
||||
#define record_type_flags_disp 0x39
|
||||
#define record_type_flds_disp 0x31
|
||||
#define record_type_mpm_disp 0x21
|
||||
#define record_type_name_disp 0x29
|
||||
#define record_type_parent_disp 0x9
|
||||
#define record_type_pm_disp 0x19
|
||||
#define record_type_size_disp 0x11
|
||||
#define record_type_type_disp 0x1
|
||||
#define record_type_uid_disp 0x41
|
||||
#define reloc_abs 0x0
|
||||
#define reloc_code_offset_index 0x3
|
||||
#define reloc_code_offset_mask 0x3FFFFFF
|
||||
#define reloc_code_offset_offset 0x4
|
||||
#define reloc_extended_format 0x1
|
||||
#define reloc_item_offset_index 0x2
|
||||
#define reloc_item_offset_mask 0x3FFFFFF
|
||||
#define reloc_item_offset_offset 0x1E
|
||||
#define reloc_longp_index 0x4
|
||||
#define reloc_table_code_disp 0x8
|
||||
#define reloc_table_data_disp 0x10
|
||||
#define reloc_table_size_disp 0x0
|
||||
#define reloc_type_index 0x1
|
||||
#define reloc_type_mask 0x7
|
||||
#define reloc_type_offset 0x1
|
||||
#define reloc_x86_64_call 0x1
|
||||
#define reloc_x86_64_jump 0x2
|
||||
#define return_address_frame_size_disp -0x10
|
||||
#define return_address_livemask_disp -0x20
|
||||
#define return_address_mv_return_address_disp -0x8
|
||||
#define return_address_toplink_disp -0x18
|
||||
#define rp_header_frame_size_disp 0x10
|
||||
#define rp_header_livemask_disp 0x0
|
||||
#define rp_header_mv_return_address_disp 0x18
|
||||
#define rp_header_toplink_disp 0x8
|
||||
#define rtd_counts_data_disp 0x11
|
||||
#define rtd_counts_timestamp_disp 0x9
|
||||
#define rtd_counts_type_disp 0x1
|
||||
#define rtd_generative 0x1
|
||||
#define rtd_opaque 0x2
|
||||
#define rtd_sealed 0x4
|
||||
#define sbwp (ptr)0x4E
|
||||
#define scaled_shot_1_shot_flag -0x8
|
||||
#define scheme_version 0x90509
|
||||
#define segment_card_offset_bits 0x5
|
||||
#define segment_offset_bits 0xE
|
||||
#define segment_t1_bits 0x10
|
||||
#define segment_t2_bits 0x11
|
||||
#define segment_t3_bits 0x11
|
||||
#define segment_table_levels 0x3
|
||||
#define seof (ptr)0x36
|
||||
#define sfalse (ptr)0x6
|
||||
#define short_bits 0x10
|
||||
#define signal_interrupt_index 0x4
|
||||
#define size_box 0x10
|
||||
#define size_cached_stack 0x10
|
||||
#define size_continuation 0x40
|
||||
#define size_ephemeron 0x20
|
||||
#define size_exactnum 0x20
|
||||
#define size_flonum 0x10
|
||||
#define size_forward 0x10
|
||||
#define size_guardian_entry 0x20
|
||||
#define size_inexactnum 0x20
|
||||
#define size_pair 0x10
|
||||
#define size_port 0x50
|
||||
#define size_ratnum 0x20
|
||||
#define size_record_type 0x50
|
||||
#define size_rp_header 0x20
|
||||
#define size_rtd_counts 0x810
|
||||
#define size_symbol 0x30
|
||||
#define size_tc 0x2C0
|
||||
#define size_thread 0x10
|
||||
#define size_tlc 0x20
|
||||
#define size_typed_object 0x10
|
||||
#define size_t_bits 0x40
|
||||
#define snil (ptr)0x26
|
||||
#define space_char_list (#\n #\i #\x #\q #\w #\e #\p #\k #\c #\r #\s #\d #\e)
|
||||
#define space_cname_list ("new" "impure" "symbol" "port" "weakpr" "emph" "pure" "cont" "code" "p-tobj" "ip-rec" "data" "empty")
|
||||
#define space_code 0x8
|
||||
#define space_continuation 0x7
|
||||
#define space_data 0xB
|
||||
#define space_empty 0xC
|
||||
#define space_ephemeron 0x5
|
||||
#define space_impure 0x1
|
||||
#define space_impure_record 0xA
|
||||
#define space_locked 0x20
|
||||
#define space_new 0x0
|
||||
#define space_old 0x40
|
||||
#define space_port 0x3
|
||||
#define space_pure 0x6
|
||||
#define space_pure_typed_object 0x9
|
||||
#define space_symbol 0x2
|
||||
#define space_weakpair 0x4
|
||||
#define stack_frame_limit 0x200
|
||||
#define stack_slop 0x400
|
||||
#define static_generation 0xFF
|
||||
#define string_char_bits 0x20
|
||||
#define string_char_bytes 0x4
|
||||
#define string_char_offset 0x2
|
||||
#define string_data_disp 0x9
|
||||
#define string_immutable_flag 0x8
|
||||
#define string_length_factor 0x10
|
||||
#define string_length_offset 0x4
|
||||
#define string_type_disp 0x1
|
||||
#define strue (ptr)0xE
|
||||
#define sunbound (ptr)0x1E
|
||||
#define svoid (ptr)0x3E
|
||||
#define symbol_hash_disp 0x2D
|
||||
#define symbol_name_disp 0x1D
|
||||
#define symbol_plist_disp 0x15
|
||||
#define symbol_pvalue_disp 0xD
|
||||
#define symbol_splist_disp 0x25
|
||||
#define symbol_value_disp 0x5
|
||||
#define tc_DSTBV_disp 0x2A8
|
||||
#define tc_SRCBV_disp 0x2B0
|
||||
#define tc_U_disp 0x160
|
||||
#define tc_V_disp 0x168
|
||||
#define tc_W_disp 0x170
|
||||
#define tc_X_disp 0x178
|
||||
#define tc_Y_disp 0x180
|
||||
#define tc_ac0_disp 0x28
|
||||
#define tc_ac1_disp 0x30
|
||||
#define tc_active_disp 0x134
|
||||
#define tc_alloc_counter_disp 0x298
|
||||
#define tc_ap_disp 0x50
|
||||
#define tc_arg_regs_disp 0x0
|
||||
#define tc_block_counter_disp 0x1D8
|
||||
#define tc_cchain_disp 0x120
|
||||
#define tc_code_ranges_to_flush_disp 0x128
|
||||
#define tc_compile_profile_disp 0x230
|
||||
#define tc_compress_format_disp 0x278
|
||||
#define tc_compress_level_disp 0x280
|
||||
#define tc_cp_disp 0x40
|
||||
#define tc_current_error_disp 0x1D0
|
||||
#define tc_current_input_disp 0x1C0
|
||||
#define tc_current_mso_disp 0x1E8
|
||||
#define tc_current_output_disp 0x1C8
|
||||
#define tc_default_record_equal_procedure_disp 0x268
|
||||
#define tc_default_record_hash_procedure_disp 0x270
|
||||
#define tc_disable_count_disp 0x198
|
||||
#define tc_eap_disp 0x58
|
||||
#define tc_esp_disp 0x48
|
||||
#define tc_fxfirst_bit_set_bv_disp 0x200
|
||||
#define tc_fxlength_bv_disp 0x1F8
|
||||
#define tc_generate_inspector_information_disp 0x238
|
||||
#define tc_generate_procedure_source_information_disp 0x240
|
||||
#define tc_generate_profile_forms_disp 0x248
|
||||
#define tc_guardian_entries_disp 0x118
|
||||
#define tc_instr_counter_disp 0x290
|
||||
#define tc_keyboard_interrupt_pending_disp 0x1B0
|
||||
#define tc_lz4_out_buffer_disp 0x288
|
||||
#define tc_meta_level_disp 0x228
|
||||
#define tc_null_immutable_bytevector_disp 0x218
|
||||
#define tc_null_immutable_fxvector_disp 0x210
|
||||
#define tc_null_immutable_string_disp 0x220
|
||||
#define tc_null_immutable_vector_disp 0x208
|
||||
#define tc_optimize_level_disp 0x250
|
||||
#define tc_parameters_disp 0x2A0
|
||||
#define tc_random_seed_disp 0x130
|
||||
#define tc_real_eap_disp 0x90
|
||||
#define tc_ret_disp 0x60
|
||||
#define tc_scheme_stack_disp 0x138
|
||||
#define tc_scheme_stack_size_disp 0x150
|
||||
#define tc_sfd_disp 0x1E0
|
||||
#define tc_sfp_disp 0x38
|
||||
#define tc_signal_interrupt_pending_disp 0x1A0
|
||||
#define tc_signal_interrupt_queue_disp 0x1A8
|
||||
#define tc_something_pending_disp 0x188
|
||||
#define tc_stack_cache_disp 0x140
|
||||
#define tc_stack_link_disp 0x148
|
||||
#define tc_subset_mode_disp 0x258
|
||||
#define tc_suppress_primitive_inlining_disp 0x260
|
||||
#define tc_target_machine_disp 0x1F0
|
||||
#define tc_td_disp 0x88
|
||||
#define tc_threadno_disp 0x1B8
|
||||
#define tc_timer_ticks_disp 0x190
|
||||
#define tc_trap_disp 0x68
|
||||
#define tc_ts_disp 0x80
|
||||
#define tc_virtual_registers_disp 0x98
|
||||
#define tc_winders_disp 0x158
|
||||
#define tc_xp_disp 0x70
|
||||
#define tc_yp_disp 0x78
|
||||
#define thread_tc_disp 0x9
|
||||
#define thread_type_disp 0x1
|
||||
#define time_collector_cpu 0x5
|
||||
#define time_collector_real 0x6
|
||||
#define time_duration 0x2
|
||||
#define time_monotonic 0x3
|
||||
#define time_process 0x0
|
||||
#define time_t_bits 0x40
|
||||
#define time_thread 0x1
|
||||
#define time_utc 0x4
|
||||
#define timer_interrupt_index 0x2
|
||||
#define tlc_ht_disp 0x11
|
||||
#define tlc_keyval_disp 0x9
|
||||
#define tlc_next_disp 0x19
|
||||
#define tlc_type_disp 0x1
|
||||
#define type_bignum 0x6
|
||||
#define type_binary_input_port 0x51E
|
||||
#define type_binary_output_port 0x61E
|
||||
#define type_binary_port 0x41E
|
||||
#define type_boolean 0x6
|
||||
#define type_box 0xE
|
||||
#define type_bytevector 0x1
|
||||
#define type_char 0x16
|
||||
#define type_closure 0x5
|
||||
#define type_code 0x3E
|
||||
#define type_continuation_code 0x23E
|
||||
#define type_exactnum 0x56
|
||||
#define type_fixnum 0x0
|
||||
#define type_flonum 0x2
|
||||
#define type_fxvector 0x3
|
||||
#define type_guardian_code 0x83E
|
||||
#define type_immediate 0x6
|
||||
#define type_immutable_box 0x8E
|
||||
#define type_immutable_bytevector 0x5
|
||||
#define type_immutable_fxvector 0xB
|
||||
#define type_immutable_string 0xA
|
||||
#define type_immutable_vector 0x8
|
||||
#define type_inexactnum 0x36
|
||||
#define type_input_port 0x11E
|
||||
#define type_io_port 0x31E
|
||||
#define type_mutable_box 0xE
|
||||
#define type_mutable_bytevector 0x1
|
||||
#define type_mutable_fxvector 0x3
|
||||
#define type_mutable_string 0x2
|
||||
#define type_mutable_vector 0x0
|
||||
#define type_negative_bignum 0x26
|
||||
#define type_octet 0x0
|
||||
#define type_other_number 0x6
|
||||
#define type_output_port 0x21E
|
||||
#define type_pair 0x1
|
||||
#define type_port 0x1E
|
||||
#define type_positive_bignum 0x6
|
||||
#define type_ratnum 0x16
|
||||
#define type_record 0x7
|
||||
#define type_rtd_counts 0x6E
|
||||
#define type_string 0x2
|
||||
#define type_symbol 0x3
|
||||
#define type_system_code 0x13E
|
||||
#define type_textual_input_port 0x11E
|
||||
#define type_textual_output_port 0x21E
|
||||
#define type_textual_port 0x1E
|
||||
#define type_thread 0x4E
|
||||
#define type_tlc 0x5E
|
||||
#define type_typed_object 0x7
|
||||
#define type_vector 0x0
|
||||
#define typed_object_type_disp 0x1
|
||||
#define typedef_i16 "short"
|
||||
#define typedef_i32 "int"
|
||||
#define typedef_i64 "long"
|
||||
#define typedef_i8 "char"
|
||||
#define typedef_iptr "long int"
|
||||
#define typedef_ptr "void *"
|
||||
#define typedef_string_char "unsigned int"
|
||||
#define typedef_u16 "unsigned short"
|
||||
#define typedef_u32 "unsigned int"
|
||||
#define typedef_u64 "unsigned long"
|
||||
#define typedef_u8 "unsigned char"
|
||||
#define typedef_uptr "unsigned long int"
|
||||
#define typemod 0x8
|
||||
#define unactivate_mode_deactivate 0x1
|
||||
#define unactivate_mode_destroy 0x2
|
||||
#define unactivate_mode_noop 0x0
|
||||
#define unaligned_floats 1
|
||||
#define unaligned_integers 1
|
||||
#define underflow_limit 0x80
|
||||
#define unscaled_shot_1_shot_flag -0x1
|
||||
#define vector_data_disp 0x9
|
||||
#define vector_immutable_flag 0x8
|
||||
#define vector_length_factor 0x10
|
||||
#define vector_length_offset 0x4
|
||||
#define vector_type_disp 0x1
|
||||
#define virtual_register_count 0x10
|
||||
#define wchar_bits 0x20
|
||||
|
||||
/* constants from declare-c-entries */
|
||||
#define CENTRY_Scall_any_results 24
|
||||
#define CENTRY_Scall_one_result 23
|
||||
#define CENTRY_Sreturn 22
|
||||
#define CENTRY_activate_thread 11
|
||||
#define CENTRY_deactivate_thread 12
|
||||
#define CENTRY_foreign_entry 17
|
||||
#define CENTRY_get_more_room 19
|
||||
#define CENTRY_get_thread_context 1
|
||||
#define CENTRY_handle_apply_overflood 2
|
||||
#define CENTRY_handle_arg_error 16
|
||||
#define CENTRY_handle_docall_error 3
|
||||
#define CENTRY_handle_mvlet_error 15
|
||||
#define CENTRY_handle_nonprocedure_symbol 6
|
||||
#define CENTRY_handle_overflood 5
|
||||
#define CENTRY_handle_overflow 4
|
||||
#define CENTRY_handle_values_error 14
|
||||
#define CENTRY_install_library_entry 18
|
||||
#define CENTRY_instantiate_code_object 21
|
||||
#define CENTRY_raw_collect_cond 9
|
||||
#define CENTRY_raw_tc_mutex 10
|
||||
#define CENTRY_scan_remembered_set 20
|
||||
#define CENTRY_split_and_resize 8
|
||||
#define CENTRY_thread_context 0
|
||||
#define CENTRY_thread_list 7
|
||||
#define CENTRY_unactivate_thread 13
|
||||
|
||||
/* displacements for records */
|
||||
#define eq_hashtable_rtd_disp 1
|
||||
#define eq_hashtable_type_disp 9
|
||||
#define eq_hashtable_mutablep_disp 17
|
||||
#define eq_hashtable_vec_disp 25
|
||||
#define eq_hashtable_minlen_disp 33
|
||||
#define eq_hashtable_size_disp 41
|
||||
#define eq_hashtable_subtype_disp 49
|
||||
#define symbol_hashtable_rtd_disp 1
|
||||
#define symbol_hashtable_type_disp 9
|
||||
#define symbol_hashtable_mutablep_disp 17
|
||||
#define symbol_hashtable_vec_disp 25
|
||||
#define symbol_hashtable_minlen_disp 33
|
||||
#define symbol_hashtable_size_disp 41
|
||||
#define symbol_hashtable_equivp_disp 49
|
||||
#define code_info_rtd_disp 1
|
||||
#define code_info_src_disp 9
|
||||
#define code_info_sexpr_disp 17
|
||||
#define code_info_free_disp 25
|
||||
#define code_info_live_disp 33
|
||||
#define code_info_rpis_disp 41
|
||||
|
||||
/* predicates */
|
||||
#define Simmediatep(x) (((uptr)(x)&0x7)==0x6)
|
||||
#define Sportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x1E))
|
||||
#define Scodep(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x3E))
|
||||
|
||||
/* structure accessors */
|
||||
#define INITCAR(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define INITCDR(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define SETCAR(x,y) DIRTYSET(((ptr *)((uptr)(x)+7)),(y))
|
||||
#define SETCDR(x,y) DIRTYSET(((ptr *)((uptr)(x)+15)),(y))
|
||||
#define BOXTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITBOXREF(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define SETBOXREF(x,y) DIRTYSET(((ptr *)((uptr)(x)+9)),(y))
|
||||
#define EPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define INITEPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define EPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define INITEPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define TLCTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define TLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define TLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define TLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define INITTLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITTLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define INITTLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define SETTLCNEXT(x,y) DIRTYSET(((ptr *)((uptr)(x)+25)),(y))
|
||||
#define SYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define SYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define SYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define SYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define INITSYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITSYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITSYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define INITSYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define INITSYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define INITSYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define SETSYMVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define SETSYMPVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SETSYMPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+21)),(y))
|
||||
#define SETSYMNAME(x,y) DIRTYSET(((ptr *)((uptr)(x)+29)),(y))
|
||||
#define SETSYMSPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+37)),(y))
|
||||
#define SETSYMHASH(x,y) DIRTYSET(((ptr *)((uptr)(x)+45)),(y))
|
||||
#define VECTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define SETVECTIT(x,i,y) DIRTYSET((((ptr *)((uptr)(x)+9))+i),(y))
|
||||
#define FXVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define FXVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define BYTEVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BVIT(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
#define INEXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INEXACTNUM_REAL_PART(x) (*((double *)((uptr)(x)+17)))
|
||||
#define INEXACTNUM_IMAG_PART(x) (*((double *)((uptr)(x)+25)))
|
||||
#define EXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define EXACTNUM_REAL_PART(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define EXACTNUM_IMAG_PART(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RATTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RATNUM(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RATDEN(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CLOSENTRY(x) (*((ptr *)((uptr)(x)+3)))
|
||||
#define CLOSIT(x,i) (((ptr *)((uptr)(x)+11))[i])
|
||||
#define FLODAT(x) (*((double *)((uptr)(x)+6)))
|
||||
#define PORTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define PORTNAME(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define PORTHANDLER(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define PORTINFO(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define PORTOCNT(x) (*((iptr *)((uptr)(x)+17)))
|
||||
#define PORTOLAST(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define PORTOBUF(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define PORTICNT(x) (*((iptr *)((uptr)(x)+25)))
|
||||
#define PORTILAST(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define PORTIBUF(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define STRTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define STRIT(x,i) (((string_char *)((uptr)(x)+9))[i])
|
||||
#define BIGTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BIGIT(x,i) (((bigit *)((uptr)(x)+9))[i])
|
||||
#define CODETYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define CODELEN(x) (*((iptr *)((uptr)(x)+9)))
|
||||
#define CODERELOC(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CODENAME(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define CODEARITYMASK(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define CODEFREE(x) (*((iptr *)((uptr)(x)+41)))
|
||||
#define CODEINFO(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define CODEPINFOS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define CODEIT(x,i) (((octet *)((uptr)(x)+65))[i])
|
||||
#define RELOCSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define RELOCCODE(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RELOCIT(x,i) (((uptr *)((uptr)(x)+16))[i])
|
||||
#define CONTSTACK(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define CONTLENGTH(x) (*((iptr *)((uptr)(x)+19)))
|
||||
#define CONTCLENGTH(x) (*((iptr *)((uptr)(x)+27)))
|
||||
#define CONTLINK(x) (*((ptr *)((uptr)(x)+35)))
|
||||
#define CONTRET(x) (*((ptr *)((uptr)(x)+43)))
|
||||
#define CONTWINDERS(x) (*((ptr *)((uptr)(x)+51)))
|
||||
#define RTDCOUNTSTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RTDCOUNTSTIMESTAMP(x) (*((U64 *)((uptr)(x)+9)))
|
||||
#define RTDCOUNTSIT(x,i) (((uptr *)((uptr)(x)+17))[i])
|
||||
#define RECORDDESCPARENT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RECORDDESCSIZE(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RECORDDESCPM(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define RECORDDESCMPM(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define RECORDDESCNAME(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define RECORDDESCFLDS(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define RECORDDESCFLAGS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define RECORDDESCUID(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define RECORDDESCCOUNTS(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define RECORDINSTTYPE(x) (*((ptr *)((uptr)(x)+1)))
|
||||
#define RECORDINSTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define CLOSCODE(p) ((ptr)((uptr)CLOSENTRY(p)-code_data_disp))
|
||||
#define CODEENTRYPOINT(x) ((ptr)((uptr)(x)+code_data_disp))
|
||||
#define SETCLOSCODE(p,x) (CLOSENTRY(p) = CODEENTRYPOINT(x))
|
||||
#define SYMCODE(p) ((ptr)((uptr)SYMPVAL(p)-code_data_disp))
|
||||
#define INITSYMCODE(p,x) (INITSYMPVAL(p) = CODEENTRYPOINT(x))
|
||||
#define SETSYMCODE(p,x) SETSYMPVAL(p,CODEENTRYPOINT(x))
|
||||
#define BIGLEN(x) ((iptr)((uptr)BIGTYPE(x) >> bignum_length_offset))
|
||||
#define BIGSIGN(x) ((BIGTYPE(x) & mask_bignum_sign) >> bignum_sign_offset)
|
||||
#define SETBIGLENANDSIGN(x,xl,xs) BIGTYPE(x) = (uptr)(xl) << bignum_length_offset | (xs) << bignum_sign_offset | type_bignum
|
||||
#define CLOSLEN(p) CODEFREE(CLOSCODE(p))
|
||||
#define GUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define GUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define GUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define GUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define INITGUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define INITGUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define INITGUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define INITGUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define FORWARDMARKER(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define FORWARDADDRESS(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define CACHEDSTACKSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define CACHEDSTACKLINK(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RPHEADERFRAMESIZE(x) (*((iptr *)((uptr)(x)+16)))
|
||||
#define RPHEADERLIVEMASK(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define RPHEADERTOPLINK(x) (*((uptr *)((uptr)(x)+8)))
|
||||
|
||||
/* machine types */
|
||||
#define machine_type_names {"any", "i3le", "ti3le", "i3nt", "ti3nt", "i3fb", "ti3fb", "i3ob", "ti3ob", "i3osx", "ti3osx", "a6le", "ta6le", "a6osx", "ta6osx", "a6ob", "ta6ob", "a6s2", "ta6s2", "i3s2", "ti3s2", "a6fb", "ta6fb", "i3nb", "ti3nb", "a6nb", "ta6nb", "a6nt", "ta6nt", "i3qnx", "ti3qnx", "arm32le", "tarm32le", "ppc32le", "tppc32le"}
|
||||
|
||||
/* allocation-space names */
|
||||
#define alloc_space_names "new", "impure", "symbol", "port", "weakpr", "emph", "pure", "cont", "code", "p-tobj", "ip-rec", "data", "empty"
|
||||
|
||||
/* allocation-space characters */
|
||||
#define alloc_space_chars 'n', 'i', 'x', 'q', 'w', 'e', 'p', 'k', 'c', 'r', 's', 'd', 'e'
|
||||
|
||||
/* threads */
|
||||
#define THREADTC(x) (*((uptr *)((uptr)(x)+9)))
|
||||
|
||||
/* thread-context data */
|
||||
#define DSTBV(x) (*((ptr *)((uptr)(x)+680)))
|
||||
#define SRCBV(x) (*((ptr *)((uptr)(x)+688)))
|
||||
#define U(x) (*((ptr *)((uptr)(x)+352)))
|
||||
#define V(x) (*((ptr *)((uptr)(x)+360)))
|
||||
#define W(x) (*((ptr *)((uptr)(x)+368)))
|
||||
#define X(x) (*((ptr *)((uptr)(x)+376)))
|
||||
#define Y(x) (*((ptr *)((uptr)(x)+384)))
|
||||
#define AC0(x) (*((void* *)((uptr)(x)+40)))
|
||||
#define AC1(x) (*((void* *)((uptr)(x)+48)))
|
||||
#define ACTIVE(x) (*((I32 *)((uptr)(x)+308)))
|
||||
#define ALLOCCOUNTER(x) (*((U64 *)((uptr)(x)+664)))
|
||||
#define AP(x) (*((void* *)((uptr)(x)+80)))
|
||||
#define ARGREGS(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define BLOCKCOUNTER(x) (*((ptr *)((uptr)(x)+472)))
|
||||
#define CCHAIN(x) (*((ptr *)((uptr)(x)+288)))
|
||||
#define CODERANGESTOFLUSH(x) (*((ptr *)((uptr)(x)+296)))
|
||||
#define COMPILEPROFILE(x) (*((ptr *)((uptr)(x)+560)))
|
||||
#define COMPRESSFORMAT(x) (*((ptr *)((uptr)(x)+632)))
|
||||
#define COMPRESSLEVEL(x) (*((ptr *)((uptr)(x)+640)))
|
||||
#define CP(x) (*((void* *)((uptr)(x)+64)))
|
||||
#define CURRENTERROR(x) (*((ptr *)((uptr)(x)+464)))
|
||||
#define CURRENTINPUT(x) (*((ptr *)((uptr)(x)+448)))
|
||||
#define CURRENTMSO(x) (*((ptr *)((uptr)(x)+488)))
|
||||
#define CURRENTOUTPUT(x) (*((ptr *)((uptr)(x)+456)))
|
||||
#define DEFAULTRECORDEQUALPROCEDURE(x) (*((ptr *)((uptr)(x)+616)))
|
||||
#define DEFAULTRECORDHASHPROCEDURE(x) (*((ptr *)((uptr)(x)+624)))
|
||||
#define DISABLECOUNT(x) (*((ptr *)((uptr)(x)+408)))
|
||||
#define EAP(x) (*((void* *)((uptr)(x)+88)))
|
||||
#define ESP(x) (*((void* *)((uptr)(x)+72)))
|
||||
#define FXFIRSTBITSETBV(x) (*((ptr *)((uptr)(x)+512)))
|
||||
#define FXLENGTHBV(x) (*((ptr *)((uptr)(x)+504)))
|
||||
#define GENERATEINSPECTORINFORMATION(x) (*((ptr *)((uptr)(x)+568)))
|
||||
#define GENERATEPROCEDURESOURCEINFORMATION(x) (*((ptr *)((uptr)(x)+576)))
|
||||
#define GENERATEPROFILEFORMS(x) (*((ptr *)((uptr)(x)+584)))
|
||||
#define GUARDIANENTRIES(x) (*((ptr *)((uptr)(x)+280)))
|
||||
#define INSTRCOUNTER(x) (*((U64 *)((uptr)(x)+656)))
|
||||
#define KEYBOARDINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+432)))
|
||||
#define LZ4OUTBUFFER(x) (*((void* *)((uptr)(x)+648)))
|
||||
#define METALEVEL(x) (*((ptr *)((uptr)(x)+552)))
|
||||
#define NULLIMMUTABLEBYTEVECTOR(x) (*((ptr *)((uptr)(x)+536)))
|
||||
#define NULLIMMUTABLEFXVECTOR(x) (*((ptr *)((uptr)(x)+528)))
|
||||
#define NULLIMMUTABLESTRING(x) (*((ptr *)((uptr)(x)+544)))
|
||||
#define NULLIMMUTABLEVECTOR(x) (*((ptr *)((uptr)(x)+520)))
|
||||
#define OPTIMIZELEVEL(x) (*((ptr *)((uptr)(x)+592)))
|
||||
#define PARAMETERS(x) (*((ptr *)((uptr)(x)+672)))
|
||||
#define RANDOMSEED(x) (*((U32 *)((uptr)(x)+304)))
|
||||
#define REAL_EAP(x) (*((void* *)((uptr)(x)+144)))
|
||||
#define RET(x) (*((void* *)((uptr)(x)+96)))
|
||||
#define SCHEMESTACK(x) (*((void* *)((uptr)(x)+312)))
|
||||
#define SCHEMESTACKSIZE(x) (*((iptr *)((uptr)(x)+336)))
|
||||
#define SFD(x) (*((ptr *)((uptr)(x)+480)))
|
||||
#define SFP(x) (*((void* *)((uptr)(x)+56)))
|
||||
#define SIGNALINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+416)))
|
||||
#define SIGNALINTERRUPTQUEUE(x) (*((ptr *)((uptr)(x)+424)))
|
||||
#define SOMETHINGPENDING(x) (*((ptr *)((uptr)(x)+392)))
|
||||
#define STACKCACHE(x) (*((ptr *)((uptr)(x)+320)))
|
||||
#define STACKLINK(x) (*((ptr *)((uptr)(x)+328)))
|
||||
#define SUBSETMODE(x) (*((ptr *)((uptr)(x)+600)))
|
||||
#define SUPPRESSPRIMITIVEINLINING(x) (*((ptr *)((uptr)(x)+608)))
|
||||
#define TARGETMACHINE(x) (*((ptr *)((uptr)(x)+496)))
|
||||
#define TD(x) (*((void* *)((uptr)(x)+136)))
|
||||
#define THREADNO(x) (*((ptr *)((uptr)(x)+440)))
|
||||
#define TIMERTICKS(x) (*((ptr *)((uptr)(x)+400)))
|
||||
#define TRAP(x) (*((void* *)((uptr)(x)+104)))
|
||||
#define TS(x) (*((void* *)((uptr)(x)+128)))
|
||||
#define VIRTUALREGISTERS(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
#define WINDERS(x) (*((ptr *)((uptr)(x)+344)))
|
||||
#define XP(x) (*((void* *)((uptr)(x)+112)))
|
||||
#define YP(x) (*((void* *)((uptr)(x)+120)))
|
||||
#define ARGREG(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define VIRTREG(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
|
||||
/* library entries we access from C code */
|
||||
#define library_nonprocedure_code 152
|
||||
#define library_dounderflow 154
|
||||
BIN
boot/a6osx/petite.boot
Normal file
BIN
boot/a6osx/petite.boot
Normal file
Binary file not shown.
BIN
boot/a6osx/scheme.boot
Normal file
BIN
boot/a6osx/scheme.boot
Normal file
Binary file not shown.
239
boot/a6osx/scheme.h
Normal file
239
boot/a6osx/scheme.h
Normal file
|
|
@ -0,0 +1,239 @@
|
|||
/* scheme.h for Chez Scheme Version 9.5.9 (a6osx) */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct scheme.h */
|
||||
/* for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Specify declaration of exports. */
|
||||
#ifdef _WIN32
|
||||
# if __cplusplus
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern "C" __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern "C" __declspec (dllexport)
|
||||
# endif
|
||||
# else
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern
|
||||
# else
|
||||
# define EXPORT extern __declspec (dllexport)
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# if __cplusplus
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern
|
||||
# endif
|
||||
#endif
|
||||
|
||||
/* Chez Scheme Version and machine type */
|
||||
#define VERSION "9.5.9"
|
||||
#define MACHINE_TYPE "a6osx"
|
||||
|
||||
/* All Scheme objects are of type ptr. Type iptr and */
|
||||
/* uptr are signed and unsigned ints of the same size */
|
||||
/* as a ptr */
|
||||
typedef void * ptr;
|
||||
typedef long int iptr;
|
||||
typedef unsigned long int uptr;
|
||||
|
||||
/* String elements are 32-bit tagged char objects */
|
||||
typedef unsigned int string_char;
|
||||
|
||||
/* Bytevector elements are 8-bit unsigned "octets" */
|
||||
typedef unsigned char octet;
|
||||
|
||||
/* Type predicates */
|
||||
#define Sfixnump(x) (((uptr)(x)&0x7)==0x0)
|
||||
#define Scharp(x) (((uptr)(x)&0xFF)==0x16)
|
||||
#define Snullp(x) ((uptr)(x)==0x26)
|
||||
#define Seof_objectp(x) ((uptr)(x)==0x36)
|
||||
#define Sbwp_objectp(x) ((uptr)(x)==0x4E)
|
||||
#define Sbooleanp(x) (((uptr)(x)&0xF7)==0x6)
|
||||
#define Spairp(x) (((uptr)(x)&0x7)==0x1)
|
||||
#define Ssymbolp(x) (((uptr)(x)&0x7)==0x3)
|
||||
#define Sprocedurep(x) (((uptr)(x)&0x7)==0x5)
|
||||
#define Sflonump(x) (((uptr)(x)&0x7)==0x2)
|
||||
#define Svectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x0))
|
||||
#define Sfxvectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x3))
|
||||
#define Sbytevectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x1))
|
||||
#define Sstringp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x2))
|
||||
#define Sbignump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1F)==0x6))
|
||||
#define Sboxp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7F)==0xE))
|
||||
#define Sinexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x36))
|
||||
#define Sexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x56))
|
||||
#define Sratnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x16))
|
||||
#define Sinputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1FF)==0x11E))
|
||||
#define Soutputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x2FF)==0x21E))
|
||||
#define Srecordp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x7))
|
||||
|
||||
/* Accessors */
|
||||
#define Sfixnum_value(x) ((iptr)(x)/8)
|
||||
#define Schar_value(x) ((string_char)((uptr)(x)>>8))
|
||||
#define Sboolean_value(x) ((x) != Sfalse)
|
||||
#define Scar(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define Scdr(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define Sflonum_value(x) (*((double *)((uptr)(x)+6)))
|
||||
#define Svector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Svector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sfxvector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sfxvector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sbytevector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Sbytevector_u8_ref(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
/* Warning: Sbytevector_data(x) returns a pointer into x. */
|
||||
#define Sbytevector_data(x) &Sbytevector_u8_ref(x,0)
|
||||
#define Sstring_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sstring_ref(x,i) Schar_value(((string_char *)((uptr)(x)+9))[i])
|
||||
#define Sunbox(x) (*((ptr *)((uptr)(x)+9)))
|
||||
EXPORT iptr Sinteger_value(ptr);
|
||||
#define Sunsigned_value(x) (uptr)Sinteger_value(x)
|
||||
EXPORT int Sinteger32_value(ptr);
|
||||
#define Sunsigned32_value(x) (unsigned int)Sinteger32_value(x)
|
||||
EXPORT long Sinteger64_value(ptr);
|
||||
#define Sunsigned64_value(x) (unsigned long)Sinteger64_value(x)
|
||||
|
||||
/* Mutators */
|
||||
EXPORT void Sset_box(ptr, ptr);
|
||||
EXPORT void Sset_car(ptr, ptr);
|
||||
EXPORT void Sset_cdr(ptr, ptr);
|
||||
#define Sstring_set(x,i,c) ((void)((((string_char *)((uptr)(x)+9))[i]) = (string_char)(uptr)Schar(c)))
|
||||
#define Sfxvector_set(x,i,n) ((void)(Sfxvector_ref(x,i) = (n)))
|
||||
#define Sbytevector_u8_set(x,i,n) ((void)(Sbytevector_u8_ref(x,i) = (n)))
|
||||
EXPORT void Svector_set(ptr, iptr, ptr);
|
||||
|
||||
/* Constructors */
|
||||
#define Sfixnum(x) ((ptr)(uptr)((x)*8))
|
||||
#define Schar(x) ((ptr)(uptr)((x)<<8|0x16))
|
||||
#define Snil ((ptr)0x26)
|
||||
#define Strue ((ptr)0xE)
|
||||
#define Sfalse ((ptr)0x6)
|
||||
#define Sboolean(x) ((x)?Strue:Sfalse)
|
||||
#define Sbwp_object ((ptr)0x4E)
|
||||
#define Seof_object ((ptr)0x36)
|
||||
#define Svoid ((ptr)0x3E)
|
||||
EXPORT ptr Scons(ptr, ptr);
|
||||
EXPORT ptr Sstring_to_symbol(const char *);
|
||||
EXPORT ptr Ssymbol_to_string(ptr);
|
||||
EXPORT ptr Sflonum(double);
|
||||
EXPORT ptr Smake_vector(iptr, ptr);
|
||||
EXPORT ptr Smake_fxvector(iptr, ptr);
|
||||
EXPORT ptr Smake_bytevector(iptr, int);
|
||||
EXPORT ptr Smake_string(iptr, int);
|
||||
EXPORT ptr Smake_uninitialized_string(iptr);
|
||||
EXPORT ptr Sstring(const char *);
|
||||
EXPORT ptr Sstring_of_length(const char *, iptr);
|
||||
EXPORT ptr Sstring_utf8(const char*, iptr);
|
||||
EXPORT ptr Sbox(ptr);
|
||||
EXPORT ptr Sinteger(iptr);
|
||||
EXPORT ptr Sunsigned(uptr);
|
||||
EXPORT ptr Sinteger32(int);
|
||||
EXPORT ptr Sunsigned32(unsigned int);
|
||||
EXPORT ptr Sinteger64(long);
|
||||
EXPORT ptr Sunsigned64(unsigned long);
|
||||
|
||||
/* Miscellaneous */
|
||||
EXPORT ptr Stop_level_value(ptr);
|
||||
EXPORT void Sset_top_level_value(ptr, ptr);
|
||||
EXPORT void Slock_object(ptr);
|
||||
EXPORT void Sunlock_object(ptr);
|
||||
EXPORT int Slocked_objectp(ptr);
|
||||
EXPORT void Sforeign_symbol(const char *, void *);
|
||||
EXPORT void Sregister_symbol(const char *, void *);
|
||||
|
||||
/* Support for calls into Scheme */
|
||||
EXPORT ptr Scall0(ptr);
|
||||
EXPORT ptr Scall1(ptr, ptr);
|
||||
EXPORT ptr Scall2(ptr, ptr, ptr);
|
||||
EXPORT ptr Scall3(ptr, ptr, ptr, ptr);
|
||||
EXPORT void Sinitframe(iptr);
|
||||
EXPORT void Sput_arg(iptr, ptr);
|
||||
EXPORT ptr Scall(ptr, iptr);
|
||||
/* Warning: Sforeign_callable_entry_point(x) returns a pointer into x. */
|
||||
#define Sforeign_callable_entry_point(x) ((void (*)(void))((uptr)(x)+65))
|
||||
#define Sforeign_callable_code_object(x) ((ptr)((uptr)(x)-65))
|
||||
|
||||
/* Customization support. */
|
||||
EXPORT const char * Skernel_version(void);
|
||||
EXPORT void Sretain_static_relocation(void);
|
||||
EXPORT void Sset_verbose(int);
|
||||
EXPORT void Sscheme_init(void (*)(void));
|
||||
EXPORT void Sregister_boot_file(const char *);
|
||||
EXPORT void Sregister_boot_file_fd(const char *, int fd);
|
||||
EXPORT void Sregister_heap_file(const char *);
|
||||
EXPORT void Scompact_heap(void);
|
||||
EXPORT void Ssave_heap(const char *, int);
|
||||
EXPORT void Sbuild_heap(const char *, void (*)(void));
|
||||
EXPORT void Senable_expeditor(const char *);
|
||||
EXPORT int Sscheme_start(int, const char *[]);
|
||||
EXPORT int Sscheme_script(const char *, int, const char *[]);
|
||||
EXPORT int Sscheme_program(const char *, int, const char *[]);
|
||||
EXPORT void Sscheme_deinit(void);
|
||||
|
||||
/* Features. */
|
||||
#define FEATURE_ICONV
|
||||
#define FEATURE_EXPEDITOR
|
||||
|
||||
/* Locking macros. */
|
||||
#define INITLOCK(addr) \
|
||||
__asm__ __volatile__ ("movq $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "memory")
|
||||
|
||||
#define SPINLOCK(addr) \
|
||||
__asm__ __volatile__ ("0:\n\t"\
|
||||
"movq $1, %%rax\n\t"\
|
||||
"xchgq (%0), %%rax\n\t"\
|
||||
"cmpq $0, %%rax\n\t"\
|
||||
"je 2f\n\t"\
|
||||
"1:\n\t"\
|
||||
"pause\n\t"\
|
||||
"cmpq $0, (%0)\n\t"\
|
||||
"je 0b\n\t"\
|
||||
"jmp 1b\n\t"\
|
||||
"2:"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "rax", "flags", "memory")
|
||||
|
||||
#define UNLOCK(addr) \
|
||||
__asm__ __volatile__ ("movq $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
:"memory")
|
||||
|
||||
#define LOCKED_INCR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; incq (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
|
||||
#define LOCKED_DECR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; decq (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
991
boot/arm32le/equates.h
Normal file
991
boot/arm32le/equates.h
Normal file
|
|
@ -0,0 +1,991 @@
|
|||
/* equates.h for Chez Scheme Version 9.5.9 */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct version */
|
||||
/* of this file for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Integer typedefs */
|
||||
typedef char I8;
|
||||
typedef unsigned char U8;
|
||||
typedef short I16;
|
||||
typedef unsigned short U16;
|
||||
typedef int I32;
|
||||
typedef unsigned int U32;
|
||||
typedef long long I64;
|
||||
typedef unsigned long long U64;
|
||||
|
||||
/* constants from cmacros.ss */
|
||||
#define $c_func_closure_index 0x4
|
||||
#define $c_func_closure_record_index 0x3
|
||||
#define $c_func_code_object_index 0x2
|
||||
#define $c_func_code_record_index 0x1
|
||||
#define COMPRESS_FORMAT_BITS 0x3
|
||||
#define COMPRESS_GZIP 0x0
|
||||
#define COMPRESS_HIGH 0x3
|
||||
#define COMPRESS_LOW 0x1
|
||||
#define COMPRESS_LZ4 0x1
|
||||
#define COMPRESS_MAX 0x4
|
||||
#define COMPRESS_MEDIUM 0x2
|
||||
#define COMPRESS_MIN 0x0
|
||||
#define ERROR_CALL_ARGUMENT_COUNT 0x4
|
||||
#define ERROR_CALL_NONPROCEDURE 0x3
|
||||
#define ERROR_CALL_NONPROCEDURE_SYMBOL 0x2
|
||||
#define ERROR_CALL_UNBOUND 0x1
|
||||
#define ERROR_MVLET 0x8
|
||||
#define ERROR_NONCONTINUABLE_INTERRUPT 0x6
|
||||
#define ERROR_OTHER 0x0
|
||||
#define ERROR_RESET 0x5
|
||||
#define ERROR_VALUES 0x7
|
||||
#define OPEN_ERROR_EXISTS 0x2
|
||||
#define OPEN_ERROR_EXISTSNOT 0x3
|
||||
#define OPEN_ERROR_OTHER 0x0
|
||||
#define OPEN_ERROR_PROTECTION 0x1
|
||||
#define PORT_FLAG_BINARY 0x400
|
||||
#define PORT_FLAG_BLOCK_BUFFERED 0x20000
|
||||
#define PORT_FLAG_BOL 0x8000
|
||||
#define PORT_FLAG_CHAR_POSITIONS 0x100000
|
||||
#define PORT_FLAG_CLOSED 0x800
|
||||
#define PORT_FLAG_COMPRESSED 0x2000
|
||||
#define PORT_FLAG_EOF 0x10000
|
||||
#define PORT_FLAG_EXCLUSIVE 0x4000
|
||||
#define PORT_FLAG_FILE 0x1000
|
||||
#define PORT_FLAG_FOLD_CASE 0x400000
|
||||
#define PORT_FLAG_INPUT 0x100
|
||||
#define PORT_FLAG_INPUT_MODE 0x80000
|
||||
#define PORT_FLAG_LINE_BUFFERED 0x40000
|
||||
#define PORT_FLAG_NO_FOLD_CASE 0x800000
|
||||
#define PORT_FLAG_OUTPUT 0x200
|
||||
#define PORT_FLAG_R6RS 0x200000
|
||||
#define SAPPEND 0x3
|
||||
#define SDEFAULT 0x4
|
||||
#define SEOF -0x1
|
||||
#define SERROR 0x0
|
||||
#define SICONV_DUNNO 0x0
|
||||
#define SICONV_INCOMPLETE 0x2
|
||||
#define SICONV_INVALID 0x1
|
||||
#define SICONV_NOROOM 0x3
|
||||
#define SREPLACE 0x2
|
||||
#define STRVNCATE 0x1
|
||||
#define address_bits 0x20
|
||||
#define alloc_waste_maximum 0x400
|
||||
#define annotation_all 0x3
|
||||
#define annotation_debug 0x1
|
||||
#define annotation_profile 0x2
|
||||
#define architecture arm32
|
||||
#define asm_arg_reg_cnt 0x3
|
||||
#define asm_arg_reg_max 0x5
|
||||
#define bigit_bits 0x20
|
||||
#define bigit_bytes 0x4
|
||||
#define bignum_data_disp 0x5
|
||||
#define bignum_length_factor 0x40
|
||||
#define bignum_length_offset 0x6
|
||||
#define bignum_sign_offset 0x5
|
||||
#define bignum_type_disp 0x1
|
||||
#define black_hole (ptr)0x46
|
||||
#define box_ref_disp 0x5
|
||||
#define box_type_disp 0x1
|
||||
#define byte_alignment 0x8
|
||||
#define byte_constant_mask 0xFFFFFFFF
|
||||
#define bytes_per_card 0x100
|
||||
#define bytes_per_segment 0x2000
|
||||
#define bytevector_data_disp 0x9
|
||||
#define bytevector_immutable_flag 0x4
|
||||
#define bytevector_length_factor 0x8
|
||||
#define bytevector_length_offset 0x3
|
||||
#define bytevector_pad_disp 0x5
|
||||
#define bytevector_type_disp 0x1
|
||||
#define c_entry_name_vector #(thread-context get-thread-context handle-apply-overflood handle-docall-error handle-overflow handle-overflood handle-nonprocedure-symbol thread-list split-and-resize raw-collect-cond raw-tc-mutex activate-thread deactivate-thread unactivate-thread handle-values-error handle-mvlet-error handle-arg-error foreign-entry install-library-entry get-more-room scan-remembered-set instantiate-code-object Sreturn Scall-one-result Scall-any-results)
|
||||
#define c_entry_vector_size 0x19
|
||||
#define cached_stack_link_disp 0x4
|
||||
#define cached_stack_size_disp 0x0
|
||||
#define card_offset_bits 0x8
|
||||
#define cards_per_segment 0x20
|
||||
#define char_data_offset 0x8
|
||||
#define char_factor 0x100
|
||||
#define closure_code_disp 0x3
|
||||
#define closure_data_disp 0x7
|
||||
#define code_arity_mask_disp 0x11
|
||||
#define code_closure_length_disp 0x15
|
||||
#define code_data_disp 0x21
|
||||
#define code_flag_continuation 0x2
|
||||
#define code_flag_guardian 0x8
|
||||
#define code_flag_system 0x1
|
||||
#define code_flag_template 0x4
|
||||
#define code_flags_offset 0x8
|
||||
#define code_info_disp 0x19
|
||||
#define code_length_disp 0x5
|
||||
#define code_name_disp 0xD
|
||||
#define code_pinfos_disp 0x1D
|
||||
#define code_reloc_disp 0x9
|
||||
#define code_type_disp 0x1
|
||||
#define collect_interrupt_index 0x1
|
||||
#define continuation_code_disp 0x3
|
||||
#define continuation_link_disp 0x13
|
||||
#define continuation_return_address_disp 0x17
|
||||
#define continuation_stack_clength_disp 0xF
|
||||
#define continuation_stack_disp 0x7
|
||||
#define continuation_stack_length_disp 0xB
|
||||
#define continuation_winders_disp 0x1B
|
||||
#define countof_bignum 0x5
|
||||
#define countof_box 0x9
|
||||
#define countof_bytevector 0x15
|
||||
#define countof_closure 0x3
|
||||
#define countof_code 0xB
|
||||
#define countof_continuation 0x4
|
||||
#define countof_ephemeron 0x19
|
||||
#define countof_exactnum 0x8
|
||||
#define countof_flonum 0x2
|
||||
#define countof_fxvector 0x14
|
||||
#define countof_guardian 0x17
|
||||
#define countof_inexactnum 0x7
|
||||
#define countof_locked 0x16
|
||||
#define countof_oblist 0x18
|
||||
#define countof_pair 0x0
|
||||
#define countof_port 0xA
|
||||
#define countof_ratnum 0x6
|
||||
#define countof_relocation_table 0x10
|
||||
#define countof_rtd_counts 0xE
|
||||
#define countof_stack 0xF
|
||||
#define countof_string 0x13
|
||||
#define countof_symbol 0x1
|
||||
#define countof_thread 0xC
|
||||
#define countof_tlc 0xD
|
||||
#define countof_types 0x1A
|
||||
#define countof_vector 0x12
|
||||
#define countof_weakpair 0x11
|
||||
#define default_collect_trip_bytes 0x400000
|
||||
#define default_heap_reserve_ratio 1.0
|
||||
#define default_max_nonstatic_generation 0x4
|
||||
#define default_stack_size 0x7FF8
|
||||
#define default_timer_ticks 0x3E8
|
||||
#define dtvec_hour 0x3
|
||||
#define dtvec_isdst 0x9
|
||||
#define dtvec_mday 0x4
|
||||
#define dtvec_min 0x2
|
||||
#define dtvec_mon 0x5
|
||||
#define dtvec_nsec 0x0
|
||||
#define dtvec_sec 0x1
|
||||
#define dtvec_size 0xC
|
||||
#define dtvec_tzname 0xB
|
||||
#define dtvec_tzoff 0xA
|
||||
#define dtvec_wday 0x7
|
||||
#define dtvec_yday 0x8
|
||||
#define dtvec_year 0x6
|
||||
#define ephemeron_car_disp 0x7
|
||||
#define ephemeron_cdr_disp 0xB
|
||||
#define ephemeron_next_disp 0xF
|
||||
#define ephemeron_trigger_next_disp 0x13
|
||||
#define eq_hashtable_subtype_ephemeron 0x2
|
||||
#define eq_hashtable_subtype_normal 0x0
|
||||
#define eq_hashtable_subtype_weak 0x1
|
||||
#define exactnum_imag_disp 0x9
|
||||
#define exactnum_real_disp 0x5
|
||||
#define exactnum_type_disp 0x1
|
||||
#define fasl_fld_double 0xA
|
||||
#define fasl_fld_i16 0x2
|
||||
#define fasl_fld_i24 0x3
|
||||
#define fasl_fld_i32 0x4
|
||||
#define fasl_fld_i40 0x5
|
||||
#define fasl_fld_i48 0x6
|
||||
#define fasl_fld_i56 0x7
|
||||
#define fasl_fld_i64 0x8
|
||||
#define fasl_fld_ptr 0x0
|
||||
#define fasl_fld_single 0x9
|
||||
#define fasl_fld_u8 0x1
|
||||
#define fasl_header #vu8(0 0 0 0 99 104 101 122)
|
||||
#define fasl_type_base_rtd 0x1A
|
||||
#define fasl_type_box 0x1
|
||||
#define fasl_type_bytevector 0x1D
|
||||
#define fasl_type_closure 0x6
|
||||
#define fasl_type_code 0xB
|
||||
#define fasl_type_entry 0xD
|
||||
#define fasl_type_ephemeron 0x1C
|
||||
#define fasl_type_eq_hashtable 0x1F
|
||||
#define fasl_type_exactnum 0x14
|
||||
#define fasl_type_flonum 0x8
|
||||
#define fasl_type_fxvector 0x1B
|
||||
#define fasl_type_gensym 0x13
|
||||
#define fasl_type_graph 0x10
|
||||
#define fasl_type_graph_def 0x11
|
||||
#define fasl_type_graph_ref 0x12
|
||||
#define fasl_type_gzip 0x2B
|
||||
#define fasl_type_header 0x0
|
||||
#define fasl_type_immediate 0xC
|
||||
#define fasl_type_immutable_box 0x29
|
||||
#define fasl_type_immutable_bytevector 0x28
|
||||
#define fasl_type_immutable_fxvector 0x27
|
||||
#define fasl_type_immutable_string 0x26
|
||||
#define fasl_type_immutable_vector 0x25
|
||||
#define fasl_type_inexactnum 0x5
|
||||
#define fasl_type_large_integer 0xA
|
||||
#define fasl_type_library 0xE
|
||||
#define fasl_type_library_code 0xF
|
||||
#define fasl_type_lz4 0x2C
|
||||
#define fasl_type_pair 0x7
|
||||
#define fasl_type_ratnum 0x3
|
||||
#define fasl_type_record 0x17
|
||||
#define fasl_type_revisit 0x23
|
||||
#define fasl_type_rtd 0x18
|
||||
#define fasl_type_small_integer 0x19
|
||||
#define fasl_type_string 0x9
|
||||
#define fasl_type_symbol 0x2
|
||||
#define fasl_type_symbol_hashtable 0x20
|
||||
#define fasl_type_uncompressed 0x2A
|
||||
#define fasl_type_vector 0x4
|
||||
#define fasl_type_visit 0x22
|
||||
#define fasl_type_visit_revisit 0x24
|
||||
#define fasl_type_weak_pair 0x1E
|
||||
#define fixnum_bits 0x1E
|
||||
#define fixnum_factor 0x4
|
||||
#define fixnum_offset 0x2
|
||||
#define fld_byte_index 0x4
|
||||
#define fld_mutablep_index 0x2
|
||||
#define fld_name_index 0x1
|
||||
#define fld_type_index 0x3
|
||||
#define flonum_data_disp 0x6
|
||||
#define forward_address_disp 0x4
|
||||
#define forward_marker (ptr)0x2E
|
||||
#define forward_marker_disp 0x0
|
||||
#define ftype_guardian_rep (ptr)0x56
|
||||
#define fxvector_data_disp 0x5
|
||||
#define fxvector_immutable_flag 0x8
|
||||
#define fxvector_length_factor 0x10
|
||||
#define fxvector_length_offset 0x4
|
||||
#define fxvector_type_disp 0x1
|
||||
#define guardian_entry_next_disp 0xC
|
||||
#define guardian_entry_obj_disp 0x0
|
||||
#define guardian_entry_rep_disp 0x4
|
||||
#define guardian_entry_tconc_disp 0x8
|
||||
#define hashtable_default_size 0x8
|
||||
#define header_size_bignum 0x4
|
||||
#define header_size_bytevector 0x8
|
||||
#define header_size_closure 0x4
|
||||
#define header_size_code 0x20
|
||||
#define header_size_fxvector 0x4
|
||||
#define header_size_record 0x4
|
||||
#define header_size_reloc_table 0x8
|
||||
#define header_size_string 0x4
|
||||
#define header_size_vector 0x4
|
||||
#define ignore_event_flag 0x0
|
||||
#define inexactnum_imag_disp 0x11
|
||||
#define inexactnum_pad_disp 0x5
|
||||
#define inexactnum_real_disp 0x9
|
||||
#define inexactnum_type_disp 0x1
|
||||
#define int_bits 0x20
|
||||
#define keyboard_interrupt_index 0x3
|
||||
#define library_entry_vector_size 0x210
|
||||
#define libspec_closure_index 0xD
|
||||
#define libspec_does_not_expect_headroom_index 0x0
|
||||
#define libspec_error_index 0xE
|
||||
#define libspec_fake_index 0x10
|
||||
#define libspec_flags_index 0x2
|
||||
#define libspec_has_does_not_expect_headroom_version_index 0xF
|
||||
#define libspec_index_base_offset 0x1
|
||||
#define libspec_index_base_size 0x9
|
||||
#define libspec_index_offset 0x0
|
||||
#define libspec_index_size 0xA
|
||||
#define libspec_interface_offset 0xA
|
||||
#define libspec_interface_size 0x3
|
||||
#define libspec_name_index 0x1
|
||||
#define log2_ptr_bytes 0x2
|
||||
#define long_bits 0x20
|
||||
#define long_long_bits 0x40
|
||||
#define machine_type 0x1F
|
||||
#define machine_type_a6fb 0x15
|
||||
#define machine_type_a6le 0xB
|
||||
#define machine_type_a6nb 0x19
|
||||
#define machine_type_a6nt 0x1B
|
||||
#define machine_type_a6ob 0xF
|
||||
#define machine_type_a6osx 0xD
|
||||
#define machine_type_a6s2 0x11
|
||||
#define machine_type_alist ((0 . any) (1 . i3le) (2 . ti3le) (3 . i3nt) (4 . ti3nt) (5 . i3fb) (6 . ti3fb) (7 . i3ob) (8 . ti3ob) (9 . i3osx) (10 . ti3osx) (11 . a6le) (12 . ta6le) (13 . a6osx) (14 . ta6osx) (15 . a6ob) (16 . ta6ob) (17 . a6s2) (18 . ta6s2) (19 . i3s2) (20 . ti3s2) (21 . a6fb) (22 . ta6fb) (23 . i3nb) (24 . ti3nb) (25 . a6nb) (26 . ta6nb) (27 . a6nt) (28 . ta6nt) (29 . i3qnx) (30 . ti3qnx) (31 . arm32le) (32 . tarm32le) (33 . ppc32le) (34 . tppc32le))
|
||||
#define machine_type_any 0x0
|
||||
#define machine_type_arm32le 0x1F
|
||||
#define machine_type_i3fb 0x5
|
||||
#define machine_type_i3le 0x1
|
||||
#define machine_type_i3nb 0x17
|
||||
#define machine_type_i3nt 0x3
|
||||
#define machine_type_i3ob 0x7
|
||||
#define machine_type_i3osx 0x9
|
||||
#define machine_type_i3qnx 0x1D
|
||||
#define machine_type_i3s2 0x13
|
||||
#define machine_type_limit 0x23
|
||||
#define machine_type_name arm32le
|
||||
#define machine_type_ppc32le 0x21
|
||||
#define machine_type_ta6fb 0x16
|
||||
#define machine_type_ta6le 0xC
|
||||
#define machine_type_ta6nb 0x1A
|
||||
#define machine_type_ta6nt 0x1C
|
||||
#define machine_type_ta6ob 0x10
|
||||
#define machine_type_ta6osx 0xE
|
||||
#define machine_type_ta6s2 0x12
|
||||
#define machine_type_tarm32le 0x20
|
||||
#define machine_type_ti3fb 0x6
|
||||
#define machine_type_ti3le 0x2
|
||||
#define machine_type_ti3nb 0x18
|
||||
#define machine_type_ti3nt 0x4
|
||||
#define machine_type_ti3ob 0x8
|
||||
#define machine_type_ti3osx 0xA
|
||||
#define machine_type_ti3qnx 0x1E
|
||||
#define machine_type_ti3s2 0x14
|
||||
#define machine_type_tppc32le 0x22
|
||||
#define mask_bignum 0x1F
|
||||
#define mask_bignum_sign 0x20
|
||||
#define mask_binary_input_port 0x5FF
|
||||
#define mask_binary_output_port 0x6FF
|
||||
#define mask_binary_port 0x4FF
|
||||
#define mask_boolean 0xF7
|
||||
#define mask_box 0x7F
|
||||
#define mask_bwp 0xFFFFFFFF
|
||||
#define mask_bytevector 0x3
|
||||
#define mask_char 0xFF
|
||||
#define mask_closure 0x7
|
||||
#define mask_code 0xFF
|
||||
#define mask_continuation_code 0x2FF
|
||||
#define mask_eof 0xFFFFFFFF
|
||||
#define mask_exactnum 0xFFFFFFFF
|
||||
#define mask_false 0xFFFFFFFF
|
||||
#define mask_fixnum 0x3
|
||||
#define mask_flonum 0x7
|
||||
#define mask_fxvector 0x7
|
||||
#define mask_guardian_code 0x8FF
|
||||
#define mask_immediate 0x7
|
||||
#define mask_inexactnum 0xFFFFFFFF
|
||||
#define mask_input_port 0x1FF
|
||||
#define mask_mutable_box 0xFFFFFFFF
|
||||
#define mask_mutable_bytevector 0x7
|
||||
#define mask_mutable_fxvector 0xF
|
||||
#define mask_mutable_string 0xF
|
||||
#define mask_mutable_vector 0x7
|
||||
#define mask_nil 0xFFFFFFFF
|
||||
#define mask_octet -0x3FD
|
||||
#define mask_other_number 0xF
|
||||
#define mask_output_port 0x2FF
|
||||
#define mask_pair 0x7
|
||||
#define mask_port 0xFF
|
||||
#define mask_ratnum 0xFFFFFFFF
|
||||
#define mask_record 0x7
|
||||
#define mask_rtd_counts 0xFFFFFFFF
|
||||
#define mask_signed_bignum 0x3F
|
||||
#define mask_string 0x7
|
||||
#define mask_symbol 0x7
|
||||
#define mask_system_code 0x1FF
|
||||
#define mask_textual_input_port 0x5FF
|
||||
#define mask_textual_output_port 0x6FF
|
||||
#define mask_textual_port 0x4FF
|
||||
#define mask_thread 0xFFFFFFFF
|
||||
#define mask_tlc 0xFFFFFFFF
|
||||
#define mask_typed_object 0x7
|
||||
#define mask_unbound 0xFFFFFFFF
|
||||
#define mask_vector 0x3
|
||||
#define max_float_alignment 0x8
|
||||
#define max_integer_alignment 0x8
|
||||
#define max_real_space 0xB
|
||||
#define max_space 0xC
|
||||
#define max_sweep_space 0xA
|
||||
#define maximum_bignum_length (iptr)0x3FFFFFF
|
||||
#define maximum_bytevector_length (iptr)0x1FFFFFFF
|
||||
#define maximum_fxvector_length (iptr)0xFFFFFFF
|
||||
#define maximum_interrupt_index 0x4
|
||||
#define maximum_string_length (iptr)0xFFFFFFF
|
||||
#define maximum_vector_length (iptr)0x1FFFFFFF
|
||||
#define minimum_segment_request 0x80
|
||||
#define most_negative_fixnum (iptr)-0x20000000
|
||||
#define most_positive_fixnum (iptr)0x1FFFFFFF
|
||||
#define native_endianness little
|
||||
#define one_shot_headroom 0x600
|
||||
#define ordinary_type_bits 0x8
|
||||
#define pair_car_disp 0x7
|
||||
#define pair_cdr_disp 0xB
|
||||
#define pair_shift 0x3
|
||||
#define port_flag_binary 0x4
|
||||
#define port_flag_block_buffered 0x200
|
||||
#define port_flag_bol 0x80
|
||||
#define port_flag_char_positions 0x1000
|
||||
#define port_flag_closed 0x8
|
||||
#define port_flag_compressed 0x20
|
||||
#define port_flag_eof 0x100
|
||||
#define port_flag_exclusive 0x40
|
||||
#define port_flag_file 0x10
|
||||
#define port_flag_fold_case 0x4000
|
||||
#define port_flag_input 0x1
|
||||
#define port_flag_input_mode 0x800
|
||||
#define port_flag_line_buffered 0x400
|
||||
#define port_flag_no_fold_case 0x8000
|
||||
#define port_flag_output 0x2
|
||||
#define port_flag_r6rs 0x2000
|
||||
#define port_flags_offset 0x8
|
||||
#define port_handler_disp 0x5
|
||||
#define port_ibuffer_disp 0x1D
|
||||
#define port_icount_disp 0xD
|
||||
#define port_ilast_disp 0x19
|
||||
#define port_info_disp 0x21
|
||||
#define port_name_disp 0x25
|
||||
#define port_obuffer_disp 0x15
|
||||
#define port_ocount_disp 0x9
|
||||
#define port_olast_disp 0x11
|
||||
#define port_type_disp 0x1
|
||||
#define prelex_is_flags_offset 0x8
|
||||
#define prelex_is_mask 0xFF00
|
||||
#define prelex_sticky_mask 0xFF
|
||||
#define prelex_was_flags_offset 0x10
|
||||
#define primary_type_bits 0x3
|
||||
#define ptr_bits 0x20
|
||||
#define ptr_bytes 0x4
|
||||
#define ptrdiff_t_bits 0x20
|
||||
#define ratnum_denominator_disp 0x9
|
||||
#define ratnum_numerator_disp 0x5
|
||||
#define ratnum_type_disp 0x1
|
||||
#define real_space_alist ((new . 0) (impure . 1) (symbol . 2) (port . 3) (weakpair . 4) (ephemeron . 5) (pure . 6) (continuation . 7) (code . 8) (pure-typed-object . 9) (impure-record . 10) (data . 11))
|
||||
#define record_data_disp 0x5
|
||||
#define record_type_counts_disp 0x25
|
||||
#define record_type_disp 0x1
|
||||
#define record_type_flags_disp 0x1D
|
||||
#define record_type_flds_disp 0x19
|
||||
#define record_type_mpm_disp 0x11
|
||||
#define record_type_name_disp 0x15
|
||||
#define record_type_parent_disp 0x5
|
||||
#define record_type_pm_disp 0xD
|
||||
#define record_type_size_disp 0x9
|
||||
#define record_type_type_disp 0x1
|
||||
#define record_type_uid_disp 0x21
|
||||
#define reloc_abs 0x0
|
||||
#define reloc_arm32_abs 0x1
|
||||
#define reloc_arm32_call 0x2
|
||||
#define reloc_arm32_jump 0x3
|
||||
#define reloc_code_offset_index 0x3
|
||||
#define reloc_code_offset_mask 0x3FF
|
||||
#define reloc_code_offset_offset 0x4
|
||||
#define reloc_extended_format 0x1
|
||||
#define reloc_item_offset_index 0x2
|
||||
#define reloc_item_offset_mask 0x3FFFF
|
||||
#define reloc_item_offset_offset 0xE
|
||||
#define reloc_longp_index 0x4
|
||||
#define reloc_table_code_disp 0x4
|
||||
#define reloc_table_data_disp 0x8
|
||||
#define reloc_table_size_disp 0x0
|
||||
#define reloc_type_index 0x1
|
||||
#define reloc_type_mask 0x7
|
||||
#define reloc_type_offset 0x1
|
||||
#define return_address_frame_size_disp -0x8
|
||||
#define return_address_livemask_disp -0x10
|
||||
#define return_address_mv_return_address_disp -0x4
|
||||
#define return_address_toplink_disp -0xC
|
||||
#define rp_header_frame_size_disp 0x8
|
||||
#define rp_header_livemask_disp 0x0
|
||||
#define rp_header_mv_return_address_disp 0xC
|
||||
#define rp_header_toplink_disp 0x4
|
||||
#define rtd_counts_data_disp 0x11
|
||||
#define rtd_counts_timestamp_disp 0x9
|
||||
#define rtd_counts_type_disp 0x1
|
||||
#define rtd_generative 0x1
|
||||
#define rtd_opaque 0x2
|
||||
#define rtd_sealed 0x4
|
||||
#define sbwp (ptr)0x4E
|
||||
#define scaled_shot_1_shot_flag -0x4
|
||||
#define scheme_version 0x90509
|
||||
#define segment_card_offset_bits 0x5
|
||||
#define segment_offset_bits 0xD
|
||||
#define segment_t1_bits 0x13
|
||||
#define segment_table_levels 0x1
|
||||
#define seof (ptr)0x36
|
||||
#define sfalse (ptr)0x6
|
||||
#define short_bits 0x10
|
||||
#define signal_interrupt_index 0x4
|
||||
#define size_box 0x8
|
||||
#define size_cached_stack 0x8
|
||||
#define size_continuation 0x20
|
||||
#define size_ephemeron 0x10
|
||||
#define size_exactnum 0x10
|
||||
#define size_flonum 0x8
|
||||
#define size_forward 0x8
|
||||
#define size_guardian_entry 0x10
|
||||
#define size_inexactnum 0x18
|
||||
#define size_pair 0x8
|
||||
#define size_port 0x28
|
||||
#define size_ratnum 0x10
|
||||
#define size_record_type 0x28
|
||||
#define size_rp_header 0x10
|
||||
#define size_rtd_counts 0x410
|
||||
#define size_symbol 0x18
|
||||
#define size_tc 0x170
|
||||
#define size_thread 0x8
|
||||
#define size_tlc 0x10
|
||||
#define size_typed_object 0x8
|
||||
#define size_t_bits 0x20
|
||||
#define snil (ptr)0x26
|
||||
#define space_char_list (#\n #\i #\x #\q #\w #\e #\p #\k #\c #\r #\s #\d #\e)
|
||||
#define space_cname_list ("new" "impure" "symbol" "port" "weakpr" "emph" "pure" "cont" "code" "p-tobj" "ip-rec" "data" "empty")
|
||||
#define space_code 0x8
|
||||
#define space_continuation 0x7
|
||||
#define space_data 0xB
|
||||
#define space_empty 0xC
|
||||
#define space_ephemeron 0x5
|
||||
#define space_impure 0x1
|
||||
#define space_impure_record 0xA
|
||||
#define space_locked 0x20
|
||||
#define space_new 0x0
|
||||
#define space_old 0x40
|
||||
#define space_port 0x3
|
||||
#define space_pure 0x6
|
||||
#define space_pure_typed_object 0x9
|
||||
#define space_symbol 0x2
|
||||
#define space_weakpair 0x4
|
||||
#define stack_frame_limit 0x100
|
||||
#define stack_slop 0x200
|
||||
#define static_generation 0xFF
|
||||
#define string_char_bits 0x20
|
||||
#define string_char_bytes 0x4
|
||||
#define string_char_offset 0x2
|
||||
#define string_data_disp 0x5
|
||||
#define string_immutable_flag 0x8
|
||||
#define string_length_factor 0x10
|
||||
#define string_length_offset 0x4
|
||||
#define string_type_disp 0x1
|
||||
#define strue (ptr)0xE
|
||||
#define sunbound (ptr)0x1E
|
||||
#define svoid (ptr)0x3E
|
||||
#define symbol_hash_disp 0x19
|
||||
#define symbol_name_disp 0x11
|
||||
#define symbol_plist_disp 0xD
|
||||
#define symbol_pvalue_disp 0x9
|
||||
#define symbol_splist_disp 0x15
|
||||
#define symbol_value_disp 0x5
|
||||
#define tc_DSTBV_disp 0x164
|
||||
#define tc_SRCBV_disp 0x168
|
||||
#define tc_U_disp 0xB4
|
||||
#define tc_V_disp 0xB8
|
||||
#define tc_W_disp 0xBC
|
||||
#define tc_X_disp 0xC0
|
||||
#define tc_Y_disp 0xC4
|
||||
#define tc_ac0_disp 0x14
|
||||
#define tc_ac1_disp 0x18
|
||||
#define tc_active_disp 0x9C
|
||||
#define tc_alloc_counter_disp 0x158
|
||||
#define tc_ap_disp 0x28
|
||||
#define tc_arg_regs_disp 0x0
|
||||
#define tc_block_counter_disp 0xF0
|
||||
#define tc_cchain_disp 0x90
|
||||
#define tc_code_ranges_to_flush_disp 0x94
|
||||
#define tc_compile_profile_disp 0x11C
|
||||
#define tc_compress_format_disp 0x140
|
||||
#define tc_compress_level_disp 0x144
|
||||
#define tc_cp_disp 0x20
|
||||
#define tc_current_error_disp 0xEC
|
||||
#define tc_current_input_disp 0xE4
|
||||
#define tc_current_mso_disp 0xF8
|
||||
#define tc_current_output_disp 0xE8
|
||||
#define tc_default_record_equal_procedure_disp 0x138
|
||||
#define tc_default_record_hash_procedure_disp 0x13C
|
||||
#define tc_disable_count_disp 0xD0
|
||||
#define tc_eap_disp 0x2C
|
||||
#define tc_esp_disp 0x24
|
||||
#define tc_fxfirst_bit_set_bv_disp 0x104
|
||||
#define tc_fxlength_bv_disp 0x100
|
||||
#define tc_generate_inspector_information_disp 0x120
|
||||
#define tc_generate_procedure_source_information_disp 0x124
|
||||
#define tc_generate_profile_forms_disp 0x128
|
||||
#define tc_guardian_entries_disp 0x8C
|
||||
#define tc_instr_counter_disp 0x150
|
||||
#define tc_keyboard_interrupt_pending_disp 0xDC
|
||||
#define tc_lz4_out_buffer_disp 0x148
|
||||
#define tc_meta_level_disp 0x118
|
||||
#define tc_null_immutable_bytevector_disp 0x110
|
||||
#define tc_null_immutable_fxvector_disp 0x10C
|
||||
#define tc_null_immutable_string_disp 0x114
|
||||
#define tc_null_immutable_vector_disp 0x108
|
||||
#define tc_optimize_level_disp 0x12C
|
||||
#define tc_parameters_disp 0x160
|
||||
#define tc_random_seed_disp 0x98
|
||||
#define tc_real_eap_disp 0x48
|
||||
#define tc_ret_disp 0x30
|
||||
#define tc_scheme_stack_disp 0xA0
|
||||
#define tc_scheme_stack_size_disp 0xAC
|
||||
#define tc_sfd_disp 0xF4
|
||||
#define tc_sfp_disp 0x1C
|
||||
#define tc_signal_interrupt_pending_disp 0xD4
|
||||
#define tc_signal_interrupt_queue_disp 0xD8
|
||||
#define tc_something_pending_disp 0xC8
|
||||
#define tc_stack_cache_disp 0xA4
|
||||
#define tc_stack_link_disp 0xA8
|
||||
#define tc_subset_mode_disp 0x130
|
||||
#define tc_suppress_primitive_inlining_disp 0x134
|
||||
#define tc_target_machine_disp 0xFC
|
||||
#define tc_td_disp 0x44
|
||||
#define tc_threadno_disp 0xE0
|
||||
#define tc_timer_ticks_disp 0xCC
|
||||
#define tc_trap_disp 0x34
|
||||
#define tc_ts_disp 0x40
|
||||
#define tc_virtual_registers_disp 0x4C
|
||||
#define tc_winders_disp 0xB0
|
||||
#define tc_xp_disp 0x38
|
||||
#define tc_yp_disp 0x3C
|
||||
#define thread_tc_disp 0x5
|
||||
#define thread_type_disp 0x1
|
||||
#define time_collector_cpu 0x5
|
||||
#define time_collector_real 0x6
|
||||
#define time_duration 0x2
|
||||
#define time_monotonic 0x3
|
||||
#define time_process 0x0
|
||||
#define time_t_bits 0x20
|
||||
#define time_thread 0x1
|
||||
#define time_utc 0x4
|
||||
#define timer_interrupt_index 0x2
|
||||
#define tlc_ht_disp 0x9
|
||||
#define tlc_keyval_disp 0x5
|
||||
#define tlc_next_disp 0xD
|
||||
#define tlc_type_disp 0x1
|
||||
#define type_bignum 0x6
|
||||
#define type_binary_input_port 0x51E
|
||||
#define type_binary_output_port 0x61E
|
||||
#define type_binary_port 0x41E
|
||||
#define type_boolean 0x6
|
||||
#define type_box 0xE
|
||||
#define type_bytevector 0x1
|
||||
#define type_char 0x16
|
||||
#define type_closure 0x5
|
||||
#define type_code 0x3E
|
||||
#define type_continuation_code 0x23E
|
||||
#define type_exactnum 0x56
|
||||
#define type_fixnum 0x0
|
||||
#define type_flonum 0x2
|
||||
#define type_fxvector 0x3
|
||||
#define type_guardian_code 0x83E
|
||||
#define type_immediate 0x6
|
||||
#define type_immutable_box 0x8E
|
||||
#define type_immutable_bytevector 0x5
|
||||
#define type_immutable_fxvector 0xB
|
||||
#define type_immutable_string 0xA
|
||||
#define type_immutable_vector 0x4
|
||||
#define type_inexactnum 0x36
|
||||
#define type_input_port 0x11E
|
||||
#define type_io_port 0x31E
|
||||
#define type_mutable_box 0xE
|
||||
#define type_mutable_bytevector 0x1
|
||||
#define type_mutable_fxvector 0x3
|
||||
#define type_mutable_string 0x2
|
||||
#define type_mutable_vector 0x0
|
||||
#define type_negative_bignum 0x26
|
||||
#define type_octet 0x0
|
||||
#define type_other_number 0x6
|
||||
#define type_output_port 0x21E
|
||||
#define type_pair 0x1
|
||||
#define type_port 0x1E
|
||||
#define type_positive_bignum 0x6
|
||||
#define type_ratnum 0x16
|
||||
#define type_record 0x7
|
||||
#define type_rtd_counts 0x6E
|
||||
#define type_string 0x2
|
||||
#define type_symbol 0x3
|
||||
#define type_system_code 0x13E
|
||||
#define type_textual_input_port 0x11E
|
||||
#define type_textual_output_port 0x21E
|
||||
#define type_textual_port 0x1E
|
||||
#define type_thread 0x4E
|
||||
#define type_tlc 0x5E
|
||||
#define type_typed_object 0x7
|
||||
#define type_vector 0x0
|
||||
#define typed_object_type_disp 0x1
|
||||
#define typedef_i16 "short"
|
||||
#define typedef_i32 "int"
|
||||
#define typedef_i64 "long long"
|
||||
#define typedef_i8 "char"
|
||||
#define typedef_iptr "int"
|
||||
#define typedef_ptr "void *"
|
||||
#define typedef_string_char "unsigned int"
|
||||
#define typedef_u16 "unsigned short"
|
||||
#define typedef_u32 "unsigned int"
|
||||
#define typedef_u64 "unsigned long long"
|
||||
#define typedef_u8 "unsigned char"
|
||||
#define typedef_uptr "unsigned int"
|
||||
#define typemod 0x8
|
||||
#define unactivate_mode_deactivate 0x1
|
||||
#define unactivate_mode_destroy 0x2
|
||||
#define unactivate_mode_noop 0x0
|
||||
#define unaligned_integers 1
|
||||
#define underflow_limit 0x40
|
||||
#define unscaled_shot_1_shot_flag -0x1
|
||||
#define vector_data_disp 0x5
|
||||
#define vector_immutable_flag 0x4
|
||||
#define vector_length_factor 0x8
|
||||
#define vector_length_offset 0x3
|
||||
#define vector_type_disp 0x1
|
||||
#define virtual_register_count 0x10
|
||||
#define wchar_bits 0x20
|
||||
|
||||
/* constants from declare-c-entries */
|
||||
#define CENTRY_Scall_any_results 24
|
||||
#define CENTRY_Scall_one_result 23
|
||||
#define CENTRY_Sreturn 22
|
||||
#define CENTRY_activate_thread 11
|
||||
#define CENTRY_deactivate_thread 12
|
||||
#define CENTRY_foreign_entry 17
|
||||
#define CENTRY_get_more_room 19
|
||||
#define CENTRY_get_thread_context 1
|
||||
#define CENTRY_handle_apply_overflood 2
|
||||
#define CENTRY_handle_arg_error 16
|
||||
#define CENTRY_handle_docall_error 3
|
||||
#define CENTRY_handle_mvlet_error 15
|
||||
#define CENTRY_handle_nonprocedure_symbol 6
|
||||
#define CENTRY_handle_overflood 5
|
||||
#define CENTRY_handle_overflow 4
|
||||
#define CENTRY_handle_values_error 14
|
||||
#define CENTRY_install_library_entry 18
|
||||
#define CENTRY_instantiate_code_object 21
|
||||
#define CENTRY_raw_collect_cond 9
|
||||
#define CENTRY_raw_tc_mutex 10
|
||||
#define CENTRY_scan_remembered_set 20
|
||||
#define CENTRY_split_and_resize 8
|
||||
#define CENTRY_thread_context 0
|
||||
#define CENTRY_thread_list 7
|
||||
#define CENTRY_unactivate_thread 13
|
||||
|
||||
/* displacements for records */
|
||||
#define eq_hashtable_rtd_disp 1
|
||||
#define eq_hashtable_type_disp 5
|
||||
#define eq_hashtable_mutablep_disp 9
|
||||
#define eq_hashtable_vec_disp 13
|
||||
#define eq_hashtable_minlen_disp 17
|
||||
#define eq_hashtable_size_disp 21
|
||||
#define eq_hashtable_subtype_disp 25
|
||||
#define symbol_hashtable_rtd_disp 1
|
||||
#define symbol_hashtable_type_disp 5
|
||||
#define symbol_hashtable_mutablep_disp 9
|
||||
#define symbol_hashtable_vec_disp 13
|
||||
#define symbol_hashtable_minlen_disp 17
|
||||
#define symbol_hashtable_size_disp 21
|
||||
#define symbol_hashtable_equivp_disp 25
|
||||
#define code_info_rtd_disp 1
|
||||
#define code_info_src_disp 5
|
||||
#define code_info_sexpr_disp 9
|
||||
#define code_info_free_disp 13
|
||||
#define code_info_live_disp 17
|
||||
#define code_info_rpis_disp 21
|
||||
|
||||
/* predicates */
|
||||
#define Simmediatep(x) (((uptr)(x)&0x7)==0x6)
|
||||
#define Sportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x1E))
|
||||
#define Scodep(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x3E))
|
||||
|
||||
/* structure accessors */
|
||||
#define INITCAR(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define INITCDR(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define SETCAR(x,y) DIRTYSET(((ptr *)((uptr)(x)+7)),(y))
|
||||
#define SETCDR(x,y) DIRTYSET(((ptr *)((uptr)(x)+11)),(y))
|
||||
#define BOXTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITBOXREF(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SETBOXREF(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define EPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define INITEPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define EPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define INITEPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define TLCTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define TLCKEYVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define TLCHT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define TLCNEXT(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITTLCKEYVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITTLCHT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITTLCNEXT(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SETTLCNEXT(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SYMPVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define SYMPLIST(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SYMNAME(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define SYMSPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define SYMHASH(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define INITSYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITSYMPVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITSYMPLIST(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITSYMNAME(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define INITSYMSPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define INITSYMHASH(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define SETSYMVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define SETSYMPVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+9)),(y))
|
||||
#define SETSYMPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SETSYMNAME(x,y) DIRTYSET(((ptr *)((uptr)(x)+17)),(y))
|
||||
#define SETSYMSPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+21)),(y))
|
||||
#define SETSYMHASH(x,y) DIRTYSET(((ptr *)((uptr)(x)+25)),(y))
|
||||
#define VECTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITVECTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define SETVECTIT(x,i,y) DIRTYSET((((ptr *)((uptr)(x)+5))+i),(y))
|
||||
#define FXVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define FXVECTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define BYTEVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BVIT(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
#define INEXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INEXACTNUM_REAL_PART(x) (*((double *)((uptr)(x)+9)))
|
||||
#define INEXACTNUM_IMAG_PART(x) (*((double *)((uptr)(x)+17)))
|
||||
#define EXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define EXACTNUM_REAL_PART(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define EXACTNUM_IMAG_PART(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RATTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RATNUM(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define RATDEN(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define CLOSENTRY(x) (*((ptr *)((uptr)(x)+3)))
|
||||
#define CLOSIT(x,i) (((ptr *)((uptr)(x)+7))[i])
|
||||
#define FLODAT(x) (*((double *)((uptr)(x)+6)))
|
||||
#define PORTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define PORTNAME(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define PORTHANDLER(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define PORTINFO(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define PORTOCNT(x) (*((iptr *)((uptr)(x)+9)))
|
||||
#define PORTOLAST(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define PORTOBUF(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define PORTICNT(x) (*((iptr *)((uptr)(x)+13)))
|
||||
#define PORTILAST(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define PORTIBUF(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define STRTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define STRIT(x,i) (((string_char *)((uptr)(x)+5))[i])
|
||||
#define BIGTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BIGIT(x,i) (((bigit *)((uptr)(x)+5))[i])
|
||||
#define CODETYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define CODELEN(x) (*((iptr *)((uptr)(x)+5)))
|
||||
#define CODERELOC(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define CODENAME(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define CODEARITYMASK(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CODEFREE(x) (*((iptr *)((uptr)(x)+21)))
|
||||
#define CODEINFO(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define CODEPINFOS(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define CODEIT(x,i) (((octet *)((uptr)(x)+33))[i])
|
||||
#define RELOCSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define RELOCCODE(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define RELOCIT(x,i) (((uptr *)((uptr)(x)+8))[i])
|
||||
#define CONTSTACK(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define CONTLENGTH(x) (*((iptr *)((uptr)(x)+11)))
|
||||
#define CONTCLENGTH(x) (*((iptr *)((uptr)(x)+15)))
|
||||
#define CONTLINK(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define CONTRET(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define CONTWINDERS(x) (*((ptr *)((uptr)(x)+27)))
|
||||
#define RTDCOUNTSTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RTDCOUNTSTIMESTAMP(x) (*((U64 *)((uptr)(x)+9)))
|
||||
#define RTDCOUNTSIT(x,i) (((uptr *)((uptr)(x)+17))[i])
|
||||
#define RECORDDESCPARENT(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define RECORDDESCSIZE(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RECORDDESCPM(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define RECORDDESCMPM(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RECORDDESCNAME(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define RECORDDESCFLDS(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define RECORDDESCFLAGS(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define RECORDDESCUID(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define RECORDDESCCOUNTS(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define RECORDINSTTYPE(x) (*((ptr *)((uptr)(x)+1)))
|
||||
#define RECORDINSTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define CLOSCODE(p) ((ptr)((uptr)CLOSENTRY(p)-code_data_disp))
|
||||
#define CODEENTRYPOINT(x) ((ptr)((uptr)(x)+code_data_disp))
|
||||
#define SETCLOSCODE(p,x) (CLOSENTRY(p) = CODEENTRYPOINT(x))
|
||||
#define SYMCODE(p) ((ptr)((uptr)SYMPVAL(p)-code_data_disp))
|
||||
#define INITSYMCODE(p,x) (INITSYMPVAL(p) = CODEENTRYPOINT(x))
|
||||
#define SETSYMCODE(p,x) SETSYMPVAL(p,CODEENTRYPOINT(x))
|
||||
#define BIGLEN(x) ((iptr)((uptr)BIGTYPE(x) >> bignum_length_offset))
|
||||
#define BIGSIGN(x) ((BIGTYPE(x) & mask_bignum_sign) >> bignum_sign_offset)
|
||||
#define SETBIGLENANDSIGN(x,xl,xs) BIGTYPE(x) = (uptr)(xl) << bignum_length_offset | (xs) << bignum_sign_offset | type_bignum
|
||||
#define CLOSLEN(p) CODEFREE(CLOSCODE(p))
|
||||
#define GUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define GUARDIANREP(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define GUARDIANTCONC(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define GUARDIANNEXT(x) (*((ptr *)((uptr)(x)+12)))
|
||||
#define INITGUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define INITGUARDIANREP(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define INITGUARDIANTCONC(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define INITGUARDIANNEXT(x) (*((ptr *)((uptr)(x)+12)))
|
||||
#define FORWARDMARKER(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define FORWARDADDRESS(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define CACHEDSTACKSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define CACHEDSTACKLINK(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define RPHEADERFRAMESIZE(x) (*((iptr *)((uptr)(x)+8)))
|
||||
#define RPHEADERLIVEMASK(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define RPHEADERTOPLINK(x) (*((uptr *)((uptr)(x)+4)))
|
||||
|
||||
/* machine types */
|
||||
#define machine_type_names {"any", "i3le", "ti3le", "i3nt", "ti3nt", "i3fb", "ti3fb", "i3ob", "ti3ob", "i3osx", "ti3osx", "a6le", "ta6le", "a6osx", "ta6osx", "a6ob", "ta6ob", "a6s2", "ta6s2", "i3s2", "ti3s2", "a6fb", "ta6fb", "i3nb", "ti3nb", "a6nb", "ta6nb", "a6nt", "ta6nt", "i3qnx", "ti3qnx", "arm32le", "tarm32le", "ppc32le", "tppc32le"}
|
||||
|
||||
/* allocation-space names */
|
||||
#define alloc_space_names "new", "impure", "symbol", "port", "weakpr", "emph", "pure", "cont", "code", "p-tobj", "ip-rec", "data", "empty"
|
||||
|
||||
/* allocation-space characters */
|
||||
#define alloc_space_chars 'n', 'i', 'x', 'q', 'w', 'e', 'p', 'k', 'c', 'r', 's', 'd', 'e'
|
||||
|
||||
/* threads */
|
||||
#define THREADTC(x) (*((uptr *)((uptr)(x)+5)))
|
||||
|
||||
/* thread-context data */
|
||||
#define DSTBV(x) (*((ptr *)((uptr)(x)+356)))
|
||||
#define SRCBV(x) (*((ptr *)((uptr)(x)+360)))
|
||||
#define U(x) (*((ptr *)((uptr)(x)+180)))
|
||||
#define V(x) (*((ptr *)((uptr)(x)+184)))
|
||||
#define W(x) (*((ptr *)((uptr)(x)+188)))
|
||||
#define X(x) (*((ptr *)((uptr)(x)+192)))
|
||||
#define Y(x) (*((ptr *)((uptr)(x)+196)))
|
||||
#define AC0(x) (*((void* *)((uptr)(x)+20)))
|
||||
#define AC1(x) (*((void* *)((uptr)(x)+24)))
|
||||
#define ACTIVE(x) (*((I32 *)((uptr)(x)+156)))
|
||||
#define ALLOCCOUNTER(x) (*((U64 *)((uptr)(x)+344)))
|
||||
#define AP(x) (*((void* *)((uptr)(x)+40)))
|
||||
#define ARGREGS(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define BLOCKCOUNTER(x) (*((ptr *)((uptr)(x)+240)))
|
||||
#define CCHAIN(x) (*((ptr *)((uptr)(x)+144)))
|
||||
#define CODERANGESTOFLUSH(x) (*((ptr *)((uptr)(x)+148)))
|
||||
#define COMPILEPROFILE(x) (*((ptr *)((uptr)(x)+284)))
|
||||
#define COMPRESSFORMAT(x) (*((ptr *)((uptr)(x)+320)))
|
||||
#define COMPRESSLEVEL(x) (*((ptr *)((uptr)(x)+324)))
|
||||
#define CP(x) (*((void* *)((uptr)(x)+32)))
|
||||
#define CURRENTERROR(x) (*((ptr *)((uptr)(x)+236)))
|
||||
#define CURRENTINPUT(x) (*((ptr *)((uptr)(x)+228)))
|
||||
#define CURRENTMSO(x) (*((ptr *)((uptr)(x)+248)))
|
||||
#define CURRENTOUTPUT(x) (*((ptr *)((uptr)(x)+232)))
|
||||
#define DEFAULTRECORDEQUALPROCEDURE(x) (*((ptr *)((uptr)(x)+312)))
|
||||
#define DEFAULTRECORDHASHPROCEDURE(x) (*((ptr *)((uptr)(x)+316)))
|
||||
#define DISABLECOUNT(x) (*((ptr *)((uptr)(x)+208)))
|
||||
#define EAP(x) (*((void* *)((uptr)(x)+44)))
|
||||
#define ESP(x) (*((void* *)((uptr)(x)+36)))
|
||||
#define FXFIRSTBITSETBV(x) (*((ptr *)((uptr)(x)+260)))
|
||||
#define FXLENGTHBV(x) (*((ptr *)((uptr)(x)+256)))
|
||||
#define GENERATEINSPECTORINFORMATION(x) (*((ptr *)((uptr)(x)+288)))
|
||||
#define GENERATEPROCEDURESOURCEINFORMATION(x) (*((ptr *)((uptr)(x)+292)))
|
||||
#define GENERATEPROFILEFORMS(x) (*((ptr *)((uptr)(x)+296)))
|
||||
#define GUARDIANENTRIES(x) (*((ptr *)((uptr)(x)+140)))
|
||||
#define INSTRCOUNTER(x) (*((U64 *)((uptr)(x)+336)))
|
||||
#define KEYBOARDINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+220)))
|
||||
#define LZ4OUTBUFFER(x) (*((void* *)((uptr)(x)+328)))
|
||||
#define METALEVEL(x) (*((ptr *)((uptr)(x)+280)))
|
||||
#define NULLIMMUTABLEBYTEVECTOR(x) (*((ptr *)((uptr)(x)+272)))
|
||||
#define NULLIMMUTABLEFXVECTOR(x) (*((ptr *)((uptr)(x)+268)))
|
||||
#define NULLIMMUTABLESTRING(x) (*((ptr *)((uptr)(x)+276)))
|
||||
#define NULLIMMUTABLEVECTOR(x) (*((ptr *)((uptr)(x)+264)))
|
||||
#define OPTIMIZELEVEL(x) (*((ptr *)((uptr)(x)+300)))
|
||||
#define PARAMETERS(x) (*((ptr *)((uptr)(x)+352)))
|
||||
#define RANDOMSEED(x) (*((U32 *)((uptr)(x)+152)))
|
||||
#define REAL_EAP(x) (*((void* *)((uptr)(x)+72)))
|
||||
#define RET(x) (*((void* *)((uptr)(x)+48)))
|
||||
#define SCHEMESTACK(x) (*((void* *)((uptr)(x)+160)))
|
||||
#define SCHEMESTACKSIZE(x) (*((iptr *)((uptr)(x)+172)))
|
||||
#define SFD(x) (*((ptr *)((uptr)(x)+244)))
|
||||
#define SFP(x) (*((void* *)((uptr)(x)+28)))
|
||||
#define SIGNALINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+212)))
|
||||
#define SIGNALINTERRUPTQUEUE(x) (*((ptr *)((uptr)(x)+216)))
|
||||
#define SOMETHINGPENDING(x) (*((ptr *)((uptr)(x)+200)))
|
||||
#define STACKCACHE(x) (*((ptr *)((uptr)(x)+164)))
|
||||
#define STACKLINK(x) (*((ptr *)((uptr)(x)+168)))
|
||||
#define SUBSETMODE(x) (*((ptr *)((uptr)(x)+304)))
|
||||
#define SUPPRESSPRIMITIVEINLINING(x) (*((ptr *)((uptr)(x)+308)))
|
||||
#define TARGETMACHINE(x) (*((ptr *)((uptr)(x)+252)))
|
||||
#define TD(x) (*((void* *)((uptr)(x)+68)))
|
||||
#define THREADNO(x) (*((ptr *)((uptr)(x)+224)))
|
||||
#define TIMERTICKS(x) (*((ptr *)((uptr)(x)+204)))
|
||||
#define TRAP(x) (*((void* *)((uptr)(x)+52)))
|
||||
#define TS(x) (*((void* *)((uptr)(x)+64)))
|
||||
#define VIRTUALREGISTERS(x,i) (((ptr *)((uptr)(x)+76))[i])
|
||||
#define WINDERS(x) (*((ptr *)((uptr)(x)+176)))
|
||||
#define XP(x) (*((void* *)((uptr)(x)+56)))
|
||||
#define YP(x) (*((void* *)((uptr)(x)+60)))
|
||||
#define ARGREG(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define VIRTREG(x,i) (((ptr *)((uptr)(x)+76))[i])
|
||||
|
||||
/* library entries we access from C code */
|
||||
#define library_nonprocedure_code 152
|
||||
#define library_dounderflow 154
|
||||
BIN
boot/arm32le/petite.boot
Normal file
BIN
boot/arm32le/petite.boot
Normal file
Binary file not shown.
BIN
boot/arm32le/scheme.boot
Normal file
BIN
boot/arm32le/scheme.boot
Normal file
Binary file not shown.
256
boot/arm32le/scheme.h
Normal file
256
boot/arm32le/scheme.h
Normal file
|
|
@ -0,0 +1,256 @@
|
|||
/* scheme.h for Chez Scheme Version 9.5.9 (arm32le) */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct scheme.h */
|
||||
/* for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Specify declaration of exports. */
|
||||
#ifdef _WIN32
|
||||
# if __cplusplus
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern "C" __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern "C" __declspec (dllexport)
|
||||
# endif
|
||||
# else
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern
|
||||
# else
|
||||
# define EXPORT extern __declspec (dllexport)
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# if __cplusplus
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern
|
||||
# endif
|
||||
#endif
|
||||
|
||||
/* Chez Scheme Version and machine type */
|
||||
#define VERSION "9.5.9"
|
||||
#define MACHINE_TYPE "arm32le"
|
||||
|
||||
/* All Scheme objects are of type ptr. Type iptr and */
|
||||
/* uptr are signed and unsigned ints of the same size */
|
||||
/* as a ptr */
|
||||
typedef void * ptr;
|
||||
typedef int iptr;
|
||||
typedef unsigned int uptr;
|
||||
|
||||
/* String elements are 32-bit tagged char objects */
|
||||
typedef unsigned int string_char;
|
||||
|
||||
/* Bytevector elements are 8-bit unsigned "octets" */
|
||||
typedef unsigned char octet;
|
||||
|
||||
/* Type predicates */
|
||||
#define Sfixnump(x) (((uptr)(x)&0x3)==0x0)
|
||||
#define Scharp(x) (((uptr)(x)&0xFF)==0x16)
|
||||
#define Snullp(x) ((uptr)(x)==0x26)
|
||||
#define Seof_objectp(x) ((uptr)(x)==0x36)
|
||||
#define Sbwp_objectp(x) ((uptr)(x)==0x4E)
|
||||
#define Sbooleanp(x) (((uptr)(x)&0xF7)==0x6)
|
||||
#define Spairp(x) (((uptr)(x)&0x7)==0x1)
|
||||
#define Ssymbolp(x) (((uptr)(x)&0x7)==0x3)
|
||||
#define Sprocedurep(x) (((uptr)(x)&0x7)==0x5)
|
||||
#define Sflonump(x) (((uptr)(x)&0x7)==0x2)
|
||||
#define Svectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x0))
|
||||
#define Sfxvectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x3))
|
||||
#define Sbytevectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x1))
|
||||
#define Sstringp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x2))
|
||||
#define Sbignump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1F)==0x6))
|
||||
#define Sboxp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7F)==0xE))
|
||||
#define Sinexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x36))
|
||||
#define Sexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x56))
|
||||
#define Sratnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x16))
|
||||
#define Sinputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1FF)==0x11E))
|
||||
#define Soutputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x2FF)==0x21E))
|
||||
#define Srecordp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x7))
|
||||
|
||||
/* Accessors */
|
||||
#define Sfixnum_value(x) ((iptr)(x)/4)
|
||||
#define Schar_value(x) ((string_char)((uptr)(x)>>8))
|
||||
#define Sboolean_value(x) ((x) != Sfalse)
|
||||
#define Scar(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define Scdr(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define Sflonum_value(x) (*((double *)((uptr)(x)+6)))
|
||||
#define Svector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Svector_ref(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define Sfxvector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sfxvector_ref(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define Sbytevector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Sbytevector_u8_ref(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
/* Warning: Sbytevector_data(x) returns a pointer into x. */
|
||||
#define Sbytevector_data(x) &Sbytevector_u8_ref(x,0)
|
||||
#define Sstring_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sstring_ref(x,i) Schar_value(((string_char *)((uptr)(x)+5))[i])
|
||||
#define Sunbox(x) (*((ptr *)((uptr)(x)+5)))
|
||||
EXPORT iptr Sinteger_value(ptr);
|
||||
#define Sunsigned_value(x) (uptr)Sinteger_value(x)
|
||||
EXPORT int Sinteger32_value(ptr);
|
||||
#define Sunsigned32_value(x) (unsigned int)Sinteger32_value(x)
|
||||
EXPORT long long Sinteger64_value(ptr);
|
||||
#define Sunsigned64_value(x) (unsigned long long)Sinteger64_value(x)
|
||||
|
||||
/* Mutators */
|
||||
EXPORT void Sset_box(ptr, ptr);
|
||||
EXPORT void Sset_car(ptr, ptr);
|
||||
EXPORT void Sset_cdr(ptr, ptr);
|
||||
#define Sstring_set(x,i,c) ((void)((((string_char *)((uptr)(x)+5))[i]) = (string_char)(uptr)Schar(c)))
|
||||
#define Sfxvector_set(x,i,n) ((void)(Sfxvector_ref(x,i) = (n)))
|
||||
#define Sbytevector_u8_set(x,i,n) ((void)(Sbytevector_u8_ref(x,i) = (n)))
|
||||
EXPORT void Svector_set(ptr, iptr, ptr);
|
||||
|
||||
/* Constructors */
|
||||
#define Sfixnum(x) ((ptr)(uptr)((x)*4))
|
||||
#define Schar(x) ((ptr)(uptr)((x)<<8|0x16))
|
||||
#define Snil ((ptr)0x26)
|
||||
#define Strue ((ptr)0xE)
|
||||
#define Sfalse ((ptr)0x6)
|
||||
#define Sboolean(x) ((x)?Strue:Sfalse)
|
||||
#define Sbwp_object ((ptr)0x4E)
|
||||
#define Seof_object ((ptr)0x36)
|
||||
#define Svoid ((ptr)0x3E)
|
||||
EXPORT ptr Scons(ptr, ptr);
|
||||
EXPORT ptr Sstring_to_symbol(const char *);
|
||||
EXPORT ptr Ssymbol_to_string(ptr);
|
||||
EXPORT ptr Sflonum(double);
|
||||
EXPORT ptr Smake_vector(iptr, ptr);
|
||||
EXPORT ptr Smake_fxvector(iptr, ptr);
|
||||
EXPORT ptr Smake_bytevector(iptr, int);
|
||||
EXPORT ptr Smake_string(iptr, int);
|
||||
EXPORT ptr Smake_uninitialized_string(iptr);
|
||||
EXPORT ptr Sstring(const char *);
|
||||
EXPORT ptr Sstring_of_length(const char *, iptr);
|
||||
EXPORT ptr Sstring_utf8(const char*, iptr);
|
||||
EXPORT ptr Sbox(ptr);
|
||||
EXPORT ptr Sinteger(iptr);
|
||||
EXPORT ptr Sunsigned(uptr);
|
||||
EXPORT ptr Sinteger32(int);
|
||||
EXPORT ptr Sunsigned32(unsigned int);
|
||||
EXPORT ptr Sinteger64(long long);
|
||||
EXPORT ptr Sunsigned64(unsigned long long);
|
||||
|
||||
/* Miscellaneous */
|
||||
EXPORT ptr Stop_level_value(ptr);
|
||||
EXPORT void Sset_top_level_value(ptr, ptr);
|
||||
EXPORT void Slock_object(ptr);
|
||||
EXPORT void Sunlock_object(ptr);
|
||||
EXPORT int Slocked_objectp(ptr);
|
||||
EXPORT void Sforeign_symbol(const char *, void *);
|
||||
EXPORT void Sregister_symbol(const char *, void *);
|
||||
|
||||
/* Support for calls into Scheme */
|
||||
EXPORT ptr Scall0(ptr);
|
||||
EXPORT ptr Scall1(ptr, ptr);
|
||||
EXPORT ptr Scall2(ptr, ptr, ptr);
|
||||
EXPORT ptr Scall3(ptr, ptr, ptr, ptr);
|
||||
EXPORT void Sinitframe(iptr);
|
||||
EXPORT void Sput_arg(iptr, ptr);
|
||||
EXPORT ptr Scall(ptr, iptr);
|
||||
/* Warning: Sforeign_callable_entry_point(x) returns a pointer into x. */
|
||||
#define Sforeign_callable_entry_point(x) ((void (*)(void))((uptr)(x)+33))
|
||||
#define Sforeign_callable_code_object(x) ((ptr)((uptr)(x)-33))
|
||||
|
||||
/* Customization support. */
|
||||
EXPORT const char * Skernel_version(void);
|
||||
EXPORT void Sretain_static_relocation(void);
|
||||
EXPORT void Sset_verbose(int);
|
||||
EXPORT void Sscheme_init(void (*)(void));
|
||||
EXPORT void Sregister_boot_file(const char *);
|
||||
EXPORT void Sregister_boot_file_fd(const char *, int fd);
|
||||
EXPORT void Sregister_heap_file(const char *);
|
||||
EXPORT void Scompact_heap(void);
|
||||
EXPORT void Ssave_heap(const char *, int);
|
||||
EXPORT void Sbuild_heap(const char *, void (*)(void));
|
||||
EXPORT void Senable_expeditor(const char *);
|
||||
EXPORT int Sscheme_start(int, const char *[]);
|
||||
EXPORT int Sscheme_script(const char *, int, const char *[]);
|
||||
EXPORT int Sscheme_program(const char *, int, const char *[]);
|
||||
EXPORT void Sscheme_deinit(void);
|
||||
|
||||
/* Features. */
|
||||
#define FEATURE_ICONV
|
||||
#define FEATURE_EXPEDITOR
|
||||
|
||||
/* Locking macros. */
|
||||
#define INITLOCK(addr) \
|
||||
__asm__ __volatile__ ("mov r12, #0\n\t"\
|
||||
"str r12, [%0, #0]\n\t"\
|
||||
: \
|
||||
: "r" (addr)\
|
||||
:"memory", "r12")
|
||||
|
||||
#define SPINLOCK(addr) \
|
||||
__asm__ __volatile__ ("0:\n\t"\
|
||||
"ldrex r12, [%0, #0]\n\t"\
|
||||
"cmp r12, #0\n\t"\
|
||||
"bne 1f\n\t"\
|
||||
"mov r12, #1\n\t"\
|
||||
"strex r11, r12, [%0]\n\t"\
|
||||
"cmp r11, #0\n\t"\
|
||||
"beq 2f\n\t"\
|
||||
"1:\n\t"\
|
||||
"ldr r12, [%0, #0]\n\t"\
|
||||
"cmp r12, #0\n\t"\
|
||||
"beq 0b\n\t"\
|
||||
"b 1b\n\t"\
|
||||
"2:\n\t"\
|
||||
: \
|
||||
: "r" (addr)\
|
||||
: "cc", "memory", "r12", "r11")
|
||||
|
||||
#define UNLOCK(addr) \
|
||||
__asm__ __volatile__ ("mov r12, #0\n\t"\
|
||||
"str r12, [%0, #0]\n\t"\
|
||||
: \
|
||||
: "r" (addr)\
|
||||
:"memory", "r12")
|
||||
|
||||
#define LOCKED_INCR(addr, ret) \
|
||||
__asm__ __volatile__ ("mov %0, #0\n\t"\
|
||||
"0:\n\t"\
|
||||
"ldrex r12, [%1, #0]\n\t"\
|
||||
"add r12, r12, #1\n\t"\
|
||||
"strex r11, r12, [%1]\n\t"\
|
||||
"cmp r11, #0\n\t"\
|
||||
"bne 0b\n\t"\
|
||||
"cmp r12, #0\n\t"\
|
||||
"moveq %0, #1\n\t"\
|
||||
: "=&r" (ret)\
|
||||
: "r" (addr)\
|
||||
: "cc", "memory", "r12", "r11")
|
||||
|
||||
#define LOCKED_DECR(addr, ret) \
|
||||
__asm__ __volatile__ ("mov %0, #0\n\t"\
|
||||
"0:\n\t"\
|
||||
"ldrex r12, [%1, #0]\n\t"\
|
||||
"sub r12, r12, #1\n\t"\
|
||||
"strex r11, r12, [%1]\n\t"\
|
||||
"cmp r11, #0\n\t"\
|
||||
"bne 0b\n\t"\
|
||||
"cmp r12, #0\n\t"\
|
||||
"moveq %0, #1\n\t"\
|
||||
: "=&r" (ret)\
|
||||
: "r" (addr)\
|
||||
: "cc", "memory", "r12", "r11")
|
||||
991
boot/i3le/equates.h
Normal file
991
boot/i3le/equates.h
Normal file
|
|
@ -0,0 +1,991 @@
|
|||
/* equates.h for Chez Scheme Version 9.5.9 */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct version */
|
||||
/* of this file for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Integer typedefs */
|
||||
typedef char I8;
|
||||
typedef unsigned char U8;
|
||||
typedef short I16;
|
||||
typedef unsigned short U16;
|
||||
typedef int I32;
|
||||
typedef unsigned int U32;
|
||||
typedef long long I64;
|
||||
typedef unsigned long long U64;
|
||||
|
||||
/* constants from cmacros.ss */
|
||||
#define $c_func_closure_index 0x4
|
||||
#define $c_func_closure_record_index 0x3
|
||||
#define $c_func_code_object_index 0x2
|
||||
#define $c_func_code_record_index 0x1
|
||||
#define COMPRESS_FORMAT_BITS 0x3
|
||||
#define COMPRESS_GZIP 0x0
|
||||
#define COMPRESS_HIGH 0x3
|
||||
#define COMPRESS_LOW 0x1
|
||||
#define COMPRESS_LZ4 0x1
|
||||
#define COMPRESS_MAX 0x4
|
||||
#define COMPRESS_MEDIUM 0x2
|
||||
#define COMPRESS_MIN 0x0
|
||||
#define ERROR_CALL_ARGUMENT_COUNT 0x4
|
||||
#define ERROR_CALL_NONPROCEDURE 0x3
|
||||
#define ERROR_CALL_NONPROCEDURE_SYMBOL 0x2
|
||||
#define ERROR_CALL_UNBOUND 0x1
|
||||
#define ERROR_MVLET 0x8
|
||||
#define ERROR_NONCONTINUABLE_INTERRUPT 0x6
|
||||
#define ERROR_OTHER 0x0
|
||||
#define ERROR_RESET 0x5
|
||||
#define ERROR_VALUES 0x7
|
||||
#define OPEN_ERROR_EXISTS 0x2
|
||||
#define OPEN_ERROR_EXISTSNOT 0x3
|
||||
#define OPEN_ERROR_OTHER 0x0
|
||||
#define OPEN_ERROR_PROTECTION 0x1
|
||||
#define PORT_FLAG_BINARY 0x400
|
||||
#define PORT_FLAG_BLOCK_BUFFERED 0x20000
|
||||
#define PORT_FLAG_BOL 0x8000
|
||||
#define PORT_FLAG_CHAR_POSITIONS 0x100000
|
||||
#define PORT_FLAG_CLOSED 0x800
|
||||
#define PORT_FLAG_COMPRESSED 0x2000
|
||||
#define PORT_FLAG_EOF 0x10000
|
||||
#define PORT_FLAG_EXCLUSIVE 0x4000
|
||||
#define PORT_FLAG_FILE 0x1000
|
||||
#define PORT_FLAG_FOLD_CASE 0x400000
|
||||
#define PORT_FLAG_INPUT 0x100
|
||||
#define PORT_FLAG_INPUT_MODE 0x80000
|
||||
#define PORT_FLAG_LINE_BUFFERED 0x40000
|
||||
#define PORT_FLAG_NO_FOLD_CASE 0x800000
|
||||
#define PORT_FLAG_OUTPUT 0x200
|
||||
#define PORT_FLAG_R6RS 0x200000
|
||||
#define SAPPEND 0x3
|
||||
#define SDEFAULT 0x4
|
||||
#define SEOF -0x1
|
||||
#define SERROR 0x0
|
||||
#define SICONV_DUNNO 0x0
|
||||
#define SICONV_INCOMPLETE 0x2
|
||||
#define SICONV_INVALID 0x1
|
||||
#define SICONV_NOROOM 0x3
|
||||
#define SREPLACE 0x2
|
||||
#define STRVNCATE 0x1
|
||||
#define address_bits 0x20
|
||||
#define alloc_waste_maximum 0x400
|
||||
#define annotation_all 0x3
|
||||
#define annotation_debug 0x1
|
||||
#define annotation_profile 0x2
|
||||
#define architecture x86
|
||||
#define asm_arg_reg_cnt 0x1
|
||||
#define asm_arg_reg_max 0x1
|
||||
#define bigit_bits 0x20
|
||||
#define bigit_bytes 0x4
|
||||
#define bignum_data_disp 0x5
|
||||
#define bignum_length_factor 0x40
|
||||
#define bignum_length_offset 0x6
|
||||
#define bignum_sign_offset 0x5
|
||||
#define bignum_type_disp 0x1
|
||||
#define black_hole (ptr)0x46
|
||||
#define box_ref_disp 0x5
|
||||
#define box_type_disp 0x1
|
||||
#define byte_alignment 0x8
|
||||
#define byte_constant_mask 0xFFFFFFFF
|
||||
#define bytes_per_card 0x100
|
||||
#define bytes_per_segment 0x2000
|
||||
#define bytevector_data_disp 0x9
|
||||
#define bytevector_immutable_flag 0x4
|
||||
#define bytevector_length_factor 0x8
|
||||
#define bytevector_length_offset 0x3
|
||||
#define bytevector_pad_disp 0x5
|
||||
#define bytevector_type_disp 0x1
|
||||
#define c_entry_name_vector #(thread-context get-thread-context handle-apply-overflood handle-docall-error handle-overflow handle-overflood handle-nonprocedure-symbol thread-list split-and-resize raw-collect-cond raw-tc-mutex activate-thread deactivate-thread unactivate-thread handle-values-error handle-mvlet-error handle-arg-error foreign-entry install-library-entry get-more-room scan-remembered-set instantiate-code-object Sreturn Scall-one-result Scall-any-results)
|
||||
#define c_entry_vector_size 0x19
|
||||
#define cached_stack_link_disp 0x4
|
||||
#define cached_stack_size_disp 0x0
|
||||
#define card_offset_bits 0x8
|
||||
#define cards_per_segment 0x20
|
||||
#define char_data_offset 0x8
|
||||
#define char_factor 0x100
|
||||
#define closure_code_disp 0x3
|
||||
#define closure_data_disp 0x7
|
||||
#define code_arity_mask_disp 0x11
|
||||
#define code_closure_length_disp 0x15
|
||||
#define code_data_disp 0x21
|
||||
#define code_flag_continuation 0x2
|
||||
#define code_flag_guardian 0x8
|
||||
#define code_flag_system 0x1
|
||||
#define code_flag_template 0x4
|
||||
#define code_flags_offset 0x8
|
||||
#define code_info_disp 0x19
|
||||
#define code_length_disp 0x5
|
||||
#define code_name_disp 0xD
|
||||
#define code_pinfos_disp 0x1D
|
||||
#define code_reloc_disp 0x9
|
||||
#define code_type_disp 0x1
|
||||
#define collect_interrupt_index 0x1
|
||||
#define continuation_code_disp 0x3
|
||||
#define continuation_link_disp 0x13
|
||||
#define continuation_return_address_disp 0x17
|
||||
#define continuation_stack_clength_disp 0xF
|
||||
#define continuation_stack_disp 0x7
|
||||
#define continuation_stack_length_disp 0xB
|
||||
#define continuation_winders_disp 0x1B
|
||||
#define countof_bignum 0x5
|
||||
#define countof_box 0x9
|
||||
#define countof_bytevector 0x15
|
||||
#define countof_closure 0x3
|
||||
#define countof_code 0xB
|
||||
#define countof_continuation 0x4
|
||||
#define countof_ephemeron 0x19
|
||||
#define countof_exactnum 0x8
|
||||
#define countof_flonum 0x2
|
||||
#define countof_fxvector 0x14
|
||||
#define countof_guardian 0x17
|
||||
#define countof_inexactnum 0x7
|
||||
#define countof_locked 0x16
|
||||
#define countof_oblist 0x18
|
||||
#define countof_pair 0x0
|
||||
#define countof_port 0xA
|
||||
#define countof_ratnum 0x6
|
||||
#define countof_relocation_table 0x10
|
||||
#define countof_rtd_counts 0xE
|
||||
#define countof_stack 0xF
|
||||
#define countof_string 0x13
|
||||
#define countof_symbol 0x1
|
||||
#define countof_thread 0xC
|
||||
#define countof_tlc 0xD
|
||||
#define countof_types 0x1A
|
||||
#define countof_vector 0x12
|
||||
#define countof_weakpair 0x11
|
||||
#define default_collect_trip_bytes 0x400000
|
||||
#define default_heap_reserve_ratio 1.0
|
||||
#define default_max_nonstatic_generation 0x4
|
||||
#define default_stack_size 0x7FF8
|
||||
#define default_timer_ticks 0x3E8
|
||||
#define dtvec_hour 0x3
|
||||
#define dtvec_isdst 0x9
|
||||
#define dtvec_mday 0x4
|
||||
#define dtvec_min 0x2
|
||||
#define dtvec_mon 0x5
|
||||
#define dtvec_nsec 0x0
|
||||
#define dtvec_sec 0x1
|
||||
#define dtvec_size 0xC
|
||||
#define dtvec_tzname 0xB
|
||||
#define dtvec_tzoff 0xA
|
||||
#define dtvec_wday 0x7
|
||||
#define dtvec_yday 0x8
|
||||
#define dtvec_year 0x6
|
||||
#define ephemeron_car_disp 0x7
|
||||
#define ephemeron_cdr_disp 0xB
|
||||
#define ephemeron_next_disp 0xF
|
||||
#define ephemeron_trigger_next_disp 0x13
|
||||
#define eq_hashtable_subtype_ephemeron 0x2
|
||||
#define eq_hashtable_subtype_normal 0x0
|
||||
#define eq_hashtable_subtype_weak 0x1
|
||||
#define exactnum_imag_disp 0x9
|
||||
#define exactnum_real_disp 0x5
|
||||
#define exactnum_type_disp 0x1
|
||||
#define fasl_fld_double 0xA
|
||||
#define fasl_fld_i16 0x2
|
||||
#define fasl_fld_i24 0x3
|
||||
#define fasl_fld_i32 0x4
|
||||
#define fasl_fld_i40 0x5
|
||||
#define fasl_fld_i48 0x6
|
||||
#define fasl_fld_i56 0x7
|
||||
#define fasl_fld_i64 0x8
|
||||
#define fasl_fld_ptr 0x0
|
||||
#define fasl_fld_single 0x9
|
||||
#define fasl_fld_u8 0x1
|
||||
#define fasl_header #vu8(0 0 0 0 99 104 101 122)
|
||||
#define fasl_type_base_rtd 0x1A
|
||||
#define fasl_type_box 0x1
|
||||
#define fasl_type_bytevector 0x1D
|
||||
#define fasl_type_closure 0x6
|
||||
#define fasl_type_code 0xB
|
||||
#define fasl_type_entry 0xD
|
||||
#define fasl_type_ephemeron 0x1C
|
||||
#define fasl_type_eq_hashtable 0x1F
|
||||
#define fasl_type_exactnum 0x14
|
||||
#define fasl_type_flonum 0x8
|
||||
#define fasl_type_fxvector 0x1B
|
||||
#define fasl_type_gensym 0x13
|
||||
#define fasl_type_graph 0x10
|
||||
#define fasl_type_graph_def 0x11
|
||||
#define fasl_type_graph_ref 0x12
|
||||
#define fasl_type_gzip 0x2B
|
||||
#define fasl_type_header 0x0
|
||||
#define fasl_type_immediate 0xC
|
||||
#define fasl_type_immutable_box 0x29
|
||||
#define fasl_type_immutable_bytevector 0x28
|
||||
#define fasl_type_immutable_fxvector 0x27
|
||||
#define fasl_type_immutable_string 0x26
|
||||
#define fasl_type_immutable_vector 0x25
|
||||
#define fasl_type_inexactnum 0x5
|
||||
#define fasl_type_large_integer 0xA
|
||||
#define fasl_type_library 0xE
|
||||
#define fasl_type_library_code 0xF
|
||||
#define fasl_type_lz4 0x2C
|
||||
#define fasl_type_pair 0x7
|
||||
#define fasl_type_ratnum 0x3
|
||||
#define fasl_type_record 0x17
|
||||
#define fasl_type_revisit 0x23
|
||||
#define fasl_type_rtd 0x18
|
||||
#define fasl_type_small_integer 0x19
|
||||
#define fasl_type_string 0x9
|
||||
#define fasl_type_symbol 0x2
|
||||
#define fasl_type_symbol_hashtable 0x20
|
||||
#define fasl_type_uncompressed 0x2A
|
||||
#define fasl_type_vector 0x4
|
||||
#define fasl_type_visit 0x22
|
||||
#define fasl_type_visit_revisit 0x24
|
||||
#define fasl_type_weak_pair 0x1E
|
||||
#define fixnum_bits 0x1E
|
||||
#define fixnum_factor 0x4
|
||||
#define fixnum_offset 0x2
|
||||
#define fld_byte_index 0x4
|
||||
#define fld_mutablep_index 0x2
|
||||
#define fld_name_index 0x1
|
||||
#define fld_type_index 0x3
|
||||
#define flonum_data_disp 0x6
|
||||
#define forward_address_disp 0x4
|
||||
#define forward_marker (ptr)0x2E
|
||||
#define forward_marker_disp 0x0
|
||||
#define ftype_guardian_rep (ptr)0x56
|
||||
#define fxvector_data_disp 0x5
|
||||
#define fxvector_immutable_flag 0x8
|
||||
#define fxvector_length_factor 0x10
|
||||
#define fxvector_length_offset 0x4
|
||||
#define fxvector_type_disp 0x1
|
||||
#define guardian_entry_next_disp 0xC
|
||||
#define guardian_entry_obj_disp 0x0
|
||||
#define guardian_entry_rep_disp 0x4
|
||||
#define guardian_entry_tconc_disp 0x8
|
||||
#define hashtable_default_size 0x8
|
||||
#define header_size_bignum 0x4
|
||||
#define header_size_bytevector 0x8
|
||||
#define header_size_closure 0x4
|
||||
#define header_size_code 0x20
|
||||
#define header_size_fxvector 0x4
|
||||
#define header_size_record 0x4
|
||||
#define header_size_reloc_table 0x8
|
||||
#define header_size_string 0x4
|
||||
#define header_size_vector 0x4
|
||||
#define ignore_event_flag 0x0
|
||||
#define inexactnum_imag_disp 0x11
|
||||
#define inexactnum_pad_disp 0x5
|
||||
#define inexactnum_real_disp 0x9
|
||||
#define inexactnum_type_disp 0x1
|
||||
#define int_bits 0x20
|
||||
#define integer_divide_instruction 1
|
||||
#define keyboard_interrupt_index 0x3
|
||||
#define library_entry_vector_size 0x210
|
||||
#define libspec_closure_index 0xD
|
||||
#define libspec_does_not_expect_headroom_index 0x0
|
||||
#define libspec_error_index 0xE
|
||||
#define libspec_fake_index 0x10
|
||||
#define libspec_flags_index 0x2
|
||||
#define libspec_has_does_not_expect_headroom_version_index 0xF
|
||||
#define libspec_index_base_offset 0x1
|
||||
#define libspec_index_base_size 0x9
|
||||
#define libspec_index_offset 0x0
|
||||
#define libspec_index_size 0xA
|
||||
#define libspec_interface_offset 0xA
|
||||
#define libspec_interface_size 0x3
|
||||
#define libspec_name_index 0x1
|
||||
#define log2_ptr_bytes 0x2
|
||||
#define long_bits 0x20
|
||||
#define long_long_bits 0x40
|
||||
#define machine_type 0x1
|
||||
#define machine_type_a6fb 0x15
|
||||
#define machine_type_a6le 0xB
|
||||
#define machine_type_a6nb 0x19
|
||||
#define machine_type_a6nt 0x1B
|
||||
#define machine_type_a6ob 0xF
|
||||
#define machine_type_a6osx 0xD
|
||||
#define machine_type_a6s2 0x11
|
||||
#define machine_type_alist ((0 . any) (1 . i3le) (2 . ti3le) (3 . i3nt) (4 . ti3nt) (5 . i3fb) (6 . ti3fb) (7 . i3ob) (8 . ti3ob) (9 . i3osx) (10 . ti3osx) (11 . a6le) (12 . ta6le) (13 . a6osx) (14 . ta6osx) (15 . a6ob) (16 . ta6ob) (17 . a6s2) (18 . ta6s2) (19 . i3s2) (20 . ti3s2) (21 . a6fb) (22 . ta6fb) (23 . i3nb) (24 . ti3nb) (25 . a6nb) (26 . ta6nb) (27 . a6nt) (28 . ta6nt) (29 . i3qnx) (30 . ti3qnx) (31 . arm32le) (32 . tarm32le) (33 . ppc32le) (34 . tppc32le))
|
||||
#define machine_type_any 0x0
|
||||
#define machine_type_arm32le 0x1F
|
||||
#define machine_type_i3fb 0x5
|
||||
#define machine_type_i3le 0x1
|
||||
#define machine_type_i3nb 0x17
|
||||
#define machine_type_i3nt 0x3
|
||||
#define machine_type_i3ob 0x7
|
||||
#define machine_type_i3osx 0x9
|
||||
#define machine_type_i3qnx 0x1D
|
||||
#define machine_type_i3s2 0x13
|
||||
#define machine_type_limit 0x23
|
||||
#define machine_type_name i3le
|
||||
#define machine_type_ppc32le 0x21
|
||||
#define machine_type_ta6fb 0x16
|
||||
#define machine_type_ta6le 0xC
|
||||
#define machine_type_ta6nb 0x1A
|
||||
#define machine_type_ta6nt 0x1C
|
||||
#define machine_type_ta6ob 0x10
|
||||
#define machine_type_ta6osx 0xE
|
||||
#define machine_type_ta6s2 0x12
|
||||
#define machine_type_tarm32le 0x20
|
||||
#define machine_type_ti3fb 0x6
|
||||
#define machine_type_ti3le 0x2
|
||||
#define machine_type_ti3nb 0x18
|
||||
#define machine_type_ti3nt 0x4
|
||||
#define machine_type_ti3ob 0x8
|
||||
#define machine_type_ti3osx 0xA
|
||||
#define machine_type_ti3qnx 0x1E
|
||||
#define machine_type_ti3s2 0x14
|
||||
#define machine_type_tppc32le 0x22
|
||||
#define mask_bignum 0x1F
|
||||
#define mask_bignum_sign 0x20
|
||||
#define mask_binary_input_port 0x5FF
|
||||
#define mask_binary_output_port 0x6FF
|
||||
#define mask_binary_port 0x4FF
|
||||
#define mask_boolean 0xF7
|
||||
#define mask_box 0x7F
|
||||
#define mask_bwp 0xFFFFFFFF
|
||||
#define mask_bytevector 0x3
|
||||
#define mask_char 0xFF
|
||||
#define mask_closure 0x7
|
||||
#define mask_code 0xFF
|
||||
#define mask_continuation_code 0x2FF
|
||||
#define mask_eof 0xFFFFFFFF
|
||||
#define mask_exactnum 0xFFFFFFFF
|
||||
#define mask_false 0xFFFFFFFF
|
||||
#define mask_fixnum 0x3
|
||||
#define mask_flonum 0x7
|
||||
#define mask_fxvector 0x7
|
||||
#define mask_guardian_code 0x8FF
|
||||
#define mask_immediate 0x7
|
||||
#define mask_inexactnum 0xFFFFFFFF
|
||||
#define mask_input_port 0x1FF
|
||||
#define mask_mutable_box 0xFFFFFFFF
|
||||
#define mask_mutable_bytevector 0x7
|
||||
#define mask_mutable_fxvector 0xF
|
||||
#define mask_mutable_string 0xF
|
||||
#define mask_mutable_vector 0x7
|
||||
#define mask_nil 0xFFFFFFFF
|
||||
#define mask_octet -0x3FD
|
||||
#define mask_other_number 0xF
|
||||
#define mask_output_port 0x2FF
|
||||
#define mask_pair 0x7
|
||||
#define mask_port 0xFF
|
||||
#define mask_ratnum 0xFFFFFFFF
|
||||
#define mask_record 0x7
|
||||
#define mask_rtd_counts 0xFFFFFFFF
|
||||
#define mask_signed_bignum 0x3F
|
||||
#define mask_string 0x7
|
||||
#define mask_symbol 0x7
|
||||
#define mask_system_code 0x1FF
|
||||
#define mask_textual_input_port 0x5FF
|
||||
#define mask_textual_output_port 0x6FF
|
||||
#define mask_textual_port 0x4FF
|
||||
#define mask_thread 0xFFFFFFFF
|
||||
#define mask_tlc 0xFFFFFFFF
|
||||
#define mask_typed_object 0x7
|
||||
#define mask_unbound 0xFFFFFFFF
|
||||
#define mask_vector 0x3
|
||||
#define max_float_alignment 0x4
|
||||
#define max_integer_alignment 0x4
|
||||
#define max_real_space 0xB
|
||||
#define max_space 0xC
|
||||
#define max_sweep_space 0xA
|
||||
#define maximum_bignum_length (iptr)0x3FFFFFF
|
||||
#define maximum_bytevector_length (iptr)0x1FFFFFFF
|
||||
#define maximum_fxvector_length (iptr)0xFFFFFFF
|
||||
#define maximum_interrupt_index 0x4
|
||||
#define maximum_string_length (iptr)0xFFFFFFF
|
||||
#define maximum_vector_length (iptr)0x1FFFFFFF
|
||||
#define minimum_segment_request 0x80
|
||||
#define most_negative_fixnum (iptr)-0x20000000
|
||||
#define most_positive_fixnum (iptr)0x1FFFFFFF
|
||||
#define native_endianness little
|
||||
#define one_shot_headroom 0x600
|
||||
#define ordinary_type_bits 0x8
|
||||
#define pair_car_disp 0x7
|
||||
#define pair_cdr_disp 0xB
|
||||
#define pair_shift 0x3
|
||||
#define port_flag_binary 0x4
|
||||
#define port_flag_block_buffered 0x200
|
||||
#define port_flag_bol 0x80
|
||||
#define port_flag_char_positions 0x1000
|
||||
#define port_flag_closed 0x8
|
||||
#define port_flag_compressed 0x20
|
||||
#define port_flag_eof 0x100
|
||||
#define port_flag_exclusive 0x40
|
||||
#define port_flag_file 0x10
|
||||
#define port_flag_fold_case 0x4000
|
||||
#define port_flag_input 0x1
|
||||
#define port_flag_input_mode 0x800
|
||||
#define port_flag_line_buffered 0x400
|
||||
#define port_flag_no_fold_case 0x8000
|
||||
#define port_flag_output 0x2
|
||||
#define port_flag_r6rs 0x2000
|
||||
#define port_flags_offset 0x8
|
||||
#define port_handler_disp 0x5
|
||||
#define port_ibuffer_disp 0x1D
|
||||
#define port_icount_disp 0xD
|
||||
#define port_ilast_disp 0x19
|
||||
#define port_info_disp 0x21
|
||||
#define port_name_disp 0x25
|
||||
#define port_obuffer_disp 0x15
|
||||
#define port_ocount_disp 0x9
|
||||
#define port_olast_disp 0x11
|
||||
#define port_type_disp 0x1
|
||||
#define prelex_is_flags_offset 0x8
|
||||
#define prelex_is_mask 0xFF00
|
||||
#define prelex_sticky_mask 0xFF
|
||||
#define prelex_was_flags_offset 0x10
|
||||
#define primary_type_bits 0x3
|
||||
#define ptr_bits 0x20
|
||||
#define ptr_bytes 0x4
|
||||
#define ptrdiff_t_bits 0x20
|
||||
#define ratnum_denominator_disp 0x9
|
||||
#define ratnum_numerator_disp 0x5
|
||||
#define ratnum_type_disp 0x1
|
||||
#define real_space_alist ((new . 0) (impure . 1) (symbol . 2) (port . 3) (weakpair . 4) (ephemeron . 5) (pure . 6) (continuation . 7) (code . 8) (pure-typed-object . 9) (impure-record . 10) (data . 11))
|
||||
#define record_data_disp 0x5
|
||||
#define record_type_counts_disp 0x25
|
||||
#define record_type_disp 0x1
|
||||
#define record_type_flags_disp 0x1D
|
||||
#define record_type_flds_disp 0x19
|
||||
#define record_type_mpm_disp 0x11
|
||||
#define record_type_name_disp 0x15
|
||||
#define record_type_parent_disp 0x5
|
||||
#define record_type_pm_disp 0xD
|
||||
#define record_type_size_disp 0x9
|
||||
#define record_type_type_disp 0x1
|
||||
#define record_type_uid_disp 0x21
|
||||
#define reloc_abs 0x0
|
||||
#define reloc_code_offset_index 0x3
|
||||
#define reloc_code_offset_mask 0x3FF
|
||||
#define reloc_code_offset_offset 0x4
|
||||
#define reloc_extended_format 0x1
|
||||
#define reloc_item_offset_index 0x2
|
||||
#define reloc_item_offset_mask 0x3FFFF
|
||||
#define reloc_item_offset_offset 0xE
|
||||
#define reloc_longp_index 0x4
|
||||
#define reloc_rel 0x1
|
||||
#define reloc_table_code_disp 0x4
|
||||
#define reloc_table_data_disp 0x8
|
||||
#define reloc_table_size_disp 0x0
|
||||
#define reloc_type_index 0x1
|
||||
#define reloc_type_mask 0x7
|
||||
#define reloc_type_offset 0x1
|
||||
#define return_address_frame_size_disp -0x8
|
||||
#define return_address_livemask_disp -0x10
|
||||
#define return_address_mv_return_address_disp -0x4
|
||||
#define return_address_toplink_disp -0xC
|
||||
#define rp_header_frame_size_disp 0x8
|
||||
#define rp_header_livemask_disp 0x0
|
||||
#define rp_header_mv_return_address_disp 0xC
|
||||
#define rp_header_toplink_disp 0x4
|
||||
#define rtd_counts_data_disp 0xD
|
||||
#define rtd_counts_timestamp_disp 0x5
|
||||
#define rtd_counts_type_disp 0x1
|
||||
#define rtd_generative 0x1
|
||||
#define rtd_opaque 0x2
|
||||
#define rtd_sealed 0x4
|
||||
#define sbwp (ptr)0x4E
|
||||
#define scaled_shot_1_shot_flag -0x4
|
||||
#define scheme_version 0x90509
|
||||
#define segment_card_offset_bits 0x5
|
||||
#define segment_offset_bits 0xD
|
||||
#define segment_t1_bits 0x13
|
||||
#define segment_table_levels 0x1
|
||||
#define seof (ptr)0x36
|
||||
#define sfalse (ptr)0x6
|
||||
#define short_bits 0x10
|
||||
#define signal_interrupt_index 0x4
|
||||
#define size_box 0x8
|
||||
#define size_cached_stack 0x8
|
||||
#define size_continuation 0x20
|
||||
#define size_ephemeron 0x10
|
||||
#define size_exactnum 0x10
|
||||
#define size_flonum 0x8
|
||||
#define size_forward 0x8
|
||||
#define size_guardian_entry 0x10
|
||||
#define size_inexactnum 0x18
|
||||
#define size_pair 0x8
|
||||
#define size_port 0x28
|
||||
#define size_ratnum 0x10
|
||||
#define size_record_type 0x28
|
||||
#define size_rp_header 0x10
|
||||
#define size_rtd_counts 0x410
|
||||
#define size_symbol 0x18
|
||||
#define size_tc 0x158
|
||||
#define size_thread 0x8
|
||||
#define size_tlc 0x10
|
||||
#define size_typed_object 0x8
|
||||
#define size_t_bits 0x20
|
||||
#define snil (ptr)0x26
|
||||
#define space_char_list (#\n #\i #\x #\q #\w #\e #\p #\k #\c #\r #\s #\d #\e)
|
||||
#define space_cname_list ("new" "impure" "symbol" "port" "weakpr" "emph" "pure" "cont" "code" "p-tobj" "ip-rec" "data" "empty")
|
||||
#define space_code 0x8
|
||||
#define space_continuation 0x7
|
||||
#define space_data 0xB
|
||||
#define space_empty 0xC
|
||||
#define space_ephemeron 0x5
|
||||
#define space_impure 0x1
|
||||
#define space_impure_record 0xA
|
||||
#define space_locked 0x20
|
||||
#define space_new 0x0
|
||||
#define space_old 0x40
|
||||
#define space_port 0x3
|
||||
#define space_pure 0x6
|
||||
#define space_pure_typed_object 0x9
|
||||
#define space_symbol 0x2
|
||||
#define space_weakpair 0x4
|
||||
#define stack_frame_limit 0x100
|
||||
#define stack_slop 0x200
|
||||
#define static_generation 0xFF
|
||||
#define string_char_bits 0x20
|
||||
#define string_char_bytes 0x4
|
||||
#define string_char_offset 0x2
|
||||
#define string_data_disp 0x5
|
||||
#define string_immutable_flag 0x8
|
||||
#define string_length_factor 0x10
|
||||
#define string_length_offset 0x4
|
||||
#define string_type_disp 0x1
|
||||
#define strue (ptr)0xE
|
||||
#define sunbound (ptr)0x1E
|
||||
#define svoid (ptr)0x3E
|
||||
#define symbol_hash_disp 0x19
|
||||
#define symbol_name_disp 0x11
|
||||
#define symbol_plist_disp 0xD
|
||||
#define symbol_pvalue_disp 0x9
|
||||
#define symbol_splist_disp 0x15
|
||||
#define symbol_value_disp 0x5
|
||||
#define tc_DSTBV_disp 0x150
|
||||
#define tc_SRCBV_disp 0x154
|
||||
#define tc_U_disp 0xA4
|
||||
#define tc_V_disp 0xA8
|
||||
#define tc_W_disp 0xAC
|
||||
#define tc_X_disp 0xB0
|
||||
#define tc_Y_disp 0xB4
|
||||
#define tc_ac0_disp 0x4
|
||||
#define tc_ac1_disp 0x8
|
||||
#define tc_active_disp 0x8C
|
||||
#define tc_alloc_counter_disp 0x144
|
||||
#define tc_ap_disp 0x18
|
||||
#define tc_arg_regs_disp 0x0
|
||||
#define tc_block_counter_disp 0xE0
|
||||
#define tc_cchain_disp 0x80
|
||||
#define tc_code_ranges_to_flush_disp 0x84
|
||||
#define tc_compile_profile_disp 0x10C
|
||||
#define tc_compress_format_disp 0x130
|
||||
#define tc_compress_level_disp 0x134
|
||||
#define tc_cp_disp 0x10
|
||||
#define tc_current_error_disp 0xDC
|
||||
#define tc_current_input_disp 0xD4
|
||||
#define tc_current_mso_disp 0xE8
|
||||
#define tc_current_output_disp 0xD8
|
||||
#define tc_default_record_equal_procedure_disp 0x128
|
||||
#define tc_default_record_hash_procedure_disp 0x12C
|
||||
#define tc_disable_count_disp 0xC0
|
||||
#define tc_eap_disp 0x1C
|
||||
#define tc_esp_disp 0x14
|
||||
#define tc_fxfirst_bit_set_bv_disp 0xF4
|
||||
#define tc_fxlength_bv_disp 0xF0
|
||||
#define tc_generate_inspector_information_disp 0x110
|
||||
#define tc_generate_procedure_source_information_disp 0x114
|
||||
#define tc_generate_profile_forms_disp 0x118
|
||||
#define tc_guardian_entries_disp 0x7C
|
||||
#define tc_instr_counter_disp 0x13C
|
||||
#define tc_keyboard_interrupt_pending_disp 0xCC
|
||||
#define tc_lz4_out_buffer_disp 0x138
|
||||
#define tc_meta_level_disp 0x108
|
||||
#define tc_null_immutable_bytevector_disp 0x100
|
||||
#define tc_null_immutable_fxvector_disp 0xFC
|
||||
#define tc_null_immutable_string_disp 0x104
|
||||
#define tc_null_immutable_vector_disp 0xF8
|
||||
#define tc_optimize_level_disp 0x11C
|
||||
#define tc_parameters_disp 0x14C
|
||||
#define tc_random_seed_disp 0x88
|
||||
#define tc_real_eap_disp 0x38
|
||||
#define tc_ret_disp 0x20
|
||||
#define tc_scheme_stack_disp 0x90
|
||||
#define tc_scheme_stack_size_disp 0x9C
|
||||
#define tc_sfd_disp 0xE4
|
||||
#define tc_sfp_disp 0xC
|
||||
#define tc_signal_interrupt_pending_disp 0xC4
|
||||
#define tc_signal_interrupt_queue_disp 0xC8
|
||||
#define tc_something_pending_disp 0xB8
|
||||
#define tc_stack_cache_disp 0x94
|
||||
#define tc_stack_link_disp 0x98
|
||||
#define tc_subset_mode_disp 0x120
|
||||
#define tc_suppress_primitive_inlining_disp 0x124
|
||||
#define tc_target_machine_disp 0xEC
|
||||
#define tc_td_disp 0x34
|
||||
#define tc_threadno_disp 0xD0
|
||||
#define tc_timer_ticks_disp 0xBC
|
||||
#define tc_trap_disp 0x24
|
||||
#define tc_ts_disp 0x30
|
||||
#define tc_virtual_registers_disp 0x3C
|
||||
#define tc_winders_disp 0xA0
|
||||
#define tc_xp_disp 0x28
|
||||
#define tc_yp_disp 0x2C
|
||||
#define thread_tc_disp 0x5
|
||||
#define thread_type_disp 0x1
|
||||
#define time_collector_cpu 0x5
|
||||
#define time_collector_real 0x6
|
||||
#define time_duration 0x2
|
||||
#define time_monotonic 0x3
|
||||
#define time_process 0x0
|
||||
#define time_t_bits 0x20
|
||||
#define time_thread 0x1
|
||||
#define time_utc 0x4
|
||||
#define timer_interrupt_index 0x2
|
||||
#define tlc_ht_disp 0x9
|
||||
#define tlc_keyval_disp 0x5
|
||||
#define tlc_next_disp 0xD
|
||||
#define tlc_type_disp 0x1
|
||||
#define type_bignum 0x6
|
||||
#define type_binary_input_port 0x51E
|
||||
#define type_binary_output_port 0x61E
|
||||
#define type_binary_port 0x41E
|
||||
#define type_boolean 0x6
|
||||
#define type_box 0xE
|
||||
#define type_bytevector 0x1
|
||||
#define type_char 0x16
|
||||
#define type_closure 0x5
|
||||
#define type_code 0x3E
|
||||
#define type_continuation_code 0x23E
|
||||
#define type_exactnum 0x56
|
||||
#define type_fixnum 0x0
|
||||
#define type_flonum 0x2
|
||||
#define type_fxvector 0x3
|
||||
#define type_guardian_code 0x83E
|
||||
#define type_immediate 0x6
|
||||
#define type_immutable_box 0x8E
|
||||
#define type_immutable_bytevector 0x5
|
||||
#define type_immutable_fxvector 0xB
|
||||
#define type_immutable_string 0xA
|
||||
#define type_immutable_vector 0x4
|
||||
#define type_inexactnum 0x36
|
||||
#define type_input_port 0x11E
|
||||
#define type_io_port 0x31E
|
||||
#define type_mutable_box 0xE
|
||||
#define type_mutable_bytevector 0x1
|
||||
#define type_mutable_fxvector 0x3
|
||||
#define type_mutable_string 0x2
|
||||
#define type_mutable_vector 0x0
|
||||
#define type_negative_bignum 0x26
|
||||
#define type_octet 0x0
|
||||
#define type_other_number 0x6
|
||||
#define type_output_port 0x21E
|
||||
#define type_pair 0x1
|
||||
#define type_port 0x1E
|
||||
#define type_positive_bignum 0x6
|
||||
#define type_ratnum 0x16
|
||||
#define type_record 0x7
|
||||
#define type_rtd_counts 0x6E
|
||||
#define type_string 0x2
|
||||
#define type_symbol 0x3
|
||||
#define type_system_code 0x13E
|
||||
#define type_textual_input_port 0x11E
|
||||
#define type_textual_output_port 0x21E
|
||||
#define type_textual_port 0x1E
|
||||
#define type_thread 0x4E
|
||||
#define type_tlc 0x5E
|
||||
#define type_typed_object 0x7
|
||||
#define type_vector 0x0
|
||||
#define typed_object_type_disp 0x1
|
||||
#define typedef_i16 "short"
|
||||
#define typedef_i32 "int"
|
||||
#define typedef_i64 "long long"
|
||||
#define typedef_i8 "char"
|
||||
#define typedef_iptr "int"
|
||||
#define typedef_ptr "void *"
|
||||
#define typedef_string_char "unsigned int"
|
||||
#define typedef_u16 "unsigned short"
|
||||
#define typedef_u32 "unsigned int"
|
||||
#define typedef_u64 "unsigned long long"
|
||||
#define typedef_u8 "unsigned char"
|
||||
#define typedef_uptr "unsigned int"
|
||||
#define typemod 0x8
|
||||
#define unactivate_mode_deactivate 0x1
|
||||
#define unactivate_mode_destroy 0x2
|
||||
#define unactivate_mode_noop 0x0
|
||||
#define unaligned_floats 1
|
||||
#define unaligned_integers 1
|
||||
#define underflow_limit 0x40
|
||||
#define unscaled_shot_1_shot_flag -0x1
|
||||
#define vector_data_disp 0x5
|
||||
#define vector_immutable_flag 0x4
|
||||
#define vector_length_factor 0x8
|
||||
#define vector_length_offset 0x3
|
||||
#define vector_type_disp 0x1
|
||||
#define virtual_register_count 0x10
|
||||
#define wchar_bits 0x20
|
||||
|
||||
/* constants from declare-c-entries */
|
||||
#define CENTRY_Scall_any_results 24
|
||||
#define CENTRY_Scall_one_result 23
|
||||
#define CENTRY_Sreturn 22
|
||||
#define CENTRY_activate_thread 11
|
||||
#define CENTRY_deactivate_thread 12
|
||||
#define CENTRY_foreign_entry 17
|
||||
#define CENTRY_get_more_room 19
|
||||
#define CENTRY_get_thread_context 1
|
||||
#define CENTRY_handle_apply_overflood 2
|
||||
#define CENTRY_handle_arg_error 16
|
||||
#define CENTRY_handle_docall_error 3
|
||||
#define CENTRY_handle_mvlet_error 15
|
||||
#define CENTRY_handle_nonprocedure_symbol 6
|
||||
#define CENTRY_handle_overflood 5
|
||||
#define CENTRY_handle_overflow 4
|
||||
#define CENTRY_handle_values_error 14
|
||||
#define CENTRY_install_library_entry 18
|
||||
#define CENTRY_instantiate_code_object 21
|
||||
#define CENTRY_raw_collect_cond 9
|
||||
#define CENTRY_raw_tc_mutex 10
|
||||
#define CENTRY_scan_remembered_set 20
|
||||
#define CENTRY_split_and_resize 8
|
||||
#define CENTRY_thread_context 0
|
||||
#define CENTRY_thread_list 7
|
||||
#define CENTRY_unactivate_thread 13
|
||||
|
||||
/* displacements for records */
|
||||
#define eq_hashtable_rtd_disp 1
|
||||
#define eq_hashtable_type_disp 5
|
||||
#define eq_hashtable_mutablep_disp 9
|
||||
#define eq_hashtable_vec_disp 13
|
||||
#define eq_hashtable_minlen_disp 17
|
||||
#define eq_hashtable_size_disp 21
|
||||
#define eq_hashtable_subtype_disp 25
|
||||
#define symbol_hashtable_rtd_disp 1
|
||||
#define symbol_hashtable_type_disp 5
|
||||
#define symbol_hashtable_mutablep_disp 9
|
||||
#define symbol_hashtable_vec_disp 13
|
||||
#define symbol_hashtable_minlen_disp 17
|
||||
#define symbol_hashtable_size_disp 21
|
||||
#define symbol_hashtable_equivp_disp 25
|
||||
#define code_info_rtd_disp 1
|
||||
#define code_info_src_disp 5
|
||||
#define code_info_sexpr_disp 9
|
||||
#define code_info_free_disp 13
|
||||
#define code_info_live_disp 17
|
||||
#define code_info_rpis_disp 21
|
||||
|
||||
/* predicates */
|
||||
#define Simmediatep(x) (((uptr)(x)&0x7)==0x6)
|
||||
#define Sportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x1E))
|
||||
#define Scodep(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x3E))
|
||||
|
||||
/* structure accessors */
|
||||
#define INITCAR(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define INITCDR(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define SETCAR(x,y) DIRTYSET(((ptr *)((uptr)(x)+7)),(y))
|
||||
#define SETCDR(x,y) DIRTYSET(((ptr *)((uptr)(x)+11)),(y))
|
||||
#define BOXTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITBOXREF(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SETBOXREF(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define EPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define INITEPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define EPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define INITEPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define TLCTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define TLCKEYVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define TLCHT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define TLCNEXT(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITTLCKEYVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITTLCHT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITTLCNEXT(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SETTLCNEXT(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SYMPVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define SYMPLIST(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SYMNAME(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define SYMSPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define SYMHASH(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define INITSYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITSYMPVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITSYMPLIST(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITSYMNAME(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define INITSYMSPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define INITSYMHASH(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define SETSYMVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define SETSYMPVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+9)),(y))
|
||||
#define SETSYMPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SETSYMNAME(x,y) DIRTYSET(((ptr *)((uptr)(x)+17)),(y))
|
||||
#define SETSYMSPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+21)),(y))
|
||||
#define SETSYMHASH(x,y) DIRTYSET(((ptr *)((uptr)(x)+25)),(y))
|
||||
#define VECTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITVECTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define SETVECTIT(x,i,y) DIRTYSET((((ptr *)((uptr)(x)+5))+i),(y))
|
||||
#define FXVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define FXVECTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define BYTEVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BVIT(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
#define INEXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INEXACTNUM_REAL_PART(x) (*((double *)((uptr)(x)+9)))
|
||||
#define INEXACTNUM_IMAG_PART(x) (*((double *)((uptr)(x)+17)))
|
||||
#define EXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define EXACTNUM_REAL_PART(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define EXACTNUM_IMAG_PART(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RATTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RATNUM(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define RATDEN(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define CLOSENTRY(x) (*((ptr *)((uptr)(x)+3)))
|
||||
#define CLOSIT(x,i) (((ptr *)((uptr)(x)+7))[i])
|
||||
#define FLODAT(x) (*((double *)((uptr)(x)+6)))
|
||||
#define PORTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define PORTNAME(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define PORTHANDLER(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define PORTINFO(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define PORTOCNT(x) (*((iptr *)((uptr)(x)+9)))
|
||||
#define PORTOLAST(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define PORTOBUF(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define PORTICNT(x) (*((iptr *)((uptr)(x)+13)))
|
||||
#define PORTILAST(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define PORTIBUF(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define STRTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define STRIT(x,i) (((string_char *)((uptr)(x)+5))[i])
|
||||
#define BIGTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BIGIT(x,i) (((bigit *)((uptr)(x)+5))[i])
|
||||
#define CODETYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define CODELEN(x) (*((iptr *)((uptr)(x)+5)))
|
||||
#define CODERELOC(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define CODENAME(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define CODEARITYMASK(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CODEFREE(x) (*((iptr *)((uptr)(x)+21)))
|
||||
#define CODEINFO(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define CODEPINFOS(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define CODEIT(x,i) (((octet *)((uptr)(x)+33))[i])
|
||||
#define RELOCSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define RELOCCODE(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define RELOCIT(x,i) (((uptr *)((uptr)(x)+8))[i])
|
||||
#define CONTSTACK(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define CONTLENGTH(x) (*((iptr *)((uptr)(x)+11)))
|
||||
#define CONTCLENGTH(x) (*((iptr *)((uptr)(x)+15)))
|
||||
#define CONTLINK(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define CONTRET(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define CONTWINDERS(x) (*((ptr *)((uptr)(x)+27)))
|
||||
#define RTDCOUNTSTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RTDCOUNTSTIMESTAMP(x) (*((U64 *)((uptr)(x)+5)))
|
||||
#define RTDCOUNTSIT(x,i) (((uptr *)((uptr)(x)+13))[i])
|
||||
#define RECORDDESCPARENT(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define RECORDDESCSIZE(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RECORDDESCPM(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define RECORDDESCMPM(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RECORDDESCNAME(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define RECORDDESCFLDS(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define RECORDDESCFLAGS(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define RECORDDESCUID(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define RECORDDESCCOUNTS(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define RECORDINSTTYPE(x) (*((ptr *)((uptr)(x)+1)))
|
||||
#define RECORDINSTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define CLOSCODE(p) ((ptr)((uptr)CLOSENTRY(p)-code_data_disp))
|
||||
#define CODEENTRYPOINT(x) ((ptr)((uptr)(x)+code_data_disp))
|
||||
#define SETCLOSCODE(p,x) (CLOSENTRY(p) = CODEENTRYPOINT(x))
|
||||
#define SYMCODE(p) ((ptr)((uptr)SYMPVAL(p)-code_data_disp))
|
||||
#define INITSYMCODE(p,x) (INITSYMPVAL(p) = CODEENTRYPOINT(x))
|
||||
#define SETSYMCODE(p,x) SETSYMPVAL(p,CODEENTRYPOINT(x))
|
||||
#define BIGLEN(x) ((iptr)((uptr)BIGTYPE(x) >> bignum_length_offset))
|
||||
#define BIGSIGN(x) ((BIGTYPE(x) & mask_bignum_sign) >> bignum_sign_offset)
|
||||
#define SETBIGLENANDSIGN(x,xl,xs) BIGTYPE(x) = (uptr)(xl) << bignum_length_offset | (xs) << bignum_sign_offset | type_bignum
|
||||
#define CLOSLEN(p) CODEFREE(CLOSCODE(p))
|
||||
#define GUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define GUARDIANREP(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define GUARDIANTCONC(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define GUARDIANNEXT(x) (*((ptr *)((uptr)(x)+12)))
|
||||
#define INITGUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define INITGUARDIANREP(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define INITGUARDIANTCONC(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define INITGUARDIANNEXT(x) (*((ptr *)((uptr)(x)+12)))
|
||||
#define FORWARDMARKER(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define FORWARDADDRESS(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define CACHEDSTACKSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define CACHEDSTACKLINK(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define RPHEADERFRAMESIZE(x) (*((iptr *)((uptr)(x)+8)))
|
||||
#define RPHEADERLIVEMASK(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define RPHEADERTOPLINK(x) (*((uptr *)((uptr)(x)+4)))
|
||||
|
||||
/* machine types */
|
||||
#define machine_type_names {"any", "i3le", "ti3le", "i3nt", "ti3nt", "i3fb", "ti3fb", "i3ob", "ti3ob", "i3osx", "ti3osx", "a6le", "ta6le", "a6osx", "ta6osx", "a6ob", "ta6ob", "a6s2", "ta6s2", "i3s2", "ti3s2", "a6fb", "ta6fb", "i3nb", "ti3nb", "a6nb", "ta6nb", "a6nt", "ta6nt", "i3qnx", "ti3qnx", "arm32le", "tarm32le", "ppc32le", "tppc32le"}
|
||||
|
||||
/* allocation-space names */
|
||||
#define alloc_space_names "new", "impure", "symbol", "port", "weakpr", "emph", "pure", "cont", "code", "p-tobj", "ip-rec", "data", "empty"
|
||||
|
||||
/* allocation-space characters */
|
||||
#define alloc_space_chars 'n', 'i', 'x', 'q', 'w', 'e', 'p', 'k', 'c', 'r', 's', 'd', 'e'
|
||||
|
||||
/* threads */
|
||||
#define THREADTC(x) (*((uptr *)((uptr)(x)+5)))
|
||||
|
||||
/* thread-context data */
|
||||
#define DSTBV(x) (*((ptr *)((uptr)(x)+336)))
|
||||
#define SRCBV(x) (*((ptr *)((uptr)(x)+340)))
|
||||
#define U(x) (*((ptr *)((uptr)(x)+164)))
|
||||
#define V(x) (*((ptr *)((uptr)(x)+168)))
|
||||
#define W(x) (*((ptr *)((uptr)(x)+172)))
|
||||
#define X(x) (*((ptr *)((uptr)(x)+176)))
|
||||
#define Y(x) (*((ptr *)((uptr)(x)+180)))
|
||||
#define AC0(x) (*((void* *)((uptr)(x)+4)))
|
||||
#define AC1(x) (*((void* *)((uptr)(x)+8)))
|
||||
#define ACTIVE(x) (*((I32 *)((uptr)(x)+140)))
|
||||
#define ALLOCCOUNTER(x) (*((U64 *)((uptr)(x)+324)))
|
||||
#define AP(x) (*((void* *)((uptr)(x)+24)))
|
||||
#define ARGREGS(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define BLOCKCOUNTER(x) (*((ptr *)((uptr)(x)+224)))
|
||||
#define CCHAIN(x) (*((ptr *)((uptr)(x)+128)))
|
||||
#define CODERANGESTOFLUSH(x) (*((ptr *)((uptr)(x)+132)))
|
||||
#define COMPILEPROFILE(x) (*((ptr *)((uptr)(x)+268)))
|
||||
#define COMPRESSFORMAT(x) (*((ptr *)((uptr)(x)+304)))
|
||||
#define COMPRESSLEVEL(x) (*((ptr *)((uptr)(x)+308)))
|
||||
#define CP(x) (*((void* *)((uptr)(x)+16)))
|
||||
#define CURRENTERROR(x) (*((ptr *)((uptr)(x)+220)))
|
||||
#define CURRENTINPUT(x) (*((ptr *)((uptr)(x)+212)))
|
||||
#define CURRENTMSO(x) (*((ptr *)((uptr)(x)+232)))
|
||||
#define CURRENTOUTPUT(x) (*((ptr *)((uptr)(x)+216)))
|
||||
#define DEFAULTRECORDEQUALPROCEDURE(x) (*((ptr *)((uptr)(x)+296)))
|
||||
#define DEFAULTRECORDHASHPROCEDURE(x) (*((ptr *)((uptr)(x)+300)))
|
||||
#define DISABLECOUNT(x) (*((ptr *)((uptr)(x)+192)))
|
||||
#define EAP(x) (*((void* *)((uptr)(x)+28)))
|
||||
#define ESP(x) (*((void* *)((uptr)(x)+20)))
|
||||
#define FXFIRSTBITSETBV(x) (*((ptr *)((uptr)(x)+244)))
|
||||
#define FXLENGTHBV(x) (*((ptr *)((uptr)(x)+240)))
|
||||
#define GENERATEINSPECTORINFORMATION(x) (*((ptr *)((uptr)(x)+272)))
|
||||
#define GENERATEPROCEDURESOURCEINFORMATION(x) (*((ptr *)((uptr)(x)+276)))
|
||||
#define GENERATEPROFILEFORMS(x) (*((ptr *)((uptr)(x)+280)))
|
||||
#define GUARDIANENTRIES(x) (*((ptr *)((uptr)(x)+124)))
|
||||
#define INSTRCOUNTER(x) (*((U64 *)((uptr)(x)+316)))
|
||||
#define KEYBOARDINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+204)))
|
||||
#define LZ4OUTBUFFER(x) (*((void* *)((uptr)(x)+312)))
|
||||
#define METALEVEL(x) (*((ptr *)((uptr)(x)+264)))
|
||||
#define NULLIMMUTABLEBYTEVECTOR(x) (*((ptr *)((uptr)(x)+256)))
|
||||
#define NULLIMMUTABLEFXVECTOR(x) (*((ptr *)((uptr)(x)+252)))
|
||||
#define NULLIMMUTABLESTRING(x) (*((ptr *)((uptr)(x)+260)))
|
||||
#define NULLIMMUTABLEVECTOR(x) (*((ptr *)((uptr)(x)+248)))
|
||||
#define OPTIMIZELEVEL(x) (*((ptr *)((uptr)(x)+284)))
|
||||
#define PARAMETERS(x) (*((ptr *)((uptr)(x)+332)))
|
||||
#define RANDOMSEED(x) (*((U32 *)((uptr)(x)+136)))
|
||||
#define REAL_EAP(x) (*((void* *)((uptr)(x)+56)))
|
||||
#define RET(x) (*((void* *)((uptr)(x)+32)))
|
||||
#define SCHEMESTACK(x) (*((void* *)((uptr)(x)+144)))
|
||||
#define SCHEMESTACKSIZE(x) (*((iptr *)((uptr)(x)+156)))
|
||||
#define SFD(x) (*((ptr *)((uptr)(x)+228)))
|
||||
#define SFP(x) (*((void* *)((uptr)(x)+12)))
|
||||
#define SIGNALINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+196)))
|
||||
#define SIGNALINTERRUPTQUEUE(x) (*((ptr *)((uptr)(x)+200)))
|
||||
#define SOMETHINGPENDING(x) (*((ptr *)((uptr)(x)+184)))
|
||||
#define STACKCACHE(x) (*((ptr *)((uptr)(x)+148)))
|
||||
#define STACKLINK(x) (*((ptr *)((uptr)(x)+152)))
|
||||
#define SUBSETMODE(x) (*((ptr *)((uptr)(x)+288)))
|
||||
#define SUPPRESSPRIMITIVEINLINING(x) (*((ptr *)((uptr)(x)+292)))
|
||||
#define TARGETMACHINE(x) (*((ptr *)((uptr)(x)+236)))
|
||||
#define TD(x) (*((void* *)((uptr)(x)+52)))
|
||||
#define THREADNO(x) (*((ptr *)((uptr)(x)+208)))
|
||||
#define TIMERTICKS(x) (*((ptr *)((uptr)(x)+188)))
|
||||
#define TRAP(x) (*((void* *)((uptr)(x)+36)))
|
||||
#define TS(x) (*((void* *)((uptr)(x)+48)))
|
||||
#define VIRTUALREGISTERS(x,i) (((ptr *)((uptr)(x)+60))[i])
|
||||
#define WINDERS(x) (*((ptr *)((uptr)(x)+160)))
|
||||
#define XP(x) (*((void* *)((uptr)(x)+40)))
|
||||
#define YP(x) (*((void* *)((uptr)(x)+44)))
|
||||
#define ARGREG(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define VIRTREG(x,i) (((ptr *)((uptr)(x)+60))[i])
|
||||
|
||||
/* library entries we access from C code */
|
||||
#define library_nonprocedure_code 152
|
||||
#define library_dounderflow 154
|
||||
BIN
boot/i3le/petite.boot
Normal file
BIN
boot/i3le/petite.boot
Normal file
Binary file not shown.
BIN
boot/i3le/scheme.boot
Normal file
BIN
boot/i3le/scheme.boot
Normal file
Binary file not shown.
239
boot/i3le/scheme.h
Normal file
239
boot/i3le/scheme.h
Normal file
|
|
@ -0,0 +1,239 @@
|
|||
/* scheme.h for Chez Scheme Version 9.5.9 (i3le) */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct scheme.h */
|
||||
/* for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Specify declaration of exports. */
|
||||
#ifdef _WIN32
|
||||
# if __cplusplus
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern "C" __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern "C" __declspec (dllexport)
|
||||
# endif
|
||||
# else
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern
|
||||
# else
|
||||
# define EXPORT extern __declspec (dllexport)
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# if __cplusplus
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern
|
||||
# endif
|
||||
#endif
|
||||
|
||||
/* Chez Scheme Version and machine type */
|
||||
#define VERSION "9.5.9"
|
||||
#define MACHINE_TYPE "i3le"
|
||||
|
||||
/* All Scheme objects are of type ptr. Type iptr and */
|
||||
/* uptr are signed and unsigned ints of the same size */
|
||||
/* as a ptr */
|
||||
typedef void * ptr;
|
||||
typedef int iptr;
|
||||
typedef unsigned int uptr;
|
||||
|
||||
/* String elements are 32-bit tagged char objects */
|
||||
typedef unsigned int string_char;
|
||||
|
||||
/* Bytevector elements are 8-bit unsigned "octets" */
|
||||
typedef unsigned char octet;
|
||||
|
||||
/* Type predicates */
|
||||
#define Sfixnump(x) (((uptr)(x)&0x3)==0x0)
|
||||
#define Scharp(x) (((uptr)(x)&0xFF)==0x16)
|
||||
#define Snullp(x) ((uptr)(x)==0x26)
|
||||
#define Seof_objectp(x) ((uptr)(x)==0x36)
|
||||
#define Sbwp_objectp(x) ((uptr)(x)==0x4E)
|
||||
#define Sbooleanp(x) (((uptr)(x)&0xF7)==0x6)
|
||||
#define Spairp(x) (((uptr)(x)&0x7)==0x1)
|
||||
#define Ssymbolp(x) (((uptr)(x)&0x7)==0x3)
|
||||
#define Sprocedurep(x) (((uptr)(x)&0x7)==0x5)
|
||||
#define Sflonump(x) (((uptr)(x)&0x7)==0x2)
|
||||
#define Svectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x0))
|
||||
#define Sfxvectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x3))
|
||||
#define Sbytevectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x1))
|
||||
#define Sstringp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x2))
|
||||
#define Sbignump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1F)==0x6))
|
||||
#define Sboxp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7F)==0xE))
|
||||
#define Sinexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x36))
|
||||
#define Sexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x56))
|
||||
#define Sratnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x16))
|
||||
#define Sinputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1FF)==0x11E))
|
||||
#define Soutputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x2FF)==0x21E))
|
||||
#define Srecordp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x7))
|
||||
|
||||
/* Accessors */
|
||||
#define Sfixnum_value(x) ((iptr)(x)/4)
|
||||
#define Schar_value(x) ((string_char)((uptr)(x)>>8))
|
||||
#define Sboolean_value(x) ((x) != Sfalse)
|
||||
#define Scar(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define Scdr(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define Sflonum_value(x) (*((double *)((uptr)(x)+6)))
|
||||
#define Svector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Svector_ref(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define Sfxvector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sfxvector_ref(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define Sbytevector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Sbytevector_u8_ref(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
/* Warning: Sbytevector_data(x) returns a pointer into x. */
|
||||
#define Sbytevector_data(x) &Sbytevector_u8_ref(x,0)
|
||||
#define Sstring_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sstring_ref(x,i) Schar_value(((string_char *)((uptr)(x)+5))[i])
|
||||
#define Sunbox(x) (*((ptr *)((uptr)(x)+5)))
|
||||
EXPORT iptr Sinteger_value(ptr);
|
||||
#define Sunsigned_value(x) (uptr)Sinteger_value(x)
|
||||
EXPORT int Sinteger32_value(ptr);
|
||||
#define Sunsigned32_value(x) (unsigned int)Sinteger32_value(x)
|
||||
EXPORT long long Sinteger64_value(ptr);
|
||||
#define Sunsigned64_value(x) (unsigned long long)Sinteger64_value(x)
|
||||
|
||||
/* Mutators */
|
||||
EXPORT void Sset_box(ptr, ptr);
|
||||
EXPORT void Sset_car(ptr, ptr);
|
||||
EXPORT void Sset_cdr(ptr, ptr);
|
||||
#define Sstring_set(x,i,c) ((void)((((string_char *)((uptr)(x)+5))[i]) = (string_char)(uptr)Schar(c)))
|
||||
#define Sfxvector_set(x,i,n) ((void)(Sfxvector_ref(x,i) = (n)))
|
||||
#define Sbytevector_u8_set(x,i,n) ((void)(Sbytevector_u8_ref(x,i) = (n)))
|
||||
EXPORT void Svector_set(ptr, iptr, ptr);
|
||||
|
||||
/* Constructors */
|
||||
#define Sfixnum(x) ((ptr)(uptr)((x)*4))
|
||||
#define Schar(x) ((ptr)(uptr)((x)<<8|0x16))
|
||||
#define Snil ((ptr)0x26)
|
||||
#define Strue ((ptr)0xE)
|
||||
#define Sfalse ((ptr)0x6)
|
||||
#define Sboolean(x) ((x)?Strue:Sfalse)
|
||||
#define Sbwp_object ((ptr)0x4E)
|
||||
#define Seof_object ((ptr)0x36)
|
||||
#define Svoid ((ptr)0x3E)
|
||||
EXPORT ptr Scons(ptr, ptr);
|
||||
EXPORT ptr Sstring_to_symbol(const char *);
|
||||
EXPORT ptr Ssymbol_to_string(ptr);
|
||||
EXPORT ptr Sflonum(double);
|
||||
EXPORT ptr Smake_vector(iptr, ptr);
|
||||
EXPORT ptr Smake_fxvector(iptr, ptr);
|
||||
EXPORT ptr Smake_bytevector(iptr, int);
|
||||
EXPORT ptr Smake_string(iptr, int);
|
||||
EXPORT ptr Smake_uninitialized_string(iptr);
|
||||
EXPORT ptr Sstring(const char *);
|
||||
EXPORT ptr Sstring_of_length(const char *, iptr);
|
||||
EXPORT ptr Sstring_utf8(const char*, iptr);
|
||||
EXPORT ptr Sbox(ptr);
|
||||
EXPORT ptr Sinteger(iptr);
|
||||
EXPORT ptr Sunsigned(uptr);
|
||||
EXPORT ptr Sinteger32(int);
|
||||
EXPORT ptr Sunsigned32(unsigned int);
|
||||
EXPORT ptr Sinteger64(long long);
|
||||
EXPORT ptr Sunsigned64(unsigned long long);
|
||||
|
||||
/* Miscellaneous */
|
||||
EXPORT ptr Stop_level_value(ptr);
|
||||
EXPORT void Sset_top_level_value(ptr, ptr);
|
||||
EXPORT void Slock_object(ptr);
|
||||
EXPORT void Sunlock_object(ptr);
|
||||
EXPORT int Slocked_objectp(ptr);
|
||||
EXPORT void Sforeign_symbol(const char *, void *);
|
||||
EXPORT void Sregister_symbol(const char *, void *);
|
||||
|
||||
/* Support for calls into Scheme */
|
||||
EXPORT ptr Scall0(ptr);
|
||||
EXPORT ptr Scall1(ptr, ptr);
|
||||
EXPORT ptr Scall2(ptr, ptr, ptr);
|
||||
EXPORT ptr Scall3(ptr, ptr, ptr, ptr);
|
||||
EXPORT void Sinitframe(iptr);
|
||||
EXPORT void Sput_arg(iptr, ptr);
|
||||
EXPORT ptr Scall(ptr, iptr);
|
||||
/* Warning: Sforeign_callable_entry_point(x) returns a pointer into x. */
|
||||
#define Sforeign_callable_entry_point(x) ((void (*)(void))((uptr)(x)+33))
|
||||
#define Sforeign_callable_code_object(x) ((ptr)((uptr)(x)-33))
|
||||
|
||||
/* Customization support. */
|
||||
EXPORT const char * Skernel_version(void);
|
||||
EXPORT void Sretain_static_relocation(void);
|
||||
EXPORT void Sset_verbose(int);
|
||||
EXPORT void Sscheme_init(void (*)(void));
|
||||
EXPORT void Sregister_boot_file(const char *);
|
||||
EXPORT void Sregister_boot_file_fd(const char *, int fd);
|
||||
EXPORT void Sregister_heap_file(const char *);
|
||||
EXPORT void Scompact_heap(void);
|
||||
EXPORT void Ssave_heap(const char *, int);
|
||||
EXPORT void Sbuild_heap(const char *, void (*)(void));
|
||||
EXPORT void Senable_expeditor(const char *);
|
||||
EXPORT int Sscheme_start(int, const char *[]);
|
||||
EXPORT int Sscheme_script(const char *, int, const char *[]);
|
||||
EXPORT int Sscheme_program(const char *, int, const char *[]);
|
||||
EXPORT void Sscheme_deinit(void);
|
||||
|
||||
/* Features. */
|
||||
#define FEATURE_ICONV
|
||||
#define FEATURE_EXPEDITOR
|
||||
|
||||
/* Locking macros. */
|
||||
#define INITLOCK(addr) \
|
||||
__asm__ __volatile__ ("movl $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "memory")
|
||||
|
||||
#define SPINLOCK(addr) \
|
||||
__asm__ __volatile__ ("0:\n\t"\
|
||||
"movl $1, %%eax\n\t"\
|
||||
"xchgl (%0), %%eax\n\t"\
|
||||
"cmpl $0, %%eax\n\t"\
|
||||
"je 2f\n\t"\
|
||||
"1:\n\t"\
|
||||
"pause\n\t"\
|
||||
"cmpl $0, (%0)\n\t"\
|
||||
"je 0b\n\t"\
|
||||
"jmp 1b\n\t"\
|
||||
"2:"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "eax", "flags", "memory")
|
||||
|
||||
#define UNLOCK(addr) \
|
||||
__asm__ __volatile__ ("movl $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "memory")
|
||||
|
||||
#define LOCKED_INCR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; incl (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
|
||||
#define LOCKED_DECR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; decl (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
992
boot/i3nt/equates.h
Normal file
992
boot/i3nt/equates.h
Normal file
|
|
@ -0,0 +1,992 @@
|
|||
/* equates.h for Chez Scheme Version 9.5.9 */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct version */
|
||||
/* of this file for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Integer typedefs */
|
||||
typedef char I8;
|
||||
typedef unsigned char U8;
|
||||
typedef short I16;
|
||||
typedef unsigned short U16;
|
||||
typedef int I32;
|
||||
typedef unsigned int U32;
|
||||
typedef long long I64;
|
||||
typedef unsigned long long U64;
|
||||
|
||||
/* constants from cmacros.ss */
|
||||
#define $c_func_closure_index 0x4
|
||||
#define $c_func_closure_record_index 0x3
|
||||
#define $c_func_code_object_index 0x2
|
||||
#define $c_func_code_record_index 0x1
|
||||
#define COMPRESS_FORMAT_BITS 0x3
|
||||
#define COMPRESS_GZIP 0x0
|
||||
#define COMPRESS_HIGH 0x3
|
||||
#define COMPRESS_LOW 0x1
|
||||
#define COMPRESS_LZ4 0x1
|
||||
#define COMPRESS_MAX 0x4
|
||||
#define COMPRESS_MEDIUM 0x2
|
||||
#define COMPRESS_MIN 0x0
|
||||
#define ERROR_CALL_ARGUMENT_COUNT 0x4
|
||||
#define ERROR_CALL_NONPROCEDURE 0x3
|
||||
#define ERROR_CALL_NONPROCEDURE_SYMBOL 0x2
|
||||
#define ERROR_CALL_UNBOUND 0x1
|
||||
#define ERROR_MVLET 0x8
|
||||
#define ERROR_NONCONTINUABLE_INTERRUPT 0x6
|
||||
#define ERROR_OTHER 0x0
|
||||
#define ERROR_RESET 0x5
|
||||
#define ERROR_VALUES 0x7
|
||||
#define OPEN_ERROR_EXISTS 0x2
|
||||
#define OPEN_ERROR_EXISTSNOT 0x3
|
||||
#define OPEN_ERROR_OTHER 0x0
|
||||
#define OPEN_ERROR_PROTECTION 0x1
|
||||
#define PORT_FLAG_BINARY 0x400
|
||||
#define PORT_FLAG_BLOCK_BUFFERED 0x20000
|
||||
#define PORT_FLAG_BOL 0x8000
|
||||
#define PORT_FLAG_CHAR_POSITIONS 0x100000
|
||||
#define PORT_FLAG_CLOSED 0x800
|
||||
#define PORT_FLAG_COMPRESSED 0x2000
|
||||
#define PORT_FLAG_EOF 0x10000
|
||||
#define PORT_FLAG_EXCLUSIVE 0x4000
|
||||
#define PORT_FLAG_FILE 0x1000
|
||||
#define PORT_FLAG_FOLD_CASE 0x400000
|
||||
#define PORT_FLAG_INPUT 0x100
|
||||
#define PORT_FLAG_INPUT_MODE 0x80000
|
||||
#define PORT_FLAG_LINE_BUFFERED 0x40000
|
||||
#define PORT_FLAG_NO_FOLD_CASE 0x800000
|
||||
#define PORT_FLAG_OUTPUT 0x200
|
||||
#define PORT_FLAG_R6RS 0x200000
|
||||
#define SAPPEND 0x3
|
||||
#define SDEFAULT 0x4
|
||||
#define SEOF -0x1
|
||||
#define SERROR 0x0
|
||||
#define SICONV_DUNNO 0x0
|
||||
#define SICONV_INCOMPLETE 0x2
|
||||
#define SICONV_INVALID 0x1
|
||||
#define SICONV_NOROOM 0x3
|
||||
#define SREPLACE 0x2
|
||||
#define STRVNCATE 0x1
|
||||
#define address_bits 0x20
|
||||
#define alloc_waste_maximum 0x400
|
||||
#define annotation_all 0x3
|
||||
#define annotation_debug 0x1
|
||||
#define annotation_profile 0x2
|
||||
#define architecture x86
|
||||
#define asm_arg_reg_cnt 0x1
|
||||
#define asm_arg_reg_max 0x1
|
||||
#define bigit_bits 0x20
|
||||
#define bigit_bytes 0x4
|
||||
#define bignum_data_disp 0x5
|
||||
#define bignum_length_factor 0x40
|
||||
#define bignum_length_offset 0x6
|
||||
#define bignum_sign_offset 0x5
|
||||
#define bignum_type_disp 0x1
|
||||
#define black_hole (ptr)0x46
|
||||
#define box_ref_disp 0x5
|
||||
#define box_type_disp 0x1
|
||||
#define byte_alignment 0x8
|
||||
#define byte_constant_mask 0xFFFFFFFF
|
||||
#define bytes_per_card 0x100
|
||||
#define bytes_per_segment 0x2000
|
||||
#define bytevector_data_disp 0x9
|
||||
#define bytevector_immutable_flag 0x4
|
||||
#define bytevector_length_factor 0x8
|
||||
#define bytevector_length_offset 0x3
|
||||
#define bytevector_pad_disp 0x5
|
||||
#define bytevector_type_disp 0x1
|
||||
#define c_entry_name_vector #(thread-context get-thread-context handle-apply-overflood handle-docall-error handle-overflow handle-overflood handle-nonprocedure-symbol thread-list split-and-resize raw-collect-cond raw-tc-mutex activate-thread deactivate-thread unactivate-thread handle-values-error handle-mvlet-error handle-arg-error foreign-entry install-library-entry get-more-room scan-remembered-set instantiate-code-object Sreturn Scall-one-result Scall-any-results)
|
||||
#define c_entry_vector_size 0x19
|
||||
#define cached_stack_link_disp 0x4
|
||||
#define cached_stack_size_disp 0x0
|
||||
#define card_offset_bits 0x8
|
||||
#define cards_per_segment 0x20
|
||||
#define char_data_offset 0x8
|
||||
#define char_factor 0x100
|
||||
#define closure_code_disp 0x3
|
||||
#define closure_data_disp 0x7
|
||||
#define code_arity_mask_disp 0x11
|
||||
#define code_closure_length_disp 0x15
|
||||
#define code_data_disp 0x21
|
||||
#define code_flag_continuation 0x2
|
||||
#define code_flag_guardian 0x8
|
||||
#define code_flag_system 0x1
|
||||
#define code_flag_template 0x4
|
||||
#define code_flags_offset 0x8
|
||||
#define code_info_disp 0x19
|
||||
#define code_length_disp 0x5
|
||||
#define code_name_disp 0xD
|
||||
#define code_pinfos_disp 0x1D
|
||||
#define code_reloc_disp 0x9
|
||||
#define code_type_disp 0x1
|
||||
#define collect_interrupt_index 0x1
|
||||
#define continuation_code_disp 0x3
|
||||
#define continuation_link_disp 0x13
|
||||
#define continuation_return_address_disp 0x17
|
||||
#define continuation_stack_clength_disp 0xF
|
||||
#define continuation_stack_disp 0x7
|
||||
#define continuation_stack_length_disp 0xB
|
||||
#define continuation_winders_disp 0x1B
|
||||
#define countof_bignum 0x5
|
||||
#define countof_box 0x9
|
||||
#define countof_bytevector 0x15
|
||||
#define countof_closure 0x3
|
||||
#define countof_code 0xB
|
||||
#define countof_continuation 0x4
|
||||
#define countof_ephemeron 0x19
|
||||
#define countof_exactnum 0x8
|
||||
#define countof_flonum 0x2
|
||||
#define countof_fxvector 0x14
|
||||
#define countof_guardian 0x17
|
||||
#define countof_inexactnum 0x7
|
||||
#define countof_locked 0x16
|
||||
#define countof_oblist 0x18
|
||||
#define countof_pair 0x0
|
||||
#define countof_port 0xA
|
||||
#define countof_ratnum 0x6
|
||||
#define countof_relocation_table 0x10
|
||||
#define countof_rtd_counts 0xE
|
||||
#define countof_stack 0xF
|
||||
#define countof_string 0x13
|
||||
#define countof_symbol 0x1
|
||||
#define countof_thread 0xC
|
||||
#define countof_tlc 0xD
|
||||
#define countof_types 0x1A
|
||||
#define countof_vector 0x12
|
||||
#define countof_weakpair 0x11
|
||||
#define default_collect_trip_bytes 0x400000
|
||||
#define default_heap_reserve_ratio 1.0
|
||||
#define default_max_nonstatic_generation 0x4
|
||||
#define default_stack_size 0x7FF8
|
||||
#define default_timer_ticks 0x3E8
|
||||
#define dtvec_hour 0x3
|
||||
#define dtvec_isdst 0x9
|
||||
#define dtvec_mday 0x4
|
||||
#define dtvec_min 0x2
|
||||
#define dtvec_mon 0x5
|
||||
#define dtvec_nsec 0x0
|
||||
#define dtvec_sec 0x1
|
||||
#define dtvec_size 0xC
|
||||
#define dtvec_tzname 0xB
|
||||
#define dtvec_tzoff 0xA
|
||||
#define dtvec_wday 0x7
|
||||
#define dtvec_yday 0x8
|
||||
#define dtvec_year 0x6
|
||||
#define ephemeron_car_disp 0x7
|
||||
#define ephemeron_cdr_disp 0xB
|
||||
#define ephemeron_next_disp 0xF
|
||||
#define ephemeron_trigger_next_disp 0x13
|
||||
#define eq_hashtable_subtype_ephemeron 0x2
|
||||
#define eq_hashtable_subtype_normal 0x0
|
||||
#define eq_hashtable_subtype_weak 0x1
|
||||
#define exactnum_imag_disp 0x9
|
||||
#define exactnum_real_disp 0x5
|
||||
#define exactnum_type_disp 0x1
|
||||
#define fasl_fld_double 0xA
|
||||
#define fasl_fld_i16 0x2
|
||||
#define fasl_fld_i24 0x3
|
||||
#define fasl_fld_i32 0x4
|
||||
#define fasl_fld_i40 0x5
|
||||
#define fasl_fld_i48 0x6
|
||||
#define fasl_fld_i56 0x7
|
||||
#define fasl_fld_i64 0x8
|
||||
#define fasl_fld_ptr 0x0
|
||||
#define fasl_fld_single 0x9
|
||||
#define fasl_fld_u8 0x1
|
||||
#define fasl_header #vu8(0 0 0 0 99 104 101 122)
|
||||
#define fasl_type_base_rtd 0x1A
|
||||
#define fasl_type_box 0x1
|
||||
#define fasl_type_bytevector 0x1D
|
||||
#define fasl_type_closure 0x6
|
||||
#define fasl_type_code 0xB
|
||||
#define fasl_type_entry 0xD
|
||||
#define fasl_type_ephemeron 0x1C
|
||||
#define fasl_type_eq_hashtable 0x1F
|
||||
#define fasl_type_exactnum 0x14
|
||||
#define fasl_type_flonum 0x8
|
||||
#define fasl_type_fxvector 0x1B
|
||||
#define fasl_type_gensym 0x13
|
||||
#define fasl_type_graph 0x10
|
||||
#define fasl_type_graph_def 0x11
|
||||
#define fasl_type_graph_ref 0x12
|
||||
#define fasl_type_gzip 0x2B
|
||||
#define fasl_type_header 0x0
|
||||
#define fasl_type_immediate 0xC
|
||||
#define fasl_type_immutable_box 0x29
|
||||
#define fasl_type_immutable_bytevector 0x28
|
||||
#define fasl_type_immutable_fxvector 0x27
|
||||
#define fasl_type_immutable_string 0x26
|
||||
#define fasl_type_immutable_vector 0x25
|
||||
#define fasl_type_inexactnum 0x5
|
||||
#define fasl_type_large_integer 0xA
|
||||
#define fasl_type_library 0xE
|
||||
#define fasl_type_library_code 0xF
|
||||
#define fasl_type_lz4 0x2C
|
||||
#define fasl_type_pair 0x7
|
||||
#define fasl_type_ratnum 0x3
|
||||
#define fasl_type_record 0x17
|
||||
#define fasl_type_revisit 0x23
|
||||
#define fasl_type_rtd 0x18
|
||||
#define fasl_type_small_integer 0x19
|
||||
#define fasl_type_string 0x9
|
||||
#define fasl_type_symbol 0x2
|
||||
#define fasl_type_symbol_hashtable 0x20
|
||||
#define fasl_type_uncompressed 0x2A
|
||||
#define fasl_type_vector 0x4
|
||||
#define fasl_type_visit 0x22
|
||||
#define fasl_type_visit_revisit 0x24
|
||||
#define fasl_type_weak_pair 0x1E
|
||||
#define fixnum_bits 0x1E
|
||||
#define fixnum_factor 0x4
|
||||
#define fixnum_offset 0x2
|
||||
#define fld_byte_index 0x4
|
||||
#define fld_mutablep_index 0x2
|
||||
#define fld_name_index 0x1
|
||||
#define fld_type_index 0x3
|
||||
#define flonum_data_disp 0x6
|
||||
#define forward_address_disp 0x4
|
||||
#define forward_marker (ptr)0x2E
|
||||
#define forward_marker_disp 0x0
|
||||
#define ftype_guardian_rep (ptr)0x56
|
||||
#define fxvector_data_disp 0x5
|
||||
#define fxvector_immutable_flag 0x8
|
||||
#define fxvector_length_factor 0x10
|
||||
#define fxvector_length_offset 0x4
|
||||
#define fxvector_type_disp 0x1
|
||||
#define guardian_entry_next_disp 0xC
|
||||
#define guardian_entry_obj_disp 0x0
|
||||
#define guardian_entry_rep_disp 0x4
|
||||
#define guardian_entry_tconc_disp 0x8
|
||||
#define hashtable_default_size 0x8
|
||||
#define header_size_bignum 0x4
|
||||
#define header_size_bytevector 0x8
|
||||
#define header_size_closure 0x4
|
||||
#define header_size_code 0x20
|
||||
#define header_size_fxvector 0x4
|
||||
#define header_size_record 0x4
|
||||
#define header_size_reloc_table 0x8
|
||||
#define header_size_string 0x4
|
||||
#define header_size_vector 0x4
|
||||
#define ignore_event_flag 0x0
|
||||
#define inexactnum_imag_disp 0x11
|
||||
#define inexactnum_pad_disp 0x5
|
||||
#define inexactnum_real_disp 0x9
|
||||
#define inexactnum_type_disp 0x1
|
||||
#define int_bits 0x20
|
||||
#define integer_divide_instruction 1
|
||||
#define keyboard_interrupt_index 0x3
|
||||
#define library_entry_vector_size 0x210
|
||||
#define libspec_closure_index 0xD
|
||||
#define libspec_does_not_expect_headroom_index 0x0
|
||||
#define libspec_error_index 0xE
|
||||
#define libspec_fake_index 0x10
|
||||
#define libspec_flags_index 0x2
|
||||
#define libspec_has_does_not_expect_headroom_version_index 0xF
|
||||
#define libspec_index_base_offset 0x1
|
||||
#define libspec_index_base_size 0x9
|
||||
#define libspec_index_offset 0x0
|
||||
#define libspec_index_size 0xA
|
||||
#define libspec_interface_offset 0xA
|
||||
#define libspec_interface_size 0x3
|
||||
#define libspec_name_index 0x1
|
||||
#define log2_ptr_bytes 0x2
|
||||
#define long_bits 0x20
|
||||
#define long_long_bits 0x40
|
||||
#define machine_type 0x3
|
||||
#define machine_type_a6fb 0x15
|
||||
#define machine_type_a6le 0xB
|
||||
#define machine_type_a6nb 0x19
|
||||
#define machine_type_a6nt 0x1B
|
||||
#define machine_type_a6ob 0xF
|
||||
#define machine_type_a6osx 0xD
|
||||
#define machine_type_a6s2 0x11
|
||||
#define machine_type_alist ((0 . any) (1 . i3le) (2 . ti3le) (3 . i3nt) (4 . ti3nt) (5 . i3fb) (6 . ti3fb) (7 . i3ob) (8 . ti3ob) (9 . i3osx) (10 . ti3osx) (11 . a6le) (12 . ta6le) (13 . a6osx) (14 . ta6osx) (15 . a6ob) (16 . ta6ob) (17 . a6s2) (18 . ta6s2) (19 . i3s2) (20 . ti3s2) (21 . a6fb) (22 . ta6fb) (23 . i3nb) (24 . ti3nb) (25 . a6nb) (26 . ta6nb) (27 . a6nt) (28 . ta6nt) (29 . i3qnx) (30 . ti3qnx) (31 . arm32le) (32 . tarm32le) (33 . ppc32le) (34 . tppc32le))
|
||||
#define machine_type_any 0x0
|
||||
#define machine_type_arm32le 0x1F
|
||||
#define machine_type_i3fb 0x5
|
||||
#define machine_type_i3le 0x1
|
||||
#define machine_type_i3nb 0x17
|
||||
#define machine_type_i3nt 0x3
|
||||
#define machine_type_i3ob 0x7
|
||||
#define machine_type_i3osx 0x9
|
||||
#define machine_type_i3qnx 0x1D
|
||||
#define machine_type_i3s2 0x13
|
||||
#define machine_type_limit 0x23
|
||||
#define machine_type_name i3nt
|
||||
#define machine_type_ppc32le 0x21
|
||||
#define machine_type_ta6fb 0x16
|
||||
#define machine_type_ta6le 0xC
|
||||
#define machine_type_ta6nb 0x1A
|
||||
#define machine_type_ta6nt 0x1C
|
||||
#define machine_type_ta6ob 0x10
|
||||
#define machine_type_ta6osx 0xE
|
||||
#define machine_type_ta6s2 0x12
|
||||
#define machine_type_tarm32le 0x20
|
||||
#define machine_type_ti3fb 0x6
|
||||
#define machine_type_ti3le 0x2
|
||||
#define machine_type_ti3nb 0x18
|
||||
#define machine_type_ti3nt 0x4
|
||||
#define machine_type_ti3ob 0x8
|
||||
#define machine_type_ti3osx 0xA
|
||||
#define machine_type_ti3qnx 0x1E
|
||||
#define machine_type_ti3s2 0x14
|
||||
#define machine_type_tppc32le 0x22
|
||||
#define mask_bignum 0x1F
|
||||
#define mask_bignum_sign 0x20
|
||||
#define mask_binary_input_port 0x5FF
|
||||
#define mask_binary_output_port 0x6FF
|
||||
#define mask_binary_port 0x4FF
|
||||
#define mask_boolean 0xF7
|
||||
#define mask_box 0x7F
|
||||
#define mask_bwp 0xFFFFFFFF
|
||||
#define mask_bytevector 0x3
|
||||
#define mask_char 0xFF
|
||||
#define mask_closure 0x7
|
||||
#define mask_code 0xFF
|
||||
#define mask_continuation_code 0x2FF
|
||||
#define mask_eof 0xFFFFFFFF
|
||||
#define mask_exactnum 0xFFFFFFFF
|
||||
#define mask_false 0xFFFFFFFF
|
||||
#define mask_fixnum 0x3
|
||||
#define mask_flonum 0x7
|
||||
#define mask_fxvector 0x7
|
||||
#define mask_guardian_code 0x8FF
|
||||
#define mask_immediate 0x7
|
||||
#define mask_inexactnum 0xFFFFFFFF
|
||||
#define mask_input_port 0x1FF
|
||||
#define mask_mutable_box 0xFFFFFFFF
|
||||
#define mask_mutable_bytevector 0x7
|
||||
#define mask_mutable_fxvector 0xF
|
||||
#define mask_mutable_string 0xF
|
||||
#define mask_mutable_vector 0x7
|
||||
#define mask_nil 0xFFFFFFFF
|
||||
#define mask_octet -0x3FD
|
||||
#define mask_other_number 0xF
|
||||
#define mask_output_port 0x2FF
|
||||
#define mask_pair 0x7
|
||||
#define mask_port 0xFF
|
||||
#define mask_ratnum 0xFFFFFFFF
|
||||
#define mask_record 0x7
|
||||
#define mask_rtd_counts 0xFFFFFFFF
|
||||
#define mask_signed_bignum 0x3F
|
||||
#define mask_string 0x7
|
||||
#define mask_symbol 0x7
|
||||
#define mask_system_code 0x1FF
|
||||
#define mask_textual_input_port 0x5FF
|
||||
#define mask_textual_output_port 0x6FF
|
||||
#define mask_textual_port 0x4FF
|
||||
#define mask_thread 0xFFFFFFFF
|
||||
#define mask_tlc 0xFFFFFFFF
|
||||
#define mask_typed_object 0x7
|
||||
#define mask_unbound 0xFFFFFFFF
|
||||
#define mask_vector 0x3
|
||||
#define max_float_alignment 0x8
|
||||
#define max_integer_alignment 0x8
|
||||
#define max_real_space 0xB
|
||||
#define max_space 0xC
|
||||
#define max_sweep_space 0xA
|
||||
#define maximum_bignum_length (iptr)0x3FFFFFF
|
||||
#define maximum_bytevector_length (iptr)0x1FFFFFFF
|
||||
#define maximum_fxvector_length (iptr)0xFFFFFFF
|
||||
#define maximum_interrupt_index 0x4
|
||||
#define maximum_string_length (iptr)0xFFFFFFF
|
||||
#define maximum_vector_length (iptr)0x1FFFFFFF
|
||||
#define minimum_segment_request 0x80
|
||||
#define most_negative_fixnum (iptr)-0x20000000
|
||||
#define most_positive_fixnum (iptr)0x1FFFFFFF
|
||||
#define native_endianness little
|
||||
#define one_shot_headroom 0x600
|
||||
#define ordinary_type_bits 0x8
|
||||
#define pair_car_disp 0x7
|
||||
#define pair_cdr_disp 0xB
|
||||
#define pair_shift 0x3
|
||||
#define port_flag_binary 0x4
|
||||
#define port_flag_block_buffered 0x200
|
||||
#define port_flag_bol 0x80
|
||||
#define port_flag_char_positions 0x1000
|
||||
#define port_flag_closed 0x8
|
||||
#define port_flag_compressed 0x20
|
||||
#define port_flag_eof 0x100
|
||||
#define port_flag_exclusive 0x40
|
||||
#define port_flag_file 0x10
|
||||
#define port_flag_fold_case 0x4000
|
||||
#define port_flag_input 0x1
|
||||
#define port_flag_input_mode 0x800
|
||||
#define port_flag_line_buffered 0x400
|
||||
#define port_flag_no_fold_case 0x8000
|
||||
#define port_flag_output 0x2
|
||||
#define port_flag_r6rs 0x2000
|
||||
#define port_flags_offset 0x8
|
||||
#define port_handler_disp 0x5
|
||||
#define port_ibuffer_disp 0x1D
|
||||
#define port_icount_disp 0xD
|
||||
#define port_ilast_disp 0x19
|
||||
#define port_info_disp 0x21
|
||||
#define port_name_disp 0x25
|
||||
#define port_obuffer_disp 0x15
|
||||
#define port_ocount_disp 0x9
|
||||
#define port_olast_disp 0x11
|
||||
#define port_type_disp 0x1
|
||||
#define prelex_is_flags_offset 0x8
|
||||
#define prelex_is_mask 0xFF00
|
||||
#define prelex_sticky_mask 0xFF
|
||||
#define prelex_was_flags_offset 0x10
|
||||
#define primary_type_bits 0x3
|
||||
#define ptr_bits 0x20
|
||||
#define ptr_bytes 0x4
|
||||
#define ptrdiff_t_bits 0x20
|
||||
#define ratnum_denominator_disp 0x9
|
||||
#define ratnum_numerator_disp 0x5
|
||||
#define ratnum_type_disp 0x1
|
||||
#define real_space_alist ((new . 0) (impure . 1) (symbol . 2) (port . 3) (weakpair . 4) (ephemeron . 5) (pure . 6) (continuation . 7) (code . 8) (pure-typed-object . 9) (impure-record . 10) (data . 11))
|
||||
#define record_data_disp 0x5
|
||||
#define record_type_counts_disp 0x25
|
||||
#define record_type_disp 0x1
|
||||
#define record_type_flags_disp 0x1D
|
||||
#define record_type_flds_disp 0x19
|
||||
#define record_type_mpm_disp 0x11
|
||||
#define record_type_name_disp 0x15
|
||||
#define record_type_parent_disp 0x5
|
||||
#define record_type_pm_disp 0xD
|
||||
#define record_type_size_disp 0x9
|
||||
#define record_type_type_disp 0x1
|
||||
#define record_type_uid_disp 0x21
|
||||
#define reloc_abs 0x0
|
||||
#define reloc_code_offset_index 0x3
|
||||
#define reloc_code_offset_mask 0x3FF
|
||||
#define reloc_code_offset_offset 0x4
|
||||
#define reloc_extended_format 0x1
|
||||
#define reloc_item_offset_index 0x2
|
||||
#define reloc_item_offset_mask 0x3FFFF
|
||||
#define reloc_item_offset_offset 0xE
|
||||
#define reloc_longp_index 0x4
|
||||
#define reloc_rel 0x1
|
||||
#define reloc_table_code_disp 0x4
|
||||
#define reloc_table_data_disp 0x8
|
||||
#define reloc_table_size_disp 0x0
|
||||
#define reloc_type_index 0x1
|
||||
#define reloc_type_mask 0x7
|
||||
#define reloc_type_offset 0x1
|
||||
#define return_address_frame_size_disp -0x8
|
||||
#define return_address_livemask_disp -0x10
|
||||
#define return_address_mv_return_address_disp -0x4
|
||||
#define return_address_toplink_disp -0xC
|
||||
#define rp_header_frame_size_disp 0x8
|
||||
#define rp_header_livemask_disp 0x0
|
||||
#define rp_header_mv_return_address_disp 0xC
|
||||
#define rp_header_toplink_disp 0x4
|
||||
#define rtd_counts_data_disp 0x11
|
||||
#define rtd_counts_timestamp_disp 0x9
|
||||
#define rtd_counts_type_disp 0x1
|
||||
#define rtd_generative 0x1
|
||||
#define rtd_opaque 0x2
|
||||
#define rtd_sealed 0x4
|
||||
#define sbwp (ptr)0x4E
|
||||
#define scaled_shot_1_shot_flag -0x4
|
||||
#define scheme_version 0x90509
|
||||
#define segment_card_offset_bits 0x5
|
||||
#define segment_offset_bits 0xD
|
||||
#define segment_t1_bits 0x13
|
||||
#define segment_table_levels 0x1
|
||||
#define seof (ptr)0x36
|
||||
#define sfalse (ptr)0x6
|
||||
#define short_bits 0x10
|
||||
#define signal_interrupt_index 0x4
|
||||
#define size_box 0x8
|
||||
#define size_cached_stack 0x8
|
||||
#define size_continuation 0x20
|
||||
#define size_ephemeron 0x10
|
||||
#define size_exactnum 0x10
|
||||
#define size_flonum 0x8
|
||||
#define size_forward 0x8
|
||||
#define size_guardian_entry 0x10
|
||||
#define size_inexactnum 0x18
|
||||
#define size_pair 0x8
|
||||
#define size_port 0x28
|
||||
#define size_ratnum 0x10
|
||||
#define size_record_type 0x28
|
||||
#define size_rp_header 0x10
|
||||
#define size_rtd_counts 0x410
|
||||
#define size_symbol 0x18
|
||||
#define size_tc 0x160
|
||||
#define size_thread 0x8
|
||||
#define size_tlc 0x10
|
||||
#define size_typed_object 0x8
|
||||
#define size_t_bits 0x20
|
||||
#define snil (ptr)0x26
|
||||
#define space_char_list (#\n #\i #\x #\q #\w #\e #\p #\k #\c #\r #\s #\d #\e)
|
||||
#define space_cname_list ("new" "impure" "symbol" "port" "weakpr" "emph" "pure" "cont" "code" "p-tobj" "ip-rec" "data" "empty")
|
||||
#define space_code 0x8
|
||||
#define space_continuation 0x7
|
||||
#define space_data 0xB
|
||||
#define space_empty 0xC
|
||||
#define space_ephemeron 0x5
|
||||
#define space_impure 0x1
|
||||
#define space_impure_record 0xA
|
||||
#define space_locked 0x20
|
||||
#define space_new 0x0
|
||||
#define space_old 0x40
|
||||
#define space_port 0x3
|
||||
#define space_pure 0x6
|
||||
#define space_pure_typed_object 0x9
|
||||
#define space_symbol 0x2
|
||||
#define space_weakpair 0x4
|
||||
#define stack_frame_limit 0x100
|
||||
#define stack_slop 0x200
|
||||
#define static_generation 0xFF
|
||||
#define string_char_bits 0x20
|
||||
#define string_char_bytes 0x4
|
||||
#define string_char_offset 0x2
|
||||
#define string_data_disp 0x5
|
||||
#define string_immutable_flag 0x8
|
||||
#define string_length_factor 0x10
|
||||
#define string_length_offset 0x4
|
||||
#define string_type_disp 0x1
|
||||
#define strue (ptr)0xE
|
||||
#define sunbound (ptr)0x1E
|
||||
#define svoid (ptr)0x3E
|
||||
#define symbol_hash_disp 0x19
|
||||
#define symbol_name_disp 0x11
|
||||
#define symbol_plist_disp 0xD
|
||||
#define symbol_pvalue_disp 0x9
|
||||
#define symbol_splist_disp 0x15
|
||||
#define symbol_value_disp 0x5
|
||||
#define tc_DSTBV_disp 0x154
|
||||
#define tc_SRCBV_disp 0x158
|
||||
#define tc_U_disp 0xA4
|
||||
#define tc_V_disp 0xA8
|
||||
#define tc_W_disp 0xAC
|
||||
#define tc_X_disp 0xB0
|
||||
#define tc_Y_disp 0xB4
|
||||
#define tc_ac0_disp 0x4
|
||||
#define tc_ac1_disp 0x8
|
||||
#define tc_active_disp 0x8C
|
||||
#define tc_alloc_counter_disp 0x148
|
||||
#define tc_ap_disp 0x18
|
||||
#define tc_arg_regs_disp 0x0
|
||||
#define tc_block_counter_disp 0xE0
|
||||
#define tc_cchain_disp 0x80
|
||||
#define tc_code_ranges_to_flush_disp 0x84
|
||||
#define tc_compile_profile_disp 0x10C
|
||||
#define tc_compress_format_disp 0x130
|
||||
#define tc_compress_level_disp 0x134
|
||||
#define tc_cp_disp 0x10
|
||||
#define tc_current_error_disp 0xDC
|
||||
#define tc_current_input_disp 0xD4
|
||||
#define tc_current_mso_disp 0xE8
|
||||
#define tc_current_output_disp 0xD8
|
||||
#define tc_default_record_equal_procedure_disp 0x128
|
||||
#define tc_default_record_hash_procedure_disp 0x12C
|
||||
#define tc_disable_count_disp 0xC0
|
||||
#define tc_eap_disp 0x1C
|
||||
#define tc_esp_disp 0x14
|
||||
#define tc_fxfirst_bit_set_bv_disp 0xF4
|
||||
#define tc_fxlength_bv_disp 0xF0
|
||||
#define tc_generate_inspector_information_disp 0x110
|
||||
#define tc_generate_procedure_source_information_disp 0x114
|
||||
#define tc_generate_profile_forms_disp 0x118
|
||||
#define tc_guardian_entries_disp 0x7C
|
||||
#define tc_instr_counter_disp 0x140
|
||||
#define tc_keyboard_interrupt_pending_disp 0xCC
|
||||
#define tc_lz4_out_buffer_disp 0x138
|
||||
#define tc_meta_level_disp 0x108
|
||||
#define tc_null_immutable_bytevector_disp 0x100
|
||||
#define tc_null_immutable_fxvector_disp 0xFC
|
||||
#define tc_null_immutable_string_disp 0x104
|
||||
#define tc_null_immutable_vector_disp 0xF8
|
||||
#define tc_optimize_level_disp 0x11C
|
||||
#define tc_parameters_disp 0x150
|
||||
#define tc_random_seed_disp 0x88
|
||||
#define tc_real_eap_disp 0x38
|
||||
#define tc_ret_disp 0x20
|
||||
#define tc_scheme_stack_disp 0x90
|
||||
#define tc_scheme_stack_size_disp 0x9C
|
||||
#define tc_sfd_disp 0xE4
|
||||
#define tc_sfp_disp 0xC
|
||||
#define tc_signal_interrupt_pending_disp 0xC4
|
||||
#define tc_signal_interrupt_queue_disp 0xC8
|
||||
#define tc_something_pending_disp 0xB8
|
||||
#define tc_stack_cache_disp 0x94
|
||||
#define tc_stack_link_disp 0x98
|
||||
#define tc_subset_mode_disp 0x120
|
||||
#define tc_suppress_primitive_inlining_disp 0x124
|
||||
#define tc_target_machine_disp 0xEC
|
||||
#define tc_td_disp 0x34
|
||||
#define tc_threadno_disp 0xD0
|
||||
#define tc_timer_ticks_disp 0xBC
|
||||
#define tc_trap_disp 0x24
|
||||
#define tc_ts_disp 0x30
|
||||
#define tc_virtual_registers_disp 0x3C
|
||||
#define tc_winders_disp 0xA0
|
||||
#define tc_xp_disp 0x28
|
||||
#define tc_yp_disp 0x2C
|
||||
#define thread_handle_uptrs 0x1
|
||||
#define thread_tc_disp 0x5
|
||||
#define thread_type_disp 0x1
|
||||
#define time_collector_cpu 0x5
|
||||
#define time_collector_real 0x6
|
||||
#define time_duration 0x2
|
||||
#define time_monotonic 0x3
|
||||
#define time_process 0x0
|
||||
#define time_t_bits 0x40
|
||||
#define time_thread 0x1
|
||||
#define time_utc 0x4
|
||||
#define timer_interrupt_index 0x2
|
||||
#define tlc_ht_disp 0x9
|
||||
#define tlc_keyval_disp 0x5
|
||||
#define tlc_next_disp 0xD
|
||||
#define tlc_type_disp 0x1
|
||||
#define type_bignum 0x6
|
||||
#define type_binary_input_port 0x51E
|
||||
#define type_binary_output_port 0x61E
|
||||
#define type_binary_port 0x41E
|
||||
#define type_boolean 0x6
|
||||
#define type_box 0xE
|
||||
#define type_bytevector 0x1
|
||||
#define type_char 0x16
|
||||
#define type_closure 0x5
|
||||
#define type_code 0x3E
|
||||
#define type_continuation_code 0x23E
|
||||
#define type_exactnum 0x56
|
||||
#define type_fixnum 0x0
|
||||
#define type_flonum 0x2
|
||||
#define type_fxvector 0x3
|
||||
#define type_guardian_code 0x83E
|
||||
#define type_immediate 0x6
|
||||
#define type_immutable_box 0x8E
|
||||
#define type_immutable_bytevector 0x5
|
||||
#define type_immutable_fxvector 0xB
|
||||
#define type_immutable_string 0xA
|
||||
#define type_immutable_vector 0x4
|
||||
#define type_inexactnum 0x36
|
||||
#define type_input_port 0x11E
|
||||
#define type_io_port 0x31E
|
||||
#define type_mutable_box 0xE
|
||||
#define type_mutable_bytevector 0x1
|
||||
#define type_mutable_fxvector 0x3
|
||||
#define type_mutable_string 0x2
|
||||
#define type_mutable_vector 0x0
|
||||
#define type_negative_bignum 0x26
|
||||
#define type_octet 0x0
|
||||
#define type_other_number 0x6
|
||||
#define type_output_port 0x21E
|
||||
#define type_pair 0x1
|
||||
#define type_port 0x1E
|
||||
#define type_positive_bignum 0x6
|
||||
#define type_ratnum 0x16
|
||||
#define type_record 0x7
|
||||
#define type_rtd_counts 0x6E
|
||||
#define type_string 0x2
|
||||
#define type_symbol 0x3
|
||||
#define type_system_code 0x13E
|
||||
#define type_textual_input_port 0x11E
|
||||
#define type_textual_output_port 0x21E
|
||||
#define type_textual_port 0x1E
|
||||
#define type_thread 0x4E
|
||||
#define type_tlc 0x5E
|
||||
#define type_typed_object 0x7
|
||||
#define type_vector 0x0
|
||||
#define typed_object_type_disp 0x1
|
||||
#define typedef_i16 "short"
|
||||
#define typedef_i32 "int"
|
||||
#define typedef_i64 "long long"
|
||||
#define typedef_i8 "char"
|
||||
#define typedef_iptr "int"
|
||||
#define typedef_ptr "void *"
|
||||
#define typedef_string_char "unsigned int"
|
||||
#define typedef_u16 "unsigned short"
|
||||
#define typedef_u32 "unsigned int"
|
||||
#define typedef_u64 "unsigned long long"
|
||||
#define typedef_u8 "unsigned char"
|
||||
#define typedef_uptr "unsigned int"
|
||||
#define typemod 0x8
|
||||
#define unactivate_mode_deactivate 0x1
|
||||
#define unactivate_mode_destroy 0x2
|
||||
#define unactivate_mode_noop 0x0
|
||||
#define unaligned_floats 1
|
||||
#define unaligned_integers 1
|
||||
#define underflow_limit 0x40
|
||||
#define unscaled_shot_1_shot_flag -0x1
|
||||
#define vector_data_disp 0x5
|
||||
#define vector_immutable_flag 0x4
|
||||
#define vector_length_factor 0x8
|
||||
#define vector_length_offset 0x3
|
||||
#define vector_type_disp 0x1
|
||||
#define virtual_register_count 0x10
|
||||
#define wchar_bits 0x10
|
||||
|
||||
/* constants from declare-c-entries */
|
||||
#define CENTRY_Scall_any_results 24
|
||||
#define CENTRY_Scall_one_result 23
|
||||
#define CENTRY_Sreturn 22
|
||||
#define CENTRY_activate_thread 11
|
||||
#define CENTRY_deactivate_thread 12
|
||||
#define CENTRY_foreign_entry 17
|
||||
#define CENTRY_get_more_room 19
|
||||
#define CENTRY_get_thread_context 1
|
||||
#define CENTRY_handle_apply_overflood 2
|
||||
#define CENTRY_handle_arg_error 16
|
||||
#define CENTRY_handle_docall_error 3
|
||||
#define CENTRY_handle_mvlet_error 15
|
||||
#define CENTRY_handle_nonprocedure_symbol 6
|
||||
#define CENTRY_handle_overflood 5
|
||||
#define CENTRY_handle_overflow 4
|
||||
#define CENTRY_handle_values_error 14
|
||||
#define CENTRY_install_library_entry 18
|
||||
#define CENTRY_instantiate_code_object 21
|
||||
#define CENTRY_raw_collect_cond 9
|
||||
#define CENTRY_raw_tc_mutex 10
|
||||
#define CENTRY_scan_remembered_set 20
|
||||
#define CENTRY_split_and_resize 8
|
||||
#define CENTRY_thread_context 0
|
||||
#define CENTRY_thread_list 7
|
||||
#define CENTRY_unactivate_thread 13
|
||||
|
||||
/* displacements for records */
|
||||
#define eq_hashtable_rtd_disp 1
|
||||
#define eq_hashtable_type_disp 5
|
||||
#define eq_hashtable_mutablep_disp 9
|
||||
#define eq_hashtable_vec_disp 13
|
||||
#define eq_hashtable_minlen_disp 17
|
||||
#define eq_hashtable_size_disp 21
|
||||
#define eq_hashtable_subtype_disp 25
|
||||
#define symbol_hashtable_rtd_disp 1
|
||||
#define symbol_hashtable_type_disp 5
|
||||
#define symbol_hashtable_mutablep_disp 9
|
||||
#define symbol_hashtable_vec_disp 13
|
||||
#define symbol_hashtable_minlen_disp 17
|
||||
#define symbol_hashtable_size_disp 21
|
||||
#define symbol_hashtable_equivp_disp 25
|
||||
#define code_info_rtd_disp 1
|
||||
#define code_info_src_disp 5
|
||||
#define code_info_sexpr_disp 9
|
||||
#define code_info_free_disp 13
|
||||
#define code_info_live_disp 17
|
||||
#define code_info_rpis_disp 21
|
||||
|
||||
/* predicates */
|
||||
#define Simmediatep(x) (((uptr)(x)&0x7)==0x6)
|
||||
#define Sportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x1E))
|
||||
#define Scodep(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x3E))
|
||||
|
||||
/* structure accessors */
|
||||
#define INITCAR(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define INITCDR(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define SETCAR(x,y) DIRTYSET(((ptr *)((uptr)(x)+7)),(y))
|
||||
#define SETCDR(x,y) DIRTYSET(((ptr *)((uptr)(x)+11)),(y))
|
||||
#define BOXTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITBOXREF(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SETBOXREF(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define EPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define INITEPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define EPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define INITEPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define TLCTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define TLCKEYVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define TLCHT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define TLCNEXT(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITTLCKEYVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITTLCHT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITTLCNEXT(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SETTLCNEXT(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SYMPVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define SYMPLIST(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SYMNAME(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define SYMSPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define SYMHASH(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define INITSYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITSYMPVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITSYMPLIST(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITSYMNAME(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define INITSYMSPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define INITSYMHASH(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define SETSYMVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define SETSYMPVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+9)),(y))
|
||||
#define SETSYMPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SETSYMNAME(x,y) DIRTYSET(((ptr *)((uptr)(x)+17)),(y))
|
||||
#define SETSYMSPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+21)),(y))
|
||||
#define SETSYMHASH(x,y) DIRTYSET(((ptr *)((uptr)(x)+25)),(y))
|
||||
#define VECTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITVECTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define SETVECTIT(x,i,y) DIRTYSET((((ptr *)((uptr)(x)+5))+i),(y))
|
||||
#define FXVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define FXVECTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define BYTEVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BVIT(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
#define INEXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INEXACTNUM_REAL_PART(x) (*((double *)((uptr)(x)+9)))
|
||||
#define INEXACTNUM_IMAG_PART(x) (*((double *)((uptr)(x)+17)))
|
||||
#define EXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define EXACTNUM_REAL_PART(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define EXACTNUM_IMAG_PART(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RATTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RATNUM(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define RATDEN(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define CLOSENTRY(x) (*((ptr *)((uptr)(x)+3)))
|
||||
#define CLOSIT(x,i) (((ptr *)((uptr)(x)+7))[i])
|
||||
#define FLODAT(x) (*((double *)((uptr)(x)+6)))
|
||||
#define PORTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define PORTNAME(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define PORTHANDLER(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define PORTINFO(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define PORTOCNT(x) (*((iptr *)((uptr)(x)+9)))
|
||||
#define PORTOLAST(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define PORTOBUF(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define PORTICNT(x) (*((iptr *)((uptr)(x)+13)))
|
||||
#define PORTILAST(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define PORTIBUF(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define STRTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define STRIT(x,i) (((string_char *)((uptr)(x)+5))[i])
|
||||
#define BIGTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BIGIT(x,i) (((bigit *)((uptr)(x)+5))[i])
|
||||
#define CODETYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define CODELEN(x) (*((iptr *)((uptr)(x)+5)))
|
||||
#define CODERELOC(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define CODENAME(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define CODEARITYMASK(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CODEFREE(x) (*((iptr *)((uptr)(x)+21)))
|
||||
#define CODEINFO(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define CODEPINFOS(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define CODEIT(x,i) (((octet *)((uptr)(x)+33))[i])
|
||||
#define RELOCSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define RELOCCODE(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define RELOCIT(x,i) (((uptr *)((uptr)(x)+8))[i])
|
||||
#define CONTSTACK(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define CONTLENGTH(x) (*((iptr *)((uptr)(x)+11)))
|
||||
#define CONTCLENGTH(x) (*((iptr *)((uptr)(x)+15)))
|
||||
#define CONTLINK(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define CONTRET(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define CONTWINDERS(x) (*((ptr *)((uptr)(x)+27)))
|
||||
#define RTDCOUNTSTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RTDCOUNTSTIMESTAMP(x) (*((U64 *)((uptr)(x)+9)))
|
||||
#define RTDCOUNTSIT(x,i) (((uptr *)((uptr)(x)+17))[i])
|
||||
#define RECORDDESCPARENT(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define RECORDDESCSIZE(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RECORDDESCPM(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define RECORDDESCMPM(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RECORDDESCNAME(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define RECORDDESCFLDS(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define RECORDDESCFLAGS(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define RECORDDESCUID(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define RECORDDESCCOUNTS(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define RECORDINSTTYPE(x) (*((ptr *)((uptr)(x)+1)))
|
||||
#define RECORDINSTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define CLOSCODE(p) ((ptr)((uptr)CLOSENTRY(p)-code_data_disp))
|
||||
#define CODEENTRYPOINT(x) ((ptr)((uptr)(x)+code_data_disp))
|
||||
#define SETCLOSCODE(p,x) (CLOSENTRY(p) = CODEENTRYPOINT(x))
|
||||
#define SYMCODE(p) ((ptr)((uptr)SYMPVAL(p)-code_data_disp))
|
||||
#define INITSYMCODE(p,x) (INITSYMPVAL(p) = CODEENTRYPOINT(x))
|
||||
#define SETSYMCODE(p,x) SETSYMPVAL(p,CODEENTRYPOINT(x))
|
||||
#define BIGLEN(x) ((iptr)((uptr)BIGTYPE(x) >> bignum_length_offset))
|
||||
#define BIGSIGN(x) ((BIGTYPE(x) & mask_bignum_sign) >> bignum_sign_offset)
|
||||
#define SETBIGLENANDSIGN(x,xl,xs) BIGTYPE(x) = (uptr)(xl) << bignum_length_offset | (xs) << bignum_sign_offset | type_bignum
|
||||
#define CLOSLEN(p) CODEFREE(CLOSCODE(p))
|
||||
#define GUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define GUARDIANREP(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define GUARDIANTCONC(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define GUARDIANNEXT(x) (*((ptr *)((uptr)(x)+12)))
|
||||
#define INITGUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define INITGUARDIANREP(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define INITGUARDIANTCONC(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define INITGUARDIANNEXT(x) (*((ptr *)((uptr)(x)+12)))
|
||||
#define FORWARDMARKER(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define FORWARDADDRESS(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define CACHEDSTACKSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define CACHEDSTACKLINK(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define RPHEADERFRAMESIZE(x) (*((iptr *)((uptr)(x)+8)))
|
||||
#define RPHEADERLIVEMASK(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define RPHEADERTOPLINK(x) (*((uptr *)((uptr)(x)+4)))
|
||||
|
||||
/* machine types */
|
||||
#define machine_type_names {"any", "i3le", "ti3le", "i3nt", "ti3nt", "i3fb", "ti3fb", "i3ob", "ti3ob", "i3osx", "ti3osx", "a6le", "ta6le", "a6osx", "ta6osx", "a6ob", "ta6ob", "a6s2", "ta6s2", "i3s2", "ti3s2", "a6fb", "ta6fb", "i3nb", "ti3nb", "a6nb", "ta6nb", "a6nt", "ta6nt", "i3qnx", "ti3qnx", "arm32le", "tarm32le", "ppc32le", "tppc32le"}
|
||||
|
||||
/* allocation-space names */
|
||||
#define alloc_space_names "new", "impure", "symbol", "port", "weakpr", "emph", "pure", "cont", "code", "p-tobj", "ip-rec", "data", "empty"
|
||||
|
||||
/* allocation-space characters */
|
||||
#define alloc_space_chars 'n', 'i', 'x', 'q', 'w', 'e', 'p', 'k', 'c', 'r', 's', 'd', 'e'
|
||||
|
||||
/* threads */
|
||||
#define THREADTC(x) (*((uptr *)((uptr)(x)+5)))
|
||||
|
||||
/* thread-context data */
|
||||
#define DSTBV(x) (*((ptr *)((uptr)(x)+340)))
|
||||
#define SRCBV(x) (*((ptr *)((uptr)(x)+344)))
|
||||
#define U(x) (*((ptr *)((uptr)(x)+164)))
|
||||
#define V(x) (*((ptr *)((uptr)(x)+168)))
|
||||
#define W(x) (*((ptr *)((uptr)(x)+172)))
|
||||
#define X(x) (*((ptr *)((uptr)(x)+176)))
|
||||
#define Y(x) (*((ptr *)((uptr)(x)+180)))
|
||||
#define AC0(x) (*((void* *)((uptr)(x)+4)))
|
||||
#define AC1(x) (*((void* *)((uptr)(x)+8)))
|
||||
#define ACTIVE(x) (*((I32 *)((uptr)(x)+140)))
|
||||
#define ALLOCCOUNTER(x) (*((U64 *)((uptr)(x)+328)))
|
||||
#define AP(x) (*((void* *)((uptr)(x)+24)))
|
||||
#define ARGREGS(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define BLOCKCOUNTER(x) (*((ptr *)((uptr)(x)+224)))
|
||||
#define CCHAIN(x) (*((ptr *)((uptr)(x)+128)))
|
||||
#define CODERANGESTOFLUSH(x) (*((ptr *)((uptr)(x)+132)))
|
||||
#define COMPILEPROFILE(x) (*((ptr *)((uptr)(x)+268)))
|
||||
#define COMPRESSFORMAT(x) (*((ptr *)((uptr)(x)+304)))
|
||||
#define COMPRESSLEVEL(x) (*((ptr *)((uptr)(x)+308)))
|
||||
#define CP(x) (*((void* *)((uptr)(x)+16)))
|
||||
#define CURRENTERROR(x) (*((ptr *)((uptr)(x)+220)))
|
||||
#define CURRENTINPUT(x) (*((ptr *)((uptr)(x)+212)))
|
||||
#define CURRENTMSO(x) (*((ptr *)((uptr)(x)+232)))
|
||||
#define CURRENTOUTPUT(x) (*((ptr *)((uptr)(x)+216)))
|
||||
#define DEFAULTRECORDEQUALPROCEDURE(x) (*((ptr *)((uptr)(x)+296)))
|
||||
#define DEFAULTRECORDHASHPROCEDURE(x) (*((ptr *)((uptr)(x)+300)))
|
||||
#define DISABLECOUNT(x) (*((ptr *)((uptr)(x)+192)))
|
||||
#define EAP(x) (*((void* *)((uptr)(x)+28)))
|
||||
#define ESP(x) (*((void* *)((uptr)(x)+20)))
|
||||
#define FXFIRSTBITSETBV(x) (*((ptr *)((uptr)(x)+244)))
|
||||
#define FXLENGTHBV(x) (*((ptr *)((uptr)(x)+240)))
|
||||
#define GENERATEINSPECTORINFORMATION(x) (*((ptr *)((uptr)(x)+272)))
|
||||
#define GENERATEPROCEDURESOURCEINFORMATION(x) (*((ptr *)((uptr)(x)+276)))
|
||||
#define GENERATEPROFILEFORMS(x) (*((ptr *)((uptr)(x)+280)))
|
||||
#define GUARDIANENTRIES(x) (*((ptr *)((uptr)(x)+124)))
|
||||
#define INSTRCOUNTER(x) (*((U64 *)((uptr)(x)+320)))
|
||||
#define KEYBOARDINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+204)))
|
||||
#define LZ4OUTBUFFER(x) (*((void* *)((uptr)(x)+312)))
|
||||
#define METALEVEL(x) (*((ptr *)((uptr)(x)+264)))
|
||||
#define NULLIMMUTABLEBYTEVECTOR(x) (*((ptr *)((uptr)(x)+256)))
|
||||
#define NULLIMMUTABLEFXVECTOR(x) (*((ptr *)((uptr)(x)+252)))
|
||||
#define NULLIMMUTABLESTRING(x) (*((ptr *)((uptr)(x)+260)))
|
||||
#define NULLIMMUTABLEVECTOR(x) (*((ptr *)((uptr)(x)+248)))
|
||||
#define OPTIMIZELEVEL(x) (*((ptr *)((uptr)(x)+284)))
|
||||
#define PARAMETERS(x) (*((ptr *)((uptr)(x)+336)))
|
||||
#define RANDOMSEED(x) (*((U32 *)((uptr)(x)+136)))
|
||||
#define REAL_EAP(x) (*((void* *)((uptr)(x)+56)))
|
||||
#define RET(x) (*((void* *)((uptr)(x)+32)))
|
||||
#define SCHEMESTACK(x) (*((void* *)((uptr)(x)+144)))
|
||||
#define SCHEMESTACKSIZE(x) (*((iptr *)((uptr)(x)+156)))
|
||||
#define SFD(x) (*((ptr *)((uptr)(x)+228)))
|
||||
#define SFP(x) (*((void* *)((uptr)(x)+12)))
|
||||
#define SIGNALINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+196)))
|
||||
#define SIGNALINTERRUPTQUEUE(x) (*((ptr *)((uptr)(x)+200)))
|
||||
#define SOMETHINGPENDING(x) (*((ptr *)((uptr)(x)+184)))
|
||||
#define STACKCACHE(x) (*((ptr *)((uptr)(x)+148)))
|
||||
#define STACKLINK(x) (*((ptr *)((uptr)(x)+152)))
|
||||
#define SUBSETMODE(x) (*((ptr *)((uptr)(x)+288)))
|
||||
#define SUPPRESSPRIMITIVEINLINING(x) (*((ptr *)((uptr)(x)+292)))
|
||||
#define TARGETMACHINE(x) (*((ptr *)((uptr)(x)+236)))
|
||||
#define TD(x) (*((void* *)((uptr)(x)+52)))
|
||||
#define THREADNO(x) (*((ptr *)((uptr)(x)+208)))
|
||||
#define TIMERTICKS(x) (*((ptr *)((uptr)(x)+188)))
|
||||
#define TRAP(x) (*((void* *)((uptr)(x)+36)))
|
||||
#define TS(x) (*((void* *)((uptr)(x)+48)))
|
||||
#define VIRTUALREGISTERS(x,i) (((ptr *)((uptr)(x)+60))[i])
|
||||
#define WINDERS(x) (*((ptr *)((uptr)(x)+160)))
|
||||
#define XP(x) (*((void* *)((uptr)(x)+40)))
|
||||
#define YP(x) (*((void* *)((uptr)(x)+44)))
|
||||
#define ARGREG(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define VIRTREG(x,i) (((ptr *)((uptr)(x)+60))[i])
|
||||
|
||||
/* library entries we access from C code */
|
||||
#define library_nonprocedure_code 152
|
||||
#define library_dounderflow 154
|
||||
BIN
boot/i3nt/petite.boot
Normal file
BIN
boot/i3nt/petite.boot
Normal file
Binary file not shown.
BIN
boot/i3nt/scheme.boot
Normal file
BIN
boot/i3nt/scheme.boot
Normal file
Binary file not shown.
217
boot/i3nt/scheme.h
Normal file
217
boot/i3nt/scheme.h
Normal file
|
|
@ -0,0 +1,217 @@
|
|||
/* scheme.h for Chez Scheme Version 9.5.9 (i3nt) */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct scheme.h */
|
||||
/* for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Specify declaration of exports. */
|
||||
#ifdef _WIN32
|
||||
# if __cplusplus
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern "C" __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern "C" __declspec (dllexport)
|
||||
# endif
|
||||
# else
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern
|
||||
# else
|
||||
# define EXPORT extern __declspec (dllexport)
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# if __cplusplus
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern
|
||||
# endif
|
||||
#endif
|
||||
|
||||
/* Chez Scheme Version and machine type */
|
||||
#define VERSION "9.5.9"
|
||||
#define MACHINE_TYPE "i3nt"
|
||||
|
||||
/* All Scheme objects are of type ptr. Type iptr and */
|
||||
/* uptr are signed and unsigned ints of the same size */
|
||||
/* as a ptr */
|
||||
typedef void * ptr;
|
||||
typedef int iptr;
|
||||
typedef unsigned int uptr;
|
||||
|
||||
/* String elements are 32-bit tagged char objects */
|
||||
typedef unsigned int string_char;
|
||||
|
||||
/* Bytevector elements are 8-bit unsigned "octets" */
|
||||
typedef unsigned char octet;
|
||||
|
||||
/* Type predicates */
|
||||
#define Sfixnump(x) (((uptr)(x)&0x3)==0x0)
|
||||
#define Scharp(x) (((uptr)(x)&0xFF)==0x16)
|
||||
#define Snullp(x) ((uptr)(x)==0x26)
|
||||
#define Seof_objectp(x) ((uptr)(x)==0x36)
|
||||
#define Sbwp_objectp(x) ((uptr)(x)==0x4E)
|
||||
#define Sbooleanp(x) (((uptr)(x)&0xF7)==0x6)
|
||||
#define Spairp(x) (((uptr)(x)&0x7)==0x1)
|
||||
#define Ssymbolp(x) (((uptr)(x)&0x7)==0x3)
|
||||
#define Sprocedurep(x) (((uptr)(x)&0x7)==0x5)
|
||||
#define Sflonump(x) (((uptr)(x)&0x7)==0x2)
|
||||
#define Svectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x0))
|
||||
#define Sfxvectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x3))
|
||||
#define Sbytevectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x1))
|
||||
#define Sstringp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x2))
|
||||
#define Sbignump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1F)==0x6))
|
||||
#define Sboxp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7F)==0xE))
|
||||
#define Sinexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x36))
|
||||
#define Sexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x56))
|
||||
#define Sratnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x16))
|
||||
#define Sinputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1FF)==0x11E))
|
||||
#define Soutputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x2FF)==0x21E))
|
||||
#define Srecordp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x7))
|
||||
|
||||
/* Accessors */
|
||||
#define Sfixnum_value(x) ((iptr)(x)/4)
|
||||
#define Schar_value(x) ((string_char)((uptr)(x)>>8))
|
||||
#define Sboolean_value(x) ((x) != Sfalse)
|
||||
#define Scar(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define Scdr(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define Sflonum_value(x) (*((double *)((uptr)(x)+6)))
|
||||
#define Svector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Svector_ref(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define Sfxvector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sfxvector_ref(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define Sbytevector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Sbytevector_u8_ref(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
/* Warning: Sbytevector_data(x) returns a pointer into x. */
|
||||
#define Sbytevector_data(x) &Sbytevector_u8_ref(x,0)
|
||||
#define Sstring_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sstring_ref(x,i) Schar_value(((string_char *)((uptr)(x)+5))[i])
|
||||
#define Sunbox(x) (*((ptr *)((uptr)(x)+5)))
|
||||
EXPORT iptr Sinteger_value(ptr);
|
||||
#define Sunsigned_value(x) (uptr)Sinteger_value(x)
|
||||
EXPORT int Sinteger32_value(ptr);
|
||||
#define Sunsigned32_value(x) (unsigned int)Sinteger32_value(x)
|
||||
EXPORT long long Sinteger64_value(ptr);
|
||||
#define Sunsigned64_value(x) (unsigned long long)Sinteger64_value(x)
|
||||
|
||||
/* Mutators */
|
||||
EXPORT void Sset_box(ptr, ptr);
|
||||
EXPORT void Sset_car(ptr, ptr);
|
||||
EXPORT void Sset_cdr(ptr, ptr);
|
||||
#define Sstring_set(x,i,c) ((void)((((string_char *)((uptr)(x)+5))[i]) = (string_char)(uptr)Schar(c)))
|
||||
#define Sfxvector_set(x,i,n) ((void)(Sfxvector_ref(x,i) = (n)))
|
||||
#define Sbytevector_u8_set(x,i,n) ((void)(Sbytevector_u8_ref(x,i) = (n)))
|
||||
EXPORT void Svector_set(ptr, iptr, ptr);
|
||||
|
||||
/* Constructors */
|
||||
#define Sfixnum(x) ((ptr)(uptr)((x)*4))
|
||||
#define Schar(x) ((ptr)(uptr)((x)<<8|0x16))
|
||||
#define Snil ((ptr)0x26)
|
||||
#define Strue ((ptr)0xE)
|
||||
#define Sfalse ((ptr)0x6)
|
||||
#define Sboolean(x) ((x)?Strue:Sfalse)
|
||||
#define Sbwp_object ((ptr)0x4E)
|
||||
#define Seof_object ((ptr)0x36)
|
||||
#define Svoid ((ptr)0x3E)
|
||||
EXPORT ptr Scons(ptr, ptr);
|
||||
EXPORT ptr Sstring_to_symbol(const char *);
|
||||
EXPORT ptr Ssymbol_to_string(ptr);
|
||||
EXPORT ptr Sflonum(double);
|
||||
EXPORT ptr Smake_vector(iptr, ptr);
|
||||
EXPORT ptr Smake_fxvector(iptr, ptr);
|
||||
EXPORT ptr Smake_bytevector(iptr, int);
|
||||
EXPORT ptr Smake_string(iptr, int);
|
||||
EXPORT ptr Smake_uninitialized_string(iptr);
|
||||
EXPORT ptr Sstring(const char *);
|
||||
EXPORT ptr Sstring_of_length(const char *, iptr);
|
||||
EXPORT ptr Sstring_utf8(const char*, iptr);
|
||||
EXPORT ptr Sbox(ptr);
|
||||
EXPORT ptr Sinteger(iptr);
|
||||
EXPORT ptr Sunsigned(uptr);
|
||||
EXPORT ptr Sinteger32(int);
|
||||
EXPORT ptr Sunsigned32(unsigned int);
|
||||
EXPORT ptr Sinteger64(long long);
|
||||
EXPORT ptr Sunsigned64(unsigned long long);
|
||||
|
||||
/* Miscellaneous */
|
||||
EXPORT ptr Stop_level_value(ptr);
|
||||
EXPORT void Sset_top_level_value(ptr, ptr);
|
||||
EXPORT void Slock_object(ptr);
|
||||
EXPORT void Sunlock_object(ptr);
|
||||
EXPORT int Slocked_objectp(ptr);
|
||||
EXPORT void Sforeign_symbol(const char *, void *);
|
||||
EXPORT void Sregister_symbol(const char *, void *);
|
||||
|
||||
/* Support for calls into Scheme */
|
||||
EXPORT ptr Scall0(ptr);
|
||||
EXPORT ptr Scall1(ptr, ptr);
|
||||
EXPORT ptr Scall2(ptr, ptr, ptr);
|
||||
EXPORT ptr Scall3(ptr, ptr, ptr, ptr);
|
||||
EXPORT void Sinitframe(iptr);
|
||||
EXPORT void Sput_arg(iptr, ptr);
|
||||
EXPORT ptr Scall(ptr, iptr);
|
||||
/* Warning: Sforeign_callable_entry_point(x) returns a pointer into x. */
|
||||
#define Sforeign_callable_entry_point(x) ((void (*)(void))((uptr)(x)+33))
|
||||
#define Sforeign_callable_code_object(x) ((ptr)((uptr)(x)-33))
|
||||
|
||||
/* Customization support. */
|
||||
EXPORT const char * Skernel_version(void);
|
||||
EXPORT void Sretain_static_relocation(void);
|
||||
EXPORT void Sset_verbose(int);
|
||||
EXPORT void Sscheme_init(void (*)(void));
|
||||
EXPORT void Sregister_boot_file(const char *);
|
||||
EXPORT void Sregister_boot_file_fd(const char *, int fd);
|
||||
EXPORT void Sregister_heap_file(const char *);
|
||||
EXPORT void Scompact_heap(void);
|
||||
EXPORT void Ssave_heap(const char *, int);
|
||||
EXPORT void Sbuild_heap(const char *, void (*)(void));
|
||||
EXPORT void Senable_expeditor(const char *);
|
||||
EXPORT int Sscheme_start(int, const char *[]);
|
||||
EXPORT int Sscheme_script(const char *, int, const char *[]);
|
||||
EXPORT int Sscheme_program(const char *, int, const char *[]);
|
||||
EXPORT void Sscheme_deinit(void);
|
||||
|
||||
/* Windows support. */
|
||||
#include <wchar.h>
|
||||
EXPORT char * Sgetenv(const char *);
|
||||
EXPORT wchar_t * Sutf8_to_wide(const char *);
|
||||
EXPORT char * Swide_to_utf8(const wchar_t *);
|
||||
|
||||
/* Features. */
|
||||
#define FEATURE_ICONV
|
||||
#define FEATURE_EXPEDITOR
|
||||
#define FEATURE_WINDOWS
|
||||
|
||||
/* Locking macros. */
|
||||
#define INITLOCK(addr) (*((long *) addr) = 0)
|
||||
|
||||
#define SPINLOCK(addr) \
|
||||
{ \
|
||||
while (_InterlockedExchange(addr, 1) != 0) { \
|
||||
while(*((long *) addr) != 0); \
|
||||
} \
|
||||
} while(0)
|
||||
|
||||
#define UNLOCK(addr) (*((long *) addr) = 0)
|
||||
|
||||
#define LOCKED_INCR(addr, res) (res = (-1 == _InterlockedExchangeAdd(addr, 1)))
|
||||
|
||||
#define LOCKED_DECR(addr, res) (res = (1 == _InterlockedExchangeAdd(addr, -1)))
|
||||
991
boot/i3osx/equates.h
Normal file
991
boot/i3osx/equates.h
Normal file
|
|
@ -0,0 +1,991 @@
|
|||
/* equates.h for Chez Scheme Version 9.5.9 */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct version */
|
||||
/* of this file for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Integer typedefs */
|
||||
typedef char I8;
|
||||
typedef unsigned char U8;
|
||||
typedef short I16;
|
||||
typedef unsigned short U16;
|
||||
typedef int I32;
|
||||
typedef unsigned int U32;
|
||||
typedef long long I64;
|
||||
typedef unsigned long long U64;
|
||||
|
||||
/* constants from cmacros.ss */
|
||||
#define $c_func_closure_index 0x4
|
||||
#define $c_func_closure_record_index 0x3
|
||||
#define $c_func_code_object_index 0x2
|
||||
#define $c_func_code_record_index 0x1
|
||||
#define COMPRESS_FORMAT_BITS 0x3
|
||||
#define COMPRESS_GZIP 0x0
|
||||
#define COMPRESS_HIGH 0x3
|
||||
#define COMPRESS_LOW 0x1
|
||||
#define COMPRESS_LZ4 0x1
|
||||
#define COMPRESS_MAX 0x4
|
||||
#define COMPRESS_MEDIUM 0x2
|
||||
#define COMPRESS_MIN 0x0
|
||||
#define ERROR_CALL_ARGUMENT_COUNT 0x4
|
||||
#define ERROR_CALL_NONPROCEDURE 0x3
|
||||
#define ERROR_CALL_NONPROCEDURE_SYMBOL 0x2
|
||||
#define ERROR_CALL_UNBOUND 0x1
|
||||
#define ERROR_MVLET 0x8
|
||||
#define ERROR_NONCONTINUABLE_INTERRUPT 0x6
|
||||
#define ERROR_OTHER 0x0
|
||||
#define ERROR_RESET 0x5
|
||||
#define ERROR_VALUES 0x7
|
||||
#define OPEN_ERROR_EXISTS 0x2
|
||||
#define OPEN_ERROR_EXISTSNOT 0x3
|
||||
#define OPEN_ERROR_OTHER 0x0
|
||||
#define OPEN_ERROR_PROTECTION 0x1
|
||||
#define PORT_FLAG_BINARY 0x400
|
||||
#define PORT_FLAG_BLOCK_BUFFERED 0x20000
|
||||
#define PORT_FLAG_BOL 0x8000
|
||||
#define PORT_FLAG_CHAR_POSITIONS 0x100000
|
||||
#define PORT_FLAG_CLOSED 0x800
|
||||
#define PORT_FLAG_COMPRESSED 0x2000
|
||||
#define PORT_FLAG_EOF 0x10000
|
||||
#define PORT_FLAG_EXCLUSIVE 0x4000
|
||||
#define PORT_FLAG_FILE 0x1000
|
||||
#define PORT_FLAG_FOLD_CASE 0x400000
|
||||
#define PORT_FLAG_INPUT 0x100
|
||||
#define PORT_FLAG_INPUT_MODE 0x80000
|
||||
#define PORT_FLAG_LINE_BUFFERED 0x40000
|
||||
#define PORT_FLAG_NO_FOLD_CASE 0x800000
|
||||
#define PORT_FLAG_OUTPUT 0x200
|
||||
#define PORT_FLAG_R6RS 0x200000
|
||||
#define SAPPEND 0x3
|
||||
#define SDEFAULT 0x4
|
||||
#define SEOF -0x1
|
||||
#define SERROR 0x0
|
||||
#define SICONV_DUNNO 0x0
|
||||
#define SICONV_INCOMPLETE 0x2
|
||||
#define SICONV_INVALID 0x1
|
||||
#define SICONV_NOROOM 0x3
|
||||
#define SREPLACE 0x2
|
||||
#define STRVNCATE 0x1
|
||||
#define address_bits 0x20
|
||||
#define alloc_waste_maximum 0x400
|
||||
#define annotation_all 0x3
|
||||
#define annotation_debug 0x1
|
||||
#define annotation_profile 0x2
|
||||
#define architecture x86
|
||||
#define asm_arg_reg_cnt 0x1
|
||||
#define asm_arg_reg_max 0x1
|
||||
#define bigit_bits 0x20
|
||||
#define bigit_bytes 0x4
|
||||
#define bignum_data_disp 0x5
|
||||
#define bignum_length_factor 0x40
|
||||
#define bignum_length_offset 0x6
|
||||
#define bignum_sign_offset 0x5
|
||||
#define bignum_type_disp 0x1
|
||||
#define black_hole (ptr)0x46
|
||||
#define box_ref_disp 0x5
|
||||
#define box_type_disp 0x1
|
||||
#define byte_alignment 0x8
|
||||
#define byte_constant_mask 0xFFFFFFFF
|
||||
#define bytes_per_card 0x100
|
||||
#define bytes_per_segment 0x2000
|
||||
#define bytevector_data_disp 0x9
|
||||
#define bytevector_immutable_flag 0x4
|
||||
#define bytevector_length_factor 0x8
|
||||
#define bytevector_length_offset 0x3
|
||||
#define bytevector_pad_disp 0x5
|
||||
#define bytevector_type_disp 0x1
|
||||
#define c_entry_name_vector #(thread-context get-thread-context handle-apply-overflood handle-docall-error handle-overflow handle-overflood handle-nonprocedure-symbol thread-list split-and-resize raw-collect-cond raw-tc-mutex activate-thread deactivate-thread unactivate-thread handle-values-error handle-mvlet-error handle-arg-error foreign-entry install-library-entry get-more-room scan-remembered-set instantiate-code-object Sreturn Scall-one-result Scall-any-results)
|
||||
#define c_entry_vector_size 0x19
|
||||
#define cached_stack_link_disp 0x4
|
||||
#define cached_stack_size_disp 0x0
|
||||
#define card_offset_bits 0x8
|
||||
#define cards_per_segment 0x20
|
||||
#define char_data_offset 0x8
|
||||
#define char_factor 0x100
|
||||
#define closure_code_disp 0x3
|
||||
#define closure_data_disp 0x7
|
||||
#define code_arity_mask_disp 0x11
|
||||
#define code_closure_length_disp 0x15
|
||||
#define code_data_disp 0x21
|
||||
#define code_flag_continuation 0x2
|
||||
#define code_flag_guardian 0x8
|
||||
#define code_flag_system 0x1
|
||||
#define code_flag_template 0x4
|
||||
#define code_flags_offset 0x8
|
||||
#define code_info_disp 0x19
|
||||
#define code_length_disp 0x5
|
||||
#define code_name_disp 0xD
|
||||
#define code_pinfos_disp 0x1D
|
||||
#define code_reloc_disp 0x9
|
||||
#define code_type_disp 0x1
|
||||
#define collect_interrupt_index 0x1
|
||||
#define continuation_code_disp 0x3
|
||||
#define continuation_link_disp 0x13
|
||||
#define continuation_return_address_disp 0x17
|
||||
#define continuation_stack_clength_disp 0xF
|
||||
#define continuation_stack_disp 0x7
|
||||
#define continuation_stack_length_disp 0xB
|
||||
#define continuation_winders_disp 0x1B
|
||||
#define countof_bignum 0x5
|
||||
#define countof_box 0x9
|
||||
#define countof_bytevector 0x15
|
||||
#define countof_closure 0x3
|
||||
#define countof_code 0xB
|
||||
#define countof_continuation 0x4
|
||||
#define countof_ephemeron 0x19
|
||||
#define countof_exactnum 0x8
|
||||
#define countof_flonum 0x2
|
||||
#define countof_fxvector 0x14
|
||||
#define countof_guardian 0x17
|
||||
#define countof_inexactnum 0x7
|
||||
#define countof_locked 0x16
|
||||
#define countof_oblist 0x18
|
||||
#define countof_pair 0x0
|
||||
#define countof_port 0xA
|
||||
#define countof_ratnum 0x6
|
||||
#define countof_relocation_table 0x10
|
||||
#define countof_rtd_counts 0xE
|
||||
#define countof_stack 0xF
|
||||
#define countof_string 0x13
|
||||
#define countof_symbol 0x1
|
||||
#define countof_thread 0xC
|
||||
#define countof_tlc 0xD
|
||||
#define countof_types 0x1A
|
||||
#define countof_vector 0x12
|
||||
#define countof_weakpair 0x11
|
||||
#define default_collect_trip_bytes 0x400000
|
||||
#define default_heap_reserve_ratio 1.0
|
||||
#define default_max_nonstatic_generation 0x4
|
||||
#define default_stack_size 0x7FF8
|
||||
#define default_timer_ticks 0x3E8
|
||||
#define dtvec_hour 0x3
|
||||
#define dtvec_isdst 0x9
|
||||
#define dtvec_mday 0x4
|
||||
#define dtvec_min 0x2
|
||||
#define dtvec_mon 0x5
|
||||
#define dtvec_nsec 0x0
|
||||
#define dtvec_sec 0x1
|
||||
#define dtvec_size 0xC
|
||||
#define dtvec_tzname 0xB
|
||||
#define dtvec_tzoff 0xA
|
||||
#define dtvec_wday 0x7
|
||||
#define dtvec_yday 0x8
|
||||
#define dtvec_year 0x6
|
||||
#define ephemeron_car_disp 0x7
|
||||
#define ephemeron_cdr_disp 0xB
|
||||
#define ephemeron_next_disp 0xF
|
||||
#define ephemeron_trigger_next_disp 0x13
|
||||
#define eq_hashtable_subtype_ephemeron 0x2
|
||||
#define eq_hashtable_subtype_normal 0x0
|
||||
#define eq_hashtable_subtype_weak 0x1
|
||||
#define exactnum_imag_disp 0x9
|
||||
#define exactnum_real_disp 0x5
|
||||
#define exactnum_type_disp 0x1
|
||||
#define fasl_fld_double 0xA
|
||||
#define fasl_fld_i16 0x2
|
||||
#define fasl_fld_i24 0x3
|
||||
#define fasl_fld_i32 0x4
|
||||
#define fasl_fld_i40 0x5
|
||||
#define fasl_fld_i48 0x6
|
||||
#define fasl_fld_i56 0x7
|
||||
#define fasl_fld_i64 0x8
|
||||
#define fasl_fld_ptr 0x0
|
||||
#define fasl_fld_single 0x9
|
||||
#define fasl_fld_u8 0x1
|
||||
#define fasl_header #vu8(0 0 0 0 99 104 101 122)
|
||||
#define fasl_type_base_rtd 0x1A
|
||||
#define fasl_type_box 0x1
|
||||
#define fasl_type_bytevector 0x1D
|
||||
#define fasl_type_closure 0x6
|
||||
#define fasl_type_code 0xB
|
||||
#define fasl_type_entry 0xD
|
||||
#define fasl_type_ephemeron 0x1C
|
||||
#define fasl_type_eq_hashtable 0x1F
|
||||
#define fasl_type_exactnum 0x14
|
||||
#define fasl_type_flonum 0x8
|
||||
#define fasl_type_fxvector 0x1B
|
||||
#define fasl_type_gensym 0x13
|
||||
#define fasl_type_graph 0x10
|
||||
#define fasl_type_graph_def 0x11
|
||||
#define fasl_type_graph_ref 0x12
|
||||
#define fasl_type_gzip 0x2B
|
||||
#define fasl_type_header 0x0
|
||||
#define fasl_type_immediate 0xC
|
||||
#define fasl_type_immutable_box 0x29
|
||||
#define fasl_type_immutable_bytevector 0x28
|
||||
#define fasl_type_immutable_fxvector 0x27
|
||||
#define fasl_type_immutable_string 0x26
|
||||
#define fasl_type_immutable_vector 0x25
|
||||
#define fasl_type_inexactnum 0x5
|
||||
#define fasl_type_large_integer 0xA
|
||||
#define fasl_type_library 0xE
|
||||
#define fasl_type_library_code 0xF
|
||||
#define fasl_type_lz4 0x2C
|
||||
#define fasl_type_pair 0x7
|
||||
#define fasl_type_ratnum 0x3
|
||||
#define fasl_type_record 0x17
|
||||
#define fasl_type_revisit 0x23
|
||||
#define fasl_type_rtd 0x18
|
||||
#define fasl_type_small_integer 0x19
|
||||
#define fasl_type_string 0x9
|
||||
#define fasl_type_symbol 0x2
|
||||
#define fasl_type_symbol_hashtable 0x20
|
||||
#define fasl_type_uncompressed 0x2A
|
||||
#define fasl_type_vector 0x4
|
||||
#define fasl_type_visit 0x22
|
||||
#define fasl_type_visit_revisit 0x24
|
||||
#define fasl_type_weak_pair 0x1E
|
||||
#define fixnum_bits 0x1E
|
||||
#define fixnum_factor 0x4
|
||||
#define fixnum_offset 0x2
|
||||
#define fld_byte_index 0x4
|
||||
#define fld_mutablep_index 0x2
|
||||
#define fld_name_index 0x1
|
||||
#define fld_type_index 0x3
|
||||
#define flonum_data_disp 0x6
|
||||
#define forward_address_disp 0x4
|
||||
#define forward_marker (ptr)0x2E
|
||||
#define forward_marker_disp 0x0
|
||||
#define ftype_guardian_rep (ptr)0x56
|
||||
#define fxvector_data_disp 0x5
|
||||
#define fxvector_immutable_flag 0x8
|
||||
#define fxvector_length_factor 0x10
|
||||
#define fxvector_length_offset 0x4
|
||||
#define fxvector_type_disp 0x1
|
||||
#define guardian_entry_next_disp 0xC
|
||||
#define guardian_entry_obj_disp 0x0
|
||||
#define guardian_entry_rep_disp 0x4
|
||||
#define guardian_entry_tconc_disp 0x8
|
||||
#define hashtable_default_size 0x8
|
||||
#define header_size_bignum 0x4
|
||||
#define header_size_bytevector 0x8
|
||||
#define header_size_closure 0x4
|
||||
#define header_size_code 0x20
|
||||
#define header_size_fxvector 0x4
|
||||
#define header_size_record 0x4
|
||||
#define header_size_reloc_table 0x8
|
||||
#define header_size_string 0x4
|
||||
#define header_size_vector 0x4
|
||||
#define ignore_event_flag 0x0
|
||||
#define inexactnum_imag_disp 0x11
|
||||
#define inexactnum_pad_disp 0x5
|
||||
#define inexactnum_real_disp 0x9
|
||||
#define inexactnum_type_disp 0x1
|
||||
#define int_bits 0x20
|
||||
#define integer_divide_instruction 1
|
||||
#define keyboard_interrupt_index 0x3
|
||||
#define library_entry_vector_size 0x210
|
||||
#define libspec_closure_index 0xD
|
||||
#define libspec_does_not_expect_headroom_index 0x0
|
||||
#define libspec_error_index 0xE
|
||||
#define libspec_fake_index 0x10
|
||||
#define libspec_flags_index 0x2
|
||||
#define libspec_has_does_not_expect_headroom_version_index 0xF
|
||||
#define libspec_index_base_offset 0x1
|
||||
#define libspec_index_base_size 0x9
|
||||
#define libspec_index_offset 0x0
|
||||
#define libspec_index_size 0xA
|
||||
#define libspec_interface_offset 0xA
|
||||
#define libspec_interface_size 0x3
|
||||
#define libspec_name_index 0x1
|
||||
#define log2_ptr_bytes 0x2
|
||||
#define long_bits 0x20
|
||||
#define long_long_bits 0x40
|
||||
#define machine_type 0x9
|
||||
#define machine_type_a6fb 0x15
|
||||
#define machine_type_a6le 0xB
|
||||
#define machine_type_a6nb 0x19
|
||||
#define machine_type_a6nt 0x1B
|
||||
#define machine_type_a6ob 0xF
|
||||
#define machine_type_a6osx 0xD
|
||||
#define machine_type_a6s2 0x11
|
||||
#define machine_type_alist ((0 . any) (1 . i3le) (2 . ti3le) (3 . i3nt) (4 . ti3nt) (5 . i3fb) (6 . ti3fb) (7 . i3ob) (8 . ti3ob) (9 . i3osx) (10 . ti3osx) (11 . a6le) (12 . ta6le) (13 . a6osx) (14 . ta6osx) (15 . a6ob) (16 . ta6ob) (17 . a6s2) (18 . ta6s2) (19 . i3s2) (20 . ti3s2) (21 . a6fb) (22 . ta6fb) (23 . i3nb) (24 . ti3nb) (25 . a6nb) (26 . ta6nb) (27 . a6nt) (28 . ta6nt) (29 . i3qnx) (30 . ti3qnx) (31 . arm32le) (32 . tarm32le) (33 . ppc32le) (34 . tppc32le))
|
||||
#define machine_type_any 0x0
|
||||
#define machine_type_arm32le 0x1F
|
||||
#define machine_type_i3fb 0x5
|
||||
#define machine_type_i3le 0x1
|
||||
#define machine_type_i3nb 0x17
|
||||
#define machine_type_i3nt 0x3
|
||||
#define machine_type_i3ob 0x7
|
||||
#define machine_type_i3osx 0x9
|
||||
#define machine_type_i3qnx 0x1D
|
||||
#define machine_type_i3s2 0x13
|
||||
#define machine_type_limit 0x23
|
||||
#define machine_type_name i3osx
|
||||
#define machine_type_ppc32le 0x21
|
||||
#define machine_type_ta6fb 0x16
|
||||
#define machine_type_ta6le 0xC
|
||||
#define machine_type_ta6nb 0x1A
|
||||
#define machine_type_ta6nt 0x1C
|
||||
#define machine_type_ta6ob 0x10
|
||||
#define machine_type_ta6osx 0xE
|
||||
#define machine_type_ta6s2 0x12
|
||||
#define machine_type_tarm32le 0x20
|
||||
#define machine_type_ti3fb 0x6
|
||||
#define machine_type_ti3le 0x2
|
||||
#define machine_type_ti3nb 0x18
|
||||
#define machine_type_ti3nt 0x4
|
||||
#define machine_type_ti3ob 0x8
|
||||
#define machine_type_ti3osx 0xA
|
||||
#define machine_type_ti3qnx 0x1E
|
||||
#define machine_type_ti3s2 0x14
|
||||
#define machine_type_tppc32le 0x22
|
||||
#define mask_bignum 0x1F
|
||||
#define mask_bignum_sign 0x20
|
||||
#define mask_binary_input_port 0x5FF
|
||||
#define mask_binary_output_port 0x6FF
|
||||
#define mask_binary_port 0x4FF
|
||||
#define mask_boolean 0xF7
|
||||
#define mask_box 0x7F
|
||||
#define mask_bwp 0xFFFFFFFF
|
||||
#define mask_bytevector 0x3
|
||||
#define mask_char 0xFF
|
||||
#define mask_closure 0x7
|
||||
#define mask_code 0xFF
|
||||
#define mask_continuation_code 0x2FF
|
||||
#define mask_eof 0xFFFFFFFF
|
||||
#define mask_exactnum 0xFFFFFFFF
|
||||
#define mask_false 0xFFFFFFFF
|
||||
#define mask_fixnum 0x3
|
||||
#define mask_flonum 0x7
|
||||
#define mask_fxvector 0x7
|
||||
#define mask_guardian_code 0x8FF
|
||||
#define mask_immediate 0x7
|
||||
#define mask_inexactnum 0xFFFFFFFF
|
||||
#define mask_input_port 0x1FF
|
||||
#define mask_mutable_box 0xFFFFFFFF
|
||||
#define mask_mutable_bytevector 0x7
|
||||
#define mask_mutable_fxvector 0xF
|
||||
#define mask_mutable_string 0xF
|
||||
#define mask_mutable_vector 0x7
|
||||
#define mask_nil 0xFFFFFFFF
|
||||
#define mask_octet -0x3FD
|
||||
#define mask_other_number 0xF
|
||||
#define mask_output_port 0x2FF
|
||||
#define mask_pair 0x7
|
||||
#define mask_port 0xFF
|
||||
#define mask_ratnum 0xFFFFFFFF
|
||||
#define mask_record 0x7
|
||||
#define mask_rtd_counts 0xFFFFFFFF
|
||||
#define mask_signed_bignum 0x3F
|
||||
#define mask_string 0x7
|
||||
#define mask_symbol 0x7
|
||||
#define mask_system_code 0x1FF
|
||||
#define mask_textual_input_port 0x5FF
|
||||
#define mask_textual_output_port 0x6FF
|
||||
#define mask_textual_port 0x4FF
|
||||
#define mask_thread 0xFFFFFFFF
|
||||
#define mask_tlc 0xFFFFFFFF
|
||||
#define mask_typed_object 0x7
|
||||
#define mask_unbound 0xFFFFFFFF
|
||||
#define mask_vector 0x3
|
||||
#define max_float_alignment 0x4
|
||||
#define max_integer_alignment 0x4
|
||||
#define max_real_space 0xB
|
||||
#define max_space 0xC
|
||||
#define max_sweep_space 0xA
|
||||
#define maximum_bignum_length (iptr)0x3FFFFFF
|
||||
#define maximum_bytevector_length (iptr)0x1FFFFFFF
|
||||
#define maximum_fxvector_length (iptr)0xFFFFFFF
|
||||
#define maximum_interrupt_index 0x4
|
||||
#define maximum_string_length (iptr)0xFFFFFFF
|
||||
#define maximum_vector_length (iptr)0x1FFFFFFF
|
||||
#define minimum_segment_request 0x80
|
||||
#define most_negative_fixnum (iptr)-0x20000000
|
||||
#define most_positive_fixnum (iptr)0x1FFFFFFF
|
||||
#define native_endianness little
|
||||
#define one_shot_headroom 0x600
|
||||
#define ordinary_type_bits 0x8
|
||||
#define pair_car_disp 0x7
|
||||
#define pair_cdr_disp 0xB
|
||||
#define pair_shift 0x3
|
||||
#define port_flag_binary 0x4
|
||||
#define port_flag_block_buffered 0x200
|
||||
#define port_flag_bol 0x80
|
||||
#define port_flag_char_positions 0x1000
|
||||
#define port_flag_closed 0x8
|
||||
#define port_flag_compressed 0x20
|
||||
#define port_flag_eof 0x100
|
||||
#define port_flag_exclusive 0x40
|
||||
#define port_flag_file 0x10
|
||||
#define port_flag_fold_case 0x4000
|
||||
#define port_flag_input 0x1
|
||||
#define port_flag_input_mode 0x800
|
||||
#define port_flag_line_buffered 0x400
|
||||
#define port_flag_no_fold_case 0x8000
|
||||
#define port_flag_output 0x2
|
||||
#define port_flag_r6rs 0x2000
|
||||
#define port_flags_offset 0x8
|
||||
#define port_handler_disp 0x5
|
||||
#define port_ibuffer_disp 0x1D
|
||||
#define port_icount_disp 0xD
|
||||
#define port_ilast_disp 0x19
|
||||
#define port_info_disp 0x21
|
||||
#define port_name_disp 0x25
|
||||
#define port_obuffer_disp 0x15
|
||||
#define port_ocount_disp 0x9
|
||||
#define port_olast_disp 0x11
|
||||
#define port_type_disp 0x1
|
||||
#define prelex_is_flags_offset 0x8
|
||||
#define prelex_is_mask 0xFF00
|
||||
#define prelex_sticky_mask 0xFF
|
||||
#define prelex_was_flags_offset 0x10
|
||||
#define primary_type_bits 0x3
|
||||
#define ptr_bits 0x20
|
||||
#define ptr_bytes 0x4
|
||||
#define ptrdiff_t_bits 0x20
|
||||
#define ratnum_denominator_disp 0x9
|
||||
#define ratnum_numerator_disp 0x5
|
||||
#define ratnum_type_disp 0x1
|
||||
#define real_space_alist ((new . 0) (impure . 1) (symbol . 2) (port . 3) (weakpair . 4) (ephemeron . 5) (pure . 6) (continuation . 7) (code . 8) (pure-typed-object . 9) (impure-record . 10) (data . 11))
|
||||
#define record_data_disp 0x5
|
||||
#define record_type_counts_disp 0x25
|
||||
#define record_type_disp 0x1
|
||||
#define record_type_flags_disp 0x1D
|
||||
#define record_type_flds_disp 0x19
|
||||
#define record_type_mpm_disp 0x11
|
||||
#define record_type_name_disp 0x15
|
||||
#define record_type_parent_disp 0x5
|
||||
#define record_type_pm_disp 0xD
|
||||
#define record_type_size_disp 0x9
|
||||
#define record_type_type_disp 0x1
|
||||
#define record_type_uid_disp 0x21
|
||||
#define reloc_abs 0x0
|
||||
#define reloc_code_offset_index 0x3
|
||||
#define reloc_code_offset_mask 0x3FF
|
||||
#define reloc_code_offset_offset 0x4
|
||||
#define reloc_extended_format 0x1
|
||||
#define reloc_item_offset_index 0x2
|
||||
#define reloc_item_offset_mask 0x3FFFF
|
||||
#define reloc_item_offset_offset 0xE
|
||||
#define reloc_longp_index 0x4
|
||||
#define reloc_rel 0x1
|
||||
#define reloc_table_code_disp 0x4
|
||||
#define reloc_table_data_disp 0x8
|
||||
#define reloc_table_size_disp 0x0
|
||||
#define reloc_type_index 0x1
|
||||
#define reloc_type_mask 0x7
|
||||
#define reloc_type_offset 0x1
|
||||
#define return_address_frame_size_disp -0x8
|
||||
#define return_address_livemask_disp -0x10
|
||||
#define return_address_mv_return_address_disp -0x4
|
||||
#define return_address_toplink_disp -0xC
|
||||
#define rp_header_frame_size_disp 0x8
|
||||
#define rp_header_livemask_disp 0x0
|
||||
#define rp_header_mv_return_address_disp 0xC
|
||||
#define rp_header_toplink_disp 0x4
|
||||
#define rtd_counts_data_disp 0xD
|
||||
#define rtd_counts_timestamp_disp 0x5
|
||||
#define rtd_counts_type_disp 0x1
|
||||
#define rtd_generative 0x1
|
||||
#define rtd_opaque 0x2
|
||||
#define rtd_sealed 0x4
|
||||
#define sbwp (ptr)0x4E
|
||||
#define scaled_shot_1_shot_flag -0x4
|
||||
#define scheme_version 0x90509
|
||||
#define segment_card_offset_bits 0x5
|
||||
#define segment_offset_bits 0xD
|
||||
#define segment_t1_bits 0x13
|
||||
#define segment_table_levels 0x1
|
||||
#define seof (ptr)0x36
|
||||
#define sfalse (ptr)0x6
|
||||
#define short_bits 0x10
|
||||
#define signal_interrupt_index 0x4
|
||||
#define size_box 0x8
|
||||
#define size_cached_stack 0x8
|
||||
#define size_continuation 0x20
|
||||
#define size_ephemeron 0x10
|
||||
#define size_exactnum 0x10
|
||||
#define size_flonum 0x8
|
||||
#define size_forward 0x8
|
||||
#define size_guardian_entry 0x10
|
||||
#define size_inexactnum 0x18
|
||||
#define size_pair 0x8
|
||||
#define size_port 0x28
|
||||
#define size_ratnum 0x10
|
||||
#define size_record_type 0x28
|
||||
#define size_rp_header 0x10
|
||||
#define size_rtd_counts 0x410
|
||||
#define size_symbol 0x18
|
||||
#define size_tc 0x158
|
||||
#define size_thread 0x8
|
||||
#define size_tlc 0x10
|
||||
#define size_typed_object 0x8
|
||||
#define size_t_bits 0x20
|
||||
#define snil (ptr)0x26
|
||||
#define space_char_list (#\n #\i #\x #\q #\w #\e #\p #\k #\c #\r #\s #\d #\e)
|
||||
#define space_cname_list ("new" "impure" "symbol" "port" "weakpr" "emph" "pure" "cont" "code" "p-tobj" "ip-rec" "data" "empty")
|
||||
#define space_code 0x8
|
||||
#define space_continuation 0x7
|
||||
#define space_data 0xB
|
||||
#define space_empty 0xC
|
||||
#define space_ephemeron 0x5
|
||||
#define space_impure 0x1
|
||||
#define space_impure_record 0xA
|
||||
#define space_locked 0x20
|
||||
#define space_new 0x0
|
||||
#define space_old 0x40
|
||||
#define space_port 0x3
|
||||
#define space_pure 0x6
|
||||
#define space_pure_typed_object 0x9
|
||||
#define space_symbol 0x2
|
||||
#define space_weakpair 0x4
|
||||
#define stack_frame_limit 0x100
|
||||
#define stack_slop 0x200
|
||||
#define static_generation 0xFF
|
||||
#define string_char_bits 0x20
|
||||
#define string_char_bytes 0x4
|
||||
#define string_char_offset 0x2
|
||||
#define string_data_disp 0x5
|
||||
#define string_immutable_flag 0x8
|
||||
#define string_length_factor 0x10
|
||||
#define string_length_offset 0x4
|
||||
#define string_type_disp 0x1
|
||||
#define strue (ptr)0xE
|
||||
#define sunbound (ptr)0x1E
|
||||
#define svoid (ptr)0x3E
|
||||
#define symbol_hash_disp 0x19
|
||||
#define symbol_name_disp 0x11
|
||||
#define symbol_plist_disp 0xD
|
||||
#define symbol_pvalue_disp 0x9
|
||||
#define symbol_splist_disp 0x15
|
||||
#define symbol_value_disp 0x5
|
||||
#define tc_DSTBV_disp 0x150
|
||||
#define tc_SRCBV_disp 0x154
|
||||
#define tc_U_disp 0xA4
|
||||
#define tc_V_disp 0xA8
|
||||
#define tc_W_disp 0xAC
|
||||
#define tc_X_disp 0xB0
|
||||
#define tc_Y_disp 0xB4
|
||||
#define tc_ac0_disp 0x4
|
||||
#define tc_ac1_disp 0x8
|
||||
#define tc_active_disp 0x8C
|
||||
#define tc_alloc_counter_disp 0x144
|
||||
#define tc_ap_disp 0x18
|
||||
#define tc_arg_regs_disp 0x0
|
||||
#define tc_block_counter_disp 0xE0
|
||||
#define tc_cchain_disp 0x80
|
||||
#define tc_code_ranges_to_flush_disp 0x84
|
||||
#define tc_compile_profile_disp 0x10C
|
||||
#define tc_compress_format_disp 0x130
|
||||
#define tc_compress_level_disp 0x134
|
||||
#define tc_cp_disp 0x10
|
||||
#define tc_current_error_disp 0xDC
|
||||
#define tc_current_input_disp 0xD4
|
||||
#define tc_current_mso_disp 0xE8
|
||||
#define tc_current_output_disp 0xD8
|
||||
#define tc_default_record_equal_procedure_disp 0x128
|
||||
#define tc_default_record_hash_procedure_disp 0x12C
|
||||
#define tc_disable_count_disp 0xC0
|
||||
#define tc_eap_disp 0x1C
|
||||
#define tc_esp_disp 0x14
|
||||
#define tc_fxfirst_bit_set_bv_disp 0xF4
|
||||
#define tc_fxlength_bv_disp 0xF0
|
||||
#define tc_generate_inspector_information_disp 0x110
|
||||
#define tc_generate_procedure_source_information_disp 0x114
|
||||
#define tc_generate_profile_forms_disp 0x118
|
||||
#define tc_guardian_entries_disp 0x7C
|
||||
#define tc_instr_counter_disp 0x13C
|
||||
#define tc_keyboard_interrupt_pending_disp 0xCC
|
||||
#define tc_lz4_out_buffer_disp 0x138
|
||||
#define tc_meta_level_disp 0x108
|
||||
#define tc_null_immutable_bytevector_disp 0x100
|
||||
#define tc_null_immutable_fxvector_disp 0xFC
|
||||
#define tc_null_immutable_string_disp 0x104
|
||||
#define tc_null_immutable_vector_disp 0xF8
|
||||
#define tc_optimize_level_disp 0x11C
|
||||
#define tc_parameters_disp 0x14C
|
||||
#define tc_random_seed_disp 0x88
|
||||
#define tc_real_eap_disp 0x38
|
||||
#define tc_ret_disp 0x20
|
||||
#define tc_scheme_stack_disp 0x90
|
||||
#define tc_scheme_stack_size_disp 0x9C
|
||||
#define tc_sfd_disp 0xE4
|
||||
#define tc_sfp_disp 0xC
|
||||
#define tc_signal_interrupt_pending_disp 0xC4
|
||||
#define tc_signal_interrupt_queue_disp 0xC8
|
||||
#define tc_something_pending_disp 0xB8
|
||||
#define tc_stack_cache_disp 0x94
|
||||
#define tc_stack_link_disp 0x98
|
||||
#define tc_subset_mode_disp 0x120
|
||||
#define tc_suppress_primitive_inlining_disp 0x124
|
||||
#define tc_target_machine_disp 0xEC
|
||||
#define tc_td_disp 0x34
|
||||
#define tc_threadno_disp 0xD0
|
||||
#define tc_timer_ticks_disp 0xBC
|
||||
#define tc_trap_disp 0x24
|
||||
#define tc_ts_disp 0x30
|
||||
#define tc_virtual_registers_disp 0x3C
|
||||
#define tc_winders_disp 0xA0
|
||||
#define tc_xp_disp 0x28
|
||||
#define tc_yp_disp 0x2C
|
||||
#define thread_tc_disp 0x5
|
||||
#define thread_type_disp 0x1
|
||||
#define time_collector_cpu 0x5
|
||||
#define time_collector_real 0x6
|
||||
#define time_duration 0x2
|
||||
#define time_monotonic 0x3
|
||||
#define time_process 0x0
|
||||
#define time_t_bits 0x20
|
||||
#define time_thread 0x1
|
||||
#define time_utc 0x4
|
||||
#define timer_interrupt_index 0x2
|
||||
#define tlc_ht_disp 0x9
|
||||
#define tlc_keyval_disp 0x5
|
||||
#define tlc_next_disp 0xD
|
||||
#define tlc_type_disp 0x1
|
||||
#define type_bignum 0x6
|
||||
#define type_binary_input_port 0x51E
|
||||
#define type_binary_output_port 0x61E
|
||||
#define type_binary_port 0x41E
|
||||
#define type_boolean 0x6
|
||||
#define type_box 0xE
|
||||
#define type_bytevector 0x1
|
||||
#define type_char 0x16
|
||||
#define type_closure 0x5
|
||||
#define type_code 0x3E
|
||||
#define type_continuation_code 0x23E
|
||||
#define type_exactnum 0x56
|
||||
#define type_fixnum 0x0
|
||||
#define type_flonum 0x2
|
||||
#define type_fxvector 0x3
|
||||
#define type_guardian_code 0x83E
|
||||
#define type_immediate 0x6
|
||||
#define type_immutable_box 0x8E
|
||||
#define type_immutable_bytevector 0x5
|
||||
#define type_immutable_fxvector 0xB
|
||||
#define type_immutable_string 0xA
|
||||
#define type_immutable_vector 0x4
|
||||
#define type_inexactnum 0x36
|
||||
#define type_input_port 0x11E
|
||||
#define type_io_port 0x31E
|
||||
#define type_mutable_box 0xE
|
||||
#define type_mutable_bytevector 0x1
|
||||
#define type_mutable_fxvector 0x3
|
||||
#define type_mutable_string 0x2
|
||||
#define type_mutable_vector 0x0
|
||||
#define type_negative_bignum 0x26
|
||||
#define type_octet 0x0
|
||||
#define type_other_number 0x6
|
||||
#define type_output_port 0x21E
|
||||
#define type_pair 0x1
|
||||
#define type_port 0x1E
|
||||
#define type_positive_bignum 0x6
|
||||
#define type_ratnum 0x16
|
||||
#define type_record 0x7
|
||||
#define type_rtd_counts 0x6E
|
||||
#define type_string 0x2
|
||||
#define type_symbol 0x3
|
||||
#define type_system_code 0x13E
|
||||
#define type_textual_input_port 0x11E
|
||||
#define type_textual_output_port 0x21E
|
||||
#define type_textual_port 0x1E
|
||||
#define type_thread 0x4E
|
||||
#define type_tlc 0x5E
|
||||
#define type_typed_object 0x7
|
||||
#define type_vector 0x0
|
||||
#define typed_object_type_disp 0x1
|
||||
#define typedef_i16 "short"
|
||||
#define typedef_i32 "int"
|
||||
#define typedef_i64 "long long"
|
||||
#define typedef_i8 "char"
|
||||
#define typedef_iptr "int"
|
||||
#define typedef_ptr "void *"
|
||||
#define typedef_string_char "unsigned int"
|
||||
#define typedef_u16 "unsigned short"
|
||||
#define typedef_u32 "unsigned int"
|
||||
#define typedef_u64 "unsigned long long"
|
||||
#define typedef_u8 "unsigned char"
|
||||
#define typedef_uptr "unsigned int"
|
||||
#define typemod 0x8
|
||||
#define unactivate_mode_deactivate 0x1
|
||||
#define unactivate_mode_destroy 0x2
|
||||
#define unactivate_mode_noop 0x0
|
||||
#define unaligned_floats 1
|
||||
#define unaligned_integers 1
|
||||
#define underflow_limit 0x40
|
||||
#define unscaled_shot_1_shot_flag -0x1
|
||||
#define vector_data_disp 0x5
|
||||
#define vector_immutable_flag 0x4
|
||||
#define vector_length_factor 0x8
|
||||
#define vector_length_offset 0x3
|
||||
#define vector_type_disp 0x1
|
||||
#define virtual_register_count 0x10
|
||||
#define wchar_bits 0x20
|
||||
|
||||
/* constants from declare-c-entries */
|
||||
#define CENTRY_Scall_any_results 24
|
||||
#define CENTRY_Scall_one_result 23
|
||||
#define CENTRY_Sreturn 22
|
||||
#define CENTRY_activate_thread 11
|
||||
#define CENTRY_deactivate_thread 12
|
||||
#define CENTRY_foreign_entry 17
|
||||
#define CENTRY_get_more_room 19
|
||||
#define CENTRY_get_thread_context 1
|
||||
#define CENTRY_handle_apply_overflood 2
|
||||
#define CENTRY_handle_arg_error 16
|
||||
#define CENTRY_handle_docall_error 3
|
||||
#define CENTRY_handle_mvlet_error 15
|
||||
#define CENTRY_handle_nonprocedure_symbol 6
|
||||
#define CENTRY_handle_overflood 5
|
||||
#define CENTRY_handle_overflow 4
|
||||
#define CENTRY_handle_values_error 14
|
||||
#define CENTRY_install_library_entry 18
|
||||
#define CENTRY_instantiate_code_object 21
|
||||
#define CENTRY_raw_collect_cond 9
|
||||
#define CENTRY_raw_tc_mutex 10
|
||||
#define CENTRY_scan_remembered_set 20
|
||||
#define CENTRY_split_and_resize 8
|
||||
#define CENTRY_thread_context 0
|
||||
#define CENTRY_thread_list 7
|
||||
#define CENTRY_unactivate_thread 13
|
||||
|
||||
/* displacements for records */
|
||||
#define eq_hashtable_rtd_disp 1
|
||||
#define eq_hashtable_type_disp 5
|
||||
#define eq_hashtable_mutablep_disp 9
|
||||
#define eq_hashtable_vec_disp 13
|
||||
#define eq_hashtable_minlen_disp 17
|
||||
#define eq_hashtable_size_disp 21
|
||||
#define eq_hashtable_subtype_disp 25
|
||||
#define symbol_hashtable_rtd_disp 1
|
||||
#define symbol_hashtable_type_disp 5
|
||||
#define symbol_hashtable_mutablep_disp 9
|
||||
#define symbol_hashtable_vec_disp 13
|
||||
#define symbol_hashtable_minlen_disp 17
|
||||
#define symbol_hashtable_size_disp 21
|
||||
#define symbol_hashtable_equivp_disp 25
|
||||
#define code_info_rtd_disp 1
|
||||
#define code_info_src_disp 5
|
||||
#define code_info_sexpr_disp 9
|
||||
#define code_info_free_disp 13
|
||||
#define code_info_live_disp 17
|
||||
#define code_info_rpis_disp 21
|
||||
|
||||
/* predicates */
|
||||
#define Simmediatep(x) (((uptr)(x)&0x7)==0x6)
|
||||
#define Sportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x1E))
|
||||
#define Scodep(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x3E))
|
||||
|
||||
/* structure accessors */
|
||||
#define INITCAR(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define INITCDR(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define SETCAR(x,y) DIRTYSET(((ptr *)((uptr)(x)+7)),(y))
|
||||
#define SETCDR(x,y) DIRTYSET(((ptr *)((uptr)(x)+11)),(y))
|
||||
#define BOXTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITBOXREF(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SETBOXREF(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define EPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define INITEPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define EPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define INITEPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define TLCTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define TLCKEYVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define TLCHT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define TLCNEXT(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITTLCKEYVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITTLCHT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITTLCNEXT(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SETTLCNEXT(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SYMPVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define SYMPLIST(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SYMNAME(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define SYMSPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define SYMHASH(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define INITSYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITSYMPVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITSYMPLIST(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITSYMNAME(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define INITSYMSPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define INITSYMHASH(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define SETSYMVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define SETSYMPVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+9)),(y))
|
||||
#define SETSYMPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SETSYMNAME(x,y) DIRTYSET(((ptr *)((uptr)(x)+17)),(y))
|
||||
#define SETSYMSPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+21)),(y))
|
||||
#define SETSYMHASH(x,y) DIRTYSET(((ptr *)((uptr)(x)+25)),(y))
|
||||
#define VECTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITVECTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define SETVECTIT(x,i,y) DIRTYSET((((ptr *)((uptr)(x)+5))+i),(y))
|
||||
#define FXVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define FXVECTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define BYTEVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BVIT(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
#define INEXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INEXACTNUM_REAL_PART(x) (*((double *)((uptr)(x)+9)))
|
||||
#define INEXACTNUM_IMAG_PART(x) (*((double *)((uptr)(x)+17)))
|
||||
#define EXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define EXACTNUM_REAL_PART(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define EXACTNUM_IMAG_PART(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RATTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RATNUM(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define RATDEN(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define CLOSENTRY(x) (*((ptr *)((uptr)(x)+3)))
|
||||
#define CLOSIT(x,i) (((ptr *)((uptr)(x)+7))[i])
|
||||
#define FLODAT(x) (*((double *)((uptr)(x)+6)))
|
||||
#define PORTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define PORTNAME(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define PORTHANDLER(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define PORTINFO(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define PORTOCNT(x) (*((iptr *)((uptr)(x)+9)))
|
||||
#define PORTOLAST(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define PORTOBUF(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define PORTICNT(x) (*((iptr *)((uptr)(x)+13)))
|
||||
#define PORTILAST(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define PORTIBUF(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define STRTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define STRIT(x,i) (((string_char *)((uptr)(x)+5))[i])
|
||||
#define BIGTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BIGIT(x,i) (((bigit *)((uptr)(x)+5))[i])
|
||||
#define CODETYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define CODELEN(x) (*((iptr *)((uptr)(x)+5)))
|
||||
#define CODERELOC(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define CODENAME(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define CODEARITYMASK(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CODEFREE(x) (*((iptr *)((uptr)(x)+21)))
|
||||
#define CODEINFO(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define CODEPINFOS(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define CODEIT(x,i) (((octet *)((uptr)(x)+33))[i])
|
||||
#define RELOCSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define RELOCCODE(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define RELOCIT(x,i) (((uptr *)((uptr)(x)+8))[i])
|
||||
#define CONTSTACK(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define CONTLENGTH(x) (*((iptr *)((uptr)(x)+11)))
|
||||
#define CONTCLENGTH(x) (*((iptr *)((uptr)(x)+15)))
|
||||
#define CONTLINK(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define CONTRET(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define CONTWINDERS(x) (*((ptr *)((uptr)(x)+27)))
|
||||
#define RTDCOUNTSTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RTDCOUNTSTIMESTAMP(x) (*((U64 *)((uptr)(x)+5)))
|
||||
#define RTDCOUNTSIT(x,i) (((uptr *)((uptr)(x)+13))[i])
|
||||
#define RECORDDESCPARENT(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define RECORDDESCSIZE(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RECORDDESCPM(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define RECORDDESCMPM(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RECORDDESCNAME(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define RECORDDESCFLDS(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define RECORDDESCFLAGS(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define RECORDDESCUID(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define RECORDDESCCOUNTS(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define RECORDINSTTYPE(x) (*((ptr *)((uptr)(x)+1)))
|
||||
#define RECORDINSTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define CLOSCODE(p) ((ptr)((uptr)CLOSENTRY(p)-code_data_disp))
|
||||
#define CODEENTRYPOINT(x) ((ptr)((uptr)(x)+code_data_disp))
|
||||
#define SETCLOSCODE(p,x) (CLOSENTRY(p) = CODEENTRYPOINT(x))
|
||||
#define SYMCODE(p) ((ptr)((uptr)SYMPVAL(p)-code_data_disp))
|
||||
#define INITSYMCODE(p,x) (INITSYMPVAL(p) = CODEENTRYPOINT(x))
|
||||
#define SETSYMCODE(p,x) SETSYMPVAL(p,CODEENTRYPOINT(x))
|
||||
#define BIGLEN(x) ((iptr)((uptr)BIGTYPE(x) >> bignum_length_offset))
|
||||
#define BIGSIGN(x) ((BIGTYPE(x) & mask_bignum_sign) >> bignum_sign_offset)
|
||||
#define SETBIGLENANDSIGN(x,xl,xs) BIGTYPE(x) = (uptr)(xl) << bignum_length_offset | (xs) << bignum_sign_offset | type_bignum
|
||||
#define CLOSLEN(p) CODEFREE(CLOSCODE(p))
|
||||
#define GUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define GUARDIANREP(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define GUARDIANTCONC(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define GUARDIANNEXT(x) (*((ptr *)((uptr)(x)+12)))
|
||||
#define INITGUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define INITGUARDIANREP(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define INITGUARDIANTCONC(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define INITGUARDIANNEXT(x) (*((ptr *)((uptr)(x)+12)))
|
||||
#define FORWARDMARKER(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define FORWARDADDRESS(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define CACHEDSTACKSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define CACHEDSTACKLINK(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define RPHEADERFRAMESIZE(x) (*((iptr *)((uptr)(x)+8)))
|
||||
#define RPHEADERLIVEMASK(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define RPHEADERTOPLINK(x) (*((uptr *)((uptr)(x)+4)))
|
||||
|
||||
/* machine types */
|
||||
#define machine_type_names {"any", "i3le", "ti3le", "i3nt", "ti3nt", "i3fb", "ti3fb", "i3ob", "ti3ob", "i3osx", "ti3osx", "a6le", "ta6le", "a6osx", "ta6osx", "a6ob", "ta6ob", "a6s2", "ta6s2", "i3s2", "ti3s2", "a6fb", "ta6fb", "i3nb", "ti3nb", "a6nb", "ta6nb", "a6nt", "ta6nt", "i3qnx", "ti3qnx", "arm32le", "tarm32le", "ppc32le", "tppc32le"}
|
||||
|
||||
/* allocation-space names */
|
||||
#define alloc_space_names "new", "impure", "symbol", "port", "weakpr", "emph", "pure", "cont", "code", "p-tobj", "ip-rec", "data", "empty"
|
||||
|
||||
/* allocation-space characters */
|
||||
#define alloc_space_chars 'n', 'i', 'x', 'q', 'w', 'e', 'p', 'k', 'c', 'r', 's', 'd', 'e'
|
||||
|
||||
/* threads */
|
||||
#define THREADTC(x) (*((uptr *)((uptr)(x)+5)))
|
||||
|
||||
/* thread-context data */
|
||||
#define DSTBV(x) (*((ptr *)((uptr)(x)+336)))
|
||||
#define SRCBV(x) (*((ptr *)((uptr)(x)+340)))
|
||||
#define U(x) (*((ptr *)((uptr)(x)+164)))
|
||||
#define V(x) (*((ptr *)((uptr)(x)+168)))
|
||||
#define W(x) (*((ptr *)((uptr)(x)+172)))
|
||||
#define X(x) (*((ptr *)((uptr)(x)+176)))
|
||||
#define Y(x) (*((ptr *)((uptr)(x)+180)))
|
||||
#define AC0(x) (*((void* *)((uptr)(x)+4)))
|
||||
#define AC1(x) (*((void* *)((uptr)(x)+8)))
|
||||
#define ACTIVE(x) (*((I32 *)((uptr)(x)+140)))
|
||||
#define ALLOCCOUNTER(x) (*((U64 *)((uptr)(x)+324)))
|
||||
#define AP(x) (*((void* *)((uptr)(x)+24)))
|
||||
#define ARGREGS(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define BLOCKCOUNTER(x) (*((ptr *)((uptr)(x)+224)))
|
||||
#define CCHAIN(x) (*((ptr *)((uptr)(x)+128)))
|
||||
#define CODERANGESTOFLUSH(x) (*((ptr *)((uptr)(x)+132)))
|
||||
#define COMPILEPROFILE(x) (*((ptr *)((uptr)(x)+268)))
|
||||
#define COMPRESSFORMAT(x) (*((ptr *)((uptr)(x)+304)))
|
||||
#define COMPRESSLEVEL(x) (*((ptr *)((uptr)(x)+308)))
|
||||
#define CP(x) (*((void* *)((uptr)(x)+16)))
|
||||
#define CURRENTERROR(x) (*((ptr *)((uptr)(x)+220)))
|
||||
#define CURRENTINPUT(x) (*((ptr *)((uptr)(x)+212)))
|
||||
#define CURRENTMSO(x) (*((ptr *)((uptr)(x)+232)))
|
||||
#define CURRENTOUTPUT(x) (*((ptr *)((uptr)(x)+216)))
|
||||
#define DEFAULTRECORDEQUALPROCEDURE(x) (*((ptr *)((uptr)(x)+296)))
|
||||
#define DEFAULTRECORDHASHPROCEDURE(x) (*((ptr *)((uptr)(x)+300)))
|
||||
#define DISABLECOUNT(x) (*((ptr *)((uptr)(x)+192)))
|
||||
#define EAP(x) (*((void* *)((uptr)(x)+28)))
|
||||
#define ESP(x) (*((void* *)((uptr)(x)+20)))
|
||||
#define FXFIRSTBITSETBV(x) (*((ptr *)((uptr)(x)+244)))
|
||||
#define FXLENGTHBV(x) (*((ptr *)((uptr)(x)+240)))
|
||||
#define GENERATEINSPECTORINFORMATION(x) (*((ptr *)((uptr)(x)+272)))
|
||||
#define GENERATEPROCEDURESOURCEINFORMATION(x) (*((ptr *)((uptr)(x)+276)))
|
||||
#define GENERATEPROFILEFORMS(x) (*((ptr *)((uptr)(x)+280)))
|
||||
#define GUARDIANENTRIES(x) (*((ptr *)((uptr)(x)+124)))
|
||||
#define INSTRCOUNTER(x) (*((U64 *)((uptr)(x)+316)))
|
||||
#define KEYBOARDINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+204)))
|
||||
#define LZ4OUTBUFFER(x) (*((void* *)((uptr)(x)+312)))
|
||||
#define METALEVEL(x) (*((ptr *)((uptr)(x)+264)))
|
||||
#define NULLIMMUTABLEBYTEVECTOR(x) (*((ptr *)((uptr)(x)+256)))
|
||||
#define NULLIMMUTABLEFXVECTOR(x) (*((ptr *)((uptr)(x)+252)))
|
||||
#define NULLIMMUTABLESTRING(x) (*((ptr *)((uptr)(x)+260)))
|
||||
#define NULLIMMUTABLEVECTOR(x) (*((ptr *)((uptr)(x)+248)))
|
||||
#define OPTIMIZELEVEL(x) (*((ptr *)((uptr)(x)+284)))
|
||||
#define PARAMETERS(x) (*((ptr *)((uptr)(x)+332)))
|
||||
#define RANDOMSEED(x) (*((U32 *)((uptr)(x)+136)))
|
||||
#define REAL_EAP(x) (*((void* *)((uptr)(x)+56)))
|
||||
#define RET(x) (*((void* *)((uptr)(x)+32)))
|
||||
#define SCHEMESTACK(x) (*((void* *)((uptr)(x)+144)))
|
||||
#define SCHEMESTACKSIZE(x) (*((iptr *)((uptr)(x)+156)))
|
||||
#define SFD(x) (*((ptr *)((uptr)(x)+228)))
|
||||
#define SFP(x) (*((void* *)((uptr)(x)+12)))
|
||||
#define SIGNALINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+196)))
|
||||
#define SIGNALINTERRUPTQUEUE(x) (*((ptr *)((uptr)(x)+200)))
|
||||
#define SOMETHINGPENDING(x) (*((ptr *)((uptr)(x)+184)))
|
||||
#define STACKCACHE(x) (*((ptr *)((uptr)(x)+148)))
|
||||
#define STACKLINK(x) (*((ptr *)((uptr)(x)+152)))
|
||||
#define SUBSETMODE(x) (*((ptr *)((uptr)(x)+288)))
|
||||
#define SUPPRESSPRIMITIVEINLINING(x) (*((ptr *)((uptr)(x)+292)))
|
||||
#define TARGETMACHINE(x) (*((ptr *)((uptr)(x)+236)))
|
||||
#define TD(x) (*((void* *)((uptr)(x)+52)))
|
||||
#define THREADNO(x) (*((ptr *)((uptr)(x)+208)))
|
||||
#define TIMERTICKS(x) (*((ptr *)((uptr)(x)+188)))
|
||||
#define TRAP(x) (*((void* *)((uptr)(x)+36)))
|
||||
#define TS(x) (*((void* *)((uptr)(x)+48)))
|
||||
#define VIRTUALREGISTERS(x,i) (((ptr *)((uptr)(x)+60))[i])
|
||||
#define WINDERS(x) (*((ptr *)((uptr)(x)+160)))
|
||||
#define XP(x) (*((void* *)((uptr)(x)+40)))
|
||||
#define YP(x) (*((void* *)((uptr)(x)+44)))
|
||||
#define ARGREG(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define VIRTREG(x,i) (((ptr *)((uptr)(x)+60))[i])
|
||||
|
||||
/* library entries we access from C code */
|
||||
#define library_nonprocedure_code 152
|
||||
#define library_dounderflow 154
|
||||
BIN
boot/i3osx/petite.boot
Normal file
BIN
boot/i3osx/petite.boot
Normal file
Binary file not shown.
BIN
boot/i3osx/scheme.boot
Normal file
BIN
boot/i3osx/scheme.boot
Normal file
Binary file not shown.
239
boot/i3osx/scheme.h
Normal file
239
boot/i3osx/scheme.h
Normal file
|
|
@ -0,0 +1,239 @@
|
|||
/* scheme.h for Chez Scheme Version 9.5.9 (i3osx) */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct scheme.h */
|
||||
/* for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Specify declaration of exports. */
|
||||
#ifdef _WIN32
|
||||
# if __cplusplus
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern "C" __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern "C" __declspec (dllexport)
|
||||
# endif
|
||||
# else
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern
|
||||
# else
|
||||
# define EXPORT extern __declspec (dllexport)
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# if __cplusplus
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern
|
||||
# endif
|
||||
#endif
|
||||
|
||||
/* Chez Scheme Version and machine type */
|
||||
#define VERSION "9.5.9"
|
||||
#define MACHINE_TYPE "i3osx"
|
||||
|
||||
/* All Scheme objects are of type ptr. Type iptr and */
|
||||
/* uptr are signed and unsigned ints of the same size */
|
||||
/* as a ptr */
|
||||
typedef void * ptr;
|
||||
typedef int iptr;
|
||||
typedef unsigned int uptr;
|
||||
|
||||
/* String elements are 32-bit tagged char objects */
|
||||
typedef unsigned int string_char;
|
||||
|
||||
/* Bytevector elements are 8-bit unsigned "octets" */
|
||||
typedef unsigned char octet;
|
||||
|
||||
/* Type predicates */
|
||||
#define Sfixnump(x) (((uptr)(x)&0x3)==0x0)
|
||||
#define Scharp(x) (((uptr)(x)&0xFF)==0x16)
|
||||
#define Snullp(x) ((uptr)(x)==0x26)
|
||||
#define Seof_objectp(x) ((uptr)(x)==0x36)
|
||||
#define Sbwp_objectp(x) ((uptr)(x)==0x4E)
|
||||
#define Sbooleanp(x) (((uptr)(x)&0xF7)==0x6)
|
||||
#define Spairp(x) (((uptr)(x)&0x7)==0x1)
|
||||
#define Ssymbolp(x) (((uptr)(x)&0x7)==0x3)
|
||||
#define Sprocedurep(x) (((uptr)(x)&0x7)==0x5)
|
||||
#define Sflonump(x) (((uptr)(x)&0x7)==0x2)
|
||||
#define Svectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x0))
|
||||
#define Sfxvectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x3))
|
||||
#define Sbytevectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x1))
|
||||
#define Sstringp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x2))
|
||||
#define Sbignump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1F)==0x6))
|
||||
#define Sboxp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7F)==0xE))
|
||||
#define Sinexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x36))
|
||||
#define Sexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x56))
|
||||
#define Sratnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x16))
|
||||
#define Sinputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1FF)==0x11E))
|
||||
#define Soutputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x2FF)==0x21E))
|
||||
#define Srecordp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x7))
|
||||
|
||||
/* Accessors */
|
||||
#define Sfixnum_value(x) ((iptr)(x)/4)
|
||||
#define Schar_value(x) ((string_char)((uptr)(x)>>8))
|
||||
#define Sboolean_value(x) ((x) != Sfalse)
|
||||
#define Scar(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define Scdr(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define Sflonum_value(x) (*((double *)((uptr)(x)+6)))
|
||||
#define Svector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Svector_ref(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define Sfxvector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sfxvector_ref(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define Sbytevector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Sbytevector_u8_ref(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
/* Warning: Sbytevector_data(x) returns a pointer into x. */
|
||||
#define Sbytevector_data(x) &Sbytevector_u8_ref(x,0)
|
||||
#define Sstring_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sstring_ref(x,i) Schar_value(((string_char *)((uptr)(x)+5))[i])
|
||||
#define Sunbox(x) (*((ptr *)((uptr)(x)+5)))
|
||||
EXPORT iptr Sinteger_value(ptr);
|
||||
#define Sunsigned_value(x) (uptr)Sinteger_value(x)
|
||||
EXPORT int Sinteger32_value(ptr);
|
||||
#define Sunsigned32_value(x) (unsigned int)Sinteger32_value(x)
|
||||
EXPORT long long Sinteger64_value(ptr);
|
||||
#define Sunsigned64_value(x) (unsigned long long)Sinteger64_value(x)
|
||||
|
||||
/* Mutators */
|
||||
EXPORT void Sset_box(ptr, ptr);
|
||||
EXPORT void Sset_car(ptr, ptr);
|
||||
EXPORT void Sset_cdr(ptr, ptr);
|
||||
#define Sstring_set(x,i,c) ((void)((((string_char *)((uptr)(x)+5))[i]) = (string_char)(uptr)Schar(c)))
|
||||
#define Sfxvector_set(x,i,n) ((void)(Sfxvector_ref(x,i) = (n)))
|
||||
#define Sbytevector_u8_set(x,i,n) ((void)(Sbytevector_u8_ref(x,i) = (n)))
|
||||
EXPORT void Svector_set(ptr, iptr, ptr);
|
||||
|
||||
/* Constructors */
|
||||
#define Sfixnum(x) ((ptr)(uptr)((x)*4))
|
||||
#define Schar(x) ((ptr)(uptr)((x)<<8|0x16))
|
||||
#define Snil ((ptr)0x26)
|
||||
#define Strue ((ptr)0xE)
|
||||
#define Sfalse ((ptr)0x6)
|
||||
#define Sboolean(x) ((x)?Strue:Sfalse)
|
||||
#define Sbwp_object ((ptr)0x4E)
|
||||
#define Seof_object ((ptr)0x36)
|
||||
#define Svoid ((ptr)0x3E)
|
||||
EXPORT ptr Scons(ptr, ptr);
|
||||
EXPORT ptr Sstring_to_symbol(const char *);
|
||||
EXPORT ptr Ssymbol_to_string(ptr);
|
||||
EXPORT ptr Sflonum(double);
|
||||
EXPORT ptr Smake_vector(iptr, ptr);
|
||||
EXPORT ptr Smake_fxvector(iptr, ptr);
|
||||
EXPORT ptr Smake_bytevector(iptr, int);
|
||||
EXPORT ptr Smake_string(iptr, int);
|
||||
EXPORT ptr Smake_uninitialized_string(iptr);
|
||||
EXPORT ptr Sstring(const char *);
|
||||
EXPORT ptr Sstring_of_length(const char *, iptr);
|
||||
EXPORT ptr Sstring_utf8(const char*, iptr);
|
||||
EXPORT ptr Sbox(ptr);
|
||||
EXPORT ptr Sinteger(iptr);
|
||||
EXPORT ptr Sunsigned(uptr);
|
||||
EXPORT ptr Sinteger32(int);
|
||||
EXPORT ptr Sunsigned32(unsigned int);
|
||||
EXPORT ptr Sinteger64(long long);
|
||||
EXPORT ptr Sunsigned64(unsigned long long);
|
||||
|
||||
/* Miscellaneous */
|
||||
EXPORT ptr Stop_level_value(ptr);
|
||||
EXPORT void Sset_top_level_value(ptr, ptr);
|
||||
EXPORT void Slock_object(ptr);
|
||||
EXPORT void Sunlock_object(ptr);
|
||||
EXPORT int Slocked_objectp(ptr);
|
||||
EXPORT void Sforeign_symbol(const char *, void *);
|
||||
EXPORT void Sregister_symbol(const char *, void *);
|
||||
|
||||
/* Support for calls into Scheme */
|
||||
EXPORT ptr Scall0(ptr);
|
||||
EXPORT ptr Scall1(ptr, ptr);
|
||||
EXPORT ptr Scall2(ptr, ptr, ptr);
|
||||
EXPORT ptr Scall3(ptr, ptr, ptr, ptr);
|
||||
EXPORT void Sinitframe(iptr);
|
||||
EXPORT void Sput_arg(iptr, ptr);
|
||||
EXPORT ptr Scall(ptr, iptr);
|
||||
/* Warning: Sforeign_callable_entry_point(x) returns a pointer into x. */
|
||||
#define Sforeign_callable_entry_point(x) ((void (*)(void))((uptr)(x)+33))
|
||||
#define Sforeign_callable_code_object(x) ((ptr)((uptr)(x)-33))
|
||||
|
||||
/* Customization support. */
|
||||
EXPORT const char * Skernel_version(void);
|
||||
EXPORT void Sretain_static_relocation(void);
|
||||
EXPORT void Sset_verbose(int);
|
||||
EXPORT void Sscheme_init(void (*)(void));
|
||||
EXPORT void Sregister_boot_file(const char *);
|
||||
EXPORT void Sregister_boot_file_fd(const char *, int fd);
|
||||
EXPORT void Sregister_heap_file(const char *);
|
||||
EXPORT void Scompact_heap(void);
|
||||
EXPORT void Ssave_heap(const char *, int);
|
||||
EXPORT void Sbuild_heap(const char *, void (*)(void));
|
||||
EXPORT void Senable_expeditor(const char *);
|
||||
EXPORT int Sscheme_start(int, const char *[]);
|
||||
EXPORT int Sscheme_script(const char *, int, const char *[]);
|
||||
EXPORT int Sscheme_program(const char *, int, const char *[]);
|
||||
EXPORT void Sscheme_deinit(void);
|
||||
|
||||
/* Features. */
|
||||
#define FEATURE_ICONV
|
||||
#define FEATURE_EXPEDITOR
|
||||
|
||||
/* Locking macros. */
|
||||
#define INITLOCK(addr) \
|
||||
__asm__ __volatile__ ("movl $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "memory")
|
||||
|
||||
#define SPINLOCK(addr) \
|
||||
__asm__ __volatile__ ("0:\n\t"\
|
||||
"movl $1, %%eax\n\t"\
|
||||
"xchgl (%0), %%eax\n\t"\
|
||||
"cmpl $0, %%eax\n\t"\
|
||||
"je 2f\n\t"\
|
||||
"1:\n\t"\
|
||||
"pause\n\t"\
|
||||
"cmpl $0, (%0)\n\t"\
|
||||
"je 0b\n\t"\
|
||||
"jmp 1b\n\t"\
|
||||
"2:"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "eax", "flags", "memory")
|
||||
|
||||
#define UNLOCK(addr) \
|
||||
__asm__ __volatile__ ("movl $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "memory")
|
||||
|
||||
#define LOCKED_INCR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; incl (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
|
||||
#define LOCKED_DECR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; decl (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
993
boot/ta6le/equates.h
Normal file
993
boot/ta6le/equates.h
Normal file
|
|
@ -0,0 +1,993 @@
|
|||
/* equates.h for Chez Scheme Version 9.5.9 */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct version */
|
||||
/* of this file for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Integer typedefs */
|
||||
typedef char I8;
|
||||
typedef unsigned char U8;
|
||||
typedef short I16;
|
||||
typedef unsigned short U16;
|
||||
typedef int I32;
|
||||
typedef unsigned int U32;
|
||||
typedef long I64;
|
||||
typedef unsigned long U64;
|
||||
|
||||
/* constants from cmacros.ss */
|
||||
#define $c_func_closure_index 0x4
|
||||
#define $c_func_closure_record_index 0x3
|
||||
#define $c_func_code_object_index 0x2
|
||||
#define $c_func_code_record_index 0x1
|
||||
#define COMPRESS_FORMAT_BITS 0x3
|
||||
#define COMPRESS_GZIP 0x0
|
||||
#define COMPRESS_HIGH 0x3
|
||||
#define COMPRESS_LOW 0x1
|
||||
#define COMPRESS_LZ4 0x1
|
||||
#define COMPRESS_MAX 0x4
|
||||
#define COMPRESS_MEDIUM 0x2
|
||||
#define COMPRESS_MIN 0x0
|
||||
#define ERROR_CALL_ARGUMENT_COUNT 0x4
|
||||
#define ERROR_CALL_NONPROCEDURE 0x3
|
||||
#define ERROR_CALL_NONPROCEDURE_SYMBOL 0x2
|
||||
#define ERROR_CALL_UNBOUND 0x1
|
||||
#define ERROR_MVLET 0x8
|
||||
#define ERROR_NONCONTINUABLE_INTERRUPT 0x6
|
||||
#define ERROR_OTHER 0x0
|
||||
#define ERROR_RESET 0x5
|
||||
#define ERROR_VALUES 0x7
|
||||
#define OPEN_ERROR_EXISTS 0x2
|
||||
#define OPEN_ERROR_EXISTSNOT 0x3
|
||||
#define OPEN_ERROR_OTHER 0x0
|
||||
#define OPEN_ERROR_PROTECTION 0x1
|
||||
#define PORT_FLAG_BINARY 0x400
|
||||
#define PORT_FLAG_BLOCK_BUFFERED 0x20000
|
||||
#define PORT_FLAG_BOL 0x8000
|
||||
#define PORT_FLAG_CHAR_POSITIONS 0x100000
|
||||
#define PORT_FLAG_CLOSED 0x800
|
||||
#define PORT_FLAG_COMPRESSED 0x2000
|
||||
#define PORT_FLAG_EOF 0x10000
|
||||
#define PORT_FLAG_EXCLUSIVE 0x4000
|
||||
#define PORT_FLAG_FILE 0x1000
|
||||
#define PORT_FLAG_FOLD_CASE 0x400000
|
||||
#define PORT_FLAG_INPUT 0x100
|
||||
#define PORT_FLAG_INPUT_MODE 0x80000
|
||||
#define PORT_FLAG_LINE_BUFFERED 0x40000
|
||||
#define PORT_FLAG_NO_FOLD_CASE 0x800000
|
||||
#define PORT_FLAG_OUTPUT 0x200
|
||||
#define PORT_FLAG_R6RS 0x200000
|
||||
#define SAPPEND 0x3
|
||||
#define SDEFAULT 0x4
|
||||
#define SEOF -0x1
|
||||
#define SERROR 0x0
|
||||
#define SICONV_DUNNO 0x0
|
||||
#define SICONV_INCOMPLETE 0x2
|
||||
#define SICONV_INVALID 0x1
|
||||
#define SICONV_NOROOM 0x3
|
||||
#define SREPLACE 0x2
|
||||
#define STRVNCATE 0x1
|
||||
#define address_bits 0x40
|
||||
#define alloc_waste_maximum 0x800
|
||||
#define annotation_all 0x3
|
||||
#define annotation_debug 0x1
|
||||
#define annotation_profile 0x2
|
||||
#define architecture x86_64
|
||||
#define asm_arg_reg_cnt 0x3
|
||||
#define asm_arg_reg_max 0x5
|
||||
#define bigit_bits 0x20
|
||||
#define bigit_bytes 0x4
|
||||
#define bignum_data_disp 0x9
|
||||
#define bignum_length_factor 0x40
|
||||
#define bignum_length_offset 0x6
|
||||
#define bignum_sign_offset 0x5
|
||||
#define bignum_type_disp 0x1
|
||||
#define black_hole (ptr)0x46
|
||||
#define box_ref_disp 0x9
|
||||
#define box_type_disp 0x1
|
||||
#define byte_alignment 0x10
|
||||
#define byte_constant_mask 0xFFFFFFFFFFFFFFFF
|
||||
#define bytes_per_card 0x200
|
||||
#define bytes_per_segment 0x4000
|
||||
#define bytevector_data_disp 0x9
|
||||
#define bytevector_immutable_flag 0x4
|
||||
#define bytevector_length_factor 0x8
|
||||
#define bytevector_length_offset 0x3
|
||||
#define bytevector_type_disp 0x1
|
||||
#define c_entry_name_vector #(thread-context get-thread-context handle-apply-overflood handle-docall-error handle-overflow handle-overflood handle-nonprocedure-symbol thread-list split-and-resize raw-collect-cond raw-tc-mutex activate-thread deactivate-thread unactivate-thread handle-values-error handle-mvlet-error handle-arg-error foreign-entry install-library-entry get-more-room scan-remembered-set instantiate-code-object Sreturn Scall-one-result Scall-any-results)
|
||||
#define c_entry_vector_size 0x19
|
||||
#define cached_stack_link_disp 0x8
|
||||
#define cached_stack_size_disp 0x0
|
||||
#define card_offset_bits 0x9
|
||||
#define cards_per_segment 0x20
|
||||
#define char_data_offset 0x8
|
||||
#define char_factor 0x100
|
||||
#define closure_code_disp 0x3
|
||||
#define closure_data_disp 0xB
|
||||
#define code_arity_mask_disp 0x21
|
||||
#define code_closure_length_disp 0x29
|
||||
#define code_data_disp 0x41
|
||||
#define code_flag_continuation 0x2
|
||||
#define code_flag_guardian 0x8
|
||||
#define code_flag_system 0x1
|
||||
#define code_flag_template 0x4
|
||||
#define code_flags_offset 0x8
|
||||
#define code_info_disp 0x31
|
||||
#define code_length_disp 0x9
|
||||
#define code_name_disp 0x19
|
||||
#define code_pinfos_disp 0x39
|
||||
#define code_reloc_disp 0x11
|
||||
#define code_type_disp 0x1
|
||||
#define collect_interrupt_index 0x1
|
||||
#define continuation_code_disp 0x3
|
||||
#define continuation_link_disp 0x23
|
||||
#define continuation_return_address_disp 0x2B
|
||||
#define continuation_stack_clength_disp 0x1B
|
||||
#define continuation_stack_disp 0xB
|
||||
#define continuation_stack_length_disp 0x13
|
||||
#define continuation_winders_disp 0x33
|
||||
#define countof_bignum 0x5
|
||||
#define countof_box 0x9
|
||||
#define countof_bytevector 0x15
|
||||
#define countof_closure 0x3
|
||||
#define countof_code 0xB
|
||||
#define countof_continuation 0x4
|
||||
#define countof_ephemeron 0x19
|
||||
#define countof_exactnum 0x8
|
||||
#define countof_flonum 0x2
|
||||
#define countof_fxvector 0x14
|
||||
#define countof_guardian 0x17
|
||||
#define countof_inexactnum 0x7
|
||||
#define countof_locked 0x16
|
||||
#define countof_oblist 0x18
|
||||
#define countof_pair 0x0
|
||||
#define countof_port 0xA
|
||||
#define countof_ratnum 0x6
|
||||
#define countof_relocation_table 0x10
|
||||
#define countof_rtd_counts 0xE
|
||||
#define countof_stack 0xF
|
||||
#define countof_string 0x13
|
||||
#define countof_symbol 0x1
|
||||
#define countof_thread 0xC
|
||||
#define countof_tlc 0xD
|
||||
#define countof_types 0x1A
|
||||
#define countof_vector 0x12
|
||||
#define countof_weakpair 0x11
|
||||
#define default_collect_trip_bytes 0x800000
|
||||
#define default_heap_reserve_ratio 1.0
|
||||
#define default_max_nonstatic_generation 0x4
|
||||
#define default_stack_size 0xFFF0
|
||||
#define default_timer_ticks 0x3E8
|
||||
#define dtvec_hour 0x3
|
||||
#define dtvec_isdst 0x9
|
||||
#define dtvec_mday 0x4
|
||||
#define dtvec_min 0x2
|
||||
#define dtvec_mon 0x5
|
||||
#define dtvec_nsec 0x0
|
||||
#define dtvec_sec 0x1
|
||||
#define dtvec_size 0xC
|
||||
#define dtvec_tzname 0xB
|
||||
#define dtvec_tzoff 0xA
|
||||
#define dtvec_wday 0x7
|
||||
#define dtvec_yday 0x8
|
||||
#define dtvec_year 0x6
|
||||
#define ephemeron_car_disp 0x7
|
||||
#define ephemeron_cdr_disp 0xF
|
||||
#define ephemeron_next_disp 0x17
|
||||
#define ephemeron_trigger_next_disp 0x1F
|
||||
#define eq_hashtable_subtype_ephemeron 0x2
|
||||
#define eq_hashtable_subtype_normal 0x0
|
||||
#define eq_hashtable_subtype_weak 0x1
|
||||
#define exactnum_imag_disp 0x11
|
||||
#define exactnum_real_disp 0x9
|
||||
#define exactnum_type_disp 0x1
|
||||
#define fasl_fld_double 0xA
|
||||
#define fasl_fld_i16 0x2
|
||||
#define fasl_fld_i24 0x3
|
||||
#define fasl_fld_i32 0x4
|
||||
#define fasl_fld_i40 0x5
|
||||
#define fasl_fld_i48 0x6
|
||||
#define fasl_fld_i56 0x7
|
||||
#define fasl_fld_i64 0x8
|
||||
#define fasl_fld_ptr 0x0
|
||||
#define fasl_fld_single 0x9
|
||||
#define fasl_fld_u8 0x1
|
||||
#define fasl_header #vu8(0 0 0 0 99 104 101 122)
|
||||
#define fasl_type_base_rtd 0x1A
|
||||
#define fasl_type_box 0x1
|
||||
#define fasl_type_bytevector 0x1D
|
||||
#define fasl_type_closure 0x6
|
||||
#define fasl_type_code 0xB
|
||||
#define fasl_type_entry 0xD
|
||||
#define fasl_type_ephemeron 0x1C
|
||||
#define fasl_type_eq_hashtable 0x1F
|
||||
#define fasl_type_exactnum 0x14
|
||||
#define fasl_type_flonum 0x8
|
||||
#define fasl_type_fxvector 0x1B
|
||||
#define fasl_type_gensym 0x13
|
||||
#define fasl_type_graph 0x10
|
||||
#define fasl_type_graph_def 0x11
|
||||
#define fasl_type_graph_ref 0x12
|
||||
#define fasl_type_gzip 0x2B
|
||||
#define fasl_type_header 0x0
|
||||
#define fasl_type_immediate 0xC
|
||||
#define fasl_type_immutable_box 0x29
|
||||
#define fasl_type_immutable_bytevector 0x28
|
||||
#define fasl_type_immutable_fxvector 0x27
|
||||
#define fasl_type_immutable_string 0x26
|
||||
#define fasl_type_immutable_vector 0x25
|
||||
#define fasl_type_inexactnum 0x5
|
||||
#define fasl_type_large_integer 0xA
|
||||
#define fasl_type_library 0xE
|
||||
#define fasl_type_library_code 0xF
|
||||
#define fasl_type_lz4 0x2C
|
||||
#define fasl_type_pair 0x7
|
||||
#define fasl_type_ratnum 0x3
|
||||
#define fasl_type_record 0x17
|
||||
#define fasl_type_revisit 0x23
|
||||
#define fasl_type_rtd 0x18
|
||||
#define fasl_type_small_integer 0x19
|
||||
#define fasl_type_string 0x9
|
||||
#define fasl_type_symbol 0x2
|
||||
#define fasl_type_symbol_hashtable 0x20
|
||||
#define fasl_type_uncompressed 0x2A
|
||||
#define fasl_type_vector 0x4
|
||||
#define fasl_type_visit 0x22
|
||||
#define fasl_type_visit_revisit 0x24
|
||||
#define fasl_type_weak_pair 0x1E
|
||||
#define fixnum_bits 0x3D
|
||||
#define fixnum_factor 0x8
|
||||
#define fixnum_offset 0x3
|
||||
#define fld_byte_index 0x4
|
||||
#define fld_mutablep_index 0x2
|
||||
#define fld_name_index 0x1
|
||||
#define fld_type_index 0x3
|
||||
#define flonum_data_disp 0x6
|
||||
#define forward_address_disp 0x8
|
||||
#define forward_marker (ptr)0x2E
|
||||
#define forward_marker_disp 0x0
|
||||
#define ftype_guardian_rep (ptr)0x56
|
||||
#define fxvector_data_disp 0x9
|
||||
#define fxvector_immutable_flag 0x8
|
||||
#define fxvector_length_factor 0x10
|
||||
#define fxvector_length_offset 0x4
|
||||
#define fxvector_type_disp 0x1
|
||||
#define guardian_entry_next_disp 0x18
|
||||
#define guardian_entry_obj_disp 0x0
|
||||
#define guardian_entry_rep_disp 0x8
|
||||
#define guardian_entry_tconc_disp 0x10
|
||||
#define hashtable_default_size 0x8
|
||||
#define header_size_bignum 0x8
|
||||
#define header_size_bytevector 0x8
|
||||
#define header_size_closure 0x8
|
||||
#define header_size_code 0x40
|
||||
#define header_size_fxvector 0x8
|
||||
#define header_size_record 0x8
|
||||
#define header_size_reloc_table 0x10
|
||||
#define header_size_string 0x8
|
||||
#define header_size_vector 0x8
|
||||
#define ignore_event_flag 0x0
|
||||
#define inexactnum_imag_disp 0x19
|
||||
#define inexactnum_pad_disp 0x9
|
||||
#define inexactnum_real_disp 0x11
|
||||
#define inexactnum_type_disp 0x1
|
||||
#define int_bits 0x20
|
||||
#define integer_divide_instruction 1
|
||||
#define keyboard_interrupt_index 0x3
|
||||
#define library_entry_vector_size 0x210
|
||||
#define libspec_closure_index 0xD
|
||||
#define libspec_does_not_expect_headroom_index 0x0
|
||||
#define libspec_error_index 0xE
|
||||
#define libspec_fake_index 0x10
|
||||
#define libspec_flags_index 0x2
|
||||
#define libspec_has_does_not_expect_headroom_version_index 0xF
|
||||
#define libspec_index_base_offset 0x1
|
||||
#define libspec_index_base_size 0x9
|
||||
#define libspec_index_offset 0x0
|
||||
#define libspec_index_size 0xA
|
||||
#define libspec_interface_offset 0xA
|
||||
#define libspec_interface_size 0x3
|
||||
#define libspec_name_index 0x1
|
||||
#define log2_ptr_bytes 0x3
|
||||
#define long_bits 0x40
|
||||
#define long_long_bits 0x40
|
||||
#define machine_type 0xC
|
||||
#define machine_type_a6fb 0x15
|
||||
#define machine_type_a6le 0xB
|
||||
#define machine_type_a6nb 0x19
|
||||
#define machine_type_a6nt 0x1B
|
||||
#define machine_type_a6ob 0xF
|
||||
#define machine_type_a6osx 0xD
|
||||
#define machine_type_a6s2 0x11
|
||||
#define machine_type_alist ((0 . any) (1 . i3le) (2 . ti3le) (3 . i3nt) (4 . ti3nt) (5 . i3fb) (6 . ti3fb) (7 . i3ob) (8 . ti3ob) (9 . i3osx) (10 . ti3osx) (11 . a6le) (12 . ta6le) (13 . a6osx) (14 . ta6osx) (15 . a6ob) (16 . ta6ob) (17 . a6s2) (18 . ta6s2) (19 . i3s2) (20 . ti3s2) (21 . a6fb) (22 . ta6fb) (23 . i3nb) (24 . ti3nb) (25 . a6nb) (26 . ta6nb) (27 . a6nt) (28 . ta6nt) (29 . i3qnx) (30 . ti3qnx) (31 . arm32le) (32 . tarm32le) (33 . ppc32le) (34 . tppc32le))
|
||||
#define machine_type_any 0x0
|
||||
#define machine_type_arm32le 0x1F
|
||||
#define machine_type_i3fb 0x5
|
||||
#define machine_type_i3le 0x1
|
||||
#define machine_type_i3nb 0x17
|
||||
#define machine_type_i3nt 0x3
|
||||
#define machine_type_i3ob 0x7
|
||||
#define machine_type_i3osx 0x9
|
||||
#define machine_type_i3qnx 0x1D
|
||||
#define machine_type_i3s2 0x13
|
||||
#define machine_type_limit 0x23
|
||||
#define machine_type_name ta6le
|
||||
#define machine_type_ppc32le 0x21
|
||||
#define machine_type_ta6fb 0x16
|
||||
#define machine_type_ta6le 0xC
|
||||
#define machine_type_ta6nb 0x1A
|
||||
#define machine_type_ta6nt 0x1C
|
||||
#define machine_type_ta6ob 0x10
|
||||
#define machine_type_ta6osx 0xE
|
||||
#define machine_type_ta6s2 0x12
|
||||
#define machine_type_tarm32le 0x20
|
||||
#define machine_type_ti3fb 0x6
|
||||
#define machine_type_ti3le 0x2
|
||||
#define machine_type_ti3nb 0x18
|
||||
#define machine_type_ti3nt 0x4
|
||||
#define machine_type_ti3ob 0x8
|
||||
#define machine_type_ti3osx 0xA
|
||||
#define machine_type_ti3qnx 0x1E
|
||||
#define machine_type_ti3s2 0x14
|
||||
#define machine_type_tppc32le 0x22
|
||||
#define mask_bignum 0x1F
|
||||
#define mask_bignum_sign 0x20
|
||||
#define mask_binary_input_port 0x5FF
|
||||
#define mask_binary_output_port 0x6FF
|
||||
#define mask_binary_port 0x4FF
|
||||
#define mask_boolean 0xF7
|
||||
#define mask_box 0x7F
|
||||
#define mask_bwp 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_bytevector 0x3
|
||||
#define mask_char 0xFF
|
||||
#define mask_closure 0x7
|
||||
#define mask_code 0xFF
|
||||
#define mask_continuation_code 0x2FF
|
||||
#define mask_eof 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_exactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_false 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_fixnum 0x7
|
||||
#define mask_flonum 0x7
|
||||
#define mask_fxvector 0x7
|
||||
#define mask_guardian_code 0x8FF
|
||||
#define mask_immediate 0x7
|
||||
#define mask_inexactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_input_port 0x1FF
|
||||
#define mask_mutable_box 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_mutable_bytevector 0x7
|
||||
#define mask_mutable_fxvector 0xF
|
||||
#define mask_mutable_string 0xF
|
||||
#define mask_mutable_vector 0xF
|
||||
#define mask_nil 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_octet -0x7F9
|
||||
#define mask_other_number 0xF
|
||||
#define mask_output_port 0x2FF
|
||||
#define mask_pair 0x7
|
||||
#define mask_port 0xFF
|
||||
#define mask_ratnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_record 0x7
|
||||
#define mask_rtd_counts 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_signed_bignum 0x3F
|
||||
#define mask_string 0x7
|
||||
#define mask_symbol 0x7
|
||||
#define mask_system_code 0x1FF
|
||||
#define mask_textual_input_port 0x5FF
|
||||
#define mask_textual_output_port 0x6FF
|
||||
#define mask_textual_port 0x4FF
|
||||
#define mask_thread 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_tlc 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_typed_object 0x7
|
||||
#define mask_unbound 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_vector 0x7
|
||||
#define max_float_alignment 0x8
|
||||
#define max_integer_alignment 0x8
|
||||
#define max_real_space 0xB
|
||||
#define max_space 0xC
|
||||
#define max_sweep_space 0xA
|
||||
#define maximum_bignum_length (iptr)0x3FFFFFFFFFFFFFF
|
||||
#define maximum_bytevector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_fxvector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_interrupt_index 0x4
|
||||
#define maximum_string_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_vector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define minimum_segment_request 0x80
|
||||
#define most_negative_fixnum (iptr)-0x1000000000000000
|
||||
#define most_positive_fixnum (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define native_endianness little
|
||||
#define one_shot_headroom 0xC00
|
||||
#define ordinary_type_bits 0x8
|
||||
#define pair_car_disp 0x7
|
||||
#define pair_cdr_disp 0xF
|
||||
#define pair_shift 0x4
|
||||
#define port_flag_binary 0x4
|
||||
#define port_flag_block_buffered 0x200
|
||||
#define port_flag_bol 0x80
|
||||
#define port_flag_char_positions 0x1000
|
||||
#define port_flag_closed 0x8
|
||||
#define port_flag_compressed 0x20
|
||||
#define port_flag_eof 0x100
|
||||
#define port_flag_exclusive 0x40
|
||||
#define port_flag_file 0x10
|
||||
#define port_flag_fold_case 0x4000
|
||||
#define port_flag_input 0x1
|
||||
#define port_flag_input_mode 0x800
|
||||
#define port_flag_line_buffered 0x400
|
||||
#define port_flag_no_fold_case 0x8000
|
||||
#define port_flag_output 0x2
|
||||
#define port_flag_r6rs 0x2000
|
||||
#define port_flags_offset 0x8
|
||||
#define port_handler_disp 0x9
|
||||
#define port_ibuffer_disp 0x39
|
||||
#define port_icount_disp 0x19
|
||||
#define port_ilast_disp 0x31
|
||||
#define port_info_disp 0x41
|
||||
#define port_name_disp 0x49
|
||||
#define port_obuffer_disp 0x29
|
||||
#define port_ocount_disp 0x11
|
||||
#define port_olast_disp 0x21
|
||||
#define port_type_disp 0x1
|
||||
#define prelex_is_flags_offset 0x8
|
||||
#define prelex_is_mask 0xFF00
|
||||
#define prelex_sticky_mask 0xFF
|
||||
#define prelex_was_flags_offset 0x10
|
||||
#define primary_type_bits 0x3
|
||||
#define ptr_bits 0x40
|
||||
#define ptr_bytes 0x8
|
||||
#define ptrdiff_t_bits 0x40
|
||||
#define ratnum_denominator_disp 0x11
|
||||
#define ratnum_numerator_disp 0x9
|
||||
#define ratnum_type_disp 0x1
|
||||
#define real_space_alist ((new . 0) (impure . 1) (symbol . 2) (port . 3) (weakpair . 4) (ephemeron . 5) (pure . 6) (continuation . 7) (code . 8) (pure-typed-object . 9) (impure-record . 10) (data . 11))
|
||||
#define record_data_disp 0x9
|
||||
#define record_type_counts_disp 0x49
|
||||
#define record_type_disp 0x1
|
||||
#define record_type_flags_disp 0x39
|
||||
#define record_type_flds_disp 0x31
|
||||
#define record_type_mpm_disp 0x21
|
||||
#define record_type_name_disp 0x29
|
||||
#define record_type_parent_disp 0x9
|
||||
#define record_type_pm_disp 0x19
|
||||
#define record_type_size_disp 0x11
|
||||
#define record_type_type_disp 0x1
|
||||
#define record_type_uid_disp 0x41
|
||||
#define reloc_abs 0x0
|
||||
#define reloc_code_offset_index 0x3
|
||||
#define reloc_code_offset_mask 0x3FFFFFF
|
||||
#define reloc_code_offset_offset 0x4
|
||||
#define reloc_extended_format 0x1
|
||||
#define reloc_item_offset_index 0x2
|
||||
#define reloc_item_offset_mask 0x3FFFFFF
|
||||
#define reloc_item_offset_offset 0x1E
|
||||
#define reloc_longp_index 0x4
|
||||
#define reloc_table_code_disp 0x8
|
||||
#define reloc_table_data_disp 0x10
|
||||
#define reloc_table_size_disp 0x0
|
||||
#define reloc_type_index 0x1
|
||||
#define reloc_type_mask 0x7
|
||||
#define reloc_type_offset 0x1
|
||||
#define reloc_x86_64_call 0x1
|
||||
#define reloc_x86_64_jump 0x2
|
||||
#define return_address_frame_size_disp -0x10
|
||||
#define return_address_livemask_disp -0x20
|
||||
#define return_address_mv_return_address_disp -0x8
|
||||
#define return_address_toplink_disp -0x18
|
||||
#define rp_header_frame_size_disp 0x10
|
||||
#define rp_header_livemask_disp 0x0
|
||||
#define rp_header_mv_return_address_disp 0x18
|
||||
#define rp_header_toplink_disp 0x8
|
||||
#define rtd_counts_data_disp 0x11
|
||||
#define rtd_counts_timestamp_disp 0x9
|
||||
#define rtd_counts_type_disp 0x1
|
||||
#define rtd_generative 0x1
|
||||
#define rtd_opaque 0x2
|
||||
#define rtd_sealed 0x4
|
||||
#define sbwp (ptr)0x4E
|
||||
#define scaled_shot_1_shot_flag -0x8
|
||||
#define scheme_version 0x90509
|
||||
#define segment_card_offset_bits 0x5
|
||||
#define segment_offset_bits 0xE
|
||||
#define segment_t1_bits 0x10
|
||||
#define segment_t2_bits 0x11
|
||||
#define segment_t3_bits 0x11
|
||||
#define segment_table_levels 0x3
|
||||
#define seof (ptr)0x36
|
||||
#define sfalse (ptr)0x6
|
||||
#define short_bits 0x10
|
||||
#define signal_interrupt_index 0x4
|
||||
#define size_box 0x10
|
||||
#define size_cached_stack 0x10
|
||||
#define size_continuation 0x40
|
||||
#define size_ephemeron 0x20
|
||||
#define size_exactnum 0x20
|
||||
#define size_flonum 0x10
|
||||
#define size_forward 0x10
|
||||
#define size_guardian_entry 0x20
|
||||
#define size_inexactnum 0x20
|
||||
#define size_pair 0x10
|
||||
#define size_port 0x50
|
||||
#define size_ratnum 0x20
|
||||
#define size_record_type 0x50
|
||||
#define size_rp_header 0x20
|
||||
#define size_rtd_counts 0x810
|
||||
#define size_symbol 0x30
|
||||
#define size_tc 0x2C0
|
||||
#define size_thread 0x10
|
||||
#define size_tlc 0x20
|
||||
#define size_typed_object 0x10
|
||||
#define size_t_bits 0x40
|
||||
#define snil (ptr)0x26
|
||||
#define space_char_list (#\n #\i #\x #\q #\w #\e #\p #\k #\c #\r #\s #\d #\e)
|
||||
#define space_cname_list ("new" "impure" "symbol" "port" "weakpr" "emph" "pure" "cont" "code" "p-tobj" "ip-rec" "data" "empty")
|
||||
#define space_code 0x8
|
||||
#define space_continuation 0x7
|
||||
#define space_data 0xB
|
||||
#define space_empty 0xC
|
||||
#define space_ephemeron 0x5
|
||||
#define space_impure 0x1
|
||||
#define space_impure_record 0xA
|
||||
#define space_locked 0x20
|
||||
#define space_new 0x0
|
||||
#define space_old 0x40
|
||||
#define space_port 0x3
|
||||
#define space_pure 0x6
|
||||
#define space_pure_typed_object 0x9
|
||||
#define space_symbol 0x2
|
||||
#define space_weakpair 0x4
|
||||
#define stack_frame_limit 0x200
|
||||
#define stack_slop 0x400
|
||||
#define static_generation 0xFF
|
||||
#define string_char_bits 0x20
|
||||
#define string_char_bytes 0x4
|
||||
#define string_char_offset 0x2
|
||||
#define string_data_disp 0x9
|
||||
#define string_immutable_flag 0x8
|
||||
#define string_length_factor 0x10
|
||||
#define string_length_offset 0x4
|
||||
#define string_type_disp 0x1
|
||||
#define strue (ptr)0xE
|
||||
#define sunbound (ptr)0x1E
|
||||
#define svoid (ptr)0x3E
|
||||
#define symbol_hash_disp 0x2D
|
||||
#define symbol_name_disp 0x1D
|
||||
#define symbol_plist_disp 0x15
|
||||
#define symbol_pvalue_disp 0xD
|
||||
#define symbol_splist_disp 0x25
|
||||
#define symbol_value_disp 0x5
|
||||
#define tc_DSTBV_disp 0x2A8
|
||||
#define tc_SRCBV_disp 0x2B0
|
||||
#define tc_U_disp 0x160
|
||||
#define tc_V_disp 0x168
|
||||
#define tc_W_disp 0x170
|
||||
#define tc_X_disp 0x178
|
||||
#define tc_Y_disp 0x180
|
||||
#define tc_ac0_disp 0x28
|
||||
#define tc_ac1_disp 0x30
|
||||
#define tc_active_disp 0x134
|
||||
#define tc_alloc_counter_disp 0x298
|
||||
#define tc_ap_disp 0x50
|
||||
#define tc_arg_regs_disp 0x0
|
||||
#define tc_block_counter_disp 0x1D8
|
||||
#define tc_cchain_disp 0x120
|
||||
#define tc_code_ranges_to_flush_disp 0x128
|
||||
#define tc_compile_profile_disp 0x230
|
||||
#define tc_compress_format_disp 0x278
|
||||
#define tc_compress_level_disp 0x280
|
||||
#define tc_cp_disp 0x40
|
||||
#define tc_current_error_disp 0x1D0
|
||||
#define tc_current_input_disp 0x1C0
|
||||
#define tc_current_mso_disp 0x1E8
|
||||
#define tc_current_output_disp 0x1C8
|
||||
#define tc_default_record_equal_procedure_disp 0x268
|
||||
#define tc_default_record_hash_procedure_disp 0x270
|
||||
#define tc_disable_count_disp 0x198
|
||||
#define tc_eap_disp 0x58
|
||||
#define tc_esp_disp 0x48
|
||||
#define tc_fxfirst_bit_set_bv_disp 0x200
|
||||
#define tc_fxlength_bv_disp 0x1F8
|
||||
#define tc_generate_inspector_information_disp 0x238
|
||||
#define tc_generate_procedure_source_information_disp 0x240
|
||||
#define tc_generate_profile_forms_disp 0x248
|
||||
#define tc_guardian_entries_disp 0x118
|
||||
#define tc_instr_counter_disp 0x290
|
||||
#define tc_keyboard_interrupt_pending_disp 0x1B0
|
||||
#define tc_lz4_out_buffer_disp 0x288
|
||||
#define tc_meta_level_disp 0x228
|
||||
#define tc_null_immutable_bytevector_disp 0x218
|
||||
#define tc_null_immutable_fxvector_disp 0x210
|
||||
#define tc_null_immutable_string_disp 0x220
|
||||
#define tc_null_immutable_vector_disp 0x208
|
||||
#define tc_optimize_level_disp 0x250
|
||||
#define tc_parameters_disp 0x2A0
|
||||
#define tc_random_seed_disp 0x130
|
||||
#define tc_real_eap_disp 0x90
|
||||
#define tc_ret_disp 0x60
|
||||
#define tc_scheme_stack_disp 0x138
|
||||
#define tc_scheme_stack_size_disp 0x150
|
||||
#define tc_sfd_disp 0x1E0
|
||||
#define tc_sfp_disp 0x38
|
||||
#define tc_signal_interrupt_pending_disp 0x1A0
|
||||
#define tc_signal_interrupt_queue_disp 0x1A8
|
||||
#define tc_something_pending_disp 0x188
|
||||
#define tc_stack_cache_disp 0x140
|
||||
#define tc_stack_link_disp 0x148
|
||||
#define tc_subset_mode_disp 0x258
|
||||
#define tc_suppress_primitive_inlining_disp 0x260
|
||||
#define tc_target_machine_disp 0x1F0
|
||||
#define tc_td_disp 0x88
|
||||
#define tc_threadno_disp 0x1B8
|
||||
#define tc_timer_ticks_disp 0x190
|
||||
#define tc_trap_disp 0x68
|
||||
#define tc_ts_disp 0x80
|
||||
#define tc_virtual_registers_disp 0x98
|
||||
#define tc_winders_disp 0x158
|
||||
#define tc_xp_disp 0x70
|
||||
#define tc_yp_disp 0x78
|
||||
#define thread_tc_disp 0x9
|
||||
#define thread_type_disp 0x1
|
||||
#define time_collector_cpu 0x5
|
||||
#define time_collector_real 0x6
|
||||
#define time_duration 0x2
|
||||
#define time_monotonic 0x3
|
||||
#define time_process 0x0
|
||||
#define time_t_bits 0x40
|
||||
#define time_thread 0x1
|
||||
#define time_utc 0x4
|
||||
#define timer_interrupt_index 0x2
|
||||
#define tlc_ht_disp 0x11
|
||||
#define tlc_keyval_disp 0x9
|
||||
#define tlc_next_disp 0x19
|
||||
#define tlc_type_disp 0x1
|
||||
#define type_bignum 0x6
|
||||
#define type_binary_input_port 0x51E
|
||||
#define type_binary_output_port 0x61E
|
||||
#define type_binary_port 0x41E
|
||||
#define type_boolean 0x6
|
||||
#define type_box 0xE
|
||||
#define type_bytevector 0x1
|
||||
#define type_char 0x16
|
||||
#define type_closure 0x5
|
||||
#define type_code 0x3E
|
||||
#define type_continuation_code 0x23E
|
||||
#define type_exactnum 0x56
|
||||
#define type_fixnum 0x0
|
||||
#define type_flonum 0x2
|
||||
#define type_fxvector 0x3
|
||||
#define type_guardian_code 0x83E
|
||||
#define type_immediate 0x6
|
||||
#define type_immutable_box 0x8E
|
||||
#define type_immutable_bytevector 0x5
|
||||
#define type_immutable_fxvector 0xB
|
||||
#define type_immutable_string 0xA
|
||||
#define type_immutable_vector 0x8
|
||||
#define type_inexactnum 0x36
|
||||
#define type_input_port 0x11E
|
||||
#define type_io_port 0x31E
|
||||
#define type_mutable_box 0xE
|
||||
#define type_mutable_bytevector 0x1
|
||||
#define type_mutable_fxvector 0x3
|
||||
#define type_mutable_string 0x2
|
||||
#define type_mutable_vector 0x0
|
||||
#define type_negative_bignum 0x26
|
||||
#define type_octet 0x0
|
||||
#define type_other_number 0x6
|
||||
#define type_output_port 0x21E
|
||||
#define type_pair 0x1
|
||||
#define type_port 0x1E
|
||||
#define type_positive_bignum 0x6
|
||||
#define type_ratnum 0x16
|
||||
#define type_record 0x7
|
||||
#define type_rtd_counts 0x6E
|
||||
#define type_string 0x2
|
||||
#define type_symbol 0x3
|
||||
#define type_system_code 0x13E
|
||||
#define type_textual_input_port 0x11E
|
||||
#define type_textual_output_port 0x21E
|
||||
#define type_textual_port 0x1E
|
||||
#define type_thread 0x4E
|
||||
#define type_tlc 0x5E
|
||||
#define type_typed_object 0x7
|
||||
#define type_vector 0x0
|
||||
#define typed_object_type_disp 0x1
|
||||
#define typedef_i16 "short"
|
||||
#define typedef_i32 "int"
|
||||
#define typedef_i64 "long"
|
||||
#define typedef_i8 "char"
|
||||
#define typedef_iptr "long int"
|
||||
#define typedef_ptr "void *"
|
||||
#define typedef_string_char "unsigned int"
|
||||
#define typedef_u16 "unsigned short"
|
||||
#define typedef_u32 "unsigned int"
|
||||
#define typedef_u64 "unsigned long"
|
||||
#define typedef_u8 "unsigned char"
|
||||
#define typedef_uptr "unsigned long int"
|
||||
#define typemod 0x8
|
||||
#define unactivate_mode_deactivate 0x1
|
||||
#define unactivate_mode_destroy 0x2
|
||||
#define unactivate_mode_noop 0x0
|
||||
#define unaligned_floats 1
|
||||
#define unaligned_integers 1
|
||||
#define underflow_limit 0x80
|
||||
#define unscaled_shot_1_shot_flag -0x1
|
||||
#define vector_data_disp 0x9
|
||||
#define vector_immutable_flag 0x8
|
||||
#define vector_length_factor 0x10
|
||||
#define vector_length_offset 0x4
|
||||
#define vector_type_disp 0x1
|
||||
#define virtual_register_count 0x10
|
||||
#define wchar_bits 0x20
|
||||
|
||||
/* constants from declare-c-entries */
|
||||
#define CENTRY_Scall_any_results 24
|
||||
#define CENTRY_Scall_one_result 23
|
||||
#define CENTRY_Sreturn 22
|
||||
#define CENTRY_activate_thread 11
|
||||
#define CENTRY_deactivate_thread 12
|
||||
#define CENTRY_foreign_entry 17
|
||||
#define CENTRY_get_more_room 19
|
||||
#define CENTRY_get_thread_context 1
|
||||
#define CENTRY_handle_apply_overflood 2
|
||||
#define CENTRY_handle_arg_error 16
|
||||
#define CENTRY_handle_docall_error 3
|
||||
#define CENTRY_handle_mvlet_error 15
|
||||
#define CENTRY_handle_nonprocedure_symbol 6
|
||||
#define CENTRY_handle_overflood 5
|
||||
#define CENTRY_handle_overflow 4
|
||||
#define CENTRY_handle_values_error 14
|
||||
#define CENTRY_install_library_entry 18
|
||||
#define CENTRY_instantiate_code_object 21
|
||||
#define CENTRY_raw_collect_cond 9
|
||||
#define CENTRY_raw_tc_mutex 10
|
||||
#define CENTRY_scan_remembered_set 20
|
||||
#define CENTRY_split_and_resize 8
|
||||
#define CENTRY_thread_context 0
|
||||
#define CENTRY_thread_list 7
|
||||
#define CENTRY_unactivate_thread 13
|
||||
|
||||
/* displacements for records */
|
||||
#define eq_hashtable_rtd_disp 1
|
||||
#define eq_hashtable_type_disp 9
|
||||
#define eq_hashtable_mutablep_disp 17
|
||||
#define eq_hashtable_vec_disp 25
|
||||
#define eq_hashtable_minlen_disp 33
|
||||
#define eq_hashtable_size_disp 41
|
||||
#define eq_hashtable_subtype_disp 49
|
||||
#define symbol_hashtable_rtd_disp 1
|
||||
#define symbol_hashtable_type_disp 9
|
||||
#define symbol_hashtable_mutablep_disp 17
|
||||
#define symbol_hashtable_vec_disp 25
|
||||
#define symbol_hashtable_minlen_disp 33
|
||||
#define symbol_hashtable_size_disp 41
|
||||
#define symbol_hashtable_equivp_disp 49
|
||||
#define code_info_rtd_disp 1
|
||||
#define code_info_src_disp 9
|
||||
#define code_info_sexpr_disp 17
|
||||
#define code_info_free_disp 25
|
||||
#define code_info_live_disp 33
|
||||
#define code_info_rpis_disp 41
|
||||
|
||||
/* predicates */
|
||||
#define Simmediatep(x) (((uptr)(x)&0x7)==0x6)
|
||||
#define Sportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x1E))
|
||||
#define Scodep(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x3E))
|
||||
|
||||
/* structure accessors */
|
||||
#define INITCAR(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define INITCDR(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define SETCAR(x,y) DIRTYSET(((ptr *)((uptr)(x)+7)),(y))
|
||||
#define SETCDR(x,y) DIRTYSET(((ptr *)((uptr)(x)+15)),(y))
|
||||
#define BOXTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITBOXREF(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define SETBOXREF(x,y) DIRTYSET(((ptr *)((uptr)(x)+9)),(y))
|
||||
#define EPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define INITEPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define EPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define INITEPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define TLCTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define TLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define TLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define TLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define INITTLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITTLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define INITTLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define SETTLCNEXT(x,y) DIRTYSET(((ptr *)((uptr)(x)+25)),(y))
|
||||
#define SYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define SYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define SYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define SYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define INITSYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITSYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITSYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define INITSYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define INITSYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define INITSYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define SETSYMVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define SETSYMPVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SETSYMPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+21)),(y))
|
||||
#define SETSYMNAME(x,y) DIRTYSET(((ptr *)((uptr)(x)+29)),(y))
|
||||
#define SETSYMSPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+37)),(y))
|
||||
#define SETSYMHASH(x,y) DIRTYSET(((ptr *)((uptr)(x)+45)),(y))
|
||||
#define VECTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define SETVECTIT(x,i,y) DIRTYSET((((ptr *)((uptr)(x)+9))+i),(y))
|
||||
#define FXVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define FXVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define BYTEVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BVIT(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
#define INEXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INEXACTNUM_REAL_PART(x) (*((double *)((uptr)(x)+17)))
|
||||
#define INEXACTNUM_IMAG_PART(x) (*((double *)((uptr)(x)+25)))
|
||||
#define EXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define EXACTNUM_REAL_PART(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define EXACTNUM_IMAG_PART(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RATTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RATNUM(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RATDEN(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CLOSENTRY(x) (*((ptr *)((uptr)(x)+3)))
|
||||
#define CLOSIT(x,i) (((ptr *)((uptr)(x)+11))[i])
|
||||
#define FLODAT(x) (*((double *)((uptr)(x)+6)))
|
||||
#define PORTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define PORTNAME(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define PORTHANDLER(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define PORTINFO(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define PORTOCNT(x) (*((iptr *)((uptr)(x)+17)))
|
||||
#define PORTOLAST(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define PORTOBUF(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define PORTICNT(x) (*((iptr *)((uptr)(x)+25)))
|
||||
#define PORTILAST(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define PORTIBUF(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define STRTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define STRIT(x,i) (((string_char *)((uptr)(x)+9))[i])
|
||||
#define BIGTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BIGIT(x,i) (((bigit *)((uptr)(x)+9))[i])
|
||||
#define CODETYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define CODELEN(x) (*((iptr *)((uptr)(x)+9)))
|
||||
#define CODERELOC(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CODENAME(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define CODEARITYMASK(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define CODEFREE(x) (*((iptr *)((uptr)(x)+41)))
|
||||
#define CODEINFO(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define CODEPINFOS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define CODEIT(x,i) (((octet *)((uptr)(x)+65))[i])
|
||||
#define RELOCSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define RELOCCODE(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RELOCIT(x,i) (((uptr *)((uptr)(x)+16))[i])
|
||||
#define CONTSTACK(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define CONTLENGTH(x) (*((iptr *)((uptr)(x)+19)))
|
||||
#define CONTCLENGTH(x) (*((iptr *)((uptr)(x)+27)))
|
||||
#define CONTLINK(x) (*((ptr *)((uptr)(x)+35)))
|
||||
#define CONTRET(x) (*((ptr *)((uptr)(x)+43)))
|
||||
#define CONTWINDERS(x) (*((ptr *)((uptr)(x)+51)))
|
||||
#define RTDCOUNTSTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RTDCOUNTSTIMESTAMP(x) (*((U64 *)((uptr)(x)+9)))
|
||||
#define RTDCOUNTSIT(x,i) (((uptr *)((uptr)(x)+17))[i])
|
||||
#define RECORDDESCPARENT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RECORDDESCSIZE(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RECORDDESCPM(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define RECORDDESCMPM(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define RECORDDESCNAME(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define RECORDDESCFLDS(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define RECORDDESCFLAGS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define RECORDDESCUID(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define RECORDDESCCOUNTS(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define RECORDINSTTYPE(x) (*((ptr *)((uptr)(x)+1)))
|
||||
#define RECORDINSTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define CLOSCODE(p) ((ptr)((uptr)CLOSENTRY(p)-code_data_disp))
|
||||
#define CODEENTRYPOINT(x) ((ptr)((uptr)(x)+code_data_disp))
|
||||
#define SETCLOSCODE(p,x) (CLOSENTRY(p) = CODEENTRYPOINT(x))
|
||||
#define SYMCODE(p) ((ptr)((uptr)SYMPVAL(p)-code_data_disp))
|
||||
#define INITSYMCODE(p,x) (INITSYMPVAL(p) = CODEENTRYPOINT(x))
|
||||
#define SETSYMCODE(p,x) SETSYMPVAL(p,CODEENTRYPOINT(x))
|
||||
#define BIGLEN(x) ((iptr)((uptr)BIGTYPE(x) >> bignum_length_offset))
|
||||
#define BIGSIGN(x) ((BIGTYPE(x) & mask_bignum_sign) >> bignum_sign_offset)
|
||||
#define SETBIGLENANDSIGN(x,xl,xs) BIGTYPE(x) = (uptr)(xl) << bignum_length_offset | (xs) << bignum_sign_offset | type_bignum
|
||||
#define CLOSLEN(p) CODEFREE(CLOSCODE(p))
|
||||
#define GUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define GUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define GUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define GUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define INITGUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define INITGUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define INITGUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define INITGUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define FORWARDMARKER(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define FORWARDADDRESS(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define CACHEDSTACKSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define CACHEDSTACKLINK(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RPHEADERFRAMESIZE(x) (*((iptr *)((uptr)(x)+16)))
|
||||
#define RPHEADERLIVEMASK(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define RPHEADERTOPLINK(x) (*((uptr *)((uptr)(x)+8)))
|
||||
|
||||
/* machine types */
|
||||
#define machine_type_names {"any", "i3le", "ti3le", "i3nt", "ti3nt", "i3fb", "ti3fb", "i3ob", "ti3ob", "i3osx", "ti3osx", "a6le", "ta6le", "a6osx", "ta6osx", "a6ob", "ta6ob", "a6s2", "ta6s2", "i3s2", "ti3s2", "a6fb", "ta6fb", "i3nb", "ti3nb", "a6nb", "ta6nb", "a6nt", "ta6nt", "i3qnx", "ti3qnx", "arm32le", "tarm32le", "ppc32le", "tppc32le"}
|
||||
|
||||
/* allocation-space names */
|
||||
#define alloc_space_names "new", "impure", "symbol", "port", "weakpr", "emph", "pure", "cont", "code", "p-tobj", "ip-rec", "data", "empty"
|
||||
|
||||
/* allocation-space characters */
|
||||
#define alloc_space_chars 'n', 'i', 'x', 'q', 'w', 'e', 'p', 'k', 'c', 'r', 's', 'd', 'e'
|
||||
|
||||
/* threads */
|
||||
#define THREADTC(x) (*((uptr *)((uptr)(x)+9)))
|
||||
|
||||
/* thread-context data */
|
||||
#define DSTBV(x) (*((ptr *)((uptr)(x)+680)))
|
||||
#define SRCBV(x) (*((ptr *)((uptr)(x)+688)))
|
||||
#define U(x) (*((ptr *)((uptr)(x)+352)))
|
||||
#define V(x) (*((ptr *)((uptr)(x)+360)))
|
||||
#define W(x) (*((ptr *)((uptr)(x)+368)))
|
||||
#define X(x) (*((ptr *)((uptr)(x)+376)))
|
||||
#define Y(x) (*((ptr *)((uptr)(x)+384)))
|
||||
#define AC0(x) (*((void* *)((uptr)(x)+40)))
|
||||
#define AC1(x) (*((void* *)((uptr)(x)+48)))
|
||||
#define ACTIVE(x) (*((I32 *)((uptr)(x)+308)))
|
||||
#define ALLOCCOUNTER(x) (*((U64 *)((uptr)(x)+664)))
|
||||
#define AP(x) (*((void* *)((uptr)(x)+80)))
|
||||
#define ARGREGS(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define BLOCKCOUNTER(x) (*((ptr *)((uptr)(x)+472)))
|
||||
#define CCHAIN(x) (*((ptr *)((uptr)(x)+288)))
|
||||
#define CODERANGESTOFLUSH(x) (*((ptr *)((uptr)(x)+296)))
|
||||
#define COMPILEPROFILE(x) (*((ptr *)((uptr)(x)+560)))
|
||||
#define COMPRESSFORMAT(x) (*((ptr *)((uptr)(x)+632)))
|
||||
#define COMPRESSLEVEL(x) (*((ptr *)((uptr)(x)+640)))
|
||||
#define CP(x) (*((void* *)((uptr)(x)+64)))
|
||||
#define CURRENTERROR(x) (*((ptr *)((uptr)(x)+464)))
|
||||
#define CURRENTINPUT(x) (*((ptr *)((uptr)(x)+448)))
|
||||
#define CURRENTMSO(x) (*((ptr *)((uptr)(x)+488)))
|
||||
#define CURRENTOUTPUT(x) (*((ptr *)((uptr)(x)+456)))
|
||||
#define DEFAULTRECORDEQUALPROCEDURE(x) (*((ptr *)((uptr)(x)+616)))
|
||||
#define DEFAULTRECORDHASHPROCEDURE(x) (*((ptr *)((uptr)(x)+624)))
|
||||
#define DISABLECOUNT(x) (*((ptr *)((uptr)(x)+408)))
|
||||
#define EAP(x) (*((void* *)((uptr)(x)+88)))
|
||||
#define ESP(x) (*((void* *)((uptr)(x)+72)))
|
||||
#define FXFIRSTBITSETBV(x) (*((ptr *)((uptr)(x)+512)))
|
||||
#define FXLENGTHBV(x) (*((ptr *)((uptr)(x)+504)))
|
||||
#define GENERATEINSPECTORINFORMATION(x) (*((ptr *)((uptr)(x)+568)))
|
||||
#define GENERATEPROCEDURESOURCEINFORMATION(x) (*((ptr *)((uptr)(x)+576)))
|
||||
#define GENERATEPROFILEFORMS(x) (*((ptr *)((uptr)(x)+584)))
|
||||
#define GUARDIANENTRIES(x) (*((ptr *)((uptr)(x)+280)))
|
||||
#define INSTRCOUNTER(x) (*((U64 *)((uptr)(x)+656)))
|
||||
#define KEYBOARDINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+432)))
|
||||
#define LZ4OUTBUFFER(x) (*((void* *)((uptr)(x)+648)))
|
||||
#define METALEVEL(x) (*((ptr *)((uptr)(x)+552)))
|
||||
#define NULLIMMUTABLEBYTEVECTOR(x) (*((ptr *)((uptr)(x)+536)))
|
||||
#define NULLIMMUTABLEFXVECTOR(x) (*((ptr *)((uptr)(x)+528)))
|
||||
#define NULLIMMUTABLESTRING(x) (*((ptr *)((uptr)(x)+544)))
|
||||
#define NULLIMMUTABLEVECTOR(x) (*((ptr *)((uptr)(x)+520)))
|
||||
#define OPTIMIZELEVEL(x) (*((ptr *)((uptr)(x)+592)))
|
||||
#define PARAMETERS(x) (*((ptr *)((uptr)(x)+672)))
|
||||
#define RANDOMSEED(x) (*((U32 *)((uptr)(x)+304)))
|
||||
#define REAL_EAP(x) (*((void* *)((uptr)(x)+144)))
|
||||
#define RET(x) (*((void* *)((uptr)(x)+96)))
|
||||
#define SCHEMESTACK(x) (*((void* *)((uptr)(x)+312)))
|
||||
#define SCHEMESTACKSIZE(x) (*((iptr *)((uptr)(x)+336)))
|
||||
#define SFD(x) (*((ptr *)((uptr)(x)+480)))
|
||||
#define SFP(x) (*((void* *)((uptr)(x)+56)))
|
||||
#define SIGNALINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+416)))
|
||||
#define SIGNALINTERRUPTQUEUE(x) (*((ptr *)((uptr)(x)+424)))
|
||||
#define SOMETHINGPENDING(x) (*((ptr *)((uptr)(x)+392)))
|
||||
#define STACKCACHE(x) (*((ptr *)((uptr)(x)+320)))
|
||||
#define STACKLINK(x) (*((ptr *)((uptr)(x)+328)))
|
||||
#define SUBSETMODE(x) (*((ptr *)((uptr)(x)+600)))
|
||||
#define SUPPRESSPRIMITIVEINLINING(x) (*((ptr *)((uptr)(x)+608)))
|
||||
#define TARGETMACHINE(x) (*((ptr *)((uptr)(x)+496)))
|
||||
#define TD(x) (*((void* *)((uptr)(x)+136)))
|
||||
#define THREADNO(x) (*((ptr *)((uptr)(x)+440)))
|
||||
#define TIMERTICKS(x) (*((ptr *)((uptr)(x)+400)))
|
||||
#define TRAP(x) (*((void* *)((uptr)(x)+104)))
|
||||
#define TS(x) (*((void* *)((uptr)(x)+128)))
|
||||
#define VIRTUALREGISTERS(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
#define WINDERS(x) (*((ptr *)((uptr)(x)+344)))
|
||||
#define XP(x) (*((void* *)((uptr)(x)+112)))
|
||||
#define YP(x) (*((void* *)((uptr)(x)+120)))
|
||||
#define ARGREG(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define VIRTREG(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
|
||||
/* library entries we access from C code */
|
||||
#define library_nonprocedure_code 152
|
||||
#define library_dounderflow 154
|
||||
BIN
boot/ta6le/petite.boot
Normal file
BIN
boot/ta6le/petite.boot
Normal file
Binary file not shown.
BIN
boot/ta6le/scheme.boot
Normal file
BIN
boot/ta6le/scheme.boot
Normal file
Binary file not shown.
245
boot/ta6le/scheme.h
Normal file
245
boot/ta6le/scheme.h
Normal file
|
|
@ -0,0 +1,245 @@
|
|||
/* scheme.h for Chez Scheme Version 9.5.9 (ta6le) */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct scheme.h */
|
||||
/* for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Specify declaration of exports. */
|
||||
#ifdef _WIN32
|
||||
# if __cplusplus
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern "C" __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern "C" __declspec (dllexport)
|
||||
# endif
|
||||
# else
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern
|
||||
# else
|
||||
# define EXPORT extern __declspec (dllexport)
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# if __cplusplus
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern
|
||||
# endif
|
||||
#endif
|
||||
|
||||
/* Chez Scheme Version and machine type */
|
||||
#define VERSION "9.5.9"
|
||||
#define MACHINE_TYPE "ta6le"
|
||||
|
||||
/* All Scheme objects are of type ptr. Type iptr and */
|
||||
/* uptr are signed and unsigned ints of the same size */
|
||||
/* as a ptr */
|
||||
typedef void * ptr;
|
||||
typedef long int iptr;
|
||||
typedef unsigned long int uptr;
|
||||
|
||||
/* String elements are 32-bit tagged char objects */
|
||||
typedef unsigned int string_char;
|
||||
|
||||
/* Bytevector elements are 8-bit unsigned "octets" */
|
||||
typedef unsigned char octet;
|
||||
|
||||
/* Type predicates */
|
||||
#define Sfixnump(x) (((uptr)(x)&0x7)==0x0)
|
||||
#define Scharp(x) (((uptr)(x)&0xFF)==0x16)
|
||||
#define Snullp(x) ((uptr)(x)==0x26)
|
||||
#define Seof_objectp(x) ((uptr)(x)==0x36)
|
||||
#define Sbwp_objectp(x) ((uptr)(x)==0x4E)
|
||||
#define Sbooleanp(x) (((uptr)(x)&0xF7)==0x6)
|
||||
#define Spairp(x) (((uptr)(x)&0x7)==0x1)
|
||||
#define Ssymbolp(x) (((uptr)(x)&0x7)==0x3)
|
||||
#define Sprocedurep(x) (((uptr)(x)&0x7)==0x5)
|
||||
#define Sflonump(x) (((uptr)(x)&0x7)==0x2)
|
||||
#define Svectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x0))
|
||||
#define Sfxvectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x3))
|
||||
#define Sbytevectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x1))
|
||||
#define Sstringp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x2))
|
||||
#define Sbignump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1F)==0x6))
|
||||
#define Sboxp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7F)==0xE))
|
||||
#define Sinexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x36))
|
||||
#define Sexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x56))
|
||||
#define Sratnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x16))
|
||||
#define Sinputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1FF)==0x11E))
|
||||
#define Soutputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x2FF)==0x21E))
|
||||
#define Srecordp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x7))
|
||||
|
||||
/* Accessors */
|
||||
#define Sfixnum_value(x) ((iptr)(x)/8)
|
||||
#define Schar_value(x) ((string_char)((uptr)(x)>>8))
|
||||
#define Sboolean_value(x) ((x) != Sfalse)
|
||||
#define Scar(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define Scdr(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define Sflonum_value(x) (*((double *)((uptr)(x)+6)))
|
||||
#define Svector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Svector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sfxvector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sfxvector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sbytevector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Sbytevector_u8_ref(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
/* Warning: Sbytevector_data(x) returns a pointer into x. */
|
||||
#define Sbytevector_data(x) &Sbytevector_u8_ref(x,0)
|
||||
#define Sstring_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sstring_ref(x,i) Schar_value(((string_char *)((uptr)(x)+9))[i])
|
||||
#define Sunbox(x) (*((ptr *)((uptr)(x)+9)))
|
||||
EXPORT iptr Sinteger_value(ptr);
|
||||
#define Sunsigned_value(x) (uptr)Sinteger_value(x)
|
||||
EXPORT int Sinteger32_value(ptr);
|
||||
#define Sunsigned32_value(x) (unsigned int)Sinteger32_value(x)
|
||||
EXPORT long Sinteger64_value(ptr);
|
||||
#define Sunsigned64_value(x) (unsigned long)Sinteger64_value(x)
|
||||
|
||||
/* Mutators */
|
||||
EXPORT void Sset_box(ptr, ptr);
|
||||
EXPORT void Sset_car(ptr, ptr);
|
||||
EXPORT void Sset_cdr(ptr, ptr);
|
||||
#define Sstring_set(x,i,c) ((void)((((string_char *)((uptr)(x)+9))[i]) = (string_char)(uptr)Schar(c)))
|
||||
#define Sfxvector_set(x,i,n) ((void)(Sfxvector_ref(x,i) = (n)))
|
||||
#define Sbytevector_u8_set(x,i,n) ((void)(Sbytevector_u8_ref(x,i) = (n)))
|
||||
EXPORT void Svector_set(ptr, iptr, ptr);
|
||||
|
||||
/* Constructors */
|
||||
#define Sfixnum(x) ((ptr)(uptr)((x)*8))
|
||||
#define Schar(x) ((ptr)(uptr)((x)<<8|0x16))
|
||||
#define Snil ((ptr)0x26)
|
||||
#define Strue ((ptr)0xE)
|
||||
#define Sfalse ((ptr)0x6)
|
||||
#define Sboolean(x) ((x)?Strue:Sfalse)
|
||||
#define Sbwp_object ((ptr)0x4E)
|
||||
#define Seof_object ((ptr)0x36)
|
||||
#define Svoid ((ptr)0x3E)
|
||||
EXPORT ptr Scons(ptr, ptr);
|
||||
EXPORT ptr Sstring_to_symbol(const char *);
|
||||
EXPORT ptr Ssymbol_to_string(ptr);
|
||||
EXPORT ptr Sflonum(double);
|
||||
EXPORT ptr Smake_vector(iptr, ptr);
|
||||
EXPORT ptr Smake_fxvector(iptr, ptr);
|
||||
EXPORT ptr Smake_bytevector(iptr, int);
|
||||
EXPORT ptr Smake_string(iptr, int);
|
||||
EXPORT ptr Smake_uninitialized_string(iptr);
|
||||
EXPORT ptr Sstring(const char *);
|
||||
EXPORT ptr Sstring_of_length(const char *, iptr);
|
||||
EXPORT ptr Sstring_utf8(const char*, iptr);
|
||||
EXPORT ptr Sbox(ptr);
|
||||
EXPORT ptr Sinteger(iptr);
|
||||
EXPORT ptr Sunsigned(uptr);
|
||||
EXPORT ptr Sinteger32(int);
|
||||
EXPORT ptr Sunsigned32(unsigned int);
|
||||
EXPORT ptr Sinteger64(long);
|
||||
EXPORT ptr Sunsigned64(unsigned long);
|
||||
|
||||
/* Miscellaneous */
|
||||
EXPORT ptr Stop_level_value(ptr);
|
||||
EXPORT void Sset_top_level_value(ptr, ptr);
|
||||
EXPORT void Slock_object(ptr);
|
||||
EXPORT void Sunlock_object(ptr);
|
||||
EXPORT int Slocked_objectp(ptr);
|
||||
EXPORT void Sforeign_symbol(const char *, void *);
|
||||
EXPORT void Sregister_symbol(const char *, void *);
|
||||
|
||||
/* Support for calls into Scheme */
|
||||
EXPORT ptr Scall0(ptr);
|
||||
EXPORT ptr Scall1(ptr, ptr);
|
||||
EXPORT ptr Scall2(ptr, ptr, ptr);
|
||||
EXPORT ptr Scall3(ptr, ptr, ptr, ptr);
|
||||
EXPORT void Sinitframe(iptr);
|
||||
EXPORT void Sput_arg(iptr, ptr);
|
||||
EXPORT ptr Scall(ptr, iptr);
|
||||
/* Warning: Sforeign_callable_entry_point(x) returns a pointer into x. */
|
||||
#define Sforeign_callable_entry_point(x) ((void (*)(void))((uptr)(x)+65))
|
||||
#define Sforeign_callable_code_object(x) ((ptr)((uptr)(x)-65))
|
||||
|
||||
/* Customization support. */
|
||||
EXPORT const char * Skernel_version(void);
|
||||
EXPORT void Sretain_static_relocation(void);
|
||||
EXPORT void Sset_verbose(int);
|
||||
EXPORT void Sscheme_init(void (*)(void));
|
||||
EXPORT void Sregister_boot_file(const char *);
|
||||
EXPORT void Sregister_boot_file_fd(const char *, int fd);
|
||||
EXPORT void Sregister_heap_file(const char *);
|
||||
EXPORT void Scompact_heap(void);
|
||||
EXPORT void Ssave_heap(const char *, int);
|
||||
EXPORT void Sbuild_heap(const char *, void (*)(void));
|
||||
EXPORT void Senable_expeditor(const char *);
|
||||
EXPORT int Sscheme_start(int, const char *[]);
|
||||
EXPORT int Sscheme_script(const char *, int, const char *[]);
|
||||
EXPORT int Sscheme_program(const char *, int, const char *[]);
|
||||
EXPORT void Sscheme_deinit(void);
|
||||
|
||||
/* Thread support. */
|
||||
EXPORT int Sactivate_thread(void);
|
||||
EXPORT void Sdeactivate_thread(void);
|
||||
EXPORT int Sdestroy_thread(void);
|
||||
|
||||
/* Features. */
|
||||
#define FEATURE_ICONV
|
||||
#define FEATURE_EXPEDITOR
|
||||
#define FEATURE_PTHREADS
|
||||
|
||||
/* Locking macros. */
|
||||
#define INITLOCK(addr) \
|
||||
__asm__ __volatile__ ("movq $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "memory")
|
||||
|
||||
#define SPINLOCK(addr) \
|
||||
__asm__ __volatile__ ("0:\n\t"\
|
||||
"movq $1, %%rax\n\t"\
|
||||
"xchgq (%0), %%rax\n\t"\
|
||||
"cmpq $0, %%rax\n\t"\
|
||||
"je 2f\n\t"\
|
||||
"1:\n\t"\
|
||||
"pause\n\t"\
|
||||
"cmpq $0, (%0)\n\t"\
|
||||
"je 0b\n\t"\
|
||||
"jmp 1b\n\t"\
|
||||
"2:"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "rax", "flags", "memory")
|
||||
|
||||
#define UNLOCK(addr) \
|
||||
__asm__ __volatile__ ("movq $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
:"memory")
|
||||
|
||||
#define LOCKED_INCR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; incq (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
|
||||
#define LOCKED_DECR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; decq (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
993
boot/ta6nt/equates.h
Normal file
993
boot/ta6nt/equates.h
Normal file
|
|
@ -0,0 +1,993 @@
|
|||
/* equates.h for Chez Scheme Version 9.5.9 */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct version */
|
||||
/* of this file for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Integer typedefs */
|
||||
typedef char I8;
|
||||
typedef unsigned char U8;
|
||||
typedef short I16;
|
||||
typedef unsigned short U16;
|
||||
typedef int I32;
|
||||
typedef unsigned int U32;
|
||||
typedef long long I64;
|
||||
typedef unsigned long long U64;
|
||||
|
||||
/* constants from cmacros.ss */
|
||||
#define $c_func_closure_index 0x4
|
||||
#define $c_func_closure_record_index 0x3
|
||||
#define $c_func_code_object_index 0x2
|
||||
#define $c_func_code_record_index 0x1
|
||||
#define COMPRESS_FORMAT_BITS 0x3
|
||||
#define COMPRESS_GZIP 0x0
|
||||
#define COMPRESS_HIGH 0x3
|
||||
#define COMPRESS_LOW 0x1
|
||||
#define COMPRESS_LZ4 0x1
|
||||
#define COMPRESS_MAX 0x4
|
||||
#define COMPRESS_MEDIUM 0x2
|
||||
#define COMPRESS_MIN 0x0
|
||||
#define ERROR_CALL_ARGUMENT_COUNT 0x4
|
||||
#define ERROR_CALL_NONPROCEDURE 0x3
|
||||
#define ERROR_CALL_NONPROCEDURE_SYMBOL 0x2
|
||||
#define ERROR_CALL_UNBOUND 0x1
|
||||
#define ERROR_MVLET 0x8
|
||||
#define ERROR_NONCONTINUABLE_INTERRUPT 0x6
|
||||
#define ERROR_OTHER 0x0
|
||||
#define ERROR_RESET 0x5
|
||||
#define ERROR_VALUES 0x7
|
||||
#define OPEN_ERROR_EXISTS 0x2
|
||||
#define OPEN_ERROR_EXISTSNOT 0x3
|
||||
#define OPEN_ERROR_OTHER 0x0
|
||||
#define OPEN_ERROR_PROTECTION 0x1
|
||||
#define PORT_FLAG_BINARY 0x400
|
||||
#define PORT_FLAG_BLOCK_BUFFERED 0x20000
|
||||
#define PORT_FLAG_BOL 0x8000
|
||||
#define PORT_FLAG_CHAR_POSITIONS 0x100000
|
||||
#define PORT_FLAG_CLOSED 0x800
|
||||
#define PORT_FLAG_COMPRESSED 0x2000
|
||||
#define PORT_FLAG_EOF 0x10000
|
||||
#define PORT_FLAG_EXCLUSIVE 0x4000
|
||||
#define PORT_FLAG_FILE 0x1000
|
||||
#define PORT_FLAG_FOLD_CASE 0x400000
|
||||
#define PORT_FLAG_INPUT 0x100
|
||||
#define PORT_FLAG_INPUT_MODE 0x80000
|
||||
#define PORT_FLAG_LINE_BUFFERED 0x40000
|
||||
#define PORT_FLAG_NO_FOLD_CASE 0x800000
|
||||
#define PORT_FLAG_OUTPUT 0x200
|
||||
#define PORT_FLAG_R6RS 0x200000
|
||||
#define SAPPEND 0x3
|
||||
#define SDEFAULT 0x4
|
||||
#define SEOF -0x1
|
||||
#define SERROR 0x0
|
||||
#define SICONV_DUNNO 0x0
|
||||
#define SICONV_INCOMPLETE 0x2
|
||||
#define SICONV_INVALID 0x1
|
||||
#define SICONV_NOROOM 0x3
|
||||
#define SREPLACE 0x2
|
||||
#define STRVNCATE 0x1
|
||||
#define address_bits 0x40
|
||||
#define alloc_waste_maximum 0x800
|
||||
#define annotation_all 0x3
|
||||
#define annotation_debug 0x1
|
||||
#define annotation_profile 0x2
|
||||
#define architecture x86_64
|
||||
#define asm_arg_reg_cnt 0x3
|
||||
#define asm_arg_reg_max 0x5
|
||||
#define bigit_bits 0x20
|
||||
#define bigit_bytes 0x4
|
||||
#define bignum_data_disp 0x9
|
||||
#define bignum_length_factor 0x40
|
||||
#define bignum_length_offset 0x6
|
||||
#define bignum_sign_offset 0x5
|
||||
#define bignum_type_disp 0x1
|
||||
#define black_hole (ptr)0x46
|
||||
#define box_ref_disp 0x9
|
||||
#define box_type_disp 0x1
|
||||
#define byte_alignment 0x10
|
||||
#define byte_constant_mask 0xFFFFFFFFFFFFFFFF
|
||||
#define bytes_per_card 0x200
|
||||
#define bytes_per_segment 0x4000
|
||||
#define bytevector_data_disp 0x9
|
||||
#define bytevector_immutable_flag 0x4
|
||||
#define bytevector_length_factor 0x8
|
||||
#define bytevector_length_offset 0x3
|
||||
#define bytevector_type_disp 0x1
|
||||
#define c_entry_name_vector #(thread-context get-thread-context handle-apply-overflood handle-docall-error handle-overflow handle-overflood handle-nonprocedure-symbol thread-list split-and-resize raw-collect-cond raw-tc-mutex activate-thread deactivate-thread unactivate-thread handle-values-error handle-mvlet-error handle-arg-error foreign-entry install-library-entry get-more-room scan-remembered-set instantiate-code-object Sreturn Scall-one-result Scall-any-results)
|
||||
#define c_entry_vector_size 0x19
|
||||
#define cached_stack_link_disp 0x8
|
||||
#define cached_stack_size_disp 0x0
|
||||
#define card_offset_bits 0x9
|
||||
#define cards_per_segment 0x20
|
||||
#define char_data_offset 0x8
|
||||
#define char_factor 0x100
|
||||
#define closure_code_disp 0x3
|
||||
#define closure_data_disp 0xB
|
||||
#define code_arity_mask_disp 0x21
|
||||
#define code_closure_length_disp 0x29
|
||||
#define code_data_disp 0x41
|
||||
#define code_flag_continuation 0x2
|
||||
#define code_flag_guardian 0x8
|
||||
#define code_flag_system 0x1
|
||||
#define code_flag_template 0x4
|
||||
#define code_flags_offset 0x8
|
||||
#define code_info_disp 0x31
|
||||
#define code_length_disp 0x9
|
||||
#define code_name_disp 0x19
|
||||
#define code_pinfos_disp 0x39
|
||||
#define code_reloc_disp 0x11
|
||||
#define code_type_disp 0x1
|
||||
#define collect_interrupt_index 0x1
|
||||
#define continuation_code_disp 0x3
|
||||
#define continuation_link_disp 0x23
|
||||
#define continuation_return_address_disp 0x2B
|
||||
#define continuation_stack_clength_disp 0x1B
|
||||
#define continuation_stack_disp 0xB
|
||||
#define continuation_stack_length_disp 0x13
|
||||
#define continuation_winders_disp 0x33
|
||||
#define countof_bignum 0x5
|
||||
#define countof_box 0x9
|
||||
#define countof_bytevector 0x15
|
||||
#define countof_closure 0x3
|
||||
#define countof_code 0xB
|
||||
#define countof_continuation 0x4
|
||||
#define countof_ephemeron 0x19
|
||||
#define countof_exactnum 0x8
|
||||
#define countof_flonum 0x2
|
||||
#define countof_fxvector 0x14
|
||||
#define countof_guardian 0x17
|
||||
#define countof_inexactnum 0x7
|
||||
#define countof_locked 0x16
|
||||
#define countof_oblist 0x18
|
||||
#define countof_pair 0x0
|
||||
#define countof_port 0xA
|
||||
#define countof_ratnum 0x6
|
||||
#define countof_relocation_table 0x10
|
||||
#define countof_rtd_counts 0xE
|
||||
#define countof_stack 0xF
|
||||
#define countof_string 0x13
|
||||
#define countof_symbol 0x1
|
||||
#define countof_thread 0xC
|
||||
#define countof_tlc 0xD
|
||||
#define countof_types 0x1A
|
||||
#define countof_vector 0x12
|
||||
#define countof_weakpair 0x11
|
||||
#define default_collect_trip_bytes 0x800000
|
||||
#define default_heap_reserve_ratio 1.0
|
||||
#define default_max_nonstatic_generation 0x4
|
||||
#define default_stack_size 0xFFF0
|
||||
#define default_timer_ticks 0x3E8
|
||||
#define dtvec_hour 0x3
|
||||
#define dtvec_isdst 0x9
|
||||
#define dtvec_mday 0x4
|
||||
#define dtvec_min 0x2
|
||||
#define dtvec_mon 0x5
|
||||
#define dtvec_nsec 0x0
|
||||
#define dtvec_sec 0x1
|
||||
#define dtvec_size 0xC
|
||||
#define dtvec_tzname 0xB
|
||||
#define dtvec_tzoff 0xA
|
||||
#define dtvec_wday 0x7
|
||||
#define dtvec_yday 0x8
|
||||
#define dtvec_year 0x6
|
||||
#define ephemeron_car_disp 0x7
|
||||
#define ephemeron_cdr_disp 0xF
|
||||
#define ephemeron_next_disp 0x17
|
||||
#define ephemeron_trigger_next_disp 0x1F
|
||||
#define eq_hashtable_subtype_ephemeron 0x2
|
||||
#define eq_hashtable_subtype_normal 0x0
|
||||
#define eq_hashtable_subtype_weak 0x1
|
||||
#define exactnum_imag_disp 0x11
|
||||
#define exactnum_real_disp 0x9
|
||||
#define exactnum_type_disp 0x1
|
||||
#define fasl_fld_double 0xA
|
||||
#define fasl_fld_i16 0x2
|
||||
#define fasl_fld_i24 0x3
|
||||
#define fasl_fld_i32 0x4
|
||||
#define fasl_fld_i40 0x5
|
||||
#define fasl_fld_i48 0x6
|
||||
#define fasl_fld_i56 0x7
|
||||
#define fasl_fld_i64 0x8
|
||||
#define fasl_fld_ptr 0x0
|
||||
#define fasl_fld_single 0x9
|
||||
#define fasl_fld_u8 0x1
|
||||
#define fasl_header #vu8(0 0 0 0 99 104 101 122)
|
||||
#define fasl_type_base_rtd 0x1A
|
||||
#define fasl_type_box 0x1
|
||||
#define fasl_type_bytevector 0x1D
|
||||
#define fasl_type_closure 0x6
|
||||
#define fasl_type_code 0xB
|
||||
#define fasl_type_entry 0xD
|
||||
#define fasl_type_ephemeron 0x1C
|
||||
#define fasl_type_eq_hashtable 0x1F
|
||||
#define fasl_type_exactnum 0x14
|
||||
#define fasl_type_flonum 0x8
|
||||
#define fasl_type_fxvector 0x1B
|
||||
#define fasl_type_gensym 0x13
|
||||
#define fasl_type_graph 0x10
|
||||
#define fasl_type_graph_def 0x11
|
||||
#define fasl_type_graph_ref 0x12
|
||||
#define fasl_type_gzip 0x2B
|
||||
#define fasl_type_header 0x0
|
||||
#define fasl_type_immediate 0xC
|
||||
#define fasl_type_immutable_box 0x29
|
||||
#define fasl_type_immutable_bytevector 0x28
|
||||
#define fasl_type_immutable_fxvector 0x27
|
||||
#define fasl_type_immutable_string 0x26
|
||||
#define fasl_type_immutable_vector 0x25
|
||||
#define fasl_type_inexactnum 0x5
|
||||
#define fasl_type_large_integer 0xA
|
||||
#define fasl_type_library 0xE
|
||||
#define fasl_type_library_code 0xF
|
||||
#define fasl_type_lz4 0x2C
|
||||
#define fasl_type_pair 0x7
|
||||
#define fasl_type_ratnum 0x3
|
||||
#define fasl_type_record 0x17
|
||||
#define fasl_type_revisit 0x23
|
||||
#define fasl_type_rtd 0x18
|
||||
#define fasl_type_small_integer 0x19
|
||||
#define fasl_type_string 0x9
|
||||
#define fasl_type_symbol 0x2
|
||||
#define fasl_type_symbol_hashtable 0x20
|
||||
#define fasl_type_uncompressed 0x2A
|
||||
#define fasl_type_vector 0x4
|
||||
#define fasl_type_visit 0x22
|
||||
#define fasl_type_visit_revisit 0x24
|
||||
#define fasl_type_weak_pair 0x1E
|
||||
#define fixnum_bits 0x3D
|
||||
#define fixnum_factor 0x8
|
||||
#define fixnum_offset 0x3
|
||||
#define fld_byte_index 0x4
|
||||
#define fld_mutablep_index 0x2
|
||||
#define fld_name_index 0x1
|
||||
#define fld_type_index 0x3
|
||||
#define flonum_data_disp 0x6
|
||||
#define forward_address_disp 0x8
|
||||
#define forward_marker (ptr)0x2E
|
||||
#define forward_marker_disp 0x0
|
||||
#define ftype_guardian_rep (ptr)0x56
|
||||
#define fxvector_data_disp 0x9
|
||||
#define fxvector_immutable_flag 0x8
|
||||
#define fxvector_length_factor 0x10
|
||||
#define fxvector_length_offset 0x4
|
||||
#define fxvector_type_disp 0x1
|
||||
#define guardian_entry_next_disp 0x18
|
||||
#define guardian_entry_obj_disp 0x0
|
||||
#define guardian_entry_rep_disp 0x8
|
||||
#define guardian_entry_tconc_disp 0x10
|
||||
#define hashtable_default_size 0x8
|
||||
#define header_size_bignum 0x8
|
||||
#define header_size_bytevector 0x8
|
||||
#define header_size_closure 0x8
|
||||
#define header_size_code 0x40
|
||||
#define header_size_fxvector 0x8
|
||||
#define header_size_record 0x8
|
||||
#define header_size_reloc_table 0x10
|
||||
#define header_size_string 0x8
|
||||
#define header_size_vector 0x8
|
||||
#define ignore_event_flag 0x0
|
||||
#define inexactnum_imag_disp 0x19
|
||||
#define inexactnum_pad_disp 0x9
|
||||
#define inexactnum_real_disp 0x11
|
||||
#define inexactnum_type_disp 0x1
|
||||
#define int_bits 0x20
|
||||
#define integer_divide_instruction 1
|
||||
#define keyboard_interrupt_index 0x3
|
||||
#define library_entry_vector_size 0x210
|
||||
#define libspec_closure_index 0xD
|
||||
#define libspec_does_not_expect_headroom_index 0x0
|
||||
#define libspec_error_index 0xE
|
||||
#define libspec_fake_index 0x10
|
||||
#define libspec_flags_index 0x2
|
||||
#define libspec_has_does_not_expect_headroom_version_index 0xF
|
||||
#define libspec_index_base_offset 0x1
|
||||
#define libspec_index_base_size 0x9
|
||||
#define libspec_index_offset 0x0
|
||||
#define libspec_index_size 0xA
|
||||
#define libspec_interface_offset 0xA
|
||||
#define libspec_interface_size 0x3
|
||||
#define libspec_name_index 0x1
|
||||
#define log2_ptr_bytes 0x3
|
||||
#define long_bits 0x20
|
||||
#define long_long_bits 0x40
|
||||
#define machine_type 0x1C
|
||||
#define machine_type_a6fb 0x15
|
||||
#define machine_type_a6le 0xB
|
||||
#define machine_type_a6nb 0x19
|
||||
#define machine_type_a6nt 0x1B
|
||||
#define machine_type_a6ob 0xF
|
||||
#define machine_type_a6osx 0xD
|
||||
#define machine_type_a6s2 0x11
|
||||
#define machine_type_alist ((0 . any) (1 . i3le) (2 . ti3le) (3 . i3nt) (4 . ti3nt) (5 . i3fb) (6 . ti3fb) (7 . i3ob) (8 . ti3ob) (9 . i3osx) (10 . ti3osx) (11 . a6le) (12 . ta6le) (13 . a6osx) (14 . ta6osx) (15 . a6ob) (16 . ta6ob) (17 . a6s2) (18 . ta6s2) (19 . i3s2) (20 . ti3s2) (21 . a6fb) (22 . ta6fb) (23 . i3nb) (24 . ti3nb) (25 . a6nb) (26 . ta6nb) (27 . a6nt) (28 . ta6nt) (29 . i3qnx) (30 . ti3qnx) (31 . arm32le) (32 . tarm32le) (33 . ppc32le) (34 . tppc32le))
|
||||
#define machine_type_any 0x0
|
||||
#define machine_type_arm32le 0x1F
|
||||
#define machine_type_i3fb 0x5
|
||||
#define machine_type_i3le 0x1
|
||||
#define machine_type_i3nb 0x17
|
||||
#define machine_type_i3nt 0x3
|
||||
#define machine_type_i3ob 0x7
|
||||
#define machine_type_i3osx 0x9
|
||||
#define machine_type_i3qnx 0x1D
|
||||
#define machine_type_i3s2 0x13
|
||||
#define machine_type_limit 0x23
|
||||
#define machine_type_name ta6nt
|
||||
#define machine_type_ppc32le 0x21
|
||||
#define machine_type_ta6fb 0x16
|
||||
#define machine_type_ta6le 0xC
|
||||
#define machine_type_ta6nb 0x1A
|
||||
#define machine_type_ta6nt 0x1C
|
||||
#define machine_type_ta6ob 0x10
|
||||
#define machine_type_ta6osx 0xE
|
||||
#define machine_type_ta6s2 0x12
|
||||
#define machine_type_tarm32le 0x20
|
||||
#define machine_type_ti3fb 0x6
|
||||
#define machine_type_ti3le 0x2
|
||||
#define machine_type_ti3nb 0x18
|
||||
#define machine_type_ti3nt 0x4
|
||||
#define machine_type_ti3ob 0x8
|
||||
#define machine_type_ti3osx 0xA
|
||||
#define machine_type_ti3qnx 0x1E
|
||||
#define machine_type_ti3s2 0x14
|
||||
#define machine_type_tppc32le 0x22
|
||||
#define mask_bignum 0x1F
|
||||
#define mask_bignum_sign 0x20
|
||||
#define mask_binary_input_port 0x5FF
|
||||
#define mask_binary_output_port 0x6FF
|
||||
#define mask_binary_port 0x4FF
|
||||
#define mask_boolean 0xF7
|
||||
#define mask_box 0x7F
|
||||
#define mask_bwp 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_bytevector 0x3
|
||||
#define mask_char 0xFF
|
||||
#define mask_closure 0x7
|
||||
#define mask_code 0xFF
|
||||
#define mask_continuation_code 0x2FF
|
||||
#define mask_eof 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_exactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_false 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_fixnum 0x7
|
||||
#define mask_flonum 0x7
|
||||
#define mask_fxvector 0x7
|
||||
#define mask_guardian_code 0x8FF
|
||||
#define mask_immediate 0x7
|
||||
#define mask_inexactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_input_port 0x1FF
|
||||
#define mask_mutable_box 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_mutable_bytevector 0x7
|
||||
#define mask_mutable_fxvector 0xF
|
||||
#define mask_mutable_string 0xF
|
||||
#define mask_mutable_vector 0xF
|
||||
#define mask_nil 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_octet -0x7F9
|
||||
#define mask_other_number 0xF
|
||||
#define mask_output_port 0x2FF
|
||||
#define mask_pair 0x7
|
||||
#define mask_port 0xFF
|
||||
#define mask_ratnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_record 0x7
|
||||
#define mask_rtd_counts 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_signed_bignum 0x3F
|
||||
#define mask_string 0x7
|
||||
#define mask_symbol 0x7
|
||||
#define mask_system_code 0x1FF
|
||||
#define mask_textual_input_port 0x5FF
|
||||
#define mask_textual_output_port 0x6FF
|
||||
#define mask_textual_port 0x4FF
|
||||
#define mask_thread 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_tlc 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_typed_object 0x7
|
||||
#define mask_unbound 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_vector 0x7
|
||||
#define max_float_alignment 0x8
|
||||
#define max_integer_alignment 0x8
|
||||
#define max_real_space 0xB
|
||||
#define max_space 0xC
|
||||
#define max_sweep_space 0xA
|
||||
#define maximum_bignum_length (iptr)0x3FFFFFFFFFFFFFF
|
||||
#define maximum_bytevector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_fxvector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_interrupt_index 0x4
|
||||
#define maximum_string_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_vector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define minimum_segment_request 0x80
|
||||
#define most_negative_fixnum (iptr)-0x1000000000000000
|
||||
#define most_positive_fixnum (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define native_endianness little
|
||||
#define one_shot_headroom 0xC00
|
||||
#define ordinary_type_bits 0x8
|
||||
#define pair_car_disp 0x7
|
||||
#define pair_cdr_disp 0xF
|
||||
#define pair_shift 0x4
|
||||
#define port_flag_binary 0x4
|
||||
#define port_flag_block_buffered 0x200
|
||||
#define port_flag_bol 0x80
|
||||
#define port_flag_char_positions 0x1000
|
||||
#define port_flag_closed 0x8
|
||||
#define port_flag_compressed 0x20
|
||||
#define port_flag_eof 0x100
|
||||
#define port_flag_exclusive 0x40
|
||||
#define port_flag_file 0x10
|
||||
#define port_flag_fold_case 0x4000
|
||||
#define port_flag_input 0x1
|
||||
#define port_flag_input_mode 0x800
|
||||
#define port_flag_line_buffered 0x400
|
||||
#define port_flag_no_fold_case 0x8000
|
||||
#define port_flag_output 0x2
|
||||
#define port_flag_r6rs 0x2000
|
||||
#define port_flags_offset 0x8
|
||||
#define port_handler_disp 0x9
|
||||
#define port_ibuffer_disp 0x39
|
||||
#define port_icount_disp 0x19
|
||||
#define port_ilast_disp 0x31
|
||||
#define port_info_disp 0x41
|
||||
#define port_name_disp 0x49
|
||||
#define port_obuffer_disp 0x29
|
||||
#define port_ocount_disp 0x11
|
||||
#define port_olast_disp 0x21
|
||||
#define port_type_disp 0x1
|
||||
#define prelex_is_flags_offset 0x8
|
||||
#define prelex_is_mask 0xFF00
|
||||
#define prelex_sticky_mask 0xFF
|
||||
#define prelex_was_flags_offset 0x10
|
||||
#define primary_type_bits 0x3
|
||||
#define ptr_bits 0x40
|
||||
#define ptr_bytes 0x8
|
||||
#define ptrdiff_t_bits 0x40
|
||||
#define ratnum_denominator_disp 0x11
|
||||
#define ratnum_numerator_disp 0x9
|
||||
#define ratnum_type_disp 0x1
|
||||
#define real_space_alist ((new . 0) (impure . 1) (symbol . 2) (port . 3) (weakpair . 4) (ephemeron . 5) (pure . 6) (continuation . 7) (code . 8) (pure-typed-object . 9) (impure-record . 10) (data . 11))
|
||||
#define record_data_disp 0x9
|
||||
#define record_type_counts_disp 0x49
|
||||
#define record_type_disp 0x1
|
||||
#define record_type_flags_disp 0x39
|
||||
#define record_type_flds_disp 0x31
|
||||
#define record_type_mpm_disp 0x21
|
||||
#define record_type_name_disp 0x29
|
||||
#define record_type_parent_disp 0x9
|
||||
#define record_type_pm_disp 0x19
|
||||
#define record_type_size_disp 0x11
|
||||
#define record_type_type_disp 0x1
|
||||
#define record_type_uid_disp 0x41
|
||||
#define reloc_abs 0x0
|
||||
#define reloc_code_offset_index 0x3
|
||||
#define reloc_code_offset_mask 0x3FFFFFF
|
||||
#define reloc_code_offset_offset 0x4
|
||||
#define reloc_extended_format 0x1
|
||||
#define reloc_item_offset_index 0x2
|
||||
#define reloc_item_offset_mask 0x3FFFFFF
|
||||
#define reloc_item_offset_offset 0x1E
|
||||
#define reloc_longp_index 0x4
|
||||
#define reloc_table_code_disp 0x8
|
||||
#define reloc_table_data_disp 0x10
|
||||
#define reloc_table_size_disp 0x0
|
||||
#define reloc_type_index 0x1
|
||||
#define reloc_type_mask 0x7
|
||||
#define reloc_type_offset 0x1
|
||||
#define reloc_x86_64_call 0x1
|
||||
#define reloc_x86_64_jump 0x2
|
||||
#define return_address_frame_size_disp -0x10
|
||||
#define return_address_livemask_disp -0x20
|
||||
#define return_address_mv_return_address_disp -0x8
|
||||
#define return_address_toplink_disp -0x18
|
||||
#define rp_header_frame_size_disp 0x10
|
||||
#define rp_header_livemask_disp 0x0
|
||||
#define rp_header_mv_return_address_disp 0x18
|
||||
#define rp_header_toplink_disp 0x8
|
||||
#define rtd_counts_data_disp 0x11
|
||||
#define rtd_counts_timestamp_disp 0x9
|
||||
#define rtd_counts_type_disp 0x1
|
||||
#define rtd_generative 0x1
|
||||
#define rtd_opaque 0x2
|
||||
#define rtd_sealed 0x4
|
||||
#define sbwp (ptr)0x4E
|
||||
#define scaled_shot_1_shot_flag -0x8
|
||||
#define scheme_version 0x90509
|
||||
#define segment_card_offset_bits 0x5
|
||||
#define segment_offset_bits 0xE
|
||||
#define segment_t1_bits 0x10
|
||||
#define segment_t2_bits 0x11
|
||||
#define segment_t3_bits 0x11
|
||||
#define segment_table_levels 0x3
|
||||
#define seof (ptr)0x36
|
||||
#define sfalse (ptr)0x6
|
||||
#define short_bits 0x10
|
||||
#define signal_interrupt_index 0x4
|
||||
#define size_box 0x10
|
||||
#define size_cached_stack 0x10
|
||||
#define size_continuation 0x40
|
||||
#define size_ephemeron 0x20
|
||||
#define size_exactnum 0x20
|
||||
#define size_flonum 0x10
|
||||
#define size_forward 0x10
|
||||
#define size_guardian_entry 0x20
|
||||
#define size_inexactnum 0x20
|
||||
#define size_pair 0x10
|
||||
#define size_port 0x50
|
||||
#define size_ratnum 0x20
|
||||
#define size_record_type 0x50
|
||||
#define size_rp_header 0x20
|
||||
#define size_rtd_counts 0x810
|
||||
#define size_symbol 0x30
|
||||
#define size_tc 0x2C0
|
||||
#define size_thread 0x10
|
||||
#define size_tlc 0x20
|
||||
#define size_typed_object 0x10
|
||||
#define size_t_bits 0x40
|
||||
#define snil (ptr)0x26
|
||||
#define space_char_list (#\n #\i #\x #\q #\w #\e #\p #\k #\c #\r #\s #\d #\e)
|
||||
#define space_cname_list ("new" "impure" "symbol" "port" "weakpr" "emph" "pure" "cont" "code" "p-tobj" "ip-rec" "data" "empty")
|
||||
#define space_code 0x8
|
||||
#define space_continuation 0x7
|
||||
#define space_data 0xB
|
||||
#define space_empty 0xC
|
||||
#define space_ephemeron 0x5
|
||||
#define space_impure 0x1
|
||||
#define space_impure_record 0xA
|
||||
#define space_locked 0x20
|
||||
#define space_new 0x0
|
||||
#define space_old 0x40
|
||||
#define space_port 0x3
|
||||
#define space_pure 0x6
|
||||
#define space_pure_typed_object 0x9
|
||||
#define space_symbol 0x2
|
||||
#define space_weakpair 0x4
|
||||
#define stack_frame_limit 0x200
|
||||
#define stack_slop 0x400
|
||||
#define static_generation 0xFF
|
||||
#define string_char_bits 0x20
|
||||
#define string_char_bytes 0x4
|
||||
#define string_char_offset 0x2
|
||||
#define string_data_disp 0x9
|
||||
#define string_immutable_flag 0x8
|
||||
#define string_length_factor 0x10
|
||||
#define string_length_offset 0x4
|
||||
#define string_type_disp 0x1
|
||||
#define strue (ptr)0xE
|
||||
#define sunbound (ptr)0x1E
|
||||
#define svoid (ptr)0x3E
|
||||
#define symbol_hash_disp 0x2D
|
||||
#define symbol_name_disp 0x1D
|
||||
#define symbol_plist_disp 0x15
|
||||
#define symbol_pvalue_disp 0xD
|
||||
#define symbol_splist_disp 0x25
|
||||
#define symbol_value_disp 0x5
|
||||
#define tc_DSTBV_disp 0x2A8
|
||||
#define tc_SRCBV_disp 0x2B0
|
||||
#define tc_U_disp 0x160
|
||||
#define tc_V_disp 0x168
|
||||
#define tc_W_disp 0x170
|
||||
#define tc_X_disp 0x178
|
||||
#define tc_Y_disp 0x180
|
||||
#define tc_ac0_disp 0x28
|
||||
#define tc_ac1_disp 0x30
|
||||
#define tc_active_disp 0x134
|
||||
#define tc_alloc_counter_disp 0x298
|
||||
#define tc_ap_disp 0x50
|
||||
#define tc_arg_regs_disp 0x0
|
||||
#define tc_block_counter_disp 0x1D8
|
||||
#define tc_cchain_disp 0x120
|
||||
#define tc_code_ranges_to_flush_disp 0x128
|
||||
#define tc_compile_profile_disp 0x230
|
||||
#define tc_compress_format_disp 0x278
|
||||
#define tc_compress_level_disp 0x280
|
||||
#define tc_cp_disp 0x40
|
||||
#define tc_current_error_disp 0x1D0
|
||||
#define tc_current_input_disp 0x1C0
|
||||
#define tc_current_mso_disp 0x1E8
|
||||
#define tc_current_output_disp 0x1C8
|
||||
#define tc_default_record_equal_procedure_disp 0x268
|
||||
#define tc_default_record_hash_procedure_disp 0x270
|
||||
#define tc_disable_count_disp 0x198
|
||||
#define tc_eap_disp 0x58
|
||||
#define tc_esp_disp 0x48
|
||||
#define tc_fxfirst_bit_set_bv_disp 0x200
|
||||
#define tc_fxlength_bv_disp 0x1F8
|
||||
#define tc_generate_inspector_information_disp 0x238
|
||||
#define tc_generate_procedure_source_information_disp 0x240
|
||||
#define tc_generate_profile_forms_disp 0x248
|
||||
#define tc_guardian_entries_disp 0x118
|
||||
#define tc_instr_counter_disp 0x290
|
||||
#define tc_keyboard_interrupt_pending_disp 0x1B0
|
||||
#define tc_lz4_out_buffer_disp 0x288
|
||||
#define tc_meta_level_disp 0x228
|
||||
#define tc_null_immutable_bytevector_disp 0x218
|
||||
#define tc_null_immutable_fxvector_disp 0x210
|
||||
#define tc_null_immutable_string_disp 0x220
|
||||
#define tc_null_immutable_vector_disp 0x208
|
||||
#define tc_optimize_level_disp 0x250
|
||||
#define tc_parameters_disp 0x2A0
|
||||
#define tc_random_seed_disp 0x130
|
||||
#define tc_real_eap_disp 0x90
|
||||
#define tc_ret_disp 0x60
|
||||
#define tc_scheme_stack_disp 0x138
|
||||
#define tc_scheme_stack_size_disp 0x150
|
||||
#define tc_sfd_disp 0x1E0
|
||||
#define tc_sfp_disp 0x38
|
||||
#define tc_signal_interrupt_pending_disp 0x1A0
|
||||
#define tc_signal_interrupt_queue_disp 0x1A8
|
||||
#define tc_something_pending_disp 0x188
|
||||
#define tc_stack_cache_disp 0x140
|
||||
#define tc_stack_link_disp 0x148
|
||||
#define tc_subset_mode_disp 0x258
|
||||
#define tc_suppress_primitive_inlining_disp 0x260
|
||||
#define tc_target_machine_disp 0x1F0
|
||||
#define tc_td_disp 0x88
|
||||
#define tc_threadno_disp 0x1B8
|
||||
#define tc_timer_ticks_disp 0x190
|
||||
#define tc_trap_disp 0x68
|
||||
#define tc_ts_disp 0x80
|
||||
#define tc_virtual_registers_disp 0x98
|
||||
#define tc_winders_disp 0x158
|
||||
#define tc_xp_disp 0x70
|
||||
#define tc_yp_disp 0x78
|
||||
#define thread_tc_disp 0x9
|
||||
#define thread_type_disp 0x1
|
||||
#define time_collector_cpu 0x5
|
||||
#define time_collector_real 0x6
|
||||
#define time_duration 0x2
|
||||
#define time_monotonic 0x3
|
||||
#define time_process 0x0
|
||||
#define time_t_bits 0x40
|
||||
#define time_thread 0x1
|
||||
#define time_utc 0x4
|
||||
#define timer_interrupt_index 0x2
|
||||
#define tlc_ht_disp 0x11
|
||||
#define tlc_keyval_disp 0x9
|
||||
#define tlc_next_disp 0x19
|
||||
#define tlc_type_disp 0x1
|
||||
#define type_bignum 0x6
|
||||
#define type_binary_input_port 0x51E
|
||||
#define type_binary_output_port 0x61E
|
||||
#define type_binary_port 0x41E
|
||||
#define type_boolean 0x6
|
||||
#define type_box 0xE
|
||||
#define type_bytevector 0x1
|
||||
#define type_char 0x16
|
||||
#define type_closure 0x5
|
||||
#define type_code 0x3E
|
||||
#define type_continuation_code 0x23E
|
||||
#define type_exactnum 0x56
|
||||
#define type_fixnum 0x0
|
||||
#define type_flonum 0x2
|
||||
#define type_fxvector 0x3
|
||||
#define type_guardian_code 0x83E
|
||||
#define type_immediate 0x6
|
||||
#define type_immutable_box 0x8E
|
||||
#define type_immutable_bytevector 0x5
|
||||
#define type_immutable_fxvector 0xB
|
||||
#define type_immutable_string 0xA
|
||||
#define type_immutable_vector 0x8
|
||||
#define type_inexactnum 0x36
|
||||
#define type_input_port 0x11E
|
||||
#define type_io_port 0x31E
|
||||
#define type_mutable_box 0xE
|
||||
#define type_mutable_bytevector 0x1
|
||||
#define type_mutable_fxvector 0x3
|
||||
#define type_mutable_string 0x2
|
||||
#define type_mutable_vector 0x0
|
||||
#define type_negative_bignum 0x26
|
||||
#define type_octet 0x0
|
||||
#define type_other_number 0x6
|
||||
#define type_output_port 0x21E
|
||||
#define type_pair 0x1
|
||||
#define type_port 0x1E
|
||||
#define type_positive_bignum 0x6
|
||||
#define type_ratnum 0x16
|
||||
#define type_record 0x7
|
||||
#define type_rtd_counts 0x6E
|
||||
#define type_string 0x2
|
||||
#define type_symbol 0x3
|
||||
#define type_system_code 0x13E
|
||||
#define type_textual_input_port 0x11E
|
||||
#define type_textual_output_port 0x21E
|
||||
#define type_textual_port 0x1E
|
||||
#define type_thread 0x4E
|
||||
#define type_tlc 0x5E
|
||||
#define type_typed_object 0x7
|
||||
#define type_vector 0x0
|
||||
#define typed_object_type_disp 0x1
|
||||
#define typedef_i16 "short"
|
||||
#define typedef_i32 "int"
|
||||
#define typedef_i64 "long long"
|
||||
#define typedef_i8 "char"
|
||||
#define typedef_iptr "long long int"
|
||||
#define typedef_ptr "void *"
|
||||
#define typedef_string_char "unsigned int"
|
||||
#define typedef_u16 "unsigned short"
|
||||
#define typedef_u32 "unsigned int"
|
||||
#define typedef_u64 "unsigned long long"
|
||||
#define typedef_u8 "unsigned char"
|
||||
#define typedef_uptr "unsigned long long int"
|
||||
#define typemod 0x8
|
||||
#define unactivate_mode_deactivate 0x1
|
||||
#define unactivate_mode_destroy 0x2
|
||||
#define unactivate_mode_noop 0x0
|
||||
#define unaligned_floats 1
|
||||
#define unaligned_integers 1
|
||||
#define underflow_limit 0x80
|
||||
#define unscaled_shot_1_shot_flag -0x1
|
||||
#define vector_data_disp 0x9
|
||||
#define vector_immutable_flag 0x8
|
||||
#define vector_length_factor 0x10
|
||||
#define vector_length_offset 0x4
|
||||
#define vector_type_disp 0x1
|
||||
#define virtual_register_count 0x10
|
||||
#define wchar_bits 0x10
|
||||
|
||||
/* constants from declare-c-entries */
|
||||
#define CENTRY_Scall_any_results 24
|
||||
#define CENTRY_Scall_one_result 23
|
||||
#define CENTRY_Sreturn 22
|
||||
#define CENTRY_activate_thread 11
|
||||
#define CENTRY_deactivate_thread 12
|
||||
#define CENTRY_foreign_entry 17
|
||||
#define CENTRY_get_more_room 19
|
||||
#define CENTRY_get_thread_context 1
|
||||
#define CENTRY_handle_apply_overflood 2
|
||||
#define CENTRY_handle_arg_error 16
|
||||
#define CENTRY_handle_docall_error 3
|
||||
#define CENTRY_handle_mvlet_error 15
|
||||
#define CENTRY_handle_nonprocedure_symbol 6
|
||||
#define CENTRY_handle_overflood 5
|
||||
#define CENTRY_handle_overflow 4
|
||||
#define CENTRY_handle_values_error 14
|
||||
#define CENTRY_install_library_entry 18
|
||||
#define CENTRY_instantiate_code_object 21
|
||||
#define CENTRY_raw_collect_cond 9
|
||||
#define CENTRY_raw_tc_mutex 10
|
||||
#define CENTRY_scan_remembered_set 20
|
||||
#define CENTRY_split_and_resize 8
|
||||
#define CENTRY_thread_context 0
|
||||
#define CENTRY_thread_list 7
|
||||
#define CENTRY_unactivate_thread 13
|
||||
|
||||
/* displacements for records */
|
||||
#define eq_hashtable_rtd_disp 1
|
||||
#define eq_hashtable_type_disp 9
|
||||
#define eq_hashtable_mutablep_disp 17
|
||||
#define eq_hashtable_vec_disp 25
|
||||
#define eq_hashtable_minlen_disp 33
|
||||
#define eq_hashtable_size_disp 41
|
||||
#define eq_hashtable_subtype_disp 49
|
||||
#define symbol_hashtable_rtd_disp 1
|
||||
#define symbol_hashtable_type_disp 9
|
||||
#define symbol_hashtable_mutablep_disp 17
|
||||
#define symbol_hashtable_vec_disp 25
|
||||
#define symbol_hashtable_minlen_disp 33
|
||||
#define symbol_hashtable_size_disp 41
|
||||
#define symbol_hashtable_equivp_disp 49
|
||||
#define code_info_rtd_disp 1
|
||||
#define code_info_src_disp 9
|
||||
#define code_info_sexpr_disp 17
|
||||
#define code_info_free_disp 25
|
||||
#define code_info_live_disp 33
|
||||
#define code_info_rpis_disp 41
|
||||
|
||||
/* predicates */
|
||||
#define Simmediatep(x) (((uptr)(x)&0x7)==0x6)
|
||||
#define Sportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x1E))
|
||||
#define Scodep(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x3E))
|
||||
|
||||
/* structure accessors */
|
||||
#define INITCAR(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define INITCDR(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define SETCAR(x,y) DIRTYSET(((ptr *)((uptr)(x)+7)),(y))
|
||||
#define SETCDR(x,y) DIRTYSET(((ptr *)((uptr)(x)+15)),(y))
|
||||
#define BOXTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITBOXREF(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define SETBOXREF(x,y) DIRTYSET(((ptr *)((uptr)(x)+9)),(y))
|
||||
#define EPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define INITEPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define EPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define INITEPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define TLCTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define TLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define TLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define TLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define INITTLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITTLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define INITTLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define SETTLCNEXT(x,y) DIRTYSET(((ptr *)((uptr)(x)+25)),(y))
|
||||
#define SYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define SYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define SYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define SYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define INITSYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITSYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITSYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define INITSYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define INITSYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define INITSYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define SETSYMVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define SETSYMPVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SETSYMPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+21)),(y))
|
||||
#define SETSYMNAME(x,y) DIRTYSET(((ptr *)((uptr)(x)+29)),(y))
|
||||
#define SETSYMSPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+37)),(y))
|
||||
#define SETSYMHASH(x,y) DIRTYSET(((ptr *)((uptr)(x)+45)),(y))
|
||||
#define VECTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define SETVECTIT(x,i,y) DIRTYSET((((ptr *)((uptr)(x)+9))+i),(y))
|
||||
#define FXVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define FXVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define BYTEVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BVIT(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
#define INEXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INEXACTNUM_REAL_PART(x) (*((double *)((uptr)(x)+17)))
|
||||
#define INEXACTNUM_IMAG_PART(x) (*((double *)((uptr)(x)+25)))
|
||||
#define EXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define EXACTNUM_REAL_PART(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define EXACTNUM_IMAG_PART(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RATTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RATNUM(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RATDEN(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CLOSENTRY(x) (*((ptr *)((uptr)(x)+3)))
|
||||
#define CLOSIT(x,i) (((ptr *)((uptr)(x)+11))[i])
|
||||
#define FLODAT(x) (*((double *)((uptr)(x)+6)))
|
||||
#define PORTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define PORTNAME(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define PORTHANDLER(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define PORTINFO(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define PORTOCNT(x) (*((iptr *)((uptr)(x)+17)))
|
||||
#define PORTOLAST(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define PORTOBUF(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define PORTICNT(x) (*((iptr *)((uptr)(x)+25)))
|
||||
#define PORTILAST(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define PORTIBUF(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define STRTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define STRIT(x,i) (((string_char *)((uptr)(x)+9))[i])
|
||||
#define BIGTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BIGIT(x,i) (((bigit *)((uptr)(x)+9))[i])
|
||||
#define CODETYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define CODELEN(x) (*((iptr *)((uptr)(x)+9)))
|
||||
#define CODERELOC(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CODENAME(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define CODEARITYMASK(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define CODEFREE(x) (*((iptr *)((uptr)(x)+41)))
|
||||
#define CODEINFO(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define CODEPINFOS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define CODEIT(x,i) (((octet *)((uptr)(x)+65))[i])
|
||||
#define RELOCSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define RELOCCODE(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RELOCIT(x,i) (((uptr *)((uptr)(x)+16))[i])
|
||||
#define CONTSTACK(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define CONTLENGTH(x) (*((iptr *)((uptr)(x)+19)))
|
||||
#define CONTCLENGTH(x) (*((iptr *)((uptr)(x)+27)))
|
||||
#define CONTLINK(x) (*((ptr *)((uptr)(x)+35)))
|
||||
#define CONTRET(x) (*((ptr *)((uptr)(x)+43)))
|
||||
#define CONTWINDERS(x) (*((ptr *)((uptr)(x)+51)))
|
||||
#define RTDCOUNTSTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RTDCOUNTSTIMESTAMP(x) (*((U64 *)((uptr)(x)+9)))
|
||||
#define RTDCOUNTSIT(x,i) (((uptr *)((uptr)(x)+17))[i])
|
||||
#define RECORDDESCPARENT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RECORDDESCSIZE(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RECORDDESCPM(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define RECORDDESCMPM(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define RECORDDESCNAME(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define RECORDDESCFLDS(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define RECORDDESCFLAGS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define RECORDDESCUID(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define RECORDDESCCOUNTS(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define RECORDINSTTYPE(x) (*((ptr *)((uptr)(x)+1)))
|
||||
#define RECORDINSTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define CLOSCODE(p) ((ptr)((uptr)CLOSENTRY(p)-code_data_disp))
|
||||
#define CODEENTRYPOINT(x) ((ptr)((uptr)(x)+code_data_disp))
|
||||
#define SETCLOSCODE(p,x) (CLOSENTRY(p) = CODEENTRYPOINT(x))
|
||||
#define SYMCODE(p) ((ptr)((uptr)SYMPVAL(p)-code_data_disp))
|
||||
#define INITSYMCODE(p,x) (INITSYMPVAL(p) = CODEENTRYPOINT(x))
|
||||
#define SETSYMCODE(p,x) SETSYMPVAL(p,CODEENTRYPOINT(x))
|
||||
#define BIGLEN(x) ((iptr)((uptr)BIGTYPE(x) >> bignum_length_offset))
|
||||
#define BIGSIGN(x) ((BIGTYPE(x) & mask_bignum_sign) >> bignum_sign_offset)
|
||||
#define SETBIGLENANDSIGN(x,xl,xs) BIGTYPE(x) = (uptr)(xl) << bignum_length_offset | (xs) << bignum_sign_offset | type_bignum
|
||||
#define CLOSLEN(p) CODEFREE(CLOSCODE(p))
|
||||
#define GUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define GUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define GUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define GUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define INITGUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define INITGUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define INITGUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define INITGUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define FORWARDMARKER(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define FORWARDADDRESS(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define CACHEDSTACKSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define CACHEDSTACKLINK(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RPHEADERFRAMESIZE(x) (*((iptr *)((uptr)(x)+16)))
|
||||
#define RPHEADERLIVEMASK(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define RPHEADERTOPLINK(x) (*((uptr *)((uptr)(x)+8)))
|
||||
|
||||
/* machine types */
|
||||
#define machine_type_names {"any", "i3le", "ti3le", "i3nt", "ti3nt", "i3fb", "ti3fb", "i3ob", "ti3ob", "i3osx", "ti3osx", "a6le", "ta6le", "a6osx", "ta6osx", "a6ob", "ta6ob", "a6s2", "ta6s2", "i3s2", "ti3s2", "a6fb", "ta6fb", "i3nb", "ti3nb", "a6nb", "ta6nb", "a6nt", "ta6nt", "i3qnx", "ti3qnx", "arm32le", "tarm32le", "ppc32le", "tppc32le"}
|
||||
|
||||
/* allocation-space names */
|
||||
#define alloc_space_names "new", "impure", "symbol", "port", "weakpr", "emph", "pure", "cont", "code", "p-tobj", "ip-rec", "data", "empty"
|
||||
|
||||
/* allocation-space characters */
|
||||
#define alloc_space_chars 'n', 'i', 'x', 'q', 'w', 'e', 'p', 'k', 'c', 'r', 's', 'd', 'e'
|
||||
|
||||
/* threads */
|
||||
#define THREADTC(x) (*((uptr *)((uptr)(x)+9)))
|
||||
|
||||
/* thread-context data */
|
||||
#define DSTBV(x) (*((ptr *)((uptr)(x)+680)))
|
||||
#define SRCBV(x) (*((ptr *)((uptr)(x)+688)))
|
||||
#define U(x) (*((ptr *)((uptr)(x)+352)))
|
||||
#define V(x) (*((ptr *)((uptr)(x)+360)))
|
||||
#define W(x) (*((ptr *)((uptr)(x)+368)))
|
||||
#define X(x) (*((ptr *)((uptr)(x)+376)))
|
||||
#define Y(x) (*((ptr *)((uptr)(x)+384)))
|
||||
#define AC0(x) (*((void* *)((uptr)(x)+40)))
|
||||
#define AC1(x) (*((void* *)((uptr)(x)+48)))
|
||||
#define ACTIVE(x) (*((I32 *)((uptr)(x)+308)))
|
||||
#define ALLOCCOUNTER(x) (*((U64 *)((uptr)(x)+664)))
|
||||
#define AP(x) (*((void* *)((uptr)(x)+80)))
|
||||
#define ARGREGS(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define BLOCKCOUNTER(x) (*((ptr *)((uptr)(x)+472)))
|
||||
#define CCHAIN(x) (*((ptr *)((uptr)(x)+288)))
|
||||
#define CODERANGESTOFLUSH(x) (*((ptr *)((uptr)(x)+296)))
|
||||
#define COMPILEPROFILE(x) (*((ptr *)((uptr)(x)+560)))
|
||||
#define COMPRESSFORMAT(x) (*((ptr *)((uptr)(x)+632)))
|
||||
#define COMPRESSLEVEL(x) (*((ptr *)((uptr)(x)+640)))
|
||||
#define CP(x) (*((void* *)((uptr)(x)+64)))
|
||||
#define CURRENTERROR(x) (*((ptr *)((uptr)(x)+464)))
|
||||
#define CURRENTINPUT(x) (*((ptr *)((uptr)(x)+448)))
|
||||
#define CURRENTMSO(x) (*((ptr *)((uptr)(x)+488)))
|
||||
#define CURRENTOUTPUT(x) (*((ptr *)((uptr)(x)+456)))
|
||||
#define DEFAULTRECORDEQUALPROCEDURE(x) (*((ptr *)((uptr)(x)+616)))
|
||||
#define DEFAULTRECORDHASHPROCEDURE(x) (*((ptr *)((uptr)(x)+624)))
|
||||
#define DISABLECOUNT(x) (*((ptr *)((uptr)(x)+408)))
|
||||
#define EAP(x) (*((void* *)((uptr)(x)+88)))
|
||||
#define ESP(x) (*((void* *)((uptr)(x)+72)))
|
||||
#define FXFIRSTBITSETBV(x) (*((ptr *)((uptr)(x)+512)))
|
||||
#define FXLENGTHBV(x) (*((ptr *)((uptr)(x)+504)))
|
||||
#define GENERATEINSPECTORINFORMATION(x) (*((ptr *)((uptr)(x)+568)))
|
||||
#define GENERATEPROCEDURESOURCEINFORMATION(x) (*((ptr *)((uptr)(x)+576)))
|
||||
#define GENERATEPROFILEFORMS(x) (*((ptr *)((uptr)(x)+584)))
|
||||
#define GUARDIANENTRIES(x) (*((ptr *)((uptr)(x)+280)))
|
||||
#define INSTRCOUNTER(x) (*((U64 *)((uptr)(x)+656)))
|
||||
#define KEYBOARDINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+432)))
|
||||
#define LZ4OUTBUFFER(x) (*((void* *)((uptr)(x)+648)))
|
||||
#define METALEVEL(x) (*((ptr *)((uptr)(x)+552)))
|
||||
#define NULLIMMUTABLEBYTEVECTOR(x) (*((ptr *)((uptr)(x)+536)))
|
||||
#define NULLIMMUTABLEFXVECTOR(x) (*((ptr *)((uptr)(x)+528)))
|
||||
#define NULLIMMUTABLESTRING(x) (*((ptr *)((uptr)(x)+544)))
|
||||
#define NULLIMMUTABLEVECTOR(x) (*((ptr *)((uptr)(x)+520)))
|
||||
#define OPTIMIZELEVEL(x) (*((ptr *)((uptr)(x)+592)))
|
||||
#define PARAMETERS(x) (*((ptr *)((uptr)(x)+672)))
|
||||
#define RANDOMSEED(x) (*((U32 *)((uptr)(x)+304)))
|
||||
#define REAL_EAP(x) (*((void* *)((uptr)(x)+144)))
|
||||
#define RET(x) (*((void* *)((uptr)(x)+96)))
|
||||
#define SCHEMESTACK(x) (*((void* *)((uptr)(x)+312)))
|
||||
#define SCHEMESTACKSIZE(x) (*((iptr *)((uptr)(x)+336)))
|
||||
#define SFD(x) (*((ptr *)((uptr)(x)+480)))
|
||||
#define SFP(x) (*((void* *)((uptr)(x)+56)))
|
||||
#define SIGNALINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+416)))
|
||||
#define SIGNALINTERRUPTQUEUE(x) (*((ptr *)((uptr)(x)+424)))
|
||||
#define SOMETHINGPENDING(x) (*((ptr *)((uptr)(x)+392)))
|
||||
#define STACKCACHE(x) (*((ptr *)((uptr)(x)+320)))
|
||||
#define STACKLINK(x) (*((ptr *)((uptr)(x)+328)))
|
||||
#define SUBSETMODE(x) (*((ptr *)((uptr)(x)+600)))
|
||||
#define SUPPRESSPRIMITIVEINLINING(x) (*((ptr *)((uptr)(x)+608)))
|
||||
#define TARGETMACHINE(x) (*((ptr *)((uptr)(x)+496)))
|
||||
#define TD(x) (*((void* *)((uptr)(x)+136)))
|
||||
#define THREADNO(x) (*((ptr *)((uptr)(x)+440)))
|
||||
#define TIMERTICKS(x) (*((ptr *)((uptr)(x)+400)))
|
||||
#define TRAP(x) (*((void* *)((uptr)(x)+104)))
|
||||
#define TS(x) (*((void* *)((uptr)(x)+128)))
|
||||
#define VIRTUALREGISTERS(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
#define WINDERS(x) (*((ptr *)((uptr)(x)+344)))
|
||||
#define XP(x) (*((void* *)((uptr)(x)+112)))
|
||||
#define YP(x) (*((void* *)((uptr)(x)+120)))
|
||||
#define ARGREG(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define VIRTREG(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
|
||||
/* library entries we access from C code */
|
||||
#define library_nonprocedure_code 152
|
||||
#define library_dounderflow 154
|
||||
BIN
boot/ta6nt/petite.boot
Normal file
BIN
boot/ta6nt/petite.boot
Normal file
Binary file not shown.
BIN
boot/ta6nt/scheme.boot
Normal file
BIN
boot/ta6nt/scheme.boot
Normal file
Binary file not shown.
223
boot/ta6nt/scheme.h
Normal file
223
boot/ta6nt/scheme.h
Normal file
|
|
@ -0,0 +1,223 @@
|
|||
/* scheme.h for Chez Scheme Version 9.5.9 (ta6nt) */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct scheme.h */
|
||||
/* for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Specify declaration of exports. */
|
||||
#ifdef _WIN32
|
||||
# if __cplusplus
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern "C" __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern "C" __declspec (dllexport)
|
||||
# endif
|
||||
# else
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern
|
||||
# else
|
||||
# define EXPORT extern __declspec (dllexport)
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# if __cplusplus
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern
|
||||
# endif
|
||||
#endif
|
||||
|
||||
/* Chez Scheme Version and machine type */
|
||||
#define VERSION "9.5.9"
|
||||
#define MACHINE_TYPE "ta6nt"
|
||||
|
||||
/* All Scheme objects are of type ptr. Type iptr and */
|
||||
/* uptr are signed and unsigned ints of the same size */
|
||||
/* as a ptr */
|
||||
typedef void * ptr;
|
||||
typedef long long int iptr;
|
||||
typedef unsigned long long int uptr;
|
||||
|
||||
/* String elements are 32-bit tagged char objects */
|
||||
typedef unsigned int string_char;
|
||||
|
||||
/* Bytevector elements are 8-bit unsigned "octets" */
|
||||
typedef unsigned char octet;
|
||||
|
||||
/* Type predicates */
|
||||
#define Sfixnump(x) (((uptr)(x)&0x7)==0x0)
|
||||
#define Scharp(x) (((uptr)(x)&0xFF)==0x16)
|
||||
#define Snullp(x) ((uptr)(x)==0x26)
|
||||
#define Seof_objectp(x) ((uptr)(x)==0x36)
|
||||
#define Sbwp_objectp(x) ((uptr)(x)==0x4E)
|
||||
#define Sbooleanp(x) (((uptr)(x)&0xF7)==0x6)
|
||||
#define Spairp(x) (((uptr)(x)&0x7)==0x1)
|
||||
#define Ssymbolp(x) (((uptr)(x)&0x7)==0x3)
|
||||
#define Sprocedurep(x) (((uptr)(x)&0x7)==0x5)
|
||||
#define Sflonump(x) (((uptr)(x)&0x7)==0x2)
|
||||
#define Svectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x0))
|
||||
#define Sfxvectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x3))
|
||||
#define Sbytevectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x1))
|
||||
#define Sstringp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x2))
|
||||
#define Sbignump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1F)==0x6))
|
||||
#define Sboxp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7F)==0xE))
|
||||
#define Sinexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x36))
|
||||
#define Sexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x56))
|
||||
#define Sratnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x16))
|
||||
#define Sinputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1FF)==0x11E))
|
||||
#define Soutputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x2FF)==0x21E))
|
||||
#define Srecordp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x7))
|
||||
|
||||
/* Accessors */
|
||||
#define Sfixnum_value(x) ((iptr)(x)/8)
|
||||
#define Schar_value(x) ((string_char)((uptr)(x)>>8))
|
||||
#define Sboolean_value(x) ((x) != Sfalse)
|
||||
#define Scar(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define Scdr(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define Sflonum_value(x) (*((double *)((uptr)(x)+6)))
|
||||
#define Svector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Svector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sfxvector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sfxvector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sbytevector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Sbytevector_u8_ref(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
/* Warning: Sbytevector_data(x) returns a pointer into x. */
|
||||
#define Sbytevector_data(x) &Sbytevector_u8_ref(x,0)
|
||||
#define Sstring_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sstring_ref(x,i) Schar_value(((string_char *)((uptr)(x)+9))[i])
|
||||
#define Sunbox(x) (*((ptr *)((uptr)(x)+9)))
|
||||
EXPORT iptr Sinteger_value(ptr);
|
||||
#define Sunsigned_value(x) (uptr)Sinteger_value(x)
|
||||
EXPORT int Sinteger32_value(ptr);
|
||||
#define Sunsigned32_value(x) (unsigned int)Sinteger32_value(x)
|
||||
EXPORT long long Sinteger64_value(ptr);
|
||||
#define Sunsigned64_value(x) (unsigned long long)Sinteger64_value(x)
|
||||
|
||||
/* Mutators */
|
||||
EXPORT void Sset_box(ptr, ptr);
|
||||
EXPORT void Sset_car(ptr, ptr);
|
||||
EXPORT void Sset_cdr(ptr, ptr);
|
||||
#define Sstring_set(x,i,c) ((void)((((string_char *)((uptr)(x)+9))[i]) = (string_char)(uptr)Schar(c)))
|
||||
#define Sfxvector_set(x,i,n) ((void)(Sfxvector_ref(x,i) = (n)))
|
||||
#define Sbytevector_u8_set(x,i,n) ((void)(Sbytevector_u8_ref(x,i) = (n)))
|
||||
EXPORT void Svector_set(ptr, iptr, ptr);
|
||||
|
||||
/* Constructors */
|
||||
#define Sfixnum(x) ((ptr)(uptr)((x)*8))
|
||||
#define Schar(x) ((ptr)(uptr)((x)<<8|0x16))
|
||||
#define Snil ((ptr)0x26)
|
||||
#define Strue ((ptr)0xE)
|
||||
#define Sfalse ((ptr)0x6)
|
||||
#define Sboolean(x) ((x)?Strue:Sfalse)
|
||||
#define Sbwp_object ((ptr)0x4E)
|
||||
#define Seof_object ((ptr)0x36)
|
||||
#define Svoid ((ptr)0x3E)
|
||||
EXPORT ptr Scons(ptr, ptr);
|
||||
EXPORT ptr Sstring_to_symbol(const char *);
|
||||
EXPORT ptr Ssymbol_to_string(ptr);
|
||||
EXPORT ptr Sflonum(double);
|
||||
EXPORT ptr Smake_vector(iptr, ptr);
|
||||
EXPORT ptr Smake_fxvector(iptr, ptr);
|
||||
EXPORT ptr Smake_bytevector(iptr, int);
|
||||
EXPORT ptr Smake_string(iptr, int);
|
||||
EXPORT ptr Smake_uninitialized_string(iptr);
|
||||
EXPORT ptr Sstring(const char *);
|
||||
EXPORT ptr Sstring_of_length(const char *, iptr);
|
||||
EXPORT ptr Sstring_utf8(const char*, iptr);
|
||||
EXPORT ptr Sbox(ptr);
|
||||
EXPORT ptr Sinteger(iptr);
|
||||
EXPORT ptr Sunsigned(uptr);
|
||||
EXPORT ptr Sinteger32(int);
|
||||
EXPORT ptr Sunsigned32(unsigned int);
|
||||
EXPORT ptr Sinteger64(long long);
|
||||
EXPORT ptr Sunsigned64(unsigned long long);
|
||||
|
||||
/* Miscellaneous */
|
||||
EXPORT ptr Stop_level_value(ptr);
|
||||
EXPORT void Sset_top_level_value(ptr, ptr);
|
||||
EXPORT void Slock_object(ptr);
|
||||
EXPORT void Sunlock_object(ptr);
|
||||
EXPORT int Slocked_objectp(ptr);
|
||||
EXPORT void Sforeign_symbol(const char *, void *);
|
||||
EXPORT void Sregister_symbol(const char *, void *);
|
||||
|
||||
/* Support for calls into Scheme */
|
||||
EXPORT ptr Scall0(ptr);
|
||||
EXPORT ptr Scall1(ptr, ptr);
|
||||
EXPORT ptr Scall2(ptr, ptr, ptr);
|
||||
EXPORT ptr Scall3(ptr, ptr, ptr, ptr);
|
||||
EXPORT void Sinitframe(iptr);
|
||||
EXPORT void Sput_arg(iptr, ptr);
|
||||
EXPORT ptr Scall(ptr, iptr);
|
||||
/* Warning: Sforeign_callable_entry_point(x) returns a pointer into x. */
|
||||
#define Sforeign_callable_entry_point(x) ((void (*)(void))((uptr)(x)+65))
|
||||
#define Sforeign_callable_code_object(x) ((ptr)((uptr)(x)-65))
|
||||
|
||||
/* Customization support. */
|
||||
EXPORT const char * Skernel_version(void);
|
||||
EXPORT void Sretain_static_relocation(void);
|
||||
EXPORT void Sset_verbose(int);
|
||||
EXPORT void Sscheme_init(void (*)(void));
|
||||
EXPORT void Sregister_boot_file(const char *);
|
||||
EXPORT void Sregister_boot_file_fd(const char *, int fd);
|
||||
EXPORT void Sregister_heap_file(const char *);
|
||||
EXPORT void Scompact_heap(void);
|
||||
EXPORT void Ssave_heap(const char *, int);
|
||||
EXPORT void Sbuild_heap(const char *, void (*)(void));
|
||||
EXPORT void Senable_expeditor(const char *);
|
||||
EXPORT int Sscheme_start(int, const char *[]);
|
||||
EXPORT int Sscheme_script(const char *, int, const char *[]);
|
||||
EXPORT int Sscheme_program(const char *, int, const char *[]);
|
||||
EXPORT void Sscheme_deinit(void);
|
||||
|
||||
/* Thread support. */
|
||||
EXPORT int Sactivate_thread(void);
|
||||
EXPORT void Sdeactivate_thread(void);
|
||||
EXPORT int Sdestroy_thread(void);
|
||||
|
||||
/* Windows support. */
|
||||
#include <wchar.h>
|
||||
EXPORT char * Sgetenv(const char *);
|
||||
EXPORT wchar_t * Sutf8_to_wide(const char *);
|
||||
EXPORT char * Swide_to_utf8(const wchar_t *);
|
||||
|
||||
/* Features. */
|
||||
#define FEATURE_ICONV
|
||||
#define FEATURE_EXPEDITOR
|
||||
#define FEATURE_PTHREADS
|
||||
#define FEATURE_WINDOWS
|
||||
|
||||
/* Locking macros. */
|
||||
#define INITLOCK(addr) (*((long long *) addr) = 0)
|
||||
|
||||
#define SPINLOCK(addr) \
|
||||
{ \
|
||||
while (_InterlockedExchange64(addr, 1) != 0) { \
|
||||
while(*((long long *) addr) != 0); \
|
||||
} \
|
||||
} while(0)
|
||||
|
||||
#define UNLOCK(addr) (*((long long *) addr) = 0)
|
||||
|
||||
#define LOCKED_INCR(addr, res) (res = (-1 == _InterlockedExchangeAdd64(addr, 1)))
|
||||
|
||||
#define LOCKED_DECR(addr, res) (res = (1 == _InterlockedExchangeAdd64(addr, -1)))
|
||||
993
boot/ta6ob/equates.h
Normal file
993
boot/ta6ob/equates.h
Normal file
|
|
@ -0,0 +1,993 @@
|
|||
/* equates.h for Chez Scheme Version 9.5.9 */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct version */
|
||||
/* of this file for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Integer typedefs */
|
||||
typedef char I8;
|
||||
typedef unsigned char U8;
|
||||
typedef short I16;
|
||||
typedef unsigned short U16;
|
||||
typedef int I32;
|
||||
typedef unsigned int U32;
|
||||
typedef long I64;
|
||||
typedef unsigned long U64;
|
||||
|
||||
/* constants from cmacros.ss */
|
||||
#define $c_func_closure_index 0x4
|
||||
#define $c_func_closure_record_index 0x3
|
||||
#define $c_func_code_object_index 0x2
|
||||
#define $c_func_code_record_index 0x1
|
||||
#define COMPRESS_FORMAT_BITS 0x3
|
||||
#define COMPRESS_GZIP 0x0
|
||||
#define COMPRESS_HIGH 0x3
|
||||
#define COMPRESS_LOW 0x1
|
||||
#define COMPRESS_LZ4 0x1
|
||||
#define COMPRESS_MAX 0x4
|
||||
#define COMPRESS_MEDIUM 0x2
|
||||
#define COMPRESS_MIN 0x0
|
||||
#define ERROR_CALL_ARGUMENT_COUNT 0x4
|
||||
#define ERROR_CALL_NONPROCEDURE 0x3
|
||||
#define ERROR_CALL_NONPROCEDURE_SYMBOL 0x2
|
||||
#define ERROR_CALL_UNBOUND 0x1
|
||||
#define ERROR_MVLET 0x8
|
||||
#define ERROR_NONCONTINUABLE_INTERRUPT 0x6
|
||||
#define ERROR_OTHER 0x0
|
||||
#define ERROR_RESET 0x5
|
||||
#define ERROR_VALUES 0x7
|
||||
#define OPEN_ERROR_EXISTS 0x2
|
||||
#define OPEN_ERROR_EXISTSNOT 0x3
|
||||
#define OPEN_ERROR_OTHER 0x0
|
||||
#define OPEN_ERROR_PROTECTION 0x1
|
||||
#define PORT_FLAG_BINARY 0x400
|
||||
#define PORT_FLAG_BLOCK_BUFFERED 0x20000
|
||||
#define PORT_FLAG_BOL 0x8000
|
||||
#define PORT_FLAG_CHAR_POSITIONS 0x100000
|
||||
#define PORT_FLAG_CLOSED 0x800
|
||||
#define PORT_FLAG_COMPRESSED 0x2000
|
||||
#define PORT_FLAG_EOF 0x10000
|
||||
#define PORT_FLAG_EXCLUSIVE 0x4000
|
||||
#define PORT_FLAG_FILE 0x1000
|
||||
#define PORT_FLAG_FOLD_CASE 0x400000
|
||||
#define PORT_FLAG_INPUT 0x100
|
||||
#define PORT_FLAG_INPUT_MODE 0x80000
|
||||
#define PORT_FLAG_LINE_BUFFERED 0x40000
|
||||
#define PORT_FLAG_NO_FOLD_CASE 0x800000
|
||||
#define PORT_FLAG_OUTPUT 0x200
|
||||
#define PORT_FLAG_R6RS 0x200000
|
||||
#define SAPPEND 0x3
|
||||
#define SDEFAULT 0x4
|
||||
#define SEOF -0x1
|
||||
#define SERROR 0x0
|
||||
#define SICONV_DUNNO 0x0
|
||||
#define SICONV_INCOMPLETE 0x2
|
||||
#define SICONV_INVALID 0x1
|
||||
#define SICONV_NOROOM 0x3
|
||||
#define SREPLACE 0x2
|
||||
#define STRVNCATE 0x1
|
||||
#define address_bits 0x40
|
||||
#define alloc_waste_maximum 0x800
|
||||
#define annotation_all 0x3
|
||||
#define annotation_debug 0x1
|
||||
#define annotation_profile 0x2
|
||||
#define architecture x86_64
|
||||
#define asm_arg_reg_cnt 0x3
|
||||
#define asm_arg_reg_max 0x5
|
||||
#define bigit_bits 0x20
|
||||
#define bigit_bytes 0x4
|
||||
#define bignum_data_disp 0x9
|
||||
#define bignum_length_factor 0x40
|
||||
#define bignum_length_offset 0x6
|
||||
#define bignum_sign_offset 0x5
|
||||
#define bignum_type_disp 0x1
|
||||
#define black_hole (ptr)0x46
|
||||
#define box_ref_disp 0x9
|
||||
#define box_type_disp 0x1
|
||||
#define byte_alignment 0x10
|
||||
#define byte_constant_mask 0xFFFFFFFFFFFFFFFF
|
||||
#define bytes_per_card 0x200
|
||||
#define bytes_per_segment 0x4000
|
||||
#define bytevector_data_disp 0x9
|
||||
#define bytevector_immutable_flag 0x4
|
||||
#define bytevector_length_factor 0x8
|
||||
#define bytevector_length_offset 0x3
|
||||
#define bytevector_type_disp 0x1
|
||||
#define c_entry_name_vector #(thread-context get-thread-context handle-apply-overflood handle-docall-error handle-overflow handle-overflood handle-nonprocedure-symbol thread-list split-and-resize raw-collect-cond raw-tc-mutex activate-thread deactivate-thread unactivate-thread handle-values-error handle-mvlet-error handle-arg-error foreign-entry install-library-entry get-more-room scan-remembered-set instantiate-code-object Sreturn Scall-one-result Scall-any-results)
|
||||
#define c_entry_vector_size 0x19
|
||||
#define cached_stack_link_disp 0x8
|
||||
#define cached_stack_size_disp 0x0
|
||||
#define card_offset_bits 0x9
|
||||
#define cards_per_segment 0x20
|
||||
#define char_data_offset 0x8
|
||||
#define char_factor 0x100
|
||||
#define closure_code_disp 0x3
|
||||
#define closure_data_disp 0xB
|
||||
#define code_arity_mask_disp 0x21
|
||||
#define code_closure_length_disp 0x29
|
||||
#define code_data_disp 0x41
|
||||
#define code_flag_continuation 0x2
|
||||
#define code_flag_guardian 0x8
|
||||
#define code_flag_system 0x1
|
||||
#define code_flag_template 0x4
|
||||
#define code_flags_offset 0x8
|
||||
#define code_info_disp 0x31
|
||||
#define code_length_disp 0x9
|
||||
#define code_name_disp 0x19
|
||||
#define code_pinfos_disp 0x39
|
||||
#define code_reloc_disp 0x11
|
||||
#define code_type_disp 0x1
|
||||
#define collect_interrupt_index 0x1
|
||||
#define continuation_code_disp 0x3
|
||||
#define continuation_link_disp 0x23
|
||||
#define continuation_return_address_disp 0x2B
|
||||
#define continuation_stack_clength_disp 0x1B
|
||||
#define continuation_stack_disp 0xB
|
||||
#define continuation_stack_length_disp 0x13
|
||||
#define continuation_winders_disp 0x33
|
||||
#define countof_bignum 0x5
|
||||
#define countof_box 0x9
|
||||
#define countof_bytevector 0x15
|
||||
#define countof_closure 0x3
|
||||
#define countof_code 0xB
|
||||
#define countof_continuation 0x4
|
||||
#define countof_ephemeron 0x19
|
||||
#define countof_exactnum 0x8
|
||||
#define countof_flonum 0x2
|
||||
#define countof_fxvector 0x14
|
||||
#define countof_guardian 0x17
|
||||
#define countof_inexactnum 0x7
|
||||
#define countof_locked 0x16
|
||||
#define countof_oblist 0x18
|
||||
#define countof_pair 0x0
|
||||
#define countof_port 0xA
|
||||
#define countof_ratnum 0x6
|
||||
#define countof_relocation_table 0x10
|
||||
#define countof_rtd_counts 0xE
|
||||
#define countof_stack 0xF
|
||||
#define countof_string 0x13
|
||||
#define countof_symbol 0x1
|
||||
#define countof_thread 0xC
|
||||
#define countof_tlc 0xD
|
||||
#define countof_types 0x1A
|
||||
#define countof_vector 0x12
|
||||
#define countof_weakpair 0x11
|
||||
#define default_collect_trip_bytes 0x800000
|
||||
#define default_heap_reserve_ratio 1.0
|
||||
#define default_max_nonstatic_generation 0x4
|
||||
#define default_stack_size 0xFFF0
|
||||
#define default_timer_ticks 0x3E8
|
||||
#define dtvec_hour 0x3
|
||||
#define dtvec_isdst 0x9
|
||||
#define dtvec_mday 0x4
|
||||
#define dtvec_min 0x2
|
||||
#define dtvec_mon 0x5
|
||||
#define dtvec_nsec 0x0
|
||||
#define dtvec_sec 0x1
|
||||
#define dtvec_size 0xC
|
||||
#define dtvec_tzname 0xB
|
||||
#define dtvec_tzoff 0xA
|
||||
#define dtvec_wday 0x7
|
||||
#define dtvec_yday 0x8
|
||||
#define dtvec_year 0x6
|
||||
#define ephemeron_car_disp 0x7
|
||||
#define ephemeron_cdr_disp 0xF
|
||||
#define ephemeron_next_disp 0x17
|
||||
#define ephemeron_trigger_next_disp 0x1F
|
||||
#define eq_hashtable_subtype_ephemeron 0x2
|
||||
#define eq_hashtable_subtype_normal 0x0
|
||||
#define eq_hashtable_subtype_weak 0x1
|
||||
#define exactnum_imag_disp 0x11
|
||||
#define exactnum_real_disp 0x9
|
||||
#define exactnum_type_disp 0x1
|
||||
#define fasl_fld_double 0xA
|
||||
#define fasl_fld_i16 0x2
|
||||
#define fasl_fld_i24 0x3
|
||||
#define fasl_fld_i32 0x4
|
||||
#define fasl_fld_i40 0x5
|
||||
#define fasl_fld_i48 0x6
|
||||
#define fasl_fld_i56 0x7
|
||||
#define fasl_fld_i64 0x8
|
||||
#define fasl_fld_ptr 0x0
|
||||
#define fasl_fld_single 0x9
|
||||
#define fasl_fld_u8 0x1
|
||||
#define fasl_header #vu8(0 0 0 0 99 104 101 122)
|
||||
#define fasl_type_base_rtd 0x1A
|
||||
#define fasl_type_box 0x1
|
||||
#define fasl_type_bytevector 0x1D
|
||||
#define fasl_type_closure 0x6
|
||||
#define fasl_type_code 0xB
|
||||
#define fasl_type_entry 0xD
|
||||
#define fasl_type_ephemeron 0x1C
|
||||
#define fasl_type_eq_hashtable 0x1F
|
||||
#define fasl_type_exactnum 0x14
|
||||
#define fasl_type_flonum 0x8
|
||||
#define fasl_type_fxvector 0x1B
|
||||
#define fasl_type_gensym 0x13
|
||||
#define fasl_type_graph 0x10
|
||||
#define fasl_type_graph_def 0x11
|
||||
#define fasl_type_graph_ref 0x12
|
||||
#define fasl_type_gzip 0x2B
|
||||
#define fasl_type_header 0x0
|
||||
#define fasl_type_immediate 0xC
|
||||
#define fasl_type_immutable_box 0x29
|
||||
#define fasl_type_immutable_bytevector 0x28
|
||||
#define fasl_type_immutable_fxvector 0x27
|
||||
#define fasl_type_immutable_string 0x26
|
||||
#define fasl_type_immutable_vector 0x25
|
||||
#define fasl_type_inexactnum 0x5
|
||||
#define fasl_type_large_integer 0xA
|
||||
#define fasl_type_library 0xE
|
||||
#define fasl_type_library_code 0xF
|
||||
#define fasl_type_lz4 0x2C
|
||||
#define fasl_type_pair 0x7
|
||||
#define fasl_type_ratnum 0x3
|
||||
#define fasl_type_record 0x17
|
||||
#define fasl_type_revisit 0x23
|
||||
#define fasl_type_rtd 0x18
|
||||
#define fasl_type_small_integer 0x19
|
||||
#define fasl_type_string 0x9
|
||||
#define fasl_type_symbol 0x2
|
||||
#define fasl_type_symbol_hashtable 0x20
|
||||
#define fasl_type_uncompressed 0x2A
|
||||
#define fasl_type_vector 0x4
|
||||
#define fasl_type_visit 0x22
|
||||
#define fasl_type_visit_revisit 0x24
|
||||
#define fasl_type_weak_pair 0x1E
|
||||
#define fixnum_bits 0x3D
|
||||
#define fixnum_factor 0x8
|
||||
#define fixnum_offset 0x3
|
||||
#define fld_byte_index 0x4
|
||||
#define fld_mutablep_index 0x2
|
||||
#define fld_name_index 0x1
|
||||
#define fld_type_index 0x3
|
||||
#define flonum_data_disp 0x6
|
||||
#define forward_address_disp 0x8
|
||||
#define forward_marker (ptr)0x2E
|
||||
#define forward_marker_disp 0x0
|
||||
#define ftype_guardian_rep (ptr)0x56
|
||||
#define fxvector_data_disp 0x9
|
||||
#define fxvector_immutable_flag 0x8
|
||||
#define fxvector_length_factor 0x10
|
||||
#define fxvector_length_offset 0x4
|
||||
#define fxvector_type_disp 0x1
|
||||
#define guardian_entry_next_disp 0x18
|
||||
#define guardian_entry_obj_disp 0x0
|
||||
#define guardian_entry_rep_disp 0x8
|
||||
#define guardian_entry_tconc_disp 0x10
|
||||
#define hashtable_default_size 0x8
|
||||
#define header_size_bignum 0x8
|
||||
#define header_size_bytevector 0x8
|
||||
#define header_size_closure 0x8
|
||||
#define header_size_code 0x40
|
||||
#define header_size_fxvector 0x8
|
||||
#define header_size_record 0x8
|
||||
#define header_size_reloc_table 0x10
|
||||
#define header_size_string 0x8
|
||||
#define header_size_vector 0x8
|
||||
#define ignore_event_flag 0x0
|
||||
#define inexactnum_imag_disp 0x19
|
||||
#define inexactnum_pad_disp 0x9
|
||||
#define inexactnum_real_disp 0x11
|
||||
#define inexactnum_type_disp 0x1
|
||||
#define int_bits 0x20
|
||||
#define integer_divide_instruction 1
|
||||
#define keyboard_interrupt_index 0x3
|
||||
#define library_entry_vector_size 0x210
|
||||
#define libspec_closure_index 0xD
|
||||
#define libspec_does_not_expect_headroom_index 0x0
|
||||
#define libspec_error_index 0xE
|
||||
#define libspec_fake_index 0x10
|
||||
#define libspec_flags_index 0x2
|
||||
#define libspec_has_does_not_expect_headroom_version_index 0xF
|
||||
#define libspec_index_base_offset 0x1
|
||||
#define libspec_index_base_size 0x9
|
||||
#define libspec_index_offset 0x0
|
||||
#define libspec_index_size 0xA
|
||||
#define libspec_interface_offset 0xA
|
||||
#define libspec_interface_size 0x3
|
||||
#define libspec_name_index 0x1
|
||||
#define log2_ptr_bytes 0x3
|
||||
#define long_bits 0x40
|
||||
#define long_long_bits 0x40
|
||||
#define machine_type 0x10
|
||||
#define machine_type_a6fb 0x15
|
||||
#define machine_type_a6le 0xB
|
||||
#define machine_type_a6nb 0x19
|
||||
#define machine_type_a6nt 0x1B
|
||||
#define machine_type_a6ob 0xF
|
||||
#define machine_type_a6osx 0xD
|
||||
#define machine_type_a6s2 0x11
|
||||
#define machine_type_alist ((0 . any) (1 . i3le) (2 . ti3le) (3 . i3nt) (4 . ti3nt) (5 . i3fb) (6 . ti3fb) (7 . i3ob) (8 . ti3ob) (9 . i3osx) (10 . ti3osx) (11 . a6le) (12 . ta6le) (13 . a6osx) (14 . ta6osx) (15 . a6ob) (16 . ta6ob) (17 . a6s2) (18 . ta6s2) (19 . i3s2) (20 . ti3s2) (21 . a6fb) (22 . ta6fb) (23 . i3nb) (24 . ti3nb) (25 . a6nb) (26 . ta6nb) (27 . a6nt) (28 . ta6nt) (29 . i3qnx) (30 . ti3qnx) (31 . arm32le) (32 . tarm32le) (33 . ppc32le) (34 . tppc32le))
|
||||
#define machine_type_any 0x0
|
||||
#define machine_type_arm32le 0x1F
|
||||
#define machine_type_i3fb 0x5
|
||||
#define machine_type_i3le 0x1
|
||||
#define machine_type_i3nb 0x17
|
||||
#define machine_type_i3nt 0x3
|
||||
#define machine_type_i3ob 0x7
|
||||
#define machine_type_i3osx 0x9
|
||||
#define machine_type_i3qnx 0x1D
|
||||
#define machine_type_i3s2 0x13
|
||||
#define machine_type_limit 0x23
|
||||
#define machine_type_name ta6ob
|
||||
#define machine_type_ppc32le 0x21
|
||||
#define machine_type_ta6fb 0x16
|
||||
#define machine_type_ta6le 0xC
|
||||
#define machine_type_ta6nb 0x1A
|
||||
#define machine_type_ta6nt 0x1C
|
||||
#define machine_type_ta6ob 0x10
|
||||
#define machine_type_ta6osx 0xE
|
||||
#define machine_type_ta6s2 0x12
|
||||
#define machine_type_tarm32le 0x20
|
||||
#define machine_type_ti3fb 0x6
|
||||
#define machine_type_ti3le 0x2
|
||||
#define machine_type_ti3nb 0x18
|
||||
#define machine_type_ti3nt 0x4
|
||||
#define machine_type_ti3ob 0x8
|
||||
#define machine_type_ti3osx 0xA
|
||||
#define machine_type_ti3qnx 0x1E
|
||||
#define machine_type_ti3s2 0x14
|
||||
#define machine_type_tppc32le 0x22
|
||||
#define mask_bignum 0x1F
|
||||
#define mask_bignum_sign 0x20
|
||||
#define mask_binary_input_port 0x5FF
|
||||
#define mask_binary_output_port 0x6FF
|
||||
#define mask_binary_port 0x4FF
|
||||
#define mask_boolean 0xF7
|
||||
#define mask_box 0x7F
|
||||
#define mask_bwp 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_bytevector 0x3
|
||||
#define mask_char 0xFF
|
||||
#define mask_closure 0x7
|
||||
#define mask_code 0xFF
|
||||
#define mask_continuation_code 0x2FF
|
||||
#define mask_eof 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_exactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_false 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_fixnum 0x7
|
||||
#define mask_flonum 0x7
|
||||
#define mask_fxvector 0x7
|
||||
#define mask_guardian_code 0x8FF
|
||||
#define mask_immediate 0x7
|
||||
#define mask_inexactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_input_port 0x1FF
|
||||
#define mask_mutable_box 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_mutable_bytevector 0x7
|
||||
#define mask_mutable_fxvector 0xF
|
||||
#define mask_mutable_string 0xF
|
||||
#define mask_mutable_vector 0xF
|
||||
#define mask_nil 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_octet -0x7F9
|
||||
#define mask_other_number 0xF
|
||||
#define mask_output_port 0x2FF
|
||||
#define mask_pair 0x7
|
||||
#define mask_port 0xFF
|
||||
#define mask_ratnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_record 0x7
|
||||
#define mask_rtd_counts 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_signed_bignum 0x3F
|
||||
#define mask_string 0x7
|
||||
#define mask_symbol 0x7
|
||||
#define mask_system_code 0x1FF
|
||||
#define mask_textual_input_port 0x5FF
|
||||
#define mask_textual_output_port 0x6FF
|
||||
#define mask_textual_port 0x4FF
|
||||
#define mask_thread 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_tlc 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_typed_object 0x7
|
||||
#define mask_unbound 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_vector 0x7
|
||||
#define max_float_alignment 0x8
|
||||
#define max_integer_alignment 0x8
|
||||
#define max_real_space 0xB
|
||||
#define max_space 0xC
|
||||
#define max_sweep_space 0xA
|
||||
#define maximum_bignum_length (iptr)0x3FFFFFFFFFFFFFF
|
||||
#define maximum_bytevector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_fxvector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_interrupt_index 0x4
|
||||
#define maximum_string_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_vector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define minimum_segment_request 0x80
|
||||
#define most_negative_fixnum (iptr)-0x1000000000000000
|
||||
#define most_positive_fixnum (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define native_endianness little
|
||||
#define one_shot_headroom 0xC00
|
||||
#define ordinary_type_bits 0x8
|
||||
#define pair_car_disp 0x7
|
||||
#define pair_cdr_disp 0xF
|
||||
#define pair_shift 0x4
|
||||
#define port_flag_binary 0x4
|
||||
#define port_flag_block_buffered 0x200
|
||||
#define port_flag_bol 0x80
|
||||
#define port_flag_char_positions 0x1000
|
||||
#define port_flag_closed 0x8
|
||||
#define port_flag_compressed 0x20
|
||||
#define port_flag_eof 0x100
|
||||
#define port_flag_exclusive 0x40
|
||||
#define port_flag_file 0x10
|
||||
#define port_flag_fold_case 0x4000
|
||||
#define port_flag_input 0x1
|
||||
#define port_flag_input_mode 0x800
|
||||
#define port_flag_line_buffered 0x400
|
||||
#define port_flag_no_fold_case 0x8000
|
||||
#define port_flag_output 0x2
|
||||
#define port_flag_r6rs 0x2000
|
||||
#define port_flags_offset 0x8
|
||||
#define port_handler_disp 0x9
|
||||
#define port_ibuffer_disp 0x39
|
||||
#define port_icount_disp 0x19
|
||||
#define port_ilast_disp 0x31
|
||||
#define port_info_disp 0x41
|
||||
#define port_name_disp 0x49
|
||||
#define port_obuffer_disp 0x29
|
||||
#define port_ocount_disp 0x11
|
||||
#define port_olast_disp 0x21
|
||||
#define port_type_disp 0x1
|
||||
#define prelex_is_flags_offset 0x8
|
||||
#define prelex_is_mask 0xFF00
|
||||
#define prelex_sticky_mask 0xFF
|
||||
#define prelex_was_flags_offset 0x10
|
||||
#define primary_type_bits 0x3
|
||||
#define ptr_bits 0x40
|
||||
#define ptr_bytes 0x8
|
||||
#define ptrdiff_t_bits 0x40
|
||||
#define ratnum_denominator_disp 0x11
|
||||
#define ratnum_numerator_disp 0x9
|
||||
#define ratnum_type_disp 0x1
|
||||
#define real_space_alist ((new . 0) (impure . 1) (symbol . 2) (port . 3) (weakpair . 4) (ephemeron . 5) (pure . 6) (continuation . 7) (code . 8) (pure-typed-object . 9) (impure-record . 10) (data . 11))
|
||||
#define record_data_disp 0x9
|
||||
#define record_type_counts_disp 0x49
|
||||
#define record_type_disp 0x1
|
||||
#define record_type_flags_disp 0x39
|
||||
#define record_type_flds_disp 0x31
|
||||
#define record_type_mpm_disp 0x21
|
||||
#define record_type_name_disp 0x29
|
||||
#define record_type_parent_disp 0x9
|
||||
#define record_type_pm_disp 0x19
|
||||
#define record_type_size_disp 0x11
|
||||
#define record_type_type_disp 0x1
|
||||
#define record_type_uid_disp 0x41
|
||||
#define reloc_abs 0x0
|
||||
#define reloc_code_offset_index 0x3
|
||||
#define reloc_code_offset_mask 0x3FFFFFF
|
||||
#define reloc_code_offset_offset 0x4
|
||||
#define reloc_extended_format 0x1
|
||||
#define reloc_item_offset_index 0x2
|
||||
#define reloc_item_offset_mask 0x3FFFFFF
|
||||
#define reloc_item_offset_offset 0x1E
|
||||
#define reloc_longp_index 0x4
|
||||
#define reloc_table_code_disp 0x8
|
||||
#define reloc_table_data_disp 0x10
|
||||
#define reloc_table_size_disp 0x0
|
||||
#define reloc_type_index 0x1
|
||||
#define reloc_type_mask 0x7
|
||||
#define reloc_type_offset 0x1
|
||||
#define reloc_x86_64_call 0x1
|
||||
#define reloc_x86_64_jump 0x2
|
||||
#define return_address_frame_size_disp -0x10
|
||||
#define return_address_livemask_disp -0x20
|
||||
#define return_address_mv_return_address_disp -0x8
|
||||
#define return_address_toplink_disp -0x18
|
||||
#define rp_header_frame_size_disp 0x10
|
||||
#define rp_header_livemask_disp 0x0
|
||||
#define rp_header_mv_return_address_disp 0x18
|
||||
#define rp_header_toplink_disp 0x8
|
||||
#define rtd_counts_data_disp 0x11
|
||||
#define rtd_counts_timestamp_disp 0x9
|
||||
#define rtd_counts_type_disp 0x1
|
||||
#define rtd_generative 0x1
|
||||
#define rtd_opaque 0x2
|
||||
#define rtd_sealed 0x4
|
||||
#define sbwp (ptr)0x4E
|
||||
#define scaled_shot_1_shot_flag -0x8
|
||||
#define scheme_version 0x90509
|
||||
#define segment_card_offset_bits 0x5
|
||||
#define segment_offset_bits 0xE
|
||||
#define segment_t1_bits 0x10
|
||||
#define segment_t2_bits 0x11
|
||||
#define segment_t3_bits 0x11
|
||||
#define segment_table_levels 0x3
|
||||
#define seof (ptr)0x36
|
||||
#define sfalse (ptr)0x6
|
||||
#define short_bits 0x10
|
||||
#define signal_interrupt_index 0x4
|
||||
#define size_box 0x10
|
||||
#define size_cached_stack 0x10
|
||||
#define size_continuation 0x40
|
||||
#define size_ephemeron 0x20
|
||||
#define size_exactnum 0x20
|
||||
#define size_flonum 0x10
|
||||
#define size_forward 0x10
|
||||
#define size_guardian_entry 0x20
|
||||
#define size_inexactnum 0x20
|
||||
#define size_pair 0x10
|
||||
#define size_port 0x50
|
||||
#define size_ratnum 0x20
|
||||
#define size_record_type 0x50
|
||||
#define size_rp_header 0x20
|
||||
#define size_rtd_counts 0x810
|
||||
#define size_symbol 0x30
|
||||
#define size_tc 0x2C0
|
||||
#define size_thread 0x10
|
||||
#define size_tlc 0x20
|
||||
#define size_typed_object 0x10
|
||||
#define size_t_bits 0x40
|
||||
#define snil (ptr)0x26
|
||||
#define space_char_list (#\n #\i #\x #\q #\w #\e #\p #\k #\c #\r #\s #\d #\e)
|
||||
#define space_cname_list ("new" "impure" "symbol" "port" "weakpr" "emph" "pure" "cont" "code" "p-tobj" "ip-rec" "data" "empty")
|
||||
#define space_code 0x8
|
||||
#define space_continuation 0x7
|
||||
#define space_data 0xB
|
||||
#define space_empty 0xC
|
||||
#define space_ephemeron 0x5
|
||||
#define space_impure 0x1
|
||||
#define space_impure_record 0xA
|
||||
#define space_locked 0x20
|
||||
#define space_new 0x0
|
||||
#define space_old 0x40
|
||||
#define space_port 0x3
|
||||
#define space_pure 0x6
|
||||
#define space_pure_typed_object 0x9
|
||||
#define space_symbol 0x2
|
||||
#define space_weakpair 0x4
|
||||
#define stack_frame_limit 0x200
|
||||
#define stack_slop 0x400
|
||||
#define static_generation 0xFF
|
||||
#define string_char_bits 0x20
|
||||
#define string_char_bytes 0x4
|
||||
#define string_char_offset 0x2
|
||||
#define string_data_disp 0x9
|
||||
#define string_immutable_flag 0x8
|
||||
#define string_length_factor 0x10
|
||||
#define string_length_offset 0x4
|
||||
#define string_type_disp 0x1
|
||||
#define strue (ptr)0xE
|
||||
#define sunbound (ptr)0x1E
|
||||
#define svoid (ptr)0x3E
|
||||
#define symbol_hash_disp 0x2D
|
||||
#define symbol_name_disp 0x1D
|
||||
#define symbol_plist_disp 0x15
|
||||
#define symbol_pvalue_disp 0xD
|
||||
#define symbol_splist_disp 0x25
|
||||
#define symbol_value_disp 0x5
|
||||
#define tc_DSTBV_disp 0x2A8
|
||||
#define tc_SRCBV_disp 0x2B0
|
||||
#define tc_U_disp 0x160
|
||||
#define tc_V_disp 0x168
|
||||
#define tc_W_disp 0x170
|
||||
#define tc_X_disp 0x178
|
||||
#define tc_Y_disp 0x180
|
||||
#define tc_ac0_disp 0x28
|
||||
#define tc_ac1_disp 0x30
|
||||
#define tc_active_disp 0x134
|
||||
#define tc_alloc_counter_disp 0x298
|
||||
#define tc_ap_disp 0x50
|
||||
#define tc_arg_regs_disp 0x0
|
||||
#define tc_block_counter_disp 0x1D8
|
||||
#define tc_cchain_disp 0x120
|
||||
#define tc_code_ranges_to_flush_disp 0x128
|
||||
#define tc_compile_profile_disp 0x230
|
||||
#define tc_compress_format_disp 0x278
|
||||
#define tc_compress_level_disp 0x280
|
||||
#define tc_cp_disp 0x40
|
||||
#define tc_current_error_disp 0x1D0
|
||||
#define tc_current_input_disp 0x1C0
|
||||
#define tc_current_mso_disp 0x1E8
|
||||
#define tc_current_output_disp 0x1C8
|
||||
#define tc_default_record_equal_procedure_disp 0x268
|
||||
#define tc_default_record_hash_procedure_disp 0x270
|
||||
#define tc_disable_count_disp 0x198
|
||||
#define tc_eap_disp 0x58
|
||||
#define tc_esp_disp 0x48
|
||||
#define tc_fxfirst_bit_set_bv_disp 0x200
|
||||
#define tc_fxlength_bv_disp 0x1F8
|
||||
#define tc_generate_inspector_information_disp 0x238
|
||||
#define tc_generate_procedure_source_information_disp 0x240
|
||||
#define tc_generate_profile_forms_disp 0x248
|
||||
#define tc_guardian_entries_disp 0x118
|
||||
#define tc_instr_counter_disp 0x290
|
||||
#define tc_keyboard_interrupt_pending_disp 0x1B0
|
||||
#define tc_lz4_out_buffer_disp 0x288
|
||||
#define tc_meta_level_disp 0x228
|
||||
#define tc_null_immutable_bytevector_disp 0x218
|
||||
#define tc_null_immutable_fxvector_disp 0x210
|
||||
#define tc_null_immutable_string_disp 0x220
|
||||
#define tc_null_immutable_vector_disp 0x208
|
||||
#define tc_optimize_level_disp 0x250
|
||||
#define tc_parameters_disp 0x2A0
|
||||
#define tc_random_seed_disp 0x130
|
||||
#define tc_real_eap_disp 0x90
|
||||
#define tc_ret_disp 0x60
|
||||
#define tc_scheme_stack_disp 0x138
|
||||
#define tc_scheme_stack_size_disp 0x150
|
||||
#define tc_sfd_disp 0x1E0
|
||||
#define tc_sfp_disp 0x38
|
||||
#define tc_signal_interrupt_pending_disp 0x1A0
|
||||
#define tc_signal_interrupt_queue_disp 0x1A8
|
||||
#define tc_something_pending_disp 0x188
|
||||
#define tc_stack_cache_disp 0x140
|
||||
#define tc_stack_link_disp 0x148
|
||||
#define tc_subset_mode_disp 0x258
|
||||
#define tc_suppress_primitive_inlining_disp 0x260
|
||||
#define tc_target_machine_disp 0x1F0
|
||||
#define tc_td_disp 0x88
|
||||
#define tc_threadno_disp 0x1B8
|
||||
#define tc_timer_ticks_disp 0x190
|
||||
#define tc_trap_disp 0x68
|
||||
#define tc_ts_disp 0x80
|
||||
#define tc_virtual_registers_disp 0x98
|
||||
#define tc_winders_disp 0x158
|
||||
#define tc_xp_disp 0x70
|
||||
#define tc_yp_disp 0x78
|
||||
#define thread_tc_disp 0x9
|
||||
#define thread_type_disp 0x1
|
||||
#define time_collector_cpu 0x5
|
||||
#define time_collector_real 0x6
|
||||
#define time_duration 0x2
|
||||
#define time_monotonic 0x3
|
||||
#define time_process 0x0
|
||||
#define time_t_bits 0x40
|
||||
#define time_thread 0x1
|
||||
#define time_utc 0x4
|
||||
#define timer_interrupt_index 0x2
|
||||
#define tlc_ht_disp 0x11
|
||||
#define tlc_keyval_disp 0x9
|
||||
#define tlc_next_disp 0x19
|
||||
#define tlc_type_disp 0x1
|
||||
#define type_bignum 0x6
|
||||
#define type_binary_input_port 0x51E
|
||||
#define type_binary_output_port 0x61E
|
||||
#define type_binary_port 0x41E
|
||||
#define type_boolean 0x6
|
||||
#define type_box 0xE
|
||||
#define type_bytevector 0x1
|
||||
#define type_char 0x16
|
||||
#define type_closure 0x5
|
||||
#define type_code 0x3E
|
||||
#define type_continuation_code 0x23E
|
||||
#define type_exactnum 0x56
|
||||
#define type_fixnum 0x0
|
||||
#define type_flonum 0x2
|
||||
#define type_fxvector 0x3
|
||||
#define type_guardian_code 0x83E
|
||||
#define type_immediate 0x6
|
||||
#define type_immutable_box 0x8E
|
||||
#define type_immutable_bytevector 0x5
|
||||
#define type_immutable_fxvector 0xB
|
||||
#define type_immutable_string 0xA
|
||||
#define type_immutable_vector 0x8
|
||||
#define type_inexactnum 0x36
|
||||
#define type_input_port 0x11E
|
||||
#define type_io_port 0x31E
|
||||
#define type_mutable_box 0xE
|
||||
#define type_mutable_bytevector 0x1
|
||||
#define type_mutable_fxvector 0x3
|
||||
#define type_mutable_string 0x2
|
||||
#define type_mutable_vector 0x0
|
||||
#define type_negative_bignum 0x26
|
||||
#define type_octet 0x0
|
||||
#define type_other_number 0x6
|
||||
#define type_output_port 0x21E
|
||||
#define type_pair 0x1
|
||||
#define type_port 0x1E
|
||||
#define type_positive_bignum 0x6
|
||||
#define type_ratnum 0x16
|
||||
#define type_record 0x7
|
||||
#define type_rtd_counts 0x6E
|
||||
#define type_string 0x2
|
||||
#define type_symbol 0x3
|
||||
#define type_system_code 0x13E
|
||||
#define type_textual_input_port 0x11E
|
||||
#define type_textual_output_port 0x21E
|
||||
#define type_textual_port 0x1E
|
||||
#define type_thread 0x4E
|
||||
#define type_tlc 0x5E
|
||||
#define type_typed_object 0x7
|
||||
#define type_vector 0x0
|
||||
#define typed_object_type_disp 0x1
|
||||
#define typedef_i16 "short"
|
||||
#define typedef_i32 "int"
|
||||
#define typedef_i64 "long"
|
||||
#define typedef_i8 "char"
|
||||
#define typedef_iptr "long int"
|
||||
#define typedef_ptr "void *"
|
||||
#define typedef_string_char "unsigned int"
|
||||
#define typedef_u16 "unsigned short"
|
||||
#define typedef_u32 "unsigned int"
|
||||
#define typedef_u64 "unsigned long"
|
||||
#define typedef_u8 "unsigned char"
|
||||
#define typedef_uptr "unsigned long int"
|
||||
#define typemod 0x8
|
||||
#define unactivate_mode_deactivate 0x1
|
||||
#define unactivate_mode_destroy 0x2
|
||||
#define unactivate_mode_noop 0x0
|
||||
#define unaligned_floats 1
|
||||
#define unaligned_integers 1
|
||||
#define underflow_limit 0x80
|
||||
#define unscaled_shot_1_shot_flag -0x1
|
||||
#define vector_data_disp 0x9
|
||||
#define vector_immutable_flag 0x8
|
||||
#define vector_length_factor 0x10
|
||||
#define vector_length_offset 0x4
|
||||
#define vector_type_disp 0x1
|
||||
#define virtual_register_count 0x10
|
||||
#define wchar_bits 0x20
|
||||
|
||||
/* constants from declare-c-entries */
|
||||
#define CENTRY_Scall_any_results 24
|
||||
#define CENTRY_Scall_one_result 23
|
||||
#define CENTRY_Sreturn 22
|
||||
#define CENTRY_activate_thread 11
|
||||
#define CENTRY_deactivate_thread 12
|
||||
#define CENTRY_foreign_entry 17
|
||||
#define CENTRY_get_more_room 19
|
||||
#define CENTRY_get_thread_context 1
|
||||
#define CENTRY_handle_apply_overflood 2
|
||||
#define CENTRY_handle_arg_error 16
|
||||
#define CENTRY_handle_docall_error 3
|
||||
#define CENTRY_handle_mvlet_error 15
|
||||
#define CENTRY_handle_nonprocedure_symbol 6
|
||||
#define CENTRY_handle_overflood 5
|
||||
#define CENTRY_handle_overflow 4
|
||||
#define CENTRY_handle_values_error 14
|
||||
#define CENTRY_install_library_entry 18
|
||||
#define CENTRY_instantiate_code_object 21
|
||||
#define CENTRY_raw_collect_cond 9
|
||||
#define CENTRY_raw_tc_mutex 10
|
||||
#define CENTRY_scan_remembered_set 20
|
||||
#define CENTRY_split_and_resize 8
|
||||
#define CENTRY_thread_context 0
|
||||
#define CENTRY_thread_list 7
|
||||
#define CENTRY_unactivate_thread 13
|
||||
|
||||
/* displacements for records */
|
||||
#define eq_hashtable_rtd_disp 1
|
||||
#define eq_hashtable_type_disp 9
|
||||
#define eq_hashtable_mutablep_disp 17
|
||||
#define eq_hashtable_vec_disp 25
|
||||
#define eq_hashtable_minlen_disp 33
|
||||
#define eq_hashtable_size_disp 41
|
||||
#define eq_hashtable_subtype_disp 49
|
||||
#define symbol_hashtable_rtd_disp 1
|
||||
#define symbol_hashtable_type_disp 9
|
||||
#define symbol_hashtable_mutablep_disp 17
|
||||
#define symbol_hashtable_vec_disp 25
|
||||
#define symbol_hashtable_minlen_disp 33
|
||||
#define symbol_hashtable_size_disp 41
|
||||
#define symbol_hashtable_equivp_disp 49
|
||||
#define code_info_rtd_disp 1
|
||||
#define code_info_src_disp 9
|
||||
#define code_info_sexpr_disp 17
|
||||
#define code_info_free_disp 25
|
||||
#define code_info_live_disp 33
|
||||
#define code_info_rpis_disp 41
|
||||
|
||||
/* predicates */
|
||||
#define Simmediatep(x) (((uptr)(x)&0x7)==0x6)
|
||||
#define Sportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x1E))
|
||||
#define Scodep(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x3E))
|
||||
|
||||
/* structure accessors */
|
||||
#define INITCAR(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define INITCDR(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define SETCAR(x,y) DIRTYSET(((ptr *)((uptr)(x)+7)),(y))
|
||||
#define SETCDR(x,y) DIRTYSET(((ptr *)((uptr)(x)+15)),(y))
|
||||
#define BOXTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITBOXREF(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define SETBOXREF(x,y) DIRTYSET(((ptr *)((uptr)(x)+9)),(y))
|
||||
#define EPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define INITEPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define EPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define INITEPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define TLCTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define TLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define TLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define TLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define INITTLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITTLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define INITTLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define SETTLCNEXT(x,y) DIRTYSET(((ptr *)((uptr)(x)+25)),(y))
|
||||
#define SYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define SYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define SYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define SYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define INITSYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITSYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITSYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define INITSYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define INITSYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define INITSYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define SETSYMVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define SETSYMPVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SETSYMPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+21)),(y))
|
||||
#define SETSYMNAME(x,y) DIRTYSET(((ptr *)((uptr)(x)+29)),(y))
|
||||
#define SETSYMSPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+37)),(y))
|
||||
#define SETSYMHASH(x,y) DIRTYSET(((ptr *)((uptr)(x)+45)),(y))
|
||||
#define VECTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define SETVECTIT(x,i,y) DIRTYSET((((ptr *)((uptr)(x)+9))+i),(y))
|
||||
#define FXVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define FXVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define BYTEVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BVIT(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
#define INEXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INEXACTNUM_REAL_PART(x) (*((double *)((uptr)(x)+17)))
|
||||
#define INEXACTNUM_IMAG_PART(x) (*((double *)((uptr)(x)+25)))
|
||||
#define EXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define EXACTNUM_REAL_PART(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define EXACTNUM_IMAG_PART(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RATTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RATNUM(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RATDEN(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CLOSENTRY(x) (*((ptr *)((uptr)(x)+3)))
|
||||
#define CLOSIT(x,i) (((ptr *)((uptr)(x)+11))[i])
|
||||
#define FLODAT(x) (*((double *)((uptr)(x)+6)))
|
||||
#define PORTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define PORTNAME(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define PORTHANDLER(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define PORTINFO(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define PORTOCNT(x) (*((iptr *)((uptr)(x)+17)))
|
||||
#define PORTOLAST(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define PORTOBUF(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define PORTICNT(x) (*((iptr *)((uptr)(x)+25)))
|
||||
#define PORTILAST(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define PORTIBUF(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define STRTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define STRIT(x,i) (((string_char *)((uptr)(x)+9))[i])
|
||||
#define BIGTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BIGIT(x,i) (((bigit *)((uptr)(x)+9))[i])
|
||||
#define CODETYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define CODELEN(x) (*((iptr *)((uptr)(x)+9)))
|
||||
#define CODERELOC(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CODENAME(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define CODEARITYMASK(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define CODEFREE(x) (*((iptr *)((uptr)(x)+41)))
|
||||
#define CODEINFO(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define CODEPINFOS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define CODEIT(x,i) (((octet *)((uptr)(x)+65))[i])
|
||||
#define RELOCSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define RELOCCODE(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RELOCIT(x,i) (((uptr *)((uptr)(x)+16))[i])
|
||||
#define CONTSTACK(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define CONTLENGTH(x) (*((iptr *)((uptr)(x)+19)))
|
||||
#define CONTCLENGTH(x) (*((iptr *)((uptr)(x)+27)))
|
||||
#define CONTLINK(x) (*((ptr *)((uptr)(x)+35)))
|
||||
#define CONTRET(x) (*((ptr *)((uptr)(x)+43)))
|
||||
#define CONTWINDERS(x) (*((ptr *)((uptr)(x)+51)))
|
||||
#define RTDCOUNTSTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RTDCOUNTSTIMESTAMP(x) (*((U64 *)((uptr)(x)+9)))
|
||||
#define RTDCOUNTSIT(x,i) (((uptr *)((uptr)(x)+17))[i])
|
||||
#define RECORDDESCPARENT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RECORDDESCSIZE(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RECORDDESCPM(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define RECORDDESCMPM(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define RECORDDESCNAME(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define RECORDDESCFLDS(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define RECORDDESCFLAGS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define RECORDDESCUID(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define RECORDDESCCOUNTS(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define RECORDINSTTYPE(x) (*((ptr *)((uptr)(x)+1)))
|
||||
#define RECORDINSTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define CLOSCODE(p) ((ptr)((uptr)CLOSENTRY(p)-code_data_disp))
|
||||
#define CODEENTRYPOINT(x) ((ptr)((uptr)(x)+code_data_disp))
|
||||
#define SETCLOSCODE(p,x) (CLOSENTRY(p) = CODEENTRYPOINT(x))
|
||||
#define SYMCODE(p) ((ptr)((uptr)SYMPVAL(p)-code_data_disp))
|
||||
#define INITSYMCODE(p,x) (INITSYMPVAL(p) = CODEENTRYPOINT(x))
|
||||
#define SETSYMCODE(p,x) SETSYMPVAL(p,CODEENTRYPOINT(x))
|
||||
#define BIGLEN(x) ((iptr)((uptr)BIGTYPE(x) >> bignum_length_offset))
|
||||
#define BIGSIGN(x) ((BIGTYPE(x) & mask_bignum_sign) >> bignum_sign_offset)
|
||||
#define SETBIGLENANDSIGN(x,xl,xs) BIGTYPE(x) = (uptr)(xl) << bignum_length_offset | (xs) << bignum_sign_offset | type_bignum
|
||||
#define CLOSLEN(p) CODEFREE(CLOSCODE(p))
|
||||
#define GUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define GUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define GUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define GUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define INITGUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define INITGUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define INITGUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define INITGUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define FORWARDMARKER(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define FORWARDADDRESS(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define CACHEDSTACKSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define CACHEDSTACKLINK(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RPHEADERFRAMESIZE(x) (*((iptr *)((uptr)(x)+16)))
|
||||
#define RPHEADERLIVEMASK(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define RPHEADERTOPLINK(x) (*((uptr *)((uptr)(x)+8)))
|
||||
|
||||
/* machine types */
|
||||
#define machine_type_names {"any", "i3le", "ti3le", "i3nt", "ti3nt", "i3fb", "ti3fb", "i3ob", "ti3ob", "i3osx", "ti3osx", "a6le", "ta6le", "a6osx", "ta6osx", "a6ob", "ta6ob", "a6s2", "ta6s2", "i3s2", "ti3s2", "a6fb", "ta6fb", "i3nb", "ti3nb", "a6nb", "ta6nb", "a6nt", "ta6nt", "i3qnx", "ti3qnx", "arm32le", "tarm32le", "ppc32le", "tppc32le"}
|
||||
|
||||
/* allocation-space names */
|
||||
#define alloc_space_names "new", "impure", "symbol", "port", "weakpr", "emph", "pure", "cont", "code", "p-tobj", "ip-rec", "data", "empty"
|
||||
|
||||
/* allocation-space characters */
|
||||
#define alloc_space_chars 'n', 'i', 'x', 'q', 'w', 'e', 'p', 'k', 'c', 'r', 's', 'd', 'e'
|
||||
|
||||
/* threads */
|
||||
#define THREADTC(x) (*((uptr *)((uptr)(x)+9)))
|
||||
|
||||
/* thread-context data */
|
||||
#define DSTBV(x) (*((ptr *)((uptr)(x)+680)))
|
||||
#define SRCBV(x) (*((ptr *)((uptr)(x)+688)))
|
||||
#define U(x) (*((ptr *)((uptr)(x)+352)))
|
||||
#define V(x) (*((ptr *)((uptr)(x)+360)))
|
||||
#define W(x) (*((ptr *)((uptr)(x)+368)))
|
||||
#define X(x) (*((ptr *)((uptr)(x)+376)))
|
||||
#define Y(x) (*((ptr *)((uptr)(x)+384)))
|
||||
#define AC0(x) (*((void* *)((uptr)(x)+40)))
|
||||
#define AC1(x) (*((void* *)((uptr)(x)+48)))
|
||||
#define ACTIVE(x) (*((I32 *)((uptr)(x)+308)))
|
||||
#define ALLOCCOUNTER(x) (*((U64 *)((uptr)(x)+664)))
|
||||
#define AP(x) (*((void* *)((uptr)(x)+80)))
|
||||
#define ARGREGS(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define BLOCKCOUNTER(x) (*((ptr *)((uptr)(x)+472)))
|
||||
#define CCHAIN(x) (*((ptr *)((uptr)(x)+288)))
|
||||
#define CODERANGESTOFLUSH(x) (*((ptr *)((uptr)(x)+296)))
|
||||
#define COMPILEPROFILE(x) (*((ptr *)((uptr)(x)+560)))
|
||||
#define COMPRESSFORMAT(x) (*((ptr *)((uptr)(x)+632)))
|
||||
#define COMPRESSLEVEL(x) (*((ptr *)((uptr)(x)+640)))
|
||||
#define CP(x) (*((void* *)((uptr)(x)+64)))
|
||||
#define CURRENTERROR(x) (*((ptr *)((uptr)(x)+464)))
|
||||
#define CURRENTINPUT(x) (*((ptr *)((uptr)(x)+448)))
|
||||
#define CURRENTMSO(x) (*((ptr *)((uptr)(x)+488)))
|
||||
#define CURRENTOUTPUT(x) (*((ptr *)((uptr)(x)+456)))
|
||||
#define DEFAULTRECORDEQUALPROCEDURE(x) (*((ptr *)((uptr)(x)+616)))
|
||||
#define DEFAULTRECORDHASHPROCEDURE(x) (*((ptr *)((uptr)(x)+624)))
|
||||
#define DISABLECOUNT(x) (*((ptr *)((uptr)(x)+408)))
|
||||
#define EAP(x) (*((void* *)((uptr)(x)+88)))
|
||||
#define ESP(x) (*((void* *)((uptr)(x)+72)))
|
||||
#define FXFIRSTBITSETBV(x) (*((ptr *)((uptr)(x)+512)))
|
||||
#define FXLENGTHBV(x) (*((ptr *)((uptr)(x)+504)))
|
||||
#define GENERATEINSPECTORINFORMATION(x) (*((ptr *)((uptr)(x)+568)))
|
||||
#define GENERATEPROCEDURESOURCEINFORMATION(x) (*((ptr *)((uptr)(x)+576)))
|
||||
#define GENERATEPROFILEFORMS(x) (*((ptr *)((uptr)(x)+584)))
|
||||
#define GUARDIANENTRIES(x) (*((ptr *)((uptr)(x)+280)))
|
||||
#define INSTRCOUNTER(x) (*((U64 *)((uptr)(x)+656)))
|
||||
#define KEYBOARDINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+432)))
|
||||
#define LZ4OUTBUFFER(x) (*((void* *)((uptr)(x)+648)))
|
||||
#define METALEVEL(x) (*((ptr *)((uptr)(x)+552)))
|
||||
#define NULLIMMUTABLEBYTEVECTOR(x) (*((ptr *)((uptr)(x)+536)))
|
||||
#define NULLIMMUTABLEFXVECTOR(x) (*((ptr *)((uptr)(x)+528)))
|
||||
#define NULLIMMUTABLESTRING(x) (*((ptr *)((uptr)(x)+544)))
|
||||
#define NULLIMMUTABLEVECTOR(x) (*((ptr *)((uptr)(x)+520)))
|
||||
#define OPTIMIZELEVEL(x) (*((ptr *)((uptr)(x)+592)))
|
||||
#define PARAMETERS(x) (*((ptr *)((uptr)(x)+672)))
|
||||
#define RANDOMSEED(x) (*((U32 *)((uptr)(x)+304)))
|
||||
#define REAL_EAP(x) (*((void* *)((uptr)(x)+144)))
|
||||
#define RET(x) (*((void* *)((uptr)(x)+96)))
|
||||
#define SCHEMESTACK(x) (*((void* *)((uptr)(x)+312)))
|
||||
#define SCHEMESTACKSIZE(x) (*((iptr *)((uptr)(x)+336)))
|
||||
#define SFD(x) (*((ptr *)((uptr)(x)+480)))
|
||||
#define SFP(x) (*((void* *)((uptr)(x)+56)))
|
||||
#define SIGNALINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+416)))
|
||||
#define SIGNALINTERRUPTQUEUE(x) (*((ptr *)((uptr)(x)+424)))
|
||||
#define SOMETHINGPENDING(x) (*((ptr *)((uptr)(x)+392)))
|
||||
#define STACKCACHE(x) (*((ptr *)((uptr)(x)+320)))
|
||||
#define STACKLINK(x) (*((ptr *)((uptr)(x)+328)))
|
||||
#define SUBSETMODE(x) (*((ptr *)((uptr)(x)+600)))
|
||||
#define SUPPRESSPRIMITIVEINLINING(x) (*((ptr *)((uptr)(x)+608)))
|
||||
#define TARGETMACHINE(x) (*((ptr *)((uptr)(x)+496)))
|
||||
#define TD(x) (*((void* *)((uptr)(x)+136)))
|
||||
#define THREADNO(x) (*((ptr *)((uptr)(x)+440)))
|
||||
#define TIMERTICKS(x) (*((ptr *)((uptr)(x)+400)))
|
||||
#define TRAP(x) (*((void* *)((uptr)(x)+104)))
|
||||
#define TS(x) (*((void* *)((uptr)(x)+128)))
|
||||
#define VIRTUALREGISTERS(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
#define WINDERS(x) (*((ptr *)((uptr)(x)+344)))
|
||||
#define XP(x) (*((void* *)((uptr)(x)+112)))
|
||||
#define YP(x) (*((void* *)((uptr)(x)+120)))
|
||||
#define ARGREG(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define VIRTREG(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
|
||||
/* library entries we access from C code */
|
||||
#define library_nonprocedure_code 152
|
||||
#define library_dounderflow 154
|
||||
BIN
boot/ta6ob/petite.boot
Normal file
BIN
boot/ta6ob/petite.boot
Normal file
Binary file not shown.
BIN
boot/ta6ob/scheme.boot
Normal file
BIN
boot/ta6ob/scheme.boot
Normal file
Binary file not shown.
245
boot/ta6ob/scheme.h
Normal file
245
boot/ta6ob/scheme.h
Normal file
|
|
@ -0,0 +1,245 @@
|
|||
/* scheme.h for Chez Scheme Version 9.5.9 (ta6ob) */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct scheme.h */
|
||||
/* for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Specify declaration of exports. */
|
||||
#ifdef _WIN32
|
||||
# if __cplusplus
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern "C" __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern "C" __declspec (dllexport)
|
||||
# endif
|
||||
# else
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern
|
||||
# else
|
||||
# define EXPORT extern __declspec (dllexport)
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# if __cplusplus
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern
|
||||
# endif
|
||||
#endif
|
||||
|
||||
/* Chez Scheme Version and machine type */
|
||||
#define VERSION "9.5.9"
|
||||
#define MACHINE_TYPE "ta6ob"
|
||||
|
||||
/* All Scheme objects are of type ptr. Type iptr and */
|
||||
/* uptr are signed and unsigned ints of the same size */
|
||||
/* as a ptr */
|
||||
typedef void * ptr;
|
||||
typedef long int iptr;
|
||||
typedef unsigned long int uptr;
|
||||
|
||||
/* String elements are 32-bit tagged char objects */
|
||||
typedef unsigned int string_char;
|
||||
|
||||
/* Bytevector elements are 8-bit unsigned "octets" */
|
||||
typedef unsigned char octet;
|
||||
|
||||
/* Type predicates */
|
||||
#define Sfixnump(x) (((uptr)(x)&0x7)==0x0)
|
||||
#define Scharp(x) (((uptr)(x)&0xFF)==0x16)
|
||||
#define Snullp(x) ((uptr)(x)==0x26)
|
||||
#define Seof_objectp(x) ((uptr)(x)==0x36)
|
||||
#define Sbwp_objectp(x) ((uptr)(x)==0x4E)
|
||||
#define Sbooleanp(x) (((uptr)(x)&0xF7)==0x6)
|
||||
#define Spairp(x) (((uptr)(x)&0x7)==0x1)
|
||||
#define Ssymbolp(x) (((uptr)(x)&0x7)==0x3)
|
||||
#define Sprocedurep(x) (((uptr)(x)&0x7)==0x5)
|
||||
#define Sflonump(x) (((uptr)(x)&0x7)==0x2)
|
||||
#define Svectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x0))
|
||||
#define Sfxvectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x3))
|
||||
#define Sbytevectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x1))
|
||||
#define Sstringp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x2))
|
||||
#define Sbignump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1F)==0x6))
|
||||
#define Sboxp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7F)==0xE))
|
||||
#define Sinexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x36))
|
||||
#define Sexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x56))
|
||||
#define Sratnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x16))
|
||||
#define Sinputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1FF)==0x11E))
|
||||
#define Soutputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x2FF)==0x21E))
|
||||
#define Srecordp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x7))
|
||||
|
||||
/* Accessors */
|
||||
#define Sfixnum_value(x) ((iptr)(x)/8)
|
||||
#define Schar_value(x) ((string_char)((uptr)(x)>>8))
|
||||
#define Sboolean_value(x) ((x) != Sfalse)
|
||||
#define Scar(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define Scdr(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define Sflonum_value(x) (*((double *)((uptr)(x)+6)))
|
||||
#define Svector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Svector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sfxvector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sfxvector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sbytevector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Sbytevector_u8_ref(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
/* Warning: Sbytevector_data(x) returns a pointer into x. */
|
||||
#define Sbytevector_data(x) &Sbytevector_u8_ref(x,0)
|
||||
#define Sstring_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sstring_ref(x,i) Schar_value(((string_char *)((uptr)(x)+9))[i])
|
||||
#define Sunbox(x) (*((ptr *)((uptr)(x)+9)))
|
||||
EXPORT iptr Sinteger_value(ptr);
|
||||
#define Sunsigned_value(x) (uptr)Sinteger_value(x)
|
||||
EXPORT int Sinteger32_value(ptr);
|
||||
#define Sunsigned32_value(x) (unsigned int)Sinteger32_value(x)
|
||||
EXPORT long Sinteger64_value(ptr);
|
||||
#define Sunsigned64_value(x) (unsigned long)Sinteger64_value(x)
|
||||
|
||||
/* Mutators */
|
||||
EXPORT void Sset_box(ptr, ptr);
|
||||
EXPORT void Sset_car(ptr, ptr);
|
||||
EXPORT void Sset_cdr(ptr, ptr);
|
||||
#define Sstring_set(x,i,c) ((void)((((string_char *)((uptr)(x)+9))[i]) = (string_char)(uptr)Schar(c)))
|
||||
#define Sfxvector_set(x,i,n) ((void)(Sfxvector_ref(x,i) = (n)))
|
||||
#define Sbytevector_u8_set(x,i,n) ((void)(Sbytevector_u8_ref(x,i) = (n)))
|
||||
EXPORT void Svector_set(ptr, iptr, ptr);
|
||||
|
||||
/* Constructors */
|
||||
#define Sfixnum(x) ((ptr)(uptr)((x)*8))
|
||||
#define Schar(x) ((ptr)(uptr)((x)<<8|0x16))
|
||||
#define Snil ((ptr)0x26)
|
||||
#define Strue ((ptr)0xE)
|
||||
#define Sfalse ((ptr)0x6)
|
||||
#define Sboolean(x) ((x)?Strue:Sfalse)
|
||||
#define Sbwp_object ((ptr)0x4E)
|
||||
#define Seof_object ((ptr)0x36)
|
||||
#define Svoid ((ptr)0x3E)
|
||||
EXPORT ptr Scons(ptr, ptr);
|
||||
EXPORT ptr Sstring_to_symbol(const char *);
|
||||
EXPORT ptr Ssymbol_to_string(ptr);
|
||||
EXPORT ptr Sflonum(double);
|
||||
EXPORT ptr Smake_vector(iptr, ptr);
|
||||
EXPORT ptr Smake_fxvector(iptr, ptr);
|
||||
EXPORT ptr Smake_bytevector(iptr, int);
|
||||
EXPORT ptr Smake_string(iptr, int);
|
||||
EXPORT ptr Smake_uninitialized_string(iptr);
|
||||
EXPORT ptr Sstring(const char *);
|
||||
EXPORT ptr Sstring_of_length(const char *, iptr);
|
||||
EXPORT ptr Sstring_utf8(const char*, iptr);
|
||||
EXPORT ptr Sbox(ptr);
|
||||
EXPORT ptr Sinteger(iptr);
|
||||
EXPORT ptr Sunsigned(uptr);
|
||||
EXPORT ptr Sinteger32(int);
|
||||
EXPORT ptr Sunsigned32(unsigned int);
|
||||
EXPORT ptr Sinteger64(long);
|
||||
EXPORT ptr Sunsigned64(unsigned long);
|
||||
|
||||
/* Miscellaneous */
|
||||
EXPORT ptr Stop_level_value(ptr);
|
||||
EXPORT void Sset_top_level_value(ptr, ptr);
|
||||
EXPORT void Slock_object(ptr);
|
||||
EXPORT void Sunlock_object(ptr);
|
||||
EXPORT int Slocked_objectp(ptr);
|
||||
EXPORT void Sforeign_symbol(const char *, void *);
|
||||
EXPORT void Sregister_symbol(const char *, void *);
|
||||
|
||||
/* Support for calls into Scheme */
|
||||
EXPORT ptr Scall0(ptr);
|
||||
EXPORT ptr Scall1(ptr, ptr);
|
||||
EXPORT ptr Scall2(ptr, ptr, ptr);
|
||||
EXPORT ptr Scall3(ptr, ptr, ptr, ptr);
|
||||
EXPORT void Sinitframe(iptr);
|
||||
EXPORT void Sput_arg(iptr, ptr);
|
||||
EXPORT ptr Scall(ptr, iptr);
|
||||
/* Warning: Sforeign_callable_entry_point(x) returns a pointer into x. */
|
||||
#define Sforeign_callable_entry_point(x) ((void (*)(void))((uptr)(x)+65))
|
||||
#define Sforeign_callable_code_object(x) ((ptr)((uptr)(x)-65))
|
||||
|
||||
/* Customization support. */
|
||||
EXPORT const char * Skernel_version(void);
|
||||
EXPORT void Sretain_static_relocation(void);
|
||||
EXPORT void Sset_verbose(int);
|
||||
EXPORT void Sscheme_init(void (*)(void));
|
||||
EXPORT void Sregister_boot_file(const char *);
|
||||
EXPORT void Sregister_boot_file_fd(const char *, int fd);
|
||||
EXPORT void Sregister_heap_file(const char *);
|
||||
EXPORT void Scompact_heap(void);
|
||||
EXPORT void Ssave_heap(const char *, int);
|
||||
EXPORT void Sbuild_heap(const char *, void (*)(void));
|
||||
EXPORT void Senable_expeditor(const char *);
|
||||
EXPORT int Sscheme_start(int, const char *[]);
|
||||
EXPORT int Sscheme_script(const char *, int, const char *[]);
|
||||
EXPORT int Sscheme_program(const char *, int, const char *[]);
|
||||
EXPORT void Sscheme_deinit(void);
|
||||
|
||||
/* Thread support. */
|
||||
EXPORT int Sactivate_thread(void);
|
||||
EXPORT void Sdeactivate_thread(void);
|
||||
EXPORT int Sdestroy_thread(void);
|
||||
|
||||
/* Features. */
|
||||
#define FEATURE_ICONV
|
||||
#define FEATURE_EXPEDITOR
|
||||
#define FEATURE_PTHREADS
|
||||
|
||||
/* Locking macros. */
|
||||
#define INITLOCK(addr) \
|
||||
__asm__ __volatile__ ("movq $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "memory")
|
||||
|
||||
#define SPINLOCK(addr) \
|
||||
__asm__ __volatile__ ("0:\n\t"\
|
||||
"movq $1, %%rax\n\t"\
|
||||
"xchgq (%0), %%rax\n\t"\
|
||||
"cmpq $0, %%rax\n\t"\
|
||||
"je 2f\n\t"\
|
||||
"1:\n\t"\
|
||||
"pause\n\t"\
|
||||
"cmpq $0, (%0)\n\t"\
|
||||
"je 0b\n\t"\
|
||||
"jmp 1b\n\t"\
|
||||
"2:"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "rax", "flags", "memory")
|
||||
|
||||
#define UNLOCK(addr) \
|
||||
__asm__ __volatile__ ("movq $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
:"memory")
|
||||
|
||||
#define LOCKED_INCR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; incq (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
|
||||
#define LOCKED_DECR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; decq (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
993
boot/ta6osx/equates.h
Normal file
993
boot/ta6osx/equates.h
Normal file
|
|
@ -0,0 +1,993 @@
|
|||
/* equates.h for Chez Scheme Version 9.5.9 */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct version */
|
||||
/* of this file for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Integer typedefs */
|
||||
typedef char I8;
|
||||
typedef unsigned char U8;
|
||||
typedef short I16;
|
||||
typedef unsigned short U16;
|
||||
typedef int I32;
|
||||
typedef unsigned int U32;
|
||||
typedef long I64;
|
||||
typedef unsigned long U64;
|
||||
|
||||
/* constants from cmacros.ss */
|
||||
#define $c_func_closure_index 0x4
|
||||
#define $c_func_closure_record_index 0x3
|
||||
#define $c_func_code_object_index 0x2
|
||||
#define $c_func_code_record_index 0x1
|
||||
#define COMPRESS_FORMAT_BITS 0x3
|
||||
#define COMPRESS_GZIP 0x0
|
||||
#define COMPRESS_HIGH 0x3
|
||||
#define COMPRESS_LOW 0x1
|
||||
#define COMPRESS_LZ4 0x1
|
||||
#define COMPRESS_MAX 0x4
|
||||
#define COMPRESS_MEDIUM 0x2
|
||||
#define COMPRESS_MIN 0x0
|
||||
#define ERROR_CALL_ARGUMENT_COUNT 0x4
|
||||
#define ERROR_CALL_NONPROCEDURE 0x3
|
||||
#define ERROR_CALL_NONPROCEDURE_SYMBOL 0x2
|
||||
#define ERROR_CALL_UNBOUND 0x1
|
||||
#define ERROR_MVLET 0x8
|
||||
#define ERROR_NONCONTINUABLE_INTERRUPT 0x6
|
||||
#define ERROR_OTHER 0x0
|
||||
#define ERROR_RESET 0x5
|
||||
#define ERROR_VALUES 0x7
|
||||
#define OPEN_ERROR_EXISTS 0x2
|
||||
#define OPEN_ERROR_EXISTSNOT 0x3
|
||||
#define OPEN_ERROR_OTHER 0x0
|
||||
#define OPEN_ERROR_PROTECTION 0x1
|
||||
#define PORT_FLAG_BINARY 0x400
|
||||
#define PORT_FLAG_BLOCK_BUFFERED 0x20000
|
||||
#define PORT_FLAG_BOL 0x8000
|
||||
#define PORT_FLAG_CHAR_POSITIONS 0x100000
|
||||
#define PORT_FLAG_CLOSED 0x800
|
||||
#define PORT_FLAG_COMPRESSED 0x2000
|
||||
#define PORT_FLAG_EOF 0x10000
|
||||
#define PORT_FLAG_EXCLUSIVE 0x4000
|
||||
#define PORT_FLAG_FILE 0x1000
|
||||
#define PORT_FLAG_FOLD_CASE 0x400000
|
||||
#define PORT_FLAG_INPUT 0x100
|
||||
#define PORT_FLAG_INPUT_MODE 0x80000
|
||||
#define PORT_FLAG_LINE_BUFFERED 0x40000
|
||||
#define PORT_FLAG_NO_FOLD_CASE 0x800000
|
||||
#define PORT_FLAG_OUTPUT 0x200
|
||||
#define PORT_FLAG_R6RS 0x200000
|
||||
#define SAPPEND 0x3
|
||||
#define SDEFAULT 0x4
|
||||
#define SEOF -0x1
|
||||
#define SERROR 0x0
|
||||
#define SICONV_DUNNO 0x0
|
||||
#define SICONV_INCOMPLETE 0x2
|
||||
#define SICONV_INVALID 0x1
|
||||
#define SICONV_NOROOM 0x3
|
||||
#define SREPLACE 0x2
|
||||
#define STRVNCATE 0x1
|
||||
#define address_bits 0x40
|
||||
#define alloc_waste_maximum 0x800
|
||||
#define annotation_all 0x3
|
||||
#define annotation_debug 0x1
|
||||
#define annotation_profile 0x2
|
||||
#define architecture x86_64
|
||||
#define asm_arg_reg_cnt 0x3
|
||||
#define asm_arg_reg_max 0x5
|
||||
#define bigit_bits 0x20
|
||||
#define bigit_bytes 0x4
|
||||
#define bignum_data_disp 0x9
|
||||
#define bignum_length_factor 0x40
|
||||
#define bignum_length_offset 0x6
|
||||
#define bignum_sign_offset 0x5
|
||||
#define bignum_type_disp 0x1
|
||||
#define black_hole (ptr)0x46
|
||||
#define box_ref_disp 0x9
|
||||
#define box_type_disp 0x1
|
||||
#define byte_alignment 0x10
|
||||
#define byte_constant_mask 0xFFFFFFFFFFFFFFFF
|
||||
#define bytes_per_card 0x200
|
||||
#define bytes_per_segment 0x4000
|
||||
#define bytevector_data_disp 0x9
|
||||
#define bytevector_immutable_flag 0x4
|
||||
#define bytevector_length_factor 0x8
|
||||
#define bytevector_length_offset 0x3
|
||||
#define bytevector_type_disp 0x1
|
||||
#define c_entry_name_vector #(thread-context get-thread-context handle-apply-overflood handle-docall-error handle-overflow handle-overflood handle-nonprocedure-symbol thread-list split-and-resize raw-collect-cond raw-tc-mutex activate-thread deactivate-thread unactivate-thread handle-values-error handle-mvlet-error handle-arg-error foreign-entry install-library-entry get-more-room scan-remembered-set instantiate-code-object Sreturn Scall-one-result Scall-any-results)
|
||||
#define c_entry_vector_size 0x19
|
||||
#define cached_stack_link_disp 0x8
|
||||
#define cached_stack_size_disp 0x0
|
||||
#define card_offset_bits 0x9
|
||||
#define cards_per_segment 0x20
|
||||
#define char_data_offset 0x8
|
||||
#define char_factor 0x100
|
||||
#define closure_code_disp 0x3
|
||||
#define closure_data_disp 0xB
|
||||
#define code_arity_mask_disp 0x21
|
||||
#define code_closure_length_disp 0x29
|
||||
#define code_data_disp 0x41
|
||||
#define code_flag_continuation 0x2
|
||||
#define code_flag_guardian 0x8
|
||||
#define code_flag_system 0x1
|
||||
#define code_flag_template 0x4
|
||||
#define code_flags_offset 0x8
|
||||
#define code_info_disp 0x31
|
||||
#define code_length_disp 0x9
|
||||
#define code_name_disp 0x19
|
||||
#define code_pinfos_disp 0x39
|
||||
#define code_reloc_disp 0x11
|
||||
#define code_type_disp 0x1
|
||||
#define collect_interrupt_index 0x1
|
||||
#define continuation_code_disp 0x3
|
||||
#define continuation_link_disp 0x23
|
||||
#define continuation_return_address_disp 0x2B
|
||||
#define continuation_stack_clength_disp 0x1B
|
||||
#define continuation_stack_disp 0xB
|
||||
#define continuation_stack_length_disp 0x13
|
||||
#define continuation_winders_disp 0x33
|
||||
#define countof_bignum 0x5
|
||||
#define countof_box 0x9
|
||||
#define countof_bytevector 0x15
|
||||
#define countof_closure 0x3
|
||||
#define countof_code 0xB
|
||||
#define countof_continuation 0x4
|
||||
#define countof_ephemeron 0x19
|
||||
#define countof_exactnum 0x8
|
||||
#define countof_flonum 0x2
|
||||
#define countof_fxvector 0x14
|
||||
#define countof_guardian 0x17
|
||||
#define countof_inexactnum 0x7
|
||||
#define countof_locked 0x16
|
||||
#define countof_oblist 0x18
|
||||
#define countof_pair 0x0
|
||||
#define countof_port 0xA
|
||||
#define countof_ratnum 0x6
|
||||
#define countof_relocation_table 0x10
|
||||
#define countof_rtd_counts 0xE
|
||||
#define countof_stack 0xF
|
||||
#define countof_string 0x13
|
||||
#define countof_symbol 0x1
|
||||
#define countof_thread 0xC
|
||||
#define countof_tlc 0xD
|
||||
#define countof_types 0x1A
|
||||
#define countof_vector 0x12
|
||||
#define countof_weakpair 0x11
|
||||
#define default_collect_trip_bytes 0x800000
|
||||
#define default_heap_reserve_ratio 1.0
|
||||
#define default_max_nonstatic_generation 0x4
|
||||
#define default_stack_size 0xFFF0
|
||||
#define default_timer_ticks 0x3E8
|
||||
#define dtvec_hour 0x3
|
||||
#define dtvec_isdst 0x9
|
||||
#define dtvec_mday 0x4
|
||||
#define dtvec_min 0x2
|
||||
#define dtvec_mon 0x5
|
||||
#define dtvec_nsec 0x0
|
||||
#define dtvec_sec 0x1
|
||||
#define dtvec_size 0xC
|
||||
#define dtvec_tzname 0xB
|
||||
#define dtvec_tzoff 0xA
|
||||
#define dtvec_wday 0x7
|
||||
#define dtvec_yday 0x8
|
||||
#define dtvec_year 0x6
|
||||
#define ephemeron_car_disp 0x7
|
||||
#define ephemeron_cdr_disp 0xF
|
||||
#define ephemeron_next_disp 0x17
|
||||
#define ephemeron_trigger_next_disp 0x1F
|
||||
#define eq_hashtable_subtype_ephemeron 0x2
|
||||
#define eq_hashtable_subtype_normal 0x0
|
||||
#define eq_hashtable_subtype_weak 0x1
|
||||
#define exactnum_imag_disp 0x11
|
||||
#define exactnum_real_disp 0x9
|
||||
#define exactnum_type_disp 0x1
|
||||
#define fasl_fld_double 0xA
|
||||
#define fasl_fld_i16 0x2
|
||||
#define fasl_fld_i24 0x3
|
||||
#define fasl_fld_i32 0x4
|
||||
#define fasl_fld_i40 0x5
|
||||
#define fasl_fld_i48 0x6
|
||||
#define fasl_fld_i56 0x7
|
||||
#define fasl_fld_i64 0x8
|
||||
#define fasl_fld_ptr 0x0
|
||||
#define fasl_fld_single 0x9
|
||||
#define fasl_fld_u8 0x1
|
||||
#define fasl_header #vu8(0 0 0 0 99 104 101 122)
|
||||
#define fasl_type_base_rtd 0x1A
|
||||
#define fasl_type_box 0x1
|
||||
#define fasl_type_bytevector 0x1D
|
||||
#define fasl_type_closure 0x6
|
||||
#define fasl_type_code 0xB
|
||||
#define fasl_type_entry 0xD
|
||||
#define fasl_type_ephemeron 0x1C
|
||||
#define fasl_type_eq_hashtable 0x1F
|
||||
#define fasl_type_exactnum 0x14
|
||||
#define fasl_type_flonum 0x8
|
||||
#define fasl_type_fxvector 0x1B
|
||||
#define fasl_type_gensym 0x13
|
||||
#define fasl_type_graph 0x10
|
||||
#define fasl_type_graph_def 0x11
|
||||
#define fasl_type_graph_ref 0x12
|
||||
#define fasl_type_gzip 0x2B
|
||||
#define fasl_type_header 0x0
|
||||
#define fasl_type_immediate 0xC
|
||||
#define fasl_type_immutable_box 0x29
|
||||
#define fasl_type_immutable_bytevector 0x28
|
||||
#define fasl_type_immutable_fxvector 0x27
|
||||
#define fasl_type_immutable_string 0x26
|
||||
#define fasl_type_immutable_vector 0x25
|
||||
#define fasl_type_inexactnum 0x5
|
||||
#define fasl_type_large_integer 0xA
|
||||
#define fasl_type_library 0xE
|
||||
#define fasl_type_library_code 0xF
|
||||
#define fasl_type_lz4 0x2C
|
||||
#define fasl_type_pair 0x7
|
||||
#define fasl_type_ratnum 0x3
|
||||
#define fasl_type_record 0x17
|
||||
#define fasl_type_revisit 0x23
|
||||
#define fasl_type_rtd 0x18
|
||||
#define fasl_type_small_integer 0x19
|
||||
#define fasl_type_string 0x9
|
||||
#define fasl_type_symbol 0x2
|
||||
#define fasl_type_symbol_hashtable 0x20
|
||||
#define fasl_type_uncompressed 0x2A
|
||||
#define fasl_type_vector 0x4
|
||||
#define fasl_type_visit 0x22
|
||||
#define fasl_type_visit_revisit 0x24
|
||||
#define fasl_type_weak_pair 0x1E
|
||||
#define fixnum_bits 0x3D
|
||||
#define fixnum_factor 0x8
|
||||
#define fixnum_offset 0x3
|
||||
#define fld_byte_index 0x4
|
||||
#define fld_mutablep_index 0x2
|
||||
#define fld_name_index 0x1
|
||||
#define fld_type_index 0x3
|
||||
#define flonum_data_disp 0x6
|
||||
#define forward_address_disp 0x8
|
||||
#define forward_marker (ptr)0x2E
|
||||
#define forward_marker_disp 0x0
|
||||
#define ftype_guardian_rep (ptr)0x56
|
||||
#define fxvector_data_disp 0x9
|
||||
#define fxvector_immutable_flag 0x8
|
||||
#define fxvector_length_factor 0x10
|
||||
#define fxvector_length_offset 0x4
|
||||
#define fxvector_type_disp 0x1
|
||||
#define guardian_entry_next_disp 0x18
|
||||
#define guardian_entry_obj_disp 0x0
|
||||
#define guardian_entry_rep_disp 0x8
|
||||
#define guardian_entry_tconc_disp 0x10
|
||||
#define hashtable_default_size 0x8
|
||||
#define header_size_bignum 0x8
|
||||
#define header_size_bytevector 0x8
|
||||
#define header_size_closure 0x8
|
||||
#define header_size_code 0x40
|
||||
#define header_size_fxvector 0x8
|
||||
#define header_size_record 0x8
|
||||
#define header_size_reloc_table 0x10
|
||||
#define header_size_string 0x8
|
||||
#define header_size_vector 0x8
|
||||
#define ignore_event_flag 0x0
|
||||
#define inexactnum_imag_disp 0x19
|
||||
#define inexactnum_pad_disp 0x9
|
||||
#define inexactnum_real_disp 0x11
|
||||
#define inexactnum_type_disp 0x1
|
||||
#define int_bits 0x20
|
||||
#define integer_divide_instruction 1
|
||||
#define keyboard_interrupt_index 0x3
|
||||
#define library_entry_vector_size 0x210
|
||||
#define libspec_closure_index 0xD
|
||||
#define libspec_does_not_expect_headroom_index 0x0
|
||||
#define libspec_error_index 0xE
|
||||
#define libspec_fake_index 0x10
|
||||
#define libspec_flags_index 0x2
|
||||
#define libspec_has_does_not_expect_headroom_version_index 0xF
|
||||
#define libspec_index_base_offset 0x1
|
||||
#define libspec_index_base_size 0x9
|
||||
#define libspec_index_offset 0x0
|
||||
#define libspec_index_size 0xA
|
||||
#define libspec_interface_offset 0xA
|
||||
#define libspec_interface_size 0x3
|
||||
#define libspec_name_index 0x1
|
||||
#define log2_ptr_bytes 0x3
|
||||
#define long_bits 0x40
|
||||
#define long_long_bits 0x40
|
||||
#define machine_type 0xE
|
||||
#define machine_type_a6fb 0x15
|
||||
#define machine_type_a6le 0xB
|
||||
#define machine_type_a6nb 0x19
|
||||
#define machine_type_a6nt 0x1B
|
||||
#define machine_type_a6ob 0xF
|
||||
#define machine_type_a6osx 0xD
|
||||
#define machine_type_a6s2 0x11
|
||||
#define machine_type_alist ((0 . any) (1 . i3le) (2 . ti3le) (3 . i3nt) (4 . ti3nt) (5 . i3fb) (6 . ti3fb) (7 . i3ob) (8 . ti3ob) (9 . i3osx) (10 . ti3osx) (11 . a6le) (12 . ta6le) (13 . a6osx) (14 . ta6osx) (15 . a6ob) (16 . ta6ob) (17 . a6s2) (18 . ta6s2) (19 . i3s2) (20 . ti3s2) (21 . a6fb) (22 . ta6fb) (23 . i3nb) (24 . ti3nb) (25 . a6nb) (26 . ta6nb) (27 . a6nt) (28 . ta6nt) (29 . i3qnx) (30 . ti3qnx) (31 . arm32le) (32 . tarm32le) (33 . ppc32le) (34 . tppc32le))
|
||||
#define machine_type_any 0x0
|
||||
#define machine_type_arm32le 0x1F
|
||||
#define machine_type_i3fb 0x5
|
||||
#define machine_type_i3le 0x1
|
||||
#define machine_type_i3nb 0x17
|
||||
#define machine_type_i3nt 0x3
|
||||
#define machine_type_i3ob 0x7
|
||||
#define machine_type_i3osx 0x9
|
||||
#define machine_type_i3qnx 0x1D
|
||||
#define machine_type_i3s2 0x13
|
||||
#define machine_type_limit 0x23
|
||||
#define machine_type_name ta6osx
|
||||
#define machine_type_ppc32le 0x21
|
||||
#define machine_type_ta6fb 0x16
|
||||
#define machine_type_ta6le 0xC
|
||||
#define machine_type_ta6nb 0x1A
|
||||
#define machine_type_ta6nt 0x1C
|
||||
#define machine_type_ta6ob 0x10
|
||||
#define machine_type_ta6osx 0xE
|
||||
#define machine_type_ta6s2 0x12
|
||||
#define machine_type_tarm32le 0x20
|
||||
#define machine_type_ti3fb 0x6
|
||||
#define machine_type_ti3le 0x2
|
||||
#define machine_type_ti3nb 0x18
|
||||
#define machine_type_ti3nt 0x4
|
||||
#define machine_type_ti3ob 0x8
|
||||
#define machine_type_ti3osx 0xA
|
||||
#define machine_type_ti3qnx 0x1E
|
||||
#define machine_type_ti3s2 0x14
|
||||
#define machine_type_tppc32le 0x22
|
||||
#define mask_bignum 0x1F
|
||||
#define mask_bignum_sign 0x20
|
||||
#define mask_binary_input_port 0x5FF
|
||||
#define mask_binary_output_port 0x6FF
|
||||
#define mask_binary_port 0x4FF
|
||||
#define mask_boolean 0xF7
|
||||
#define mask_box 0x7F
|
||||
#define mask_bwp 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_bytevector 0x3
|
||||
#define mask_char 0xFF
|
||||
#define mask_closure 0x7
|
||||
#define mask_code 0xFF
|
||||
#define mask_continuation_code 0x2FF
|
||||
#define mask_eof 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_exactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_false 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_fixnum 0x7
|
||||
#define mask_flonum 0x7
|
||||
#define mask_fxvector 0x7
|
||||
#define mask_guardian_code 0x8FF
|
||||
#define mask_immediate 0x7
|
||||
#define mask_inexactnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_input_port 0x1FF
|
||||
#define mask_mutable_box 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_mutable_bytevector 0x7
|
||||
#define mask_mutable_fxvector 0xF
|
||||
#define mask_mutable_string 0xF
|
||||
#define mask_mutable_vector 0xF
|
||||
#define mask_nil 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_octet -0x7F9
|
||||
#define mask_other_number 0xF
|
||||
#define mask_output_port 0x2FF
|
||||
#define mask_pair 0x7
|
||||
#define mask_port 0xFF
|
||||
#define mask_ratnum 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_record 0x7
|
||||
#define mask_rtd_counts 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_signed_bignum 0x3F
|
||||
#define mask_string 0x7
|
||||
#define mask_symbol 0x7
|
||||
#define mask_system_code 0x1FF
|
||||
#define mask_textual_input_port 0x5FF
|
||||
#define mask_textual_output_port 0x6FF
|
||||
#define mask_textual_port 0x4FF
|
||||
#define mask_thread 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_tlc 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_typed_object 0x7
|
||||
#define mask_unbound 0xFFFFFFFFFFFFFFFF
|
||||
#define mask_vector 0x7
|
||||
#define max_float_alignment 0x8
|
||||
#define max_integer_alignment 0x8
|
||||
#define max_real_space 0xB
|
||||
#define max_space 0xC
|
||||
#define max_sweep_space 0xA
|
||||
#define maximum_bignum_length (iptr)0x3FFFFFFFFFFFFFF
|
||||
#define maximum_bytevector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_fxvector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_interrupt_index 0x4
|
||||
#define maximum_string_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define maximum_vector_length (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define minimum_segment_request 0x80
|
||||
#define most_negative_fixnum (iptr)-0x1000000000000000
|
||||
#define most_positive_fixnum (iptr)0xFFFFFFFFFFFFFFF
|
||||
#define native_endianness little
|
||||
#define one_shot_headroom 0xC00
|
||||
#define ordinary_type_bits 0x8
|
||||
#define pair_car_disp 0x7
|
||||
#define pair_cdr_disp 0xF
|
||||
#define pair_shift 0x4
|
||||
#define port_flag_binary 0x4
|
||||
#define port_flag_block_buffered 0x200
|
||||
#define port_flag_bol 0x80
|
||||
#define port_flag_char_positions 0x1000
|
||||
#define port_flag_closed 0x8
|
||||
#define port_flag_compressed 0x20
|
||||
#define port_flag_eof 0x100
|
||||
#define port_flag_exclusive 0x40
|
||||
#define port_flag_file 0x10
|
||||
#define port_flag_fold_case 0x4000
|
||||
#define port_flag_input 0x1
|
||||
#define port_flag_input_mode 0x800
|
||||
#define port_flag_line_buffered 0x400
|
||||
#define port_flag_no_fold_case 0x8000
|
||||
#define port_flag_output 0x2
|
||||
#define port_flag_r6rs 0x2000
|
||||
#define port_flags_offset 0x8
|
||||
#define port_handler_disp 0x9
|
||||
#define port_ibuffer_disp 0x39
|
||||
#define port_icount_disp 0x19
|
||||
#define port_ilast_disp 0x31
|
||||
#define port_info_disp 0x41
|
||||
#define port_name_disp 0x49
|
||||
#define port_obuffer_disp 0x29
|
||||
#define port_ocount_disp 0x11
|
||||
#define port_olast_disp 0x21
|
||||
#define port_type_disp 0x1
|
||||
#define prelex_is_flags_offset 0x8
|
||||
#define prelex_is_mask 0xFF00
|
||||
#define prelex_sticky_mask 0xFF
|
||||
#define prelex_was_flags_offset 0x10
|
||||
#define primary_type_bits 0x3
|
||||
#define ptr_bits 0x40
|
||||
#define ptr_bytes 0x8
|
||||
#define ptrdiff_t_bits 0x40
|
||||
#define ratnum_denominator_disp 0x11
|
||||
#define ratnum_numerator_disp 0x9
|
||||
#define ratnum_type_disp 0x1
|
||||
#define real_space_alist ((new . 0) (impure . 1) (symbol . 2) (port . 3) (weakpair . 4) (ephemeron . 5) (pure . 6) (continuation . 7) (code . 8) (pure-typed-object . 9) (impure-record . 10) (data . 11))
|
||||
#define record_data_disp 0x9
|
||||
#define record_type_counts_disp 0x49
|
||||
#define record_type_disp 0x1
|
||||
#define record_type_flags_disp 0x39
|
||||
#define record_type_flds_disp 0x31
|
||||
#define record_type_mpm_disp 0x21
|
||||
#define record_type_name_disp 0x29
|
||||
#define record_type_parent_disp 0x9
|
||||
#define record_type_pm_disp 0x19
|
||||
#define record_type_size_disp 0x11
|
||||
#define record_type_type_disp 0x1
|
||||
#define record_type_uid_disp 0x41
|
||||
#define reloc_abs 0x0
|
||||
#define reloc_code_offset_index 0x3
|
||||
#define reloc_code_offset_mask 0x3FFFFFF
|
||||
#define reloc_code_offset_offset 0x4
|
||||
#define reloc_extended_format 0x1
|
||||
#define reloc_item_offset_index 0x2
|
||||
#define reloc_item_offset_mask 0x3FFFFFF
|
||||
#define reloc_item_offset_offset 0x1E
|
||||
#define reloc_longp_index 0x4
|
||||
#define reloc_table_code_disp 0x8
|
||||
#define reloc_table_data_disp 0x10
|
||||
#define reloc_table_size_disp 0x0
|
||||
#define reloc_type_index 0x1
|
||||
#define reloc_type_mask 0x7
|
||||
#define reloc_type_offset 0x1
|
||||
#define reloc_x86_64_call 0x1
|
||||
#define reloc_x86_64_jump 0x2
|
||||
#define return_address_frame_size_disp -0x10
|
||||
#define return_address_livemask_disp -0x20
|
||||
#define return_address_mv_return_address_disp -0x8
|
||||
#define return_address_toplink_disp -0x18
|
||||
#define rp_header_frame_size_disp 0x10
|
||||
#define rp_header_livemask_disp 0x0
|
||||
#define rp_header_mv_return_address_disp 0x18
|
||||
#define rp_header_toplink_disp 0x8
|
||||
#define rtd_counts_data_disp 0x11
|
||||
#define rtd_counts_timestamp_disp 0x9
|
||||
#define rtd_counts_type_disp 0x1
|
||||
#define rtd_generative 0x1
|
||||
#define rtd_opaque 0x2
|
||||
#define rtd_sealed 0x4
|
||||
#define sbwp (ptr)0x4E
|
||||
#define scaled_shot_1_shot_flag -0x8
|
||||
#define scheme_version 0x90509
|
||||
#define segment_card_offset_bits 0x5
|
||||
#define segment_offset_bits 0xE
|
||||
#define segment_t1_bits 0x10
|
||||
#define segment_t2_bits 0x11
|
||||
#define segment_t3_bits 0x11
|
||||
#define segment_table_levels 0x3
|
||||
#define seof (ptr)0x36
|
||||
#define sfalse (ptr)0x6
|
||||
#define short_bits 0x10
|
||||
#define signal_interrupt_index 0x4
|
||||
#define size_box 0x10
|
||||
#define size_cached_stack 0x10
|
||||
#define size_continuation 0x40
|
||||
#define size_ephemeron 0x20
|
||||
#define size_exactnum 0x20
|
||||
#define size_flonum 0x10
|
||||
#define size_forward 0x10
|
||||
#define size_guardian_entry 0x20
|
||||
#define size_inexactnum 0x20
|
||||
#define size_pair 0x10
|
||||
#define size_port 0x50
|
||||
#define size_ratnum 0x20
|
||||
#define size_record_type 0x50
|
||||
#define size_rp_header 0x20
|
||||
#define size_rtd_counts 0x810
|
||||
#define size_symbol 0x30
|
||||
#define size_tc 0x2C0
|
||||
#define size_thread 0x10
|
||||
#define size_tlc 0x20
|
||||
#define size_typed_object 0x10
|
||||
#define size_t_bits 0x40
|
||||
#define snil (ptr)0x26
|
||||
#define space_char_list (#\n #\i #\x #\q #\w #\e #\p #\k #\c #\r #\s #\d #\e)
|
||||
#define space_cname_list ("new" "impure" "symbol" "port" "weakpr" "emph" "pure" "cont" "code" "p-tobj" "ip-rec" "data" "empty")
|
||||
#define space_code 0x8
|
||||
#define space_continuation 0x7
|
||||
#define space_data 0xB
|
||||
#define space_empty 0xC
|
||||
#define space_ephemeron 0x5
|
||||
#define space_impure 0x1
|
||||
#define space_impure_record 0xA
|
||||
#define space_locked 0x20
|
||||
#define space_new 0x0
|
||||
#define space_old 0x40
|
||||
#define space_port 0x3
|
||||
#define space_pure 0x6
|
||||
#define space_pure_typed_object 0x9
|
||||
#define space_symbol 0x2
|
||||
#define space_weakpair 0x4
|
||||
#define stack_frame_limit 0x200
|
||||
#define stack_slop 0x400
|
||||
#define static_generation 0xFF
|
||||
#define string_char_bits 0x20
|
||||
#define string_char_bytes 0x4
|
||||
#define string_char_offset 0x2
|
||||
#define string_data_disp 0x9
|
||||
#define string_immutable_flag 0x8
|
||||
#define string_length_factor 0x10
|
||||
#define string_length_offset 0x4
|
||||
#define string_type_disp 0x1
|
||||
#define strue (ptr)0xE
|
||||
#define sunbound (ptr)0x1E
|
||||
#define svoid (ptr)0x3E
|
||||
#define symbol_hash_disp 0x2D
|
||||
#define symbol_name_disp 0x1D
|
||||
#define symbol_plist_disp 0x15
|
||||
#define symbol_pvalue_disp 0xD
|
||||
#define symbol_splist_disp 0x25
|
||||
#define symbol_value_disp 0x5
|
||||
#define tc_DSTBV_disp 0x2A8
|
||||
#define tc_SRCBV_disp 0x2B0
|
||||
#define tc_U_disp 0x160
|
||||
#define tc_V_disp 0x168
|
||||
#define tc_W_disp 0x170
|
||||
#define tc_X_disp 0x178
|
||||
#define tc_Y_disp 0x180
|
||||
#define tc_ac0_disp 0x28
|
||||
#define tc_ac1_disp 0x30
|
||||
#define tc_active_disp 0x134
|
||||
#define tc_alloc_counter_disp 0x298
|
||||
#define tc_ap_disp 0x50
|
||||
#define tc_arg_regs_disp 0x0
|
||||
#define tc_block_counter_disp 0x1D8
|
||||
#define tc_cchain_disp 0x120
|
||||
#define tc_code_ranges_to_flush_disp 0x128
|
||||
#define tc_compile_profile_disp 0x230
|
||||
#define tc_compress_format_disp 0x278
|
||||
#define tc_compress_level_disp 0x280
|
||||
#define tc_cp_disp 0x40
|
||||
#define tc_current_error_disp 0x1D0
|
||||
#define tc_current_input_disp 0x1C0
|
||||
#define tc_current_mso_disp 0x1E8
|
||||
#define tc_current_output_disp 0x1C8
|
||||
#define tc_default_record_equal_procedure_disp 0x268
|
||||
#define tc_default_record_hash_procedure_disp 0x270
|
||||
#define tc_disable_count_disp 0x198
|
||||
#define tc_eap_disp 0x58
|
||||
#define tc_esp_disp 0x48
|
||||
#define tc_fxfirst_bit_set_bv_disp 0x200
|
||||
#define tc_fxlength_bv_disp 0x1F8
|
||||
#define tc_generate_inspector_information_disp 0x238
|
||||
#define tc_generate_procedure_source_information_disp 0x240
|
||||
#define tc_generate_profile_forms_disp 0x248
|
||||
#define tc_guardian_entries_disp 0x118
|
||||
#define tc_instr_counter_disp 0x290
|
||||
#define tc_keyboard_interrupt_pending_disp 0x1B0
|
||||
#define tc_lz4_out_buffer_disp 0x288
|
||||
#define tc_meta_level_disp 0x228
|
||||
#define tc_null_immutable_bytevector_disp 0x218
|
||||
#define tc_null_immutable_fxvector_disp 0x210
|
||||
#define tc_null_immutable_string_disp 0x220
|
||||
#define tc_null_immutable_vector_disp 0x208
|
||||
#define tc_optimize_level_disp 0x250
|
||||
#define tc_parameters_disp 0x2A0
|
||||
#define tc_random_seed_disp 0x130
|
||||
#define tc_real_eap_disp 0x90
|
||||
#define tc_ret_disp 0x60
|
||||
#define tc_scheme_stack_disp 0x138
|
||||
#define tc_scheme_stack_size_disp 0x150
|
||||
#define tc_sfd_disp 0x1E0
|
||||
#define tc_sfp_disp 0x38
|
||||
#define tc_signal_interrupt_pending_disp 0x1A0
|
||||
#define tc_signal_interrupt_queue_disp 0x1A8
|
||||
#define tc_something_pending_disp 0x188
|
||||
#define tc_stack_cache_disp 0x140
|
||||
#define tc_stack_link_disp 0x148
|
||||
#define tc_subset_mode_disp 0x258
|
||||
#define tc_suppress_primitive_inlining_disp 0x260
|
||||
#define tc_target_machine_disp 0x1F0
|
||||
#define tc_td_disp 0x88
|
||||
#define tc_threadno_disp 0x1B8
|
||||
#define tc_timer_ticks_disp 0x190
|
||||
#define tc_trap_disp 0x68
|
||||
#define tc_ts_disp 0x80
|
||||
#define tc_virtual_registers_disp 0x98
|
||||
#define tc_winders_disp 0x158
|
||||
#define tc_xp_disp 0x70
|
||||
#define tc_yp_disp 0x78
|
||||
#define thread_tc_disp 0x9
|
||||
#define thread_type_disp 0x1
|
||||
#define time_collector_cpu 0x5
|
||||
#define time_collector_real 0x6
|
||||
#define time_duration 0x2
|
||||
#define time_monotonic 0x3
|
||||
#define time_process 0x0
|
||||
#define time_t_bits 0x40
|
||||
#define time_thread 0x1
|
||||
#define time_utc 0x4
|
||||
#define timer_interrupt_index 0x2
|
||||
#define tlc_ht_disp 0x11
|
||||
#define tlc_keyval_disp 0x9
|
||||
#define tlc_next_disp 0x19
|
||||
#define tlc_type_disp 0x1
|
||||
#define type_bignum 0x6
|
||||
#define type_binary_input_port 0x51E
|
||||
#define type_binary_output_port 0x61E
|
||||
#define type_binary_port 0x41E
|
||||
#define type_boolean 0x6
|
||||
#define type_box 0xE
|
||||
#define type_bytevector 0x1
|
||||
#define type_char 0x16
|
||||
#define type_closure 0x5
|
||||
#define type_code 0x3E
|
||||
#define type_continuation_code 0x23E
|
||||
#define type_exactnum 0x56
|
||||
#define type_fixnum 0x0
|
||||
#define type_flonum 0x2
|
||||
#define type_fxvector 0x3
|
||||
#define type_guardian_code 0x83E
|
||||
#define type_immediate 0x6
|
||||
#define type_immutable_box 0x8E
|
||||
#define type_immutable_bytevector 0x5
|
||||
#define type_immutable_fxvector 0xB
|
||||
#define type_immutable_string 0xA
|
||||
#define type_immutable_vector 0x8
|
||||
#define type_inexactnum 0x36
|
||||
#define type_input_port 0x11E
|
||||
#define type_io_port 0x31E
|
||||
#define type_mutable_box 0xE
|
||||
#define type_mutable_bytevector 0x1
|
||||
#define type_mutable_fxvector 0x3
|
||||
#define type_mutable_string 0x2
|
||||
#define type_mutable_vector 0x0
|
||||
#define type_negative_bignum 0x26
|
||||
#define type_octet 0x0
|
||||
#define type_other_number 0x6
|
||||
#define type_output_port 0x21E
|
||||
#define type_pair 0x1
|
||||
#define type_port 0x1E
|
||||
#define type_positive_bignum 0x6
|
||||
#define type_ratnum 0x16
|
||||
#define type_record 0x7
|
||||
#define type_rtd_counts 0x6E
|
||||
#define type_string 0x2
|
||||
#define type_symbol 0x3
|
||||
#define type_system_code 0x13E
|
||||
#define type_textual_input_port 0x11E
|
||||
#define type_textual_output_port 0x21E
|
||||
#define type_textual_port 0x1E
|
||||
#define type_thread 0x4E
|
||||
#define type_tlc 0x5E
|
||||
#define type_typed_object 0x7
|
||||
#define type_vector 0x0
|
||||
#define typed_object_type_disp 0x1
|
||||
#define typedef_i16 "short"
|
||||
#define typedef_i32 "int"
|
||||
#define typedef_i64 "long"
|
||||
#define typedef_i8 "char"
|
||||
#define typedef_iptr "long int"
|
||||
#define typedef_ptr "void *"
|
||||
#define typedef_string_char "unsigned int"
|
||||
#define typedef_u16 "unsigned short"
|
||||
#define typedef_u32 "unsigned int"
|
||||
#define typedef_u64 "unsigned long"
|
||||
#define typedef_u8 "unsigned char"
|
||||
#define typedef_uptr "unsigned long int"
|
||||
#define typemod 0x8
|
||||
#define unactivate_mode_deactivate 0x1
|
||||
#define unactivate_mode_destroy 0x2
|
||||
#define unactivate_mode_noop 0x0
|
||||
#define unaligned_floats 1
|
||||
#define unaligned_integers 1
|
||||
#define underflow_limit 0x80
|
||||
#define unscaled_shot_1_shot_flag -0x1
|
||||
#define vector_data_disp 0x9
|
||||
#define vector_immutable_flag 0x8
|
||||
#define vector_length_factor 0x10
|
||||
#define vector_length_offset 0x4
|
||||
#define vector_type_disp 0x1
|
||||
#define virtual_register_count 0x10
|
||||
#define wchar_bits 0x20
|
||||
|
||||
/* constants from declare-c-entries */
|
||||
#define CENTRY_Scall_any_results 24
|
||||
#define CENTRY_Scall_one_result 23
|
||||
#define CENTRY_Sreturn 22
|
||||
#define CENTRY_activate_thread 11
|
||||
#define CENTRY_deactivate_thread 12
|
||||
#define CENTRY_foreign_entry 17
|
||||
#define CENTRY_get_more_room 19
|
||||
#define CENTRY_get_thread_context 1
|
||||
#define CENTRY_handle_apply_overflood 2
|
||||
#define CENTRY_handle_arg_error 16
|
||||
#define CENTRY_handle_docall_error 3
|
||||
#define CENTRY_handle_mvlet_error 15
|
||||
#define CENTRY_handle_nonprocedure_symbol 6
|
||||
#define CENTRY_handle_overflood 5
|
||||
#define CENTRY_handle_overflow 4
|
||||
#define CENTRY_handle_values_error 14
|
||||
#define CENTRY_install_library_entry 18
|
||||
#define CENTRY_instantiate_code_object 21
|
||||
#define CENTRY_raw_collect_cond 9
|
||||
#define CENTRY_raw_tc_mutex 10
|
||||
#define CENTRY_scan_remembered_set 20
|
||||
#define CENTRY_split_and_resize 8
|
||||
#define CENTRY_thread_context 0
|
||||
#define CENTRY_thread_list 7
|
||||
#define CENTRY_unactivate_thread 13
|
||||
|
||||
/* displacements for records */
|
||||
#define eq_hashtable_rtd_disp 1
|
||||
#define eq_hashtable_type_disp 9
|
||||
#define eq_hashtable_mutablep_disp 17
|
||||
#define eq_hashtable_vec_disp 25
|
||||
#define eq_hashtable_minlen_disp 33
|
||||
#define eq_hashtable_size_disp 41
|
||||
#define eq_hashtable_subtype_disp 49
|
||||
#define symbol_hashtable_rtd_disp 1
|
||||
#define symbol_hashtable_type_disp 9
|
||||
#define symbol_hashtable_mutablep_disp 17
|
||||
#define symbol_hashtable_vec_disp 25
|
||||
#define symbol_hashtable_minlen_disp 33
|
||||
#define symbol_hashtable_size_disp 41
|
||||
#define symbol_hashtable_equivp_disp 49
|
||||
#define code_info_rtd_disp 1
|
||||
#define code_info_src_disp 9
|
||||
#define code_info_sexpr_disp 17
|
||||
#define code_info_free_disp 25
|
||||
#define code_info_live_disp 33
|
||||
#define code_info_rpis_disp 41
|
||||
|
||||
/* predicates */
|
||||
#define Simmediatep(x) (((uptr)(x)&0x7)==0x6)
|
||||
#define Sportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x1E))
|
||||
#define Scodep(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x3E))
|
||||
|
||||
/* structure accessors */
|
||||
#define INITCAR(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define INITCDR(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define SETCAR(x,y) DIRTYSET(((ptr *)((uptr)(x)+7)),(y))
|
||||
#define SETCDR(x,y) DIRTYSET(((ptr *)((uptr)(x)+15)),(y))
|
||||
#define BOXTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITBOXREF(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define SETBOXREF(x,y) DIRTYSET(((ptr *)((uptr)(x)+9)),(y))
|
||||
#define EPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define INITEPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define EPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define INITEPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+31)))
|
||||
#define TLCTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define TLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define TLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define TLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define INITTLCKEYVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITTLCHT(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define INITTLCNEXT(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define SETTLCNEXT(x,y) DIRTYSET(((ptr *)((uptr)(x)+25)),(y))
|
||||
#define SYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define SYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define SYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define SYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define INITSYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITSYMPVAL(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITSYMPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define INITSYMNAME(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define INITSYMSPLIST(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define INITSYMHASH(x) (*((ptr *)((uptr)(x)+45)))
|
||||
#define SETSYMVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define SETSYMPVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SETSYMPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+21)),(y))
|
||||
#define SETSYMNAME(x,y) DIRTYSET(((ptr *)((uptr)(x)+29)),(y))
|
||||
#define SETSYMSPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+37)),(y))
|
||||
#define SETSYMHASH(x,y) DIRTYSET(((ptr *)((uptr)(x)+45)),(y))
|
||||
#define VECTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define SETVECTIT(x,i,y) DIRTYSET((((ptr *)((uptr)(x)+9))+i),(y))
|
||||
#define FXVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define FXVECTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define BYTEVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BVIT(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
#define INEXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INEXACTNUM_REAL_PART(x) (*((double *)((uptr)(x)+17)))
|
||||
#define INEXACTNUM_IMAG_PART(x) (*((double *)((uptr)(x)+25)))
|
||||
#define EXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define EXACTNUM_REAL_PART(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define EXACTNUM_IMAG_PART(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RATTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RATNUM(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RATDEN(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CLOSENTRY(x) (*((ptr *)((uptr)(x)+3)))
|
||||
#define CLOSIT(x,i) (((ptr *)((uptr)(x)+11))[i])
|
||||
#define FLODAT(x) (*((double *)((uptr)(x)+6)))
|
||||
#define PORTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define PORTNAME(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define PORTHANDLER(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define PORTINFO(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define PORTOCNT(x) (*((iptr *)((uptr)(x)+17)))
|
||||
#define PORTOLAST(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define PORTOBUF(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define PORTICNT(x) (*((iptr *)((uptr)(x)+25)))
|
||||
#define PORTILAST(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define PORTIBUF(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define STRTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define STRIT(x,i) (((string_char *)((uptr)(x)+9))[i])
|
||||
#define BIGTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BIGIT(x,i) (((bigit *)((uptr)(x)+9))[i])
|
||||
#define CODETYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define CODELEN(x) (*((iptr *)((uptr)(x)+9)))
|
||||
#define CODERELOC(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CODENAME(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define CODEARITYMASK(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define CODEFREE(x) (*((iptr *)((uptr)(x)+41)))
|
||||
#define CODEINFO(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define CODEPINFOS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define CODEIT(x,i) (((octet *)((uptr)(x)+65))[i])
|
||||
#define RELOCSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define RELOCCODE(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RELOCIT(x,i) (((uptr *)((uptr)(x)+16))[i])
|
||||
#define CONTSTACK(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define CONTLENGTH(x) (*((iptr *)((uptr)(x)+19)))
|
||||
#define CONTCLENGTH(x) (*((iptr *)((uptr)(x)+27)))
|
||||
#define CONTLINK(x) (*((ptr *)((uptr)(x)+35)))
|
||||
#define CONTRET(x) (*((ptr *)((uptr)(x)+43)))
|
||||
#define CONTWINDERS(x) (*((ptr *)((uptr)(x)+51)))
|
||||
#define RTDCOUNTSTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RTDCOUNTSTIMESTAMP(x) (*((U64 *)((uptr)(x)+9)))
|
||||
#define RTDCOUNTSIT(x,i) (((uptr *)((uptr)(x)+17))[i])
|
||||
#define RECORDDESCPARENT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RECORDDESCSIZE(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RECORDDESCPM(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define RECORDDESCMPM(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define RECORDDESCNAME(x) (*((ptr *)((uptr)(x)+41)))
|
||||
#define RECORDDESCFLDS(x) (*((ptr *)((uptr)(x)+49)))
|
||||
#define RECORDDESCFLAGS(x) (*((ptr *)((uptr)(x)+57)))
|
||||
#define RECORDDESCUID(x) (*((ptr *)((uptr)(x)+65)))
|
||||
#define RECORDDESCCOUNTS(x) (*((ptr *)((uptr)(x)+73)))
|
||||
#define RECORDINSTTYPE(x) (*((ptr *)((uptr)(x)+1)))
|
||||
#define RECORDINSTIT(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define CLOSCODE(p) ((ptr)((uptr)CLOSENTRY(p)-code_data_disp))
|
||||
#define CODEENTRYPOINT(x) ((ptr)((uptr)(x)+code_data_disp))
|
||||
#define SETCLOSCODE(p,x) (CLOSENTRY(p) = CODEENTRYPOINT(x))
|
||||
#define SYMCODE(p) ((ptr)((uptr)SYMPVAL(p)-code_data_disp))
|
||||
#define INITSYMCODE(p,x) (INITSYMPVAL(p) = CODEENTRYPOINT(x))
|
||||
#define SETSYMCODE(p,x) SETSYMPVAL(p,CODEENTRYPOINT(x))
|
||||
#define BIGLEN(x) ((iptr)((uptr)BIGTYPE(x) >> bignum_length_offset))
|
||||
#define BIGSIGN(x) ((BIGTYPE(x) & mask_bignum_sign) >> bignum_sign_offset)
|
||||
#define SETBIGLENANDSIGN(x,xl,xs) BIGTYPE(x) = (uptr)(xl) << bignum_length_offset | (xs) << bignum_sign_offset | type_bignum
|
||||
#define CLOSLEN(p) CODEFREE(CLOSCODE(p))
|
||||
#define GUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define GUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define GUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define GUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define INITGUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define INITGUARDIANREP(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define INITGUARDIANTCONC(x) (*((ptr *)((uptr)(x)+16)))
|
||||
#define INITGUARDIANNEXT(x) (*((ptr *)((uptr)(x)+24)))
|
||||
#define FORWARDMARKER(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define FORWARDADDRESS(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define CACHEDSTACKSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define CACHEDSTACKLINK(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define RPHEADERFRAMESIZE(x) (*((iptr *)((uptr)(x)+16)))
|
||||
#define RPHEADERLIVEMASK(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define RPHEADERTOPLINK(x) (*((uptr *)((uptr)(x)+8)))
|
||||
|
||||
/* machine types */
|
||||
#define machine_type_names {"any", "i3le", "ti3le", "i3nt", "ti3nt", "i3fb", "ti3fb", "i3ob", "ti3ob", "i3osx", "ti3osx", "a6le", "ta6le", "a6osx", "ta6osx", "a6ob", "ta6ob", "a6s2", "ta6s2", "i3s2", "ti3s2", "a6fb", "ta6fb", "i3nb", "ti3nb", "a6nb", "ta6nb", "a6nt", "ta6nt", "i3qnx", "ti3qnx", "arm32le", "tarm32le", "ppc32le", "tppc32le"}
|
||||
|
||||
/* allocation-space names */
|
||||
#define alloc_space_names "new", "impure", "symbol", "port", "weakpr", "emph", "pure", "cont", "code", "p-tobj", "ip-rec", "data", "empty"
|
||||
|
||||
/* allocation-space characters */
|
||||
#define alloc_space_chars 'n', 'i', 'x', 'q', 'w', 'e', 'p', 'k', 'c', 'r', 's', 'd', 'e'
|
||||
|
||||
/* threads */
|
||||
#define THREADTC(x) (*((uptr *)((uptr)(x)+9)))
|
||||
|
||||
/* thread-context data */
|
||||
#define DSTBV(x) (*((ptr *)((uptr)(x)+680)))
|
||||
#define SRCBV(x) (*((ptr *)((uptr)(x)+688)))
|
||||
#define U(x) (*((ptr *)((uptr)(x)+352)))
|
||||
#define V(x) (*((ptr *)((uptr)(x)+360)))
|
||||
#define W(x) (*((ptr *)((uptr)(x)+368)))
|
||||
#define X(x) (*((ptr *)((uptr)(x)+376)))
|
||||
#define Y(x) (*((ptr *)((uptr)(x)+384)))
|
||||
#define AC0(x) (*((void* *)((uptr)(x)+40)))
|
||||
#define AC1(x) (*((void* *)((uptr)(x)+48)))
|
||||
#define ACTIVE(x) (*((I32 *)((uptr)(x)+308)))
|
||||
#define ALLOCCOUNTER(x) (*((U64 *)((uptr)(x)+664)))
|
||||
#define AP(x) (*((void* *)((uptr)(x)+80)))
|
||||
#define ARGREGS(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define BLOCKCOUNTER(x) (*((ptr *)((uptr)(x)+472)))
|
||||
#define CCHAIN(x) (*((ptr *)((uptr)(x)+288)))
|
||||
#define CODERANGESTOFLUSH(x) (*((ptr *)((uptr)(x)+296)))
|
||||
#define COMPILEPROFILE(x) (*((ptr *)((uptr)(x)+560)))
|
||||
#define COMPRESSFORMAT(x) (*((ptr *)((uptr)(x)+632)))
|
||||
#define COMPRESSLEVEL(x) (*((ptr *)((uptr)(x)+640)))
|
||||
#define CP(x) (*((void* *)((uptr)(x)+64)))
|
||||
#define CURRENTERROR(x) (*((ptr *)((uptr)(x)+464)))
|
||||
#define CURRENTINPUT(x) (*((ptr *)((uptr)(x)+448)))
|
||||
#define CURRENTMSO(x) (*((ptr *)((uptr)(x)+488)))
|
||||
#define CURRENTOUTPUT(x) (*((ptr *)((uptr)(x)+456)))
|
||||
#define DEFAULTRECORDEQUALPROCEDURE(x) (*((ptr *)((uptr)(x)+616)))
|
||||
#define DEFAULTRECORDHASHPROCEDURE(x) (*((ptr *)((uptr)(x)+624)))
|
||||
#define DISABLECOUNT(x) (*((ptr *)((uptr)(x)+408)))
|
||||
#define EAP(x) (*((void* *)((uptr)(x)+88)))
|
||||
#define ESP(x) (*((void* *)((uptr)(x)+72)))
|
||||
#define FXFIRSTBITSETBV(x) (*((ptr *)((uptr)(x)+512)))
|
||||
#define FXLENGTHBV(x) (*((ptr *)((uptr)(x)+504)))
|
||||
#define GENERATEINSPECTORINFORMATION(x) (*((ptr *)((uptr)(x)+568)))
|
||||
#define GENERATEPROCEDURESOURCEINFORMATION(x) (*((ptr *)((uptr)(x)+576)))
|
||||
#define GENERATEPROFILEFORMS(x) (*((ptr *)((uptr)(x)+584)))
|
||||
#define GUARDIANENTRIES(x) (*((ptr *)((uptr)(x)+280)))
|
||||
#define INSTRCOUNTER(x) (*((U64 *)((uptr)(x)+656)))
|
||||
#define KEYBOARDINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+432)))
|
||||
#define LZ4OUTBUFFER(x) (*((void* *)((uptr)(x)+648)))
|
||||
#define METALEVEL(x) (*((ptr *)((uptr)(x)+552)))
|
||||
#define NULLIMMUTABLEBYTEVECTOR(x) (*((ptr *)((uptr)(x)+536)))
|
||||
#define NULLIMMUTABLEFXVECTOR(x) (*((ptr *)((uptr)(x)+528)))
|
||||
#define NULLIMMUTABLESTRING(x) (*((ptr *)((uptr)(x)+544)))
|
||||
#define NULLIMMUTABLEVECTOR(x) (*((ptr *)((uptr)(x)+520)))
|
||||
#define OPTIMIZELEVEL(x) (*((ptr *)((uptr)(x)+592)))
|
||||
#define PARAMETERS(x) (*((ptr *)((uptr)(x)+672)))
|
||||
#define RANDOMSEED(x) (*((U32 *)((uptr)(x)+304)))
|
||||
#define REAL_EAP(x) (*((void* *)((uptr)(x)+144)))
|
||||
#define RET(x) (*((void* *)((uptr)(x)+96)))
|
||||
#define SCHEMESTACK(x) (*((void* *)((uptr)(x)+312)))
|
||||
#define SCHEMESTACKSIZE(x) (*((iptr *)((uptr)(x)+336)))
|
||||
#define SFD(x) (*((ptr *)((uptr)(x)+480)))
|
||||
#define SFP(x) (*((void* *)((uptr)(x)+56)))
|
||||
#define SIGNALINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+416)))
|
||||
#define SIGNALINTERRUPTQUEUE(x) (*((ptr *)((uptr)(x)+424)))
|
||||
#define SOMETHINGPENDING(x) (*((ptr *)((uptr)(x)+392)))
|
||||
#define STACKCACHE(x) (*((ptr *)((uptr)(x)+320)))
|
||||
#define STACKLINK(x) (*((ptr *)((uptr)(x)+328)))
|
||||
#define SUBSETMODE(x) (*((ptr *)((uptr)(x)+600)))
|
||||
#define SUPPRESSPRIMITIVEINLINING(x) (*((ptr *)((uptr)(x)+608)))
|
||||
#define TARGETMACHINE(x) (*((ptr *)((uptr)(x)+496)))
|
||||
#define TD(x) (*((void* *)((uptr)(x)+136)))
|
||||
#define THREADNO(x) (*((ptr *)((uptr)(x)+440)))
|
||||
#define TIMERTICKS(x) (*((ptr *)((uptr)(x)+400)))
|
||||
#define TRAP(x) (*((void* *)((uptr)(x)+104)))
|
||||
#define TS(x) (*((void* *)((uptr)(x)+128)))
|
||||
#define VIRTUALREGISTERS(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
#define WINDERS(x) (*((ptr *)((uptr)(x)+344)))
|
||||
#define XP(x) (*((void* *)((uptr)(x)+112)))
|
||||
#define YP(x) (*((void* *)((uptr)(x)+120)))
|
||||
#define ARGREG(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define VIRTREG(x,i) (((ptr *)((uptr)(x)+152))[i])
|
||||
|
||||
/* library entries we access from C code */
|
||||
#define library_nonprocedure_code 152
|
||||
#define library_dounderflow 154
|
||||
BIN
boot/ta6osx/petite.boot
Normal file
BIN
boot/ta6osx/petite.boot
Normal file
Binary file not shown.
BIN
boot/ta6osx/scheme.boot
Normal file
BIN
boot/ta6osx/scheme.boot
Normal file
Binary file not shown.
245
boot/ta6osx/scheme.h
Normal file
245
boot/ta6osx/scheme.h
Normal file
|
|
@ -0,0 +1,245 @@
|
|||
/* scheme.h for Chez Scheme Version 9.5.9 (ta6osx) */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct scheme.h */
|
||||
/* for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Specify declaration of exports. */
|
||||
#ifdef _WIN32
|
||||
# if __cplusplus
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern "C" __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern "C" __declspec (dllexport)
|
||||
# endif
|
||||
# else
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern
|
||||
# else
|
||||
# define EXPORT extern __declspec (dllexport)
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# if __cplusplus
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern
|
||||
# endif
|
||||
#endif
|
||||
|
||||
/* Chez Scheme Version and machine type */
|
||||
#define VERSION "9.5.9"
|
||||
#define MACHINE_TYPE "ta6osx"
|
||||
|
||||
/* All Scheme objects are of type ptr. Type iptr and */
|
||||
/* uptr are signed and unsigned ints of the same size */
|
||||
/* as a ptr */
|
||||
typedef void * ptr;
|
||||
typedef long int iptr;
|
||||
typedef unsigned long int uptr;
|
||||
|
||||
/* String elements are 32-bit tagged char objects */
|
||||
typedef unsigned int string_char;
|
||||
|
||||
/* Bytevector elements are 8-bit unsigned "octets" */
|
||||
typedef unsigned char octet;
|
||||
|
||||
/* Type predicates */
|
||||
#define Sfixnump(x) (((uptr)(x)&0x7)==0x0)
|
||||
#define Scharp(x) (((uptr)(x)&0xFF)==0x16)
|
||||
#define Snullp(x) ((uptr)(x)==0x26)
|
||||
#define Seof_objectp(x) ((uptr)(x)==0x36)
|
||||
#define Sbwp_objectp(x) ((uptr)(x)==0x4E)
|
||||
#define Sbooleanp(x) (((uptr)(x)&0xF7)==0x6)
|
||||
#define Spairp(x) (((uptr)(x)&0x7)==0x1)
|
||||
#define Ssymbolp(x) (((uptr)(x)&0x7)==0x3)
|
||||
#define Sprocedurep(x) (((uptr)(x)&0x7)==0x5)
|
||||
#define Sflonump(x) (((uptr)(x)&0x7)==0x2)
|
||||
#define Svectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x0))
|
||||
#define Sfxvectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x3))
|
||||
#define Sbytevectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x1))
|
||||
#define Sstringp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x2))
|
||||
#define Sbignump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1F)==0x6))
|
||||
#define Sboxp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7F)==0xE))
|
||||
#define Sinexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x36))
|
||||
#define Sexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x56))
|
||||
#define Sratnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x16))
|
||||
#define Sinputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1FF)==0x11E))
|
||||
#define Soutputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x2FF)==0x21E))
|
||||
#define Srecordp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x7))
|
||||
|
||||
/* Accessors */
|
||||
#define Sfixnum_value(x) ((iptr)(x)/8)
|
||||
#define Schar_value(x) ((string_char)((uptr)(x)>>8))
|
||||
#define Sboolean_value(x) ((x) != Sfalse)
|
||||
#define Scar(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define Scdr(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define Sflonum_value(x) (*((double *)((uptr)(x)+6)))
|
||||
#define Svector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Svector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sfxvector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sfxvector_ref(x,i) (((ptr *)((uptr)(x)+9))[i])
|
||||
#define Sbytevector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Sbytevector_u8_ref(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
/* Warning: Sbytevector_data(x) returns a pointer into x. */
|
||||
#define Sbytevector_data(x) &Sbytevector_u8_ref(x,0)
|
||||
#define Sstring_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sstring_ref(x,i) Schar_value(((string_char *)((uptr)(x)+9))[i])
|
||||
#define Sunbox(x) (*((ptr *)((uptr)(x)+9)))
|
||||
EXPORT iptr Sinteger_value(ptr);
|
||||
#define Sunsigned_value(x) (uptr)Sinteger_value(x)
|
||||
EXPORT int Sinteger32_value(ptr);
|
||||
#define Sunsigned32_value(x) (unsigned int)Sinteger32_value(x)
|
||||
EXPORT long Sinteger64_value(ptr);
|
||||
#define Sunsigned64_value(x) (unsigned long)Sinteger64_value(x)
|
||||
|
||||
/* Mutators */
|
||||
EXPORT void Sset_box(ptr, ptr);
|
||||
EXPORT void Sset_car(ptr, ptr);
|
||||
EXPORT void Sset_cdr(ptr, ptr);
|
||||
#define Sstring_set(x,i,c) ((void)((((string_char *)((uptr)(x)+9))[i]) = (string_char)(uptr)Schar(c)))
|
||||
#define Sfxvector_set(x,i,n) ((void)(Sfxvector_ref(x,i) = (n)))
|
||||
#define Sbytevector_u8_set(x,i,n) ((void)(Sbytevector_u8_ref(x,i) = (n)))
|
||||
EXPORT void Svector_set(ptr, iptr, ptr);
|
||||
|
||||
/* Constructors */
|
||||
#define Sfixnum(x) ((ptr)(uptr)((x)*8))
|
||||
#define Schar(x) ((ptr)(uptr)((x)<<8|0x16))
|
||||
#define Snil ((ptr)0x26)
|
||||
#define Strue ((ptr)0xE)
|
||||
#define Sfalse ((ptr)0x6)
|
||||
#define Sboolean(x) ((x)?Strue:Sfalse)
|
||||
#define Sbwp_object ((ptr)0x4E)
|
||||
#define Seof_object ((ptr)0x36)
|
||||
#define Svoid ((ptr)0x3E)
|
||||
EXPORT ptr Scons(ptr, ptr);
|
||||
EXPORT ptr Sstring_to_symbol(const char *);
|
||||
EXPORT ptr Ssymbol_to_string(ptr);
|
||||
EXPORT ptr Sflonum(double);
|
||||
EXPORT ptr Smake_vector(iptr, ptr);
|
||||
EXPORT ptr Smake_fxvector(iptr, ptr);
|
||||
EXPORT ptr Smake_bytevector(iptr, int);
|
||||
EXPORT ptr Smake_string(iptr, int);
|
||||
EXPORT ptr Smake_uninitialized_string(iptr);
|
||||
EXPORT ptr Sstring(const char *);
|
||||
EXPORT ptr Sstring_of_length(const char *, iptr);
|
||||
EXPORT ptr Sstring_utf8(const char*, iptr);
|
||||
EXPORT ptr Sbox(ptr);
|
||||
EXPORT ptr Sinteger(iptr);
|
||||
EXPORT ptr Sunsigned(uptr);
|
||||
EXPORT ptr Sinteger32(int);
|
||||
EXPORT ptr Sunsigned32(unsigned int);
|
||||
EXPORT ptr Sinteger64(long);
|
||||
EXPORT ptr Sunsigned64(unsigned long);
|
||||
|
||||
/* Miscellaneous */
|
||||
EXPORT ptr Stop_level_value(ptr);
|
||||
EXPORT void Sset_top_level_value(ptr, ptr);
|
||||
EXPORT void Slock_object(ptr);
|
||||
EXPORT void Sunlock_object(ptr);
|
||||
EXPORT int Slocked_objectp(ptr);
|
||||
EXPORT void Sforeign_symbol(const char *, void *);
|
||||
EXPORT void Sregister_symbol(const char *, void *);
|
||||
|
||||
/* Support for calls into Scheme */
|
||||
EXPORT ptr Scall0(ptr);
|
||||
EXPORT ptr Scall1(ptr, ptr);
|
||||
EXPORT ptr Scall2(ptr, ptr, ptr);
|
||||
EXPORT ptr Scall3(ptr, ptr, ptr, ptr);
|
||||
EXPORT void Sinitframe(iptr);
|
||||
EXPORT void Sput_arg(iptr, ptr);
|
||||
EXPORT ptr Scall(ptr, iptr);
|
||||
/* Warning: Sforeign_callable_entry_point(x) returns a pointer into x. */
|
||||
#define Sforeign_callable_entry_point(x) ((void (*)(void))((uptr)(x)+65))
|
||||
#define Sforeign_callable_code_object(x) ((ptr)((uptr)(x)-65))
|
||||
|
||||
/* Customization support. */
|
||||
EXPORT const char * Skernel_version(void);
|
||||
EXPORT void Sretain_static_relocation(void);
|
||||
EXPORT void Sset_verbose(int);
|
||||
EXPORT void Sscheme_init(void (*)(void));
|
||||
EXPORT void Sregister_boot_file(const char *);
|
||||
EXPORT void Sregister_boot_file_fd(const char *, int fd);
|
||||
EXPORT void Sregister_heap_file(const char *);
|
||||
EXPORT void Scompact_heap(void);
|
||||
EXPORT void Ssave_heap(const char *, int);
|
||||
EXPORT void Sbuild_heap(const char *, void (*)(void));
|
||||
EXPORT void Senable_expeditor(const char *);
|
||||
EXPORT int Sscheme_start(int, const char *[]);
|
||||
EXPORT int Sscheme_script(const char *, int, const char *[]);
|
||||
EXPORT int Sscheme_program(const char *, int, const char *[]);
|
||||
EXPORT void Sscheme_deinit(void);
|
||||
|
||||
/* Thread support. */
|
||||
EXPORT int Sactivate_thread(void);
|
||||
EXPORT void Sdeactivate_thread(void);
|
||||
EXPORT int Sdestroy_thread(void);
|
||||
|
||||
/* Features. */
|
||||
#define FEATURE_ICONV
|
||||
#define FEATURE_EXPEDITOR
|
||||
#define FEATURE_PTHREADS
|
||||
|
||||
/* Locking macros. */
|
||||
#define INITLOCK(addr) \
|
||||
__asm__ __volatile__ ("movq $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "memory")
|
||||
|
||||
#define SPINLOCK(addr) \
|
||||
__asm__ __volatile__ ("0:\n\t"\
|
||||
"movq $1, %%rax\n\t"\
|
||||
"xchgq (%0), %%rax\n\t"\
|
||||
"cmpq $0, %%rax\n\t"\
|
||||
"je 2f\n\t"\
|
||||
"1:\n\t"\
|
||||
"pause\n\t"\
|
||||
"cmpq $0, (%0)\n\t"\
|
||||
"je 0b\n\t"\
|
||||
"jmp 1b\n\t"\
|
||||
"2:"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "rax", "flags", "memory")
|
||||
|
||||
#define UNLOCK(addr) \
|
||||
__asm__ __volatile__ ("movq $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
:"memory")
|
||||
|
||||
#define LOCKED_INCR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; incq (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
|
||||
#define LOCKED_DECR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; decq (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
991
boot/ti3le/equates.h
Normal file
991
boot/ti3le/equates.h
Normal file
|
|
@ -0,0 +1,991 @@
|
|||
/* equates.h for Chez Scheme Version 9.5.9 */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct version */
|
||||
/* of this file for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Integer typedefs */
|
||||
typedef char I8;
|
||||
typedef unsigned char U8;
|
||||
typedef short I16;
|
||||
typedef unsigned short U16;
|
||||
typedef int I32;
|
||||
typedef unsigned int U32;
|
||||
typedef long long I64;
|
||||
typedef unsigned long long U64;
|
||||
|
||||
/* constants from cmacros.ss */
|
||||
#define $c_func_closure_index 0x4
|
||||
#define $c_func_closure_record_index 0x3
|
||||
#define $c_func_code_object_index 0x2
|
||||
#define $c_func_code_record_index 0x1
|
||||
#define COMPRESS_FORMAT_BITS 0x3
|
||||
#define COMPRESS_GZIP 0x0
|
||||
#define COMPRESS_HIGH 0x3
|
||||
#define COMPRESS_LOW 0x1
|
||||
#define COMPRESS_LZ4 0x1
|
||||
#define COMPRESS_MAX 0x4
|
||||
#define COMPRESS_MEDIUM 0x2
|
||||
#define COMPRESS_MIN 0x0
|
||||
#define ERROR_CALL_ARGUMENT_COUNT 0x4
|
||||
#define ERROR_CALL_NONPROCEDURE 0x3
|
||||
#define ERROR_CALL_NONPROCEDURE_SYMBOL 0x2
|
||||
#define ERROR_CALL_UNBOUND 0x1
|
||||
#define ERROR_MVLET 0x8
|
||||
#define ERROR_NONCONTINUABLE_INTERRUPT 0x6
|
||||
#define ERROR_OTHER 0x0
|
||||
#define ERROR_RESET 0x5
|
||||
#define ERROR_VALUES 0x7
|
||||
#define OPEN_ERROR_EXISTS 0x2
|
||||
#define OPEN_ERROR_EXISTSNOT 0x3
|
||||
#define OPEN_ERROR_OTHER 0x0
|
||||
#define OPEN_ERROR_PROTECTION 0x1
|
||||
#define PORT_FLAG_BINARY 0x400
|
||||
#define PORT_FLAG_BLOCK_BUFFERED 0x20000
|
||||
#define PORT_FLAG_BOL 0x8000
|
||||
#define PORT_FLAG_CHAR_POSITIONS 0x100000
|
||||
#define PORT_FLAG_CLOSED 0x800
|
||||
#define PORT_FLAG_COMPRESSED 0x2000
|
||||
#define PORT_FLAG_EOF 0x10000
|
||||
#define PORT_FLAG_EXCLUSIVE 0x4000
|
||||
#define PORT_FLAG_FILE 0x1000
|
||||
#define PORT_FLAG_FOLD_CASE 0x400000
|
||||
#define PORT_FLAG_INPUT 0x100
|
||||
#define PORT_FLAG_INPUT_MODE 0x80000
|
||||
#define PORT_FLAG_LINE_BUFFERED 0x40000
|
||||
#define PORT_FLAG_NO_FOLD_CASE 0x800000
|
||||
#define PORT_FLAG_OUTPUT 0x200
|
||||
#define PORT_FLAG_R6RS 0x200000
|
||||
#define SAPPEND 0x3
|
||||
#define SDEFAULT 0x4
|
||||
#define SEOF -0x1
|
||||
#define SERROR 0x0
|
||||
#define SICONV_DUNNO 0x0
|
||||
#define SICONV_INCOMPLETE 0x2
|
||||
#define SICONV_INVALID 0x1
|
||||
#define SICONV_NOROOM 0x3
|
||||
#define SREPLACE 0x2
|
||||
#define STRVNCATE 0x1
|
||||
#define address_bits 0x20
|
||||
#define alloc_waste_maximum 0x400
|
||||
#define annotation_all 0x3
|
||||
#define annotation_debug 0x1
|
||||
#define annotation_profile 0x2
|
||||
#define architecture x86
|
||||
#define asm_arg_reg_cnt 0x1
|
||||
#define asm_arg_reg_max 0x1
|
||||
#define bigit_bits 0x20
|
||||
#define bigit_bytes 0x4
|
||||
#define bignum_data_disp 0x5
|
||||
#define bignum_length_factor 0x40
|
||||
#define bignum_length_offset 0x6
|
||||
#define bignum_sign_offset 0x5
|
||||
#define bignum_type_disp 0x1
|
||||
#define black_hole (ptr)0x46
|
||||
#define box_ref_disp 0x5
|
||||
#define box_type_disp 0x1
|
||||
#define byte_alignment 0x8
|
||||
#define byte_constant_mask 0xFFFFFFFF
|
||||
#define bytes_per_card 0x100
|
||||
#define bytes_per_segment 0x2000
|
||||
#define bytevector_data_disp 0x9
|
||||
#define bytevector_immutable_flag 0x4
|
||||
#define bytevector_length_factor 0x8
|
||||
#define bytevector_length_offset 0x3
|
||||
#define bytevector_pad_disp 0x5
|
||||
#define bytevector_type_disp 0x1
|
||||
#define c_entry_name_vector #(thread-context get-thread-context handle-apply-overflood handle-docall-error handle-overflow handle-overflood handle-nonprocedure-symbol thread-list split-and-resize raw-collect-cond raw-tc-mutex activate-thread deactivate-thread unactivate-thread handle-values-error handle-mvlet-error handle-arg-error foreign-entry install-library-entry get-more-room scan-remembered-set instantiate-code-object Sreturn Scall-one-result Scall-any-results)
|
||||
#define c_entry_vector_size 0x19
|
||||
#define cached_stack_link_disp 0x4
|
||||
#define cached_stack_size_disp 0x0
|
||||
#define card_offset_bits 0x8
|
||||
#define cards_per_segment 0x20
|
||||
#define char_data_offset 0x8
|
||||
#define char_factor 0x100
|
||||
#define closure_code_disp 0x3
|
||||
#define closure_data_disp 0x7
|
||||
#define code_arity_mask_disp 0x11
|
||||
#define code_closure_length_disp 0x15
|
||||
#define code_data_disp 0x21
|
||||
#define code_flag_continuation 0x2
|
||||
#define code_flag_guardian 0x8
|
||||
#define code_flag_system 0x1
|
||||
#define code_flag_template 0x4
|
||||
#define code_flags_offset 0x8
|
||||
#define code_info_disp 0x19
|
||||
#define code_length_disp 0x5
|
||||
#define code_name_disp 0xD
|
||||
#define code_pinfos_disp 0x1D
|
||||
#define code_reloc_disp 0x9
|
||||
#define code_type_disp 0x1
|
||||
#define collect_interrupt_index 0x1
|
||||
#define continuation_code_disp 0x3
|
||||
#define continuation_link_disp 0x13
|
||||
#define continuation_return_address_disp 0x17
|
||||
#define continuation_stack_clength_disp 0xF
|
||||
#define continuation_stack_disp 0x7
|
||||
#define continuation_stack_length_disp 0xB
|
||||
#define continuation_winders_disp 0x1B
|
||||
#define countof_bignum 0x5
|
||||
#define countof_box 0x9
|
||||
#define countof_bytevector 0x15
|
||||
#define countof_closure 0x3
|
||||
#define countof_code 0xB
|
||||
#define countof_continuation 0x4
|
||||
#define countof_ephemeron 0x19
|
||||
#define countof_exactnum 0x8
|
||||
#define countof_flonum 0x2
|
||||
#define countof_fxvector 0x14
|
||||
#define countof_guardian 0x17
|
||||
#define countof_inexactnum 0x7
|
||||
#define countof_locked 0x16
|
||||
#define countof_oblist 0x18
|
||||
#define countof_pair 0x0
|
||||
#define countof_port 0xA
|
||||
#define countof_ratnum 0x6
|
||||
#define countof_relocation_table 0x10
|
||||
#define countof_rtd_counts 0xE
|
||||
#define countof_stack 0xF
|
||||
#define countof_string 0x13
|
||||
#define countof_symbol 0x1
|
||||
#define countof_thread 0xC
|
||||
#define countof_tlc 0xD
|
||||
#define countof_types 0x1A
|
||||
#define countof_vector 0x12
|
||||
#define countof_weakpair 0x11
|
||||
#define default_collect_trip_bytes 0x400000
|
||||
#define default_heap_reserve_ratio 1.0
|
||||
#define default_max_nonstatic_generation 0x4
|
||||
#define default_stack_size 0x7FF8
|
||||
#define default_timer_ticks 0x3E8
|
||||
#define dtvec_hour 0x3
|
||||
#define dtvec_isdst 0x9
|
||||
#define dtvec_mday 0x4
|
||||
#define dtvec_min 0x2
|
||||
#define dtvec_mon 0x5
|
||||
#define dtvec_nsec 0x0
|
||||
#define dtvec_sec 0x1
|
||||
#define dtvec_size 0xC
|
||||
#define dtvec_tzname 0xB
|
||||
#define dtvec_tzoff 0xA
|
||||
#define dtvec_wday 0x7
|
||||
#define dtvec_yday 0x8
|
||||
#define dtvec_year 0x6
|
||||
#define ephemeron_car_disp 0x7
|
||||
#define ephemeron_cdr_disp 0xB
|
||||
#define ephemeron_next_disp 0xF
|
||||
#define ephemeron_trigger_next_disp 0x13
|
||||
#define eq_hashtable_subtype_ephemeron 0x2
|
||||
#define eq_hashtable_subtype_normal 0x0
|
||||
#define eq_hashtable_subtype_weak 0x1
|
||||
#define exactnum_imag_disp 0x9
|
||||
#define exactnum_real_disp 0x5
|
||||
#define exactnum_type_disp 0x1
|
||||
#define fasl_fld_double 0xA
|
||||
#define fasl_fld_i16 0x2
|
||||
#define fasl_fld_i24 0x3
|
||||
#define fasl_fld_i32 0x4
|
||||
#define fasl_fld_i40 0x5
|
||||
#define fasl_fld_i48 0x6
|
||||
#define fasl_fld_i56 0x7
|
||||
#define fasl_fld_i64 0x8
|
||||
#define fasl_fld_ptr 0x0
|
||||
#define fasl_fld_single 0x9
|
||||
#define fasl_fld_u8 0x1
|
||||
#define fasl_header #vu8(0 0 0 0 99 104 101 122)
|
||||
#define fasl_type_base_rtd 0x1A
|
||||
#define fasl_type_box 0x1
|
||||
#define fasl_type_bytevector 0x1D
|
||||
#define fasl_type_closure 0x6
|
||||
#define fasl_type_code 0xB
|
||||
#define fasl_type_entry 0xD
|
||||
#define fasl_type_ephemeron 0x1C
|
||||
#define fasl_type_eq_hashtable 0x1F
|
||||
#define fasl_type_exactnum 0x14
|
||||
#define fasl_type_flonum 0x8
|
||||
#define fasl_type_fxvector 0x1B
|
||||
#define fasl_type_gensym 0x13
|
||||
#define fasl_type_graph 0x10
|
||||
#define fasl_type_graph_def 0x11
|
||||
#define fasl_type_graph_ref 0x12
|
||||
#define fasl_type_gzip 0x2B
|
||||
#define fasl_type_header 0x0
|
||||
#define fasl_type_immediate 0xC
|
||||
#define fasl_type_immutable_box 0x29
|
||||
#define fasl_type_immutable_bytevector 0x28
|
||||
#define fasl_type_immutable_fxvector 0x27
|
||||
#define fasl_type_immutable_string 0x26
|
||||
#define fasl_type_immutable_vector 0x25
|
||||
#define fasl_type_inexactnum 0x5
|
||||
#define fasl_type_large_integer 0xA
|
||||
#define fasl_type_library 0xE
|
||||
#define fasl_type_library_code 0xF
|
||||
#define fasl_type_lz4 0x2C
|
||||
#define fasl_type_pair 0x7
|
||||
#define fasl_type_ratnum 0x3
|
||||
#define fasl_type_record 0x17
|
||||
#define fasl_type_revisit 0x23
|
||||
#define fasl_type_rtd 0x18
|
||||
#define fasl_type_small_integer 0x19
|
||||
#define fasl_type_string 0x9
|
||||
#define fasl_type_symbol 0x2
|
||||
#define fasl_type_symbol_hashtable 0x20
|
||||
#define fasl_type_uncompressed 0x2A
|
||||
#define fasl_type_vector 0x4
|
||||
#define fasl_type_visit 0x22
|
||||
#define fasl_type_visit_revisit 0x24
|
||||
#define fasl_type_weak_pair 0x1E
|
||||
#define fixnum_bits 0x1E
|
||||
#define fixnum_factor 0x4
|
||||
#define fixnum_offset 0x2
|
||||
#define fld_byte_index 0x4
|
||||
#define fld_mutablep_index 0x2
|
||||
#define fld_name_index 0x1
|
||||
#define fld_type_index 0x3
|
||||
#define flonum_data_disp 0x6
|
||||
#define forward_address_disp 0x4
|
||||
#define forward_marker (ptr)0x2E
|
||||
#define forward_marker_disp 0x0
|
||||
#define ftype_guardian_rep (ptr)0x56
|
||||
#define fxvector_data_disp 0x5
|
||||
#define fxvector_immutable_flag 0x8
|
||||
#define fxvector_length_factor 0x10
|
||||
#define fxvector_length_offset 0x4
|
||||
#define fxvector_type_disp 0x1
|
||||
#define guardian_entry_next_disp 0xC
|
||||
#define guardian_entry_obj_disp 0x0
|
||||
#define guardian_entry_rep_disp 0x4
|
||||
#define guardian_entry_tconc_disp 0x8
|
||||
#define hashtable_default_size 0x8
|
||||
#define header_size_bignum 0x4
|
||||
#define header_size_bytevector 0x8
|
||||
#define header_size_closure 0x4
|
||||
#define header_size_code 0x20
|
||||
#define header_size_fxvector 0x4
|
||||
#define header_size_record 0x4
|
||||
#define header_size_reloc_table 0x8
|
||||
#define header_size_string 0x4
|
||||
#define header_size_vector 0x4
|
||||
#define ignore_event_flag 0x0
|
||||
#define inexactnum_imag_disp 0x11
|
||||
#define inexactnum_pad_disp 0x5
|
||||
#define inexactnum_real_disp 0x9
|
||||
#define inexactnum_type_disp 0x1
|
||||
#define int_bits 0x20
|
||||
#define integer_divide_instruction 1
|
||||
#define keyboard_interrupt_index 0x3
|
||||
#define library_entry_vector_size 0x210
|
||||
#define libspec_closure_index 0xD
|
||||
#define libspec_does_not_expect_headroom_index 0x0
|
||||
#define libspec_error_index 0xE
|
||||
#define libspec_fake_index 0x10
|
||||
#define libspec_flags_index 0x2
|
||||
#define libspec_has_does_not_expect_headroom_version_index 0xF
|
||||
#define libspec_index_base_offset 0x1
|
||||
#define libspec_index_base_size 0x9
|
||||
#define libspec_index_offset 0x0
|
||||
#define libspec_index_size 0xA
|
||||
#define libspec_interface_offset 0xA
|
||||
#define libspec_interface_size 0x3
|
||||
#define libspec_name_index 0x1
|
||||
#define log2_ptr_bytes 0x2
|
||||
#define long_bits 0x20
|
||||
#define long_long_bits 0x40
|
||||
#define machine_type 0x2
|
||||
#define machine_type_a6fb 0x15
|
||||
#define machine_type_a6le 0xB
|
||||
#define machine_type_a6nb 0x19
|
||||
#define machine_type_a6nt 0x1B
|
||||
#define machine_type_a6ob 0xF
|
||||
#define machine_type_a6osx 0xD
|
||||
#define machine_type_a6s2 0x11
|
||||
#define machine_type_alist ((0 . any) (1 . i3le) (2 . ti3le) (3 . i3nt) (4 . ti3nt) (5 . i3fb) (6 . ti3fb) (7 . i3ob) (8 . ti3ob) (9 . i3osx) (10 . ti3osx) (11 . a6le) (12 . ta6le) (13 . a6osx) (14 . ta6osx) (15 . a6ob) (16 . ta6ob) (17 . a6s2) (18 . ta6s2) (19 . i3s2) (20 . ti3s2) (21 . a6fb) (22 . ta6fb) (23 . i3nb) (24 . ti3nb) (25 . a6nb) (26 . ta6nb) (27 . a6nt) (28 . ta6nt) (29 . i3qnx) (30 . ti3qnx) (31 . arm32le) (32 . tarm32le) (33 . ppc32le) (34 . tppc32le))
|
||||
#define machine_type_any 0x0
|
||||
#define machine_type_arm32le 0x1F
|
||||
#define machine_type_i3fb 0x5
|
||||
#define machine_type_i3le 0x1
|
||||
#define machine_type_i3nb 0x17
|
||||
#define machine_type_i3nt 0x3
|
||||
#define machine_type_i3ob 0x7
|
||||
#define machine_type_i3osx 0x9
|
||||
#define machine_type_i3qnx 0x1D
|
||||
#define machine_type_i3s2 0x13
|
||||
#define machine_type_limit 0x23
|
||||
#define machine_type_name ti3le
|
||||
#define machine_type_ppc32le 0x21
|
||||
#define machine_type_ta6fb 0x16
|
||||
#define machine_type_ta6le 0xC
|
||||
#define machine_type_ta6nb 0x1A
|
||||
#define machine_type_ta6nt 0x1C
|
||||
#define machine_type_ta6ob 0x10
|
||||
#define machine_type_ta6osx 0xE
|
||||
#define machine_type_ta6s2 0x12
|
||||
#define machine_type_tarm32le 0x20
|
||||
#define machine_type_ti3fb 0x6
|
||||
#define machine_type_ti3le 0x2
|
||||
#define machine_type_ti3nb 0x18
|
||||
#define machine_type_ti3nt 0x4
|
||||
#define machine_type_ti3ob 0x8
|
||||
#define machine_type_ti3osx 0xA
|
||||
#define machine_type_ti3qnx 0x1E
|
||||
#define machine_type_ti3s2 0x14
|
||||
#define machine_type_tppc32le 0x22
|
||||
#define mask_bignum 0x1F
|
||||
#define mask_bignum_sign 0x20
|
||||
#define mask_binary_input_port 0x5FF
|
||||
#define mask_binary_output_port 0x6FF
|
||||
#define mask_binary_port 0x4FF
|
||||
#define mask_boolean 0xF7
|
||||
#define mask_box 0x7F
|
||||
#define mask_bwp 0xFFFFFFFF
|
||||
#define mask_bytevector 0x3
|
||||
#define mask_char 0xFF
|
||||
#define mask_closure 0x7
|
||||
#define mask_code 0xFF
|
||||
#define mask_continuation_code 0x2FF
|
||||
#define mask_eof 0xFFFFFFFF
|
||||
#define mask_exactnum 0xFFFFFFFF
|
||||
#define mask_false 0xFFFFFFFF
|
||||
#define mask_fixnum 0x3
|
||||
#define mask_flonum 0x7
|
||||
#define mask_fxvector 0x7
|
||||
#define mask_guardian_code 0x8FF
|
||||
#define mask_immediate 0x7
|
||||
#define mask_inexactnum 0xFFFFFFFF
|
||||
#define mask_input_port 0x1FF
|
||||
#define mask_mutable_box 0xFFFFFFFF
|
||||
#define mask_mutable_bytevector 0x7
|
||||
#define mask_mutable_fxvector 0xF
|
||||
#define mask_mutable_string 0xF
|
||||
#define mask_mutable_vector 0x7
|
||||
#define mask_nil 0xFFFFFFFF
|
||||
#define mask_octet -0x3FD
|
||||
#define mask_other_number 0xF
|
||||
#define mask_output_port 0x2FF
|
||||
#define mask_pair 0x7
|
||||
#define mask_port 0xFF
|
||||
#define mask_ratnum 0xFFFFFFFF
|
||||
#define mask_record 0x7
|
||||
#define mask_rtd_counts 0xFFFFFFFF
|
||||
#define mask_signed_bignum 0x3F
|
||||
#define mask_string 0x7
|
||||
#define mask_symbol 0x7
|
||||
#define mask_system_code 0x1FF
|
||||
#define mask_textual_input_port 0x5FF
|
||||
#define mask_textual_output_port 0x6FF
|
||||
#define mask_textual_port 0x4FF
|
||||
#define mask_thread 0xFFFFFFFF
|
||||
#define mask_tlc 0xFFFFFFFF
|
||||
#define mask_typed_object 0x7
|
||||
#define mask_unbound 0xFFFFFFFF
|
||||
#define mask_vector 0x3
|
||||
#define max_float_alignment 0x4
|
||||
#define max_integer_alignment 0x4
|
||||
#define max_real_space 0xB
|
||||
#define max_space 0xC
|
||||
#define max_sweep_space 0xA
|
||||
#define maximum_bignum_length (iptr)0x3FFFFFF
|
||||
#define maximum_bytevector_length (iptr)0x1FFFFFFF
|
||||
#define maximum_fxvector_length (iptr)0xFFFFFFF
|
||||
#define maximum_interrupt_index 0x4
|
||||
#define maximum_string_length (iptr)0xFFFFFFF
|
||||
#define maximum_vector_length (iptr)0x1FFFFFFF
|
||||
#define minimum_segment_request 0x80
|
||||
#define most_negative_fixnum (iptr)-0x20000000
|
||||
#define most_positive_fixnum (iptr)0x1FFFFFFF
|
||||
#define native_endianness little
|
||||
#define one_shot_headroom 0x600
|
||||
#define ordinary_type_bits 0x8
|
||||
#define pair_car_disp 0x7
|
||||
#define pair_cdr_disp 0xB
|
||||
#define pair_shift 0x3
|
||||
#define port_flag_binary 0x4
|
||||
#define port_flag_block_buffered 0x200
|
||||
#define port_flag_bol 0x80
|
||||
#define port_flag_char_positions 0x1000
|
||||
#define port_flag_closed 0x8
|
||||
#define port_flag_compressed 0x20
|
||||
#define port_flag_eof 0x100
|
||||
#define port_flag_exclusive 0x40
|
||||
#define port_flag_file 0x10
|
||||
#define port_flag_fold_case 0x4000
|
||||
#define port_flag_input 0x1
|
||||
#define port_flag_input_mode 0x800
|
||||
#define port_flag_line_buffered 0x400
|
||||
#define port_flag_no_fold_case 0x8000
|
||||
#define port_flag_output 0x2
|
||||
#define port_flag_r6rs 0x2000
|
||||
#define port_flags_offset 0x8
|
||||
#define port_handler_disp 0x5
|
||||
#define port_ibuffer_disp 0x1D
|
||||
#define port_icount_disp 0xD
|
||||
#define port_ilast_disp 0x19
|
||||
#define port_info_disp 0x21
|
||||
#define port_name_disp 0x25
|
||||
#define port_obuffer_disp 0x15
|
||||
#define port_ocount_disp 0x9
|
||||
#define port_olast_disp 0x11
|
||||
#define port_type_disp 0x1
|
||||
#define prelex_is_flags_offset 0x8
|
||||
#define prelex_is_mask 0xFF00
|
||||
#define prelex_sticky_mask 0xFF
|
||||
#define prelex_was_flags_offset 0x10
|
||||
#define primary_type_bits 0x3
|
||||
#define ptr_bits 0x20
|
||||
#define ptr_bytes 0x4
|
||||
#define ptrdiff_t_bits 0x20
|
||||
#define ratnum_denominator_disp 0x9
|
||||
#define ratnum_numerator_disp 0x5
|
||||
#define ratnum_type_disp 0x1
|
||||
#define real_space_alist ((new . 0) (impure . 1) (symbol . 2) (port . 3) (weakpair . 4) (ephemeron . 5) (pure . 6) (continuation . 7) (code . 8) (pure-typed-object . 9) (impure-record . 10) (data . 11))
|
||||
#define record_data_disp 0x5
|
||||
#define record_type_counts_disp 0x25
|
||||
#define record_type_disp 0x1
|
||||
#define record_type_flags_disp 0x1D
|
||||
#define record_type_flds_disp 0x19
|
||||
#define record_type_mpm_disp 0x11
|
||||
#define record_type_name_disp 0x15
|
||||
#define record_type_parent_disp 0x5
|
||||
#define record_type_pm_disp 0xD
|
||||
#define record_type_size_disp 0x9
|
||||
#define record_type_type_disp 0x1
|
||||
#define record_type_uid_disp 0x21
|
||||
#define reloc_abs 0x0
|
||||
#define reloc_code_offset_index 0x3
|
||||
#define reloc_code_offset_mask 0x3FF
|
||||
#define reloc_code_offset_offset 0x4
|
||||
#define reloc_extended_format 0x1
|
||||
#define reloc_item_offset_index 0x2
|
||||
#define reloc_item_offset_mask 0x3FFFF
|
||||
#define reloc_item_offset_offset 0xE
|
||||
#define reloc_longp_index 0x4
|
||||
#define reloc_rel 0x1
|
||||
#define reloc_table_code_disp 0x4
|
||||
#define reloc_table_data_disp 0x8
|
||||
#define reloc_table_size_disp 0x0
|
||||
#define reloc_type_index 0x1
|
||||
#define reloc_type_mask 0x7
|
||||
#define reloc_type_offset 0x1
|
||||
#define return_address_frame_size_disp -0x8
|
||||
#define return_address_livemask_disp -0x10
|
||||
#define return_address_mv_return_address_disp -0x4
|
||||
#define return_address_toplink_disp -0xC
|
||||
#define rp_header_frame_size_disp 0x8
|
||||
#define rp_header_livemask_disp 0x0
|
||||
#define rp_header_mv_return_address_disp 0xC
|
||||
#define rp_header_toplink_disp 0x4
|
||||
#define rtd_counts_data_disp 0xD
|
||||
#define rtd_counts_timestamp_disp 0x5
|
||||
#define rtd_counts_type_disp 0x1
|
||||
#define rtd_generative 0x1
|
||||
#define rtd_opaque 0x2
|
||||
#define rtd_sealed 0x4
|
||||
#define sbwp (ptr)0x4E
|
||||
#define scaled_shot_1_shot_flag -0x4
|
||||
#define scheme_version 0x90509
|
||||
#define segment_card_offset_bits 0x5
|
||||
#define segment_offset_bits 0xD
|
||||
#define segment_t1_bits 0x13
|
||||
#define segment_table_levels 0x1
|
||||
#define seof (ptr)0x36
|
||||
#define sfalse (ptr)0x6
|
||||
#define short_bits 0x10
|
||||
#define signal_interrupt_index 0x4
|
||||
#define size_box 0x8
|
||||
#define size_cached_stack 0x8
|
||||
#define size_continuation 0x20
|
||||
#define size_ephemeron 0x10
|
||||
#define size_exactnum 0x10
|
||||
#define size_flonum 0x8
|
||||
#define size_forward 0x8
|
||||
#define size_guardian_entry 0x10
|
||||
#define size_inexactnum 0x18
|
||||
#define size_pair 0x8
|
||||
#define size_port 0x28
|
||||
#define size_ratnum 0x10
|
||||
#define size_record_type 0x28
|
||||
#define size_rp_header 0x10
|
||||
#define size_rtd_counts 0x410
|
||||
#define size_symbol 0x18
|
||||
#define size_tc 0x158
|
||||
#define size_thread 0x8
|
||||
#define size_tlc 0x10
|
||||
#define size_typed_object 0x8
|
||||
#define size_t_bits 0x20
|
||||
#define snil (ptr)0x26
|
||||
#define space_char_list (#\n #\i #\x #\q #\w #\e #\p #\k #\c #\r #\s #\d #\e)
|
||||
#define space_cname_list ("new" "impure" "symbol" "port" "weakpr" "emph" "pure" "cont" "code" "p-tobj" "ip-rec" "data" "empty")
|
||||
#define space_code 0x8
|
||||
#define space_continuation 0x7
|
||||
#define space_data 0xB
|
||||
#define space_empty 0xC
|
||||
#define space_ephemeron 0x5
|
||||
#define space_impure 0x1
|
||||
#define space_impure_record 0xA
|
||||
#define space_locked 0x20
|
||||
#define space_new 0x0
|
||||
#define space_old 0x40
|
||||
#define space_port 0x3
|
||||
#define space_pure 0x6
|
||||
#define space_pure_typed_object 0x9
|
||||
#define space_symbol 0x2
|
||||
#define space_weakpair 0x4
|
||||
#define stack_frame_limit 0x100
|
||||
#define stack_slop 0x200
|
||||
#define static_generation 0xFF
|
||||
#define string_char_bits 0x20
|
||||
#define string_char_bytes 0x4
|
||||
#define string_char_offset 0x2
|
||||
#define string_data_disp 0x5
|
||||
#define string_immutable_flag 0x8
|
||||
#define string_length_factor 0x10
|
||||
#define string_length_offset 0x4
|
||||
#define string_type_disp 0x1
|
||||
#define strue (ptr)0xE
|
||||
#define sunbound (ptr)0x1E
|
||||
#define svoid (ptr)0x3E
|
||||
#define symbol_hash_disp 0x19
|
||||
#define symbol_name_disp 0x11
|
||||
#define symbol_plist_disp 0xD
|
||||
#define symbol_pvalue_disp 0x9
|
||||
#define symbol_splist_disp 0x15
|
||||
#define symbol_value_disp 0x5
|
||||
#define tc_DSTBV_disp 0x150
|
||||
#define tc_SRCBV_disp 0x154
|
||||
#define tc_U_disp 0xA4
|
||||
#define tc_V_disp 0xA8
|
||||
#define tc_W_disp 0xAC
|
||||
#define tc_X_disp 0xB0
|
||||
#define tc_Y_disp 0xB4
|
||||
#define tc_ac0_disp 0x4
|
||||
#define tc_ac1_disp 0x8
|
||||
#define tc_active_disp 0x8C
|
||||
#define tc_alloc_counter_disp 0x144
|
||||
#define tc_ap_disp 0x18
|
||||
#define tc_arg_regs_disp 0x0
|
||||
#define tc_block_counter_disp 0xE0
|
||||
#define tc_cchain_disp 0x80
|
||||
#define tc_code_ranges_to_flush_disp 0x84
|
||||
#define tc_compile_profile_disp 0x10C
|
||||
#define tc_compress_format_disp 0x130
|
||||
#define tc_compress_level_disp 0x134
|
||||
#define tc_cp_disp 0x10
|
||||
#define tc_current_error_disp 0xDC
|
||||
#define tc_current_input_disp 0xD4
|
||||
#define tc_current_mso_disp 0xE8
|
||||
#define tc_current_output_disp 0xD8
|
||||
#define tc_default_record_equal_procedure_disp 0x128
|
||||
#define tc_default_record_hash_procedure_disp 0x12C
|
||||
#define tc_disable_count_disp 0xC0
|
||||
#define tc_eap_disp 0x1C
|
||||
#define tc_esp_disp 0x14
|
||||
#define tc_fxfirst_bit_set_bv_disp 0xF4
|
||||
#define tc_fxlength_bv_disp 0xF0
|
||||
#define tc_generate_inspector_information_disp 0x110
|
||||
#define tc_generate_procedure_source_information_disp 0x114
|
||||
#define tc_generate_profile_forms_disp 0x118
|
||||
#define tc_guardian_entries_disp 0x7C
|
||||
#define tc_instr_counter_disp 0x13C
|
||||
#define tc_keyboard_interrupt_pending_disp 0xCC
|
||||
#define tc_lz4_out_buffer_disp 0x138
|
||||
#define tc_meta_level_disp 0x108
|
||||
#define tc_null_immutable_bytevector_disp 0x100
|
||||
#define tc_null_immutable_fxvector_disp 0xFC
|
||||
#define tc_null_immutable_string_disp 0x104
|
||||
#define tc_null_immutable_vector_disp 0xF8
|
||||
#define tc_optimize_level_disp 0x11C
|
||||
#define tc_parameters_disp 0x14C
|
||||
#define tc_random_seed_disp 0x88
|
||||
#define tc_real_eap_disp 0x38
|
||||
#define tc_ret_disp 0x20
|
||||
#define tc_scheme_stack_disp 0x90
|
||||
#define tc_scheme_stack_size_disp 0x9C
|
||||
#define tc_sfd_disp 0xE4
|
||||
#define tc_sfp_disp 0xC
|
||||
#define tc_signal_interrupt_pending_disp 0xC4
|
||||
#define tc_signal_interrupt_queue_disp 0xC8
|
||||
#define tc_something_pending_disp 0xB8
|
||||
#define tc_stack_cache_disp 0x94
|
||||
#define tc_stack_link_disp 0x98
|
||||
#define tc_subset_mode_disp 0x120
|
||||
#define tc_suppress_primitive_inlining_disp 0x124
|
||||
#define tc_target_machine_disp 0xEC
|
||||
#define tc_td_disp 0x34
|
||||
#define tc_threadno_disp 0xD0
|
||||
#define tc_timer_ticks_disp 0xBC
|
||||
#define tc_trap_disp 0x24
|
||||
#define tc_ts_disp 0x30
|
||||
#define tc_virtual_registers_disp 0x3C
|
||||
#define tc_winders_disp 0xA0
|
||||
#define tc_xp_disp 0x28
|
||||
#define tc_yp_disp 0x2C
|
||||
#define thread_tc_disp 0x5
|
||||
#define thread_type_disp 0x1
|
||||
#define time_collector_cpu 0x5
|
||||
#define time_collector_real 0x6
|
||||
#define time_duration 0x2
|
||||
#define time_monotonic 0x3
|
||||
#define time_process 0x0
|
||||
#define time_t_bits 0x20
|
||||
#define time_thread 0x1
|
||||
#define time_utc 0x4
|
||||
#define timer_interrupt_index 0x2
|
||||
#define tlc_ht_disp 0x9
|
||||
#define tlc_keyval_disp 0x5
|
||||
#define tlc_next_disp 0xD
|
||||
#define tlc_type_disp 0x1
|
||||
#define type_bignum 0x6
|
||||
#define type_binary_input_port 0x51E
|
||||
#define type_binary_output_port 0x61E
|
||||
#define type_binary_port 0x41E
|
||||
#define type_boolean 0x6
|
||||
#define type_box 0xE
|
||||
#define type_bytevector 0x1
|
||||
#define type_char 0x16
|
||||
#define type_closure 0x5
|
||||
#define type_code 0x3E
|
||||
#define type_continuation_code 0x23E
|
||||
#define type_exactnum 0x56
|
||||
#define type_fixnum 0x0
|
||||
#define type_flonum 0x2
|
||||
#define type_fxvector 0x3
|
||||
#define type_guardian_code 0x83E
|
||||
#define type_immediate 0x6
|
||||
#define type_immutable_box 0x8E
|
||||
#define type_immutable_bytevector 0x5
|
||||
#define type_immutable_fxvector 0xB
|
||||
#define type_immutable_string 0xA
|
||||
#define type_immutable_vector 0x4
|
||||
#define type_inexactnum 0x36
|
||||
#define type_input_port 0x11E
|
||||
#define type_io_port 0x31E
|
||||
#define type_mutable_box 0xE
|
||||
#define type_mutable_bytevector 0x1
|
||||
#define type_mutable_fxvector 0x3
|
||||
#define type_mutable_string 0x2
|
||||
#define type_mutable_vector 0x0
|
||||
#define type_negative_bignum 0x26
|
||||
#define type_octet 0x0
|
||||
#define type_other_number 0x6
|
||||
#define type_output_port 0x21E
|
||||
#define type_pair 0x1
|
||||
#define type_port 0x1E
|
||||
#define type_positive_bignum 0x6
|
||||
#define type_ratnum 0x16
|
||||
#define type_record 0x7
|
||||
#define type_rtd_counts 0x6E
|
||||
#define type_string 0x2
|
||||
#define type_symbol 0x3
|
||||
#define type_system_code 0x13E
|
||||
#define type_textual_input_port 0x11E
|
||||
#define type_textual_output_port 0x21E
|
||||
#define type_textual_port 0x1E
|
||||
#define type_thread 0x4E
|
||||
#define type_tlc 0x5E
|
||||
#define type_typed_object 0x7
|
||||
#define type_vector 0x0
|
||||
#define typed_object_type_disp 0x1
|
||||
#define typedef_i16 "short"
|
||||
#define typedef_i32 "int"
|
||||
#define typedef_i64 "long long"
|
||||
#define typedef_i8 "char"
|
||||
#define typedef_iptr "int"
|
||||
#define typedef_ptr "void *"
|
||||
#define typedef_string_char "unsigned int"
|
||||
#define typedef_u16 "unsigned short"
|
||||
#define typedef_u32 "unsigned int"
|
||||
#define typedef_u64 "unsigned long long"
|
||||
#define typedef_u8 "unsigned char"
|
||||
#define typedef_uptr "unsigned int"
|
||||
#define typemod 0x8
|
||||
#define unactivate_mode_deactivate 0x1
|
||||
#define unactivate_mode_destroy 0x2
|
||||
#define unactivate_mode_noop 0x0
|
||||
#define unaligned_floats 1
|
||||
#define unaligned_integers 1
|
||||
#define underflow_limit 0x40
|
||||
#define unscaled_shot_1_shot_flag -0x1
|
||||
#define vector_data_disp 0x5
|
||||
#define vector_immutable_flag 0x4
|
||||
#define vector_length_factor 0x8
|
||||
#define vector_length_offset 0x3
|
||||
#define vector_type_disp 0x1
|
||||
#define virtual_register_count 0x10
|
||||
#define wchar_bits 0x20
|
||||
|
||||
/* constants from declare-c-entries */
|
||||
#define CENTRY_Scall_any_results 24
|
||||
#define CENTRY_Scall_one_result 23
|
||||
#define CENTRY_Sreturn 22
|
||||
#define CENTRY_activate_thread 11
|
||||
#define CENTRY_deactivate_thread 12
|
||||
#define CENTRY_foreign_entry 17
|
||||
#define CENTRY_get_more_room 19
|
||||
#define CENTRY_get_thread_context 1
|
||||
#define CENTRY_handle_apply_overflood 2
|
||||
#define CENTRY_handle_arg_error 16
|
||||
#define CENTRY_handle_docall_error 3
|
||||
#define CENTRY_handle_mvlet_error 15
|
||||
#define CENTRY_handle_nonprocedure_symbol 6
|
||||
#define CENTRY_handle_overflood 5
|
||||
#define CENTRY_handle_overflow 4
|
||||
#define CENTRY_handle_values_error 14
|
||||
#define CENTRY_install_library_entry 18
|
||||
#define CENTRY_instantiate_code_object 21
|
||||
#define CENTRY_raw_collect_cond 9
|
||||
#define CENTRY_raw_tc_mutex 10
|
||||
#define CENTRY_scan_remembered_set 20
|
||||
#define CENTRY_split_and_resize 8
|
||||
#define CENTRY_thread_context 0
|
||||
#define CENTRY_thread_list 7
|
||||
#define CENTRY_unactivate_thread 13
|
||||
|
||||
/* displacements for records */
|
||||
#define eq_hashtable_rtd_disp 1
|
||||
#define eq_hashtable_type_disp 5
|
||||
#define eq_hashtable_mutablep_disp 9
|
||||
#define eq_hashtable_vec_disp 13
|
||||
#define eq_hashtable_minlen_disp 17
|
||||
#define eq_hashtable_size_disp 21
|
||||
#define eq_hashtable_subtype_disp 25
|
||||
#define symbol_hashtable_rtd_disp 1
|
||||
#define symbol_hashtable_type_disp 5
|
||||
#define symbol_hashtable_mutablep_disp 9
|
||||
#define symbol_hashtable_vec_disp 13
|
||||
#define symbol_hashtable_minlen_disp 17
|
||||
#define symbol_hashtable_size_disp 21
|
||||
#define symbol_hashtable_equivp_disp 25
|
||||
#define code_info_rtd_disp 1
|
||||
#define code_info_src_disp 5
|
||||
#define code_info_sexpr_disp 9
|
||||
#define code_info_free_disp 13
|
||||
#define code_info_live_disp 17
|
||||
#define code_info_rpis_disp 21
|
||||
|
||||
/* predicates */
|
||||
#define Simmediatep(x) (((uptr)(x)&0x7)==0x6)
|
||||
#define Sportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x1E))
|
||||
#define Scodep(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x3E))
|
||||
|
||||
/* structure accessors */
|
||||
#define INITCAR(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define INITCDR(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define SETCAR(x,y) DIRTYSET(((ptr *)((uptr)(x)+7)),(y))
|
||||
#define SETCDR(x,y) DIRTYSET(((ptr *)((uptr)(x)+11)),(y))
|
||||
#define BOXTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITBOXREF(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SETBOXREF(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define EPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define INITEPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define EPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define INITEPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define TLCTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define TLCKEYVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define TLCHT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define TLCNEXT(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITTLCKEYVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITTLCHT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITTLCNEXT(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SETTLCNEXT(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SYMPVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define SYMPLIST(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SYMNAME(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define SYMSPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define SYMHASH(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define INITSYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITSYMPVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITSYMPLIST(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITSYMNAME(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define INITSYMSPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define INITSYMHASH(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define SETSYMVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define SETSYMPVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+9)),(y))
|
||||
#define SETSYMPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SETSYMNAME(x,y) DIRTYSET(((ptr *)((uptr)(x)+17)),(y))
|
||||
#define SETSYMSPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+21)),(y))
|
||||
#define SETSYMHASH(x,y) DIRTYSET(((ptr *)((uptr)(x)+25)),(y))
|
||||
#define VECTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITVECTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define SETVECTIT(x,i,y) DIRTYSET((((ptr *)((uptr)(x)+5))+i),(y))
|
||||
#define FXVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define FXVECTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define BYTEVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BVIT(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
#define INEXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INEXACTNUM_REAL_PART(x) (*((double *)((uptr)(x)+9)))
|
||||
#define INEXACTNUM_IMAG_PART(x) (*((double *)((uptr)(x)+17)))
|
||||
#define EXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define EXACTNUM_REAL_PART(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define EXACTNUM_IMAG_PART(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RATTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RATNUM(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define RATDEN(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define CLOSENTRY(x) (*((ptr *)((uptr)(x)+3)))
|
||||
#define CLOSIT(x,i) (((ptr *)((uptr)(x)+7))[i])
|
||||
#define FLODAT(x) (*((double *)((uptr)(x)+6)))
|
||||
#define PORTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define PORTNAME(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define PORTHANDLER(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define PORTINFO(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define PORTOCNT(x) (*((iptr *)((uptr)(x)+9)))
|
||||
#define PORTOLAST(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define PORTOBUF(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define PORTICNT(x) (*((iptr *)((uptr)(x)+13)))
|
||||
#define PORTILAST(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define PORTIBUF(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define STRTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define STRIT(x,i) (((string_char *)((uptr)(x)+5))[i])
|
||||
#define BIGTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BIGIT(x,i) (((bigit *)((uptr)(x)+5))[i])
|
||||
#define CODETYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define CODELEN(x) (*((iptr *)((uptr)(x)+5)))
|
||||
#define CODERELOC(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define CODENAME(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define CODEARITYMASK(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CODEFREE(x) (*((iptr *)((uptr)(x)+21)))
|
||||
#define CODEINFO(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define CODEPINFOS(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define CODEIT(x,i) (((octet *)((uptr)(x)+33))[i])
|
||||
#define RELOCSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define RELOCCODE(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define RELOCIT(x,i) (((uptr *)((uptr)(x)+8))[i])
|
||||
#define CONTSTACK(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define CONTLENGTH(x) (*((iptr *)((uptr)(x)+11)))
|
||||
#define CONTCLENGTH(x) (*((iptr *)((uptr)(x)+15)))
|
||||
#define CONTLINK(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define CONTRET(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define CONTWINDERS(x) (*((ptr *)((uptr)(x)+27)))
|
||||
#define RTDCOUNTSTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RTDCOUNTSTIMESTAMP(x) (*((U64 *)((uptr)(x)+5)))
|
||||
#define RTDCOUNTSIT(x,i) (((uptr *)((uptr)(x)+13))[i])
|
||||
#define RECORDDESCPARENT(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define RECORDDESCSIZE(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RECORDDESCPM(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define RECORDDESCMPM(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RECORDDESCNAME(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define RECORDDESCFLDS(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define RECORDDESCFLAGS(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define RECORDDESCUID(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define RECORDDESCCOUNTS(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define RECORDINSTTYPE(x) (*((ptr *)((uptr)(x)+1)))
|
||||
#define RECORDINSTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define CLOSCODE(p) ((ptr)((uptr)CLOSENTRY(p)-code_data_disp))
|
||||
#define CODEENTRYPOINT(x) ((ptr)((uptr)(x)+code_data_disp))
|
||||
#define SETCLOSCODE(p,x) (CLOSENTRY(p) = CODEENTRYPOINT(x))
|
||||
#define SYMCODE(p) ((ptr)((uptr)SYMPVAL(p)-code_data_disp))
|
||||
#define INITSYMCODE(p,x) (INITSYMPVAL(p) = CODEENTRYPOINT(x))
|
||||
#define SETSYMCODE(p,x) SETSYMPVAL(p,CODEENTRYPOINT(x))
|
||||
#define BIGLEN(x) ((iptr)((uptr)BIGTYPE(x) >> bignum_length_offset))
|
||||
#define BIGSIGN(x) ((BIGTYPE(x) & mask_bignum_sign) >> bignum_sign_offset)
|
||||
#define SETBIGLENANDSIGN(x,xl,xs) BIGTYPE(x) = (uptr)(xl) << bignum_length_offset | (xs) << bignum_sign_offset | type_bignum
|
||||
#define CLOSLEN(p) CODEFREE(CLOSCODE(p))
|
||||
#define GUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define GUARDIANREP(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define GUARDIANTCONC(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define GUARDIANNEXT(x) (*((ptr *)((uptr)(x)+12)))
|
||||
#define INITGUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define INITGUARDIANREP(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define INITGUARDIANTCONC(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define INITGUARDIANNEXT(x) (*((ptr *)((uptr)(x)+12)))
|
||||
#define FORWARDMARKER(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define FORWARDADDRESS(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define CACHEDSTACKSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define CACHEDSTACKLINK(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define RPHEADERFRAMESIZE(x) (*((iptr *)((uptr)(x)+8)))
|
||||
#define RPHEADERLIVEMASK(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define RPHEADERTOPLINK(x) (*((uptr *)((uptr)(x)+4)))
|
||||
|
||||
/* machine types */
|
||||
#define machine_type_names {"any", "i3le", "ti3le", "i3nt", "ti3nt", "i3fb", "ti3fb", "i3ob", "ti3ob", "i3osx", "ti3osx", "a6le", "ta6le", "a6osx", "ta6osx", "a6ob", "ta6ob", "a6s2", "ta6s2", "i3s2", "ti3s2", "a6fb", "ta6fb", "i3nb", "ti3nb", "a6nb", "ta6nb", "a6nt", "ta6nt", "i3qnx", "ti3qnx", "arm32le", "tarm32le", "ppc32le", "tppc32le"}
|
||||
|
||||
/* allocation-space names */
|
||||
#define alloc_space_names "new", "impure", "symbol", "port", "weakpr", "emph", "pure", "cont", "code", "p-tobj", "ip-rec", "data", "empty"
|
||||
|
||||
/* allocation-space characters */
|
||||
#define alloc_space_chars 'n', 'i', 'x', 'q', 'w', 'e', 'p', 'k', 'c', 'r', 's', 'd', 'e'
|
||||
|
||||
/* threads */
|
||||
#define THREADTC(x) (*((uptr *)((uptr)(x)+5)))
|
||||
|
||||
/* thread-context data */
|
||||
#define DSTBV(x) (*((ptr *)((uptr)(x)+336)))
|
||||
#define SRCBV(x) (*((ptr *)((uptr)(x)+340)))
|
||||
#define U(x) (*((ptr *)((uptr)(x)+164)))
|
||||
#define V(x) (*((ptr *)((uptr)(x)+168)))
|
||||
#define W(x) (*((ptr *)((uptr)(x)+172)))
|
||||
#define X(x) (*((ptr *)((uptr)(x)+176)))
|
||||
#define Y(x) (*((ptr *)((uptr)(x)+180)))
|
||||
#define AC0(x) (*((void* *)((uptr)(x)+4)))
|
||||
#define AC1(x) (*((void* *)((uptr)(x)+8)))
|
||||
#define ACTIVE(x) (*((I32 *)((uptr)(x)+140)))
|
||||
#define ALLOCCOUNTER(x) (*((U64 *)((uptr)(x)+324)))
|
||||
#define AP(x) (*((void* *)((uptr)(x)+24)))
|
||||
#define ARGREGS(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define BLOCKCOUNTER(x) (*((ptr *)((uptr)(x)+224)))
|
||||
#define CCHAIN(x) (*((ptr *)((uptr)(x)+128)))
|
||||
#define CODERANGESTOFLUSH(x) (*((ptr *)((uptr)(x)+132)))
|
||||
#define COMPILEPROFILE(x) (*((ptr *)((uptr)(x)+268)))
|
||||
#define COMPRESSFORMAT(x) (*((ptr *)((uptr)(x)+304)))
|
||||
#define COMPRESSLEVEL(x) (*((ptr *)((uptr)(x)+308)))
|
||||
#define CP(x) (*((void* *)((uptr)(x)+16)))
|
||||
#define CURRENTERROR(x) (*((ptr *)((uptr)(x)+220)))
|
||||
#define CURRENTINPUT(x) (*((ptr *)((uptr)(x)+212)))
|
||||
#define CURRENTMSO(x) (*((ptr *)((uptr)(x)+232)))
|
||||
#define CURRENTOUTPUT(x) (*((ptr *)((uptr)(x)+216)))
|
||||
#define DEFAULTRECORDEQUALPROCEDURE(x) (*((ptr *)((uptr)(x)+296)))
|
||||
#define DEFAULTRECORDHASHPROCEDURE(x) (*((ptr *)((uptr)(x)+300)))
|
||||
#define DISABLECOUNT(x) (*((ptr *)((uptr)(x)+192)))
|
||||
#define EAP(x) (*((void* *)((uptr)(x)+28)))
|
||||
#define ESP(x) (*((void* *)((uptr)(x)+20)))
|
||||
#define FXFIRSTBITSETBV(x) (*((ptr *)((uptr)(x)+244)))
|
||||
#define FXLENGTHBV(x) (*((ptr *)((uptr)(x)+240)))
|
||||
#define GENERATEINSPECTORINFORMATION(x) (*((ptr *)((uptr)(x)+272)))
|
||||
#define GENERATEPROCEDURESOURCEINFORMATION(x) (*((ptr *)((uptr)(x)+276)))
|
||||
#define GENERATEPROFILEFORMS(x) (*((ptr *)((uptr)(x)+280)))
|
||||
#define GUARDIANENTRIES(x) (*((ptr *)((uptr)(x)+124)))
|
||||
#define INSTRCOUNTER(x) (*((U64 *)((uptr)(x)+316)))
|
||||
#define KEYBOARDINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+204)))
|
||||
#define LZ4OUTBUFFER(x) (*((void* *)((uptr)(x)+312)))
|
||||
#define METALEVEL(x) (*((ptr *)((uptr)(x)+264)))
|
||||
#define NULLIMMUTABLEBYTEVECTOR(x) (*((ptr *)((uptr)(x)+256)))
|
||||
#define NULLIMMUTABLEFXVECTOR(x) (*((ptr *)((uptr)(x)+252)))
|
||||
#define NULLIMMUTABLESTRING(x) (*((ptr *)((uptr)(x)+260)))
|
||||
#define NULLIMMUTABLEVECTOR(x) (*((ptr *)((uptr)(x)+248)))
|
||||
#define OPTIMIZELEVEL(x) (*((ptr *)((uptr)(x)+284)))
|
||||
#define PARAMETERS(x) (*((ptr *)((uptr)(x)+332)))
|
||||
#define RANDOMSEED(x) (*((U32 *)((uptr)(x)+136)))
|
||||
#define REAL_EAP(x) (*((void* *)((uptr)(x)+56)))
|
||||
#define RET(x) (*((void* *)((uptr)(x)+32)))
|
||||
#define SCHEMESTACK(x) (*((void* *)((uptr)(x)+144)))
|
||||
#define SCHEMESTACKSIZE(x) (*((iptr *)((uptr)(x)+156)))
|
||||
#define SFD(x) (*((ptr *)((uptr)(x)+228)))
|
||||
#define SFP(x) (*((void* *)((uptr)(x)+12)))
|
||||
#define SIGNALINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+196)))
|
||||
#define SIGNALINTERRUPTQUEUE(x) (*((ptr *)((uptr)(x)+200)))
|
||||
#define SOMETHINGPENDING(x) (*((ptr *)((uptr)(x)+184)))
|
||||
#define STACKCACHE(x) (*((ptr *)((uptr)(x)+148)))
|
||||
#define STACKLINK(x) (*((ptr *)((uptr)(x)+152)))
|
||||
#define SUBSETMODE(x) (*((ptr *)((uptr)(x)+288)))
|
||||
#define SUPPRESSPRIMITIVEINLINING(x) (*((ptr *)((uptr)(x)+292)))
|
||||
#define TARGETMACHINE(x) (*((ptr *)((uptr)(x)+236)))
|
||||
#define TD(x) (*((void* *)((uptr)(x)+52)))
|
||||
#define THREADNO(x) (*((ptr *)((uptr)(x)+208)))
|
||||
#define TIMERTICKS(x) (*((ptr *)((uptr)(x)+188)))
|
||||
#define TRAP(x) (*((void* *)((uptr)(x)+36)))
|
||||
#define TS(x) (*((void* *)((uptr)(x)+48)))
|
||||
#define VIRTUALREGISTERS(x,i) (((ptr *)((uptr)(x)+60))[i])
|
||||
#define WINDERS(x) (*((ptr *)((uptr)(x)+160)))
|
||||
#define XP(x) (*((void* *)((uptr)(x)+40)))
|
||||
#define YP(x) (*((void* *)((uptr)(x)+44)))
|
||||
#define ARGREG(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define VIRTREG(x,i) (((ptr *)((uptr)(x)+60))[i])
|
||||
|
||||
/* library entries we access from C code */
|
||||
#define library_nonprocedure_code 152
|
||||
#define library_dounderflow 154
|
||||
BIN
boot/ti3le/petite.boot
Normal file
BIN
boot/ti3le/petite.boot
Normal file
Binary file not shown.
BIN
boot/ti3le/scheme.boot
Normal file
BIN
boot/ti3le/scheme.boot
Normal file
Binary file not shown.
245
boot/ti3le/scheme.h
Normal file
245
boot/ti3le/scheme.h
Normal file
|
|
@ -0,0 +1,245 @@
|
|||
/* scheme.h for Chez Scheme Version 9.5.9 (ti3le) */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct scheme.h */
|
||||
/* for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Specify declaration of exports. */
|
||||
#ifdef _WIN32
|
||||
# if __cplusplus
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern "C" __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern "C" __declspec (dllexport)
|
||||
# endif
|
||||
# else
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern
|
||||
# else
|
||||
# define EXPORT extern __declspec (dllexport)
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# if __cplusplus
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern
|
||||
# endif
|
||||
#endif
|
||||
|
||||
/* Chez Scheme Version and machine type */
|
||||
#define VERSION "9.5.9"
|
||||
#define MACHINE_TYPE "ti3le"
|
||||
|
||||
/* All Scheme objects are of type ptr. Type iptr and */
|
||||
/* uptr are signed and unsigned ints of the same size */
|
||||
/* as a ptr */
|
||||
typedef void * ptr;
|
||||
typedef int iptr;
|
||||
typedef unsigned int uptr;
|
||||
|
||||
/* String elements are 32-bit tagged char objects */
|
||||
typedef unsigned int string_char;
|
||||
|
||||
/* Bytevector elements are 8-bit unsigned "octets" */
|
||||
typedef unsigned char octet;
|
||||
|
||||
/* Type predicates */
|
||||
#define Sfixnump(x) (((uptr)(x)&0x3)==0x0)
|
||||
#define Scharp(x) (((uptr)(x)&0xFF)==0x16)
|
||||
#define Snullp(x) ((uptr)(x)==0x26)
|
||||
#define Seof_objectp(x) ((uptr)(x)==0x36)
|
||||
#define Sbwp_objectp(x) ((uptr)(x)==0x4E)
|
||||
#define Sbooleanp(x) (((uptr)(x)&0xF7)==0x6)
|
||||
#define Spairp(x) (((uptr)(x)&0x7)==0x1)
|
||||
#define Ssymbolp(x) (((uptr)(x)&0x7)==0x3)
|
||||
#define Sprocedurep(x) (((uptr)(x)&0x7)==0x5)
|
||||
#define Sflonump(x) (((uptr)(x)&0x7)==0x2)
|
||||
#define Svectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x0))
|
||||
#define Sfxvectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x3))
|
||||
#define Sbytevectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x1))
|
||||
#define Sstringp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x2))
|
||||
#define Sbignump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1F)==0x6))
|
||||
#define Sboxp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7F)==0xE))
|
||||
#define Sinexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x36))
|
||||
#define Sexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x56))
|
||||
#define Sratnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x16))
|
||||
#define Sinputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1FF)==0x11E))
|
||||
#define Soutputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x2FF)==0x21E))
|
||||
#define Srecordp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x7))
|
||||
|
||||
/* Accessors */
|
||||
#define Sfixnum_value(x) ((iptr)(x)/4)
|
||||
#define Schar_value(x) ((string_char)((uptr)(x)>>8))
|
||||
#define Sboolean_value(x) ((x) != Sfalse)
|
||||
#define Scar(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define Scdr(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define Sflonum_value(x) (*((double *)((uptr)(x)+6)))
|
||||
#define Svector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Svector_ref(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define Sfxvector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sfxvector_ref(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define Sbytevector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Sbytevector_u8_ref(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
/* Warning: Sbytevector_data(x) returns a pointer into x. */
|
||||
#define Sbytevector_data(x) &Sbytevector_u8_ref(x,0)
|
||||
#define Sstring_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sstring_ref(x,i) Schar_value(((string_char *)((uptr)(x)+5))[i])
|
||||
#define Sunbox(x) (*((ptr *)((uptr)(x)+5)))
|
||||
EXPORT iptr Sinteger_value(ptr);
|
||||
#define Sunsigned_value(x) (uptr)Sinteger_value(x)
|
||||
EXPORT int Sinteger32_value(ptr);
|
||||
#define Sunsigned32_value(x) (unsigned int)Sinteger32_value(x)
|
||||
EXPORT long long Sinteger64_value(ptr);
|
||||
#define Sunsigned64_value(x) (unsigned long long)Sinteger64_value(x)
|
||||
|
||||
/* Mutators */
|
||||
EXPORT void Sset_box(ptr, ptr);
|
||||
EXPORT void Sset_car(ptr, ptr);
|
||||
EXPORT void Sset_cdr(ptr, ptr);
|
||||
#define Sstring_set(x,i,c) ((void)((((string_char *)((uptr)(x)+5))[i]) = (string_char)(uptr)Schar(c)))
|
||||
#define Sfxvector_set(x,i,n) ((void)(Sfxvector_ref(x,i) = (n)))
|
||||
#define Sbytevector_u8_set(x,i,n) ((void)(Sbytevector_u8_ref(x,i) = (n)))
|
||||
EXPORT void Svector_set(ptr, iptr, ptr);
|
||||
|
||||
/* Constructors */
|
||||
#define Sfixnum(x) ((ptr)(uptr)((x)*4))
|
||||
#define Schar(x) ((ptr)(uptr)((x)<<8|0x16))
|
||||
#define Snil ((ptr)0x26)
|
||||
#define Strue ((ptr)0xE)
|
||||
#define Sfalse ((ptr)0x6)
|
||||
#define Sboolean(x) ((x)?Strue:Sfalse)
|
||||
#define Sbwp_object ((ptr)0x4E)
|
||||
#define Seof_object ((ptr)0x36)
|
||||
#define Svoid ((ptr)0x3E)
|
||||
EXPORT ptr Scons(ptr, ptr);
|
||||
EXPORT ptr Sstring_to_symbol(const char *);
|
||||
EXPORT ptr Ssymbol_to_string(ptr);
|
||||
EXPORT ptr Sflonum(double);
|
||||
EXPORT ptr Smake_vector(iptr, ptr);
|
||||
EXPORT ptr Smake_fxvector(iptr, ptr);
|
||||
EXPORT ptr Smake_bytevector(iptr, int);
|
||||
EXPORT ptr Smake_string(iptr, int);
|
||||
EXPORT ptr Smake_uninitialized_string(iptr);
|
||||
EXPORT ptr Sstring(const char *);
|
||||
EXPORT ptr Sstring_of_length(const char *, iptr);
|
||||
EXPORT ptr Sstring_utf8(const char*, iptr);
|
||||
EXPORT ptr Sbox(ptr);
|
||||
EXPORT ptr Sinteger(iptr);
|
||||
EXPORT ptr Sunsigned(uptr);
|
||||
EXPORT ptr Sinteger32(int);
|
||||
EXPORT ptr Sunsigned32(unsigned int);
|
||||
EXPORT ptr Sinteger64(long long);
|
||||
EXPORT ptr Sunsigned64(unsigned long long);
|
||||
|
||||
/* Miscellaneous */
|
||||
EXPORT ptr Stop_level_value(ptr);
|
||||
EXPORT void Sset_top_level_value(ptr, ptr);
|
||||
EXPORT void Slock_object(ptr);
|
||||
EXPORT void Sunlock_object(ptr);
|
||||
EXPORT int Slocked_objectp(ptr);
|
||||
EXPORT void Sforeign_symbol(const char *, void *);
|
||||
EXPORT void Sregister_symbol(const char *, void *);
|
||||
|
||||
/* Support for calls into Scheme */
|
||||
EXPORT ptr Scall0(ptr);
|
||||
EXPORT ptr Scall1(ptr, ptr);
|
||||
EXPORT ptr Scall2(ptr, ptr, ptr);
|
||||
EXPORT ptr Scall3(ptr, ptr, ptr, ptr);
|
||||
EXPORT void Sinitframe(iptr);
|
||||
EXPORT void Sput_arg(iptr, ptr);
|
||||
EXPORT ptr Scall(ptr, iptr);
|
||||
/* Warning: Sforeign_callable_entry_point(x) returns a pointer into x. */
|
||||
#define Sforeign_callable_entry_point(x) ((void (*)(void))((uptr)(x)+33))
|
||||
#define Sforeign_callable_code_object(x) ((ptr)((uptr)(x)-33))
|
||||
|
||||
/* Customization support. */
|
||||
EXPORT const char * Skernel_version(void);
|
||||
EXPORT void Sretain_static_relocation(void);
|
||||
EXPORT void Sset_verbose(int);
|
||||
EXPORT void Sscheme_init(void (*)(void));
|
||||
EXPORT void Sregister_boot_file(const char *);
|
||||
EXPORT void Sregister_boot_file_fd(const char *, int fd);
|
||||
EXPORT void Sregister_heap_file(const char *);
|
||||
EXPORT void Scompact_heap(void);
|
||||
EXPORT void Ssave_heap(const char *, int);
|
||||
EXPORT void Sbuild_heap(const char *, void (*)(void));
|
||||
EXPORT void Senable_expeditor(const char *);
|
||||
EXPORT int Sscheme_start(int, const char *[]);
|
||||
EXPORT int Sscheme_script(const char *, int, const char *[]);
|
||||
EXPORT int Sscheme_program(const char *, int, const char *[]);
|
||||
EXPORT void Sscheme_deinit(void);
|
||||
|
||||
/* Thread support. */
|
||||
EXPORT int Sactivate_thread(void);
|
||||
EXPORT void Sdeactivate_thread(void);
|
||||
EXPORT int Sdestroy_thread(void);
|
||||
|
||||
/* Features. */
|
||||
#define FEATURE_ICONV
|
||||
#define FEATURE_EXPEDITOR
|
||||
#define FEATURE_PTHREADS
|
||||
|
||||
/* Locking macros. */
|
||||
#define INITLOCK(addr) \
|
||||
__asm__ __volatile__ ("movl $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "memory")
|
||||
|
||||
#define SPINLOCK(addr) \
|
||||
__asm__ __volatile__ ("0:\n\t"\
|
||||
"movl $1, %%eax\n\t"\
|
||||
"xchgl (%0), %%eax\n\t"\
|
||||
"cmpl $0, %%eax\n\t"\
|
||||
"je 2f\n\t"\
|
||||
"1:\n\t"\
|
||||
"pause\n\t"\
|
||||
"cmpl $0, (%0)\n\t"\
|
||||
"je 0b\n\t"\
|
||||
"jmp 1b\n\t"\
|
||||
"2:"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "eax", "flags", "memory")
|
||||
|
||||
#define UNLOCK(addr) \
|
||||
__asm__ __volatile__ ("movl $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "memory")
|
||||
|
||||
#define LOCKED_INCR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; incl (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
|
||||
#define LOCKED_DECR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; decl (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
992
boot/ti3nt/equates.h
Normal file
992
boot/ti3nt/equates.h
Normal file
|
|
@ -0,0 +1,992 @@
|
|||
/* equates.h for Chez Scheme Version 9.5.9 */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct version */
|
||||
/* of this file for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Integer typedefs */
|
||||
typedef char I8;
|
||||
typedef unsigned char U8;
|
||||
typedef short I16;
|
||||
typedef unsigned short U16;
|
||||
typedef int I32;
|
||||
typedef unsigned int U32;
|
||||
typedef long long I64;
|
||||
typedef unsigned long long U64;
|
||||
|
||||
/* constants from cmacros.ss */
|
||||
#define $c_func_closure_index 0x4
|
||||
#define $c_func_closure_record_index 0x3
|
||||
#define $c_func_code_object_index 0x2
|
||||
#define $c_func_code_record_index 0x1
|
||||
#define COMPRESS_FORMAT_BITS 0x3
|
||||
#define COMPRESS_GZIP 0x0
|
||||
#define COMPRESS_HIGH 0x3
|
||||
#define COMPRESS_LOW 0x1
|
||||
#define COMPRESS_LZ4 0x1
|
||||
#define COMPRESS_MAX 0x4
|
||||
#define COMPRESS_MEDIUM 0x2
|
||||
#define COMPRESS_MIN 0x0
|
||||
#define ERROR_CALL_ARGUMENT_COUNT 0x4
|
||||
#define ERROR_CALL_NONPROCEDURE 0x3
|
||||
#define ERROR_CALL_NONPROCEDURE_SYMBOL 0x2
|
||||
#define ERROR_CALL_UNBOUND 0x1
|
||||
#define ERROR_MVLET 0x8
|
||||
#define ERROR_NONCONTINUABLE_INTERRUPT 0x6
|
||||
#define ERROR_OTHER 0x0
|
||||
#define ERROR_RESET 0x5
|
||||
#define ERROR_VALUES 0x7
|
||||
#define OPEN_ERROR_EXISTS 0x2
|
||||
#define OPEN_ERROR_EXISTSNOT 0x3
|
||||
#define OPEN_ERROR_OTHER 0x0
|
||||
#define OPEN_ERROR_PROTECTION 0x1
|
||||
#define PORT_FLAG_BINARY 0x400
|
||||
#define PORT_FLAG_BLOCK_BUFFERED 0x20000
|
||||
#define PORT_FLAG_BOL 0x8000
|
||||
#define PORT_FLAG_CHAR_POSITIONS 0x100000
|
||||
#define PORT_FLAG_CLOSED 0x800
|
||||
#define PORT_FLAG_COMPRESSED 0x2000
|
||||
#define PORT_FLAG_EOF 0x10000
|
||||
#define PORT_FLAG_EXCLUSIVE 0x4000
|
||||
#define PORT_FLAG_FILE 0x1000
|
||||
#define PORT_FLAG_FOLD_CASE 0x400000
|
||||
#define PORT_FLAG_INPUT 0x100
|
||||
#define PORT_FLAG_INPUT_MODE 0x80000
|
||||
#define PORT_FLAG_LINE_BUFFERED 0x40000
|
||||
#define PORT_FLAG_NO_FOLD_CASE 0x800000
|
||||
#define PORT_FLAG_OUTPUT 0x200
|
||||
#define PORT_FLAG_R6RS 0x200000
|
||||
#define SAPPEND 0x3
|
||||
#define SDEFAULT 0x4
|
||||
#define SEOF -0x1
|
||||
#define SERROR 0x0
|
||||
#define SICONV_DUNNO 0x0
|
||||
#define SICONV_INCOMPLETE 0x2
|
||||
#define SICONV_INVALID 0x1
|
||||
#define SICONV_NOROOM 0x3
|
||||
#define SREPLACE 0x2
|
||||
#define STRVNCATE 0x1
|
||||
#define address_bits 0x20
|
||||
#define alloc_waste_maximum 0x400
|
||||
#define annotation_all 0x3
|
||||
#define annotation_debug 0x1
|
||||
#define annotation_profile 0x2
|
||||
#define architecture x86
|
||||
#define asm_arg_reg_cnt 0x1
|
||||
#define asm_arg_reg_max 0x1
|
||||
#define bigit_bits 0x20
|
||||
#define bigit_bytes 0x4
|
||||
#define bignum_data_disp 0x5
|
||||
#define bignum_length_factor 0x40
|
||||
#define bignum_length_offset 0x6
|
||||
#define bignum_sign_offset 0x5
|
||||
#define bignum_type_disp 0x1
|
||||
#define black_hole (ptr)0x46
|
||||
#define box_ref_disp 0x5
|
||||
#define box_type_disp 0x1
|
||||
#define byte_alignment 0x8
|
||||
#define byte_constant_mask 0xFFFFFFFF
|
||||
#define bytes_per_card 0x100
|
||||
#define bytes_per_segment 0x2000
|
||||
#define bytevector_data_disp 0x9
|
||||
#define bytevector_immutable_flag 0x4
|
||||
#define bytevector_length_factor 0x8
|
||||
#define bytevector_length_offset 0x3
|
||||
#define bytevector_pad_disp 0x5
|
||||
#define bytevector_type_disp 0x1
|
||||
#define c_entry_name_vector #(thread-context get-thread-context handle-apply-overflood handle-docall-error handle-overflow handle-overflood handle-nonprocedure-symbol thread-list split-and-resize raw-collect-cond raw-tc-mutex activate-thread deactivate-thread unactivate-thread handle-values-error handle-mvlet-error handle-arg-error foreign-entry install-library-entry get-more-room scan-remembered-set instantiate-code-object Sreturn Scall-one-result Scall-any-results)
|
||||
#define c_entry_vector_size 0x19
|
||||
#define cached_stack_link_disp 0x4
|
||||
#define cached_stack_size_disp 0x0
|
||||
#define card_offset_bits 0x8
|
||||
#define cards_per_segment 0x20
|
||||
#define char_data_offset 0x8
|
||||
#define char_factor 0x100
|
||||
#define closure_code_disp 0x3
|
||||
#define closure_data_disp 0x7
|
||||
#define code_arity_mask_disp 0x11
|
||||
#define code_closure_length_disp 0x15
|
||||
#define code_data_disp 0x21
|
||||
#define code_flag_continuation 0x2
|
||||
#define code_flag_guardian 0x8
|
||||
#define code_flag_system 0x1
|
||||
#define code_flag_template 0x4
|
||||
#define code_flags_offset 0x8
|
||||
#define code_info_disp 0x19
|
||||
#define code_length_disp 0x5
|
||||
#define code_name_disp 0xD
|
||||
#define code_pinfos_disp 0x1D
|
||||
#define code_reloc_disp 0x9
|
||||
#define code_type_disp 0x1
|
||||
#define collect_interrupt_index 0x1
|
||||
#define continuation_code_disp 0x3
|
||||
#define continuation_link_disp 0x13
|
||||
#define continuation_return_address_disp 0x17
|
||||
#define continuation_stack_clength_disp 0xF
|
||||
#define continuation_stack_disp 0x7
|
||||
#define continuation_stack_length_disp 0xB
|
||||
#define continuation_winders_disp 0x1B
|
||||
#define countof_bignum 0x5
|
||||
#define countof_box 0x9
|
||||
#define countof_bytevector 0x15
|
||||
#define countof_closure 0x3
|
||||
#define countof_code 0xB
|
||||
#define countof_continuation 0x4
|
||||
#define countof_ephemeron 0x19
|
||||
#define countof_exactnum 0x8
|
||||
#define countof_flonum 0x2
|
||||
#define countof_fxvector 0x14
|
||||
#define countof_guardian 0x17
|
||||
#define countof_inexactnum 0x7
|
||||
#define countof_locked 0x16
|
||||
#define countof_oblist 0x18
|
||||
#define countof_pair 0x0
|
||||
#define countof_port 0xA
|
||||
#define countof_ratnum 0x6
|
||||
#define countof_relocation_table 0x10
|
||||
#define countof_rtd_counts 0xE
|
||||
#define countof_stack 0xF
|
||||
#define countof_string 0x13
|
||||
#define countof_symbol 0x1
|
||||
#define countof_thread 0xC
|
||||
#define countof_tlc 0xD
|
||||
#define countof_types 0x1A
|
||||
#define countof_vector 0x12
|
||||
#define countof_weakpair 0x11
|
||||
#define default_collect_trip_bytes 0x400000
|
||||
#define default_heap_reserve_ratio 1.0
|
||||
#define default_max_nonstatic_generation 0x4
|
||||
#define default_stack_size 0x7FF8
|
||||
#define default_timer_ticks 0x3E8
|
||||
#define dtvec_hour 0x3
|
||||
#define dtvec_isdst 0x9
|
||||
#define dtvec_mday 0x4
|
||||
#define dtvec_min 0x2
|
||||
#define dtvec_mon 0x5
|
||||
#define dtvec_nsec 0x0
|
||||
#define dtvec_sec 0x1
|
||||
#define dtvec_size 0xC
|
||||
#define dtvec_tzname 0xB
|
||||
#define dtvec_tzoff 0xA
|
||||
#define dtvec_wday 0x7
|
||||
#define dtvec_yday 0x8
|
||||
#define dtvec_year 0x6
|
||||
#define ephemeron_car_disp 0x7
|
||||
#define ephemeron_cdr_disp 0xB
|
||||
#define ephemeron_next_disp 0xF
|
||||
#define ephemeron_trigger_next_disp 0x13
|
||||
#define eq_hashtable_subtype_ephemeron 0x2
|
||||
#define eq_hashtable_subtype_normal 0x0
|
||||
#define eq_hashtable_subtype_weak 0x1
|
||||
#define exactnum_imag_disp 0x9
|
||||
#define exactnum_real_disp 0x5
|
||||
#define exactnum_type_disp 0x1
|
||||
#define fasl_fld_double 0xA
|
||||
#define fasl_fld_i16 0x2
|
||||
#define fasl_fld_i24 0x3
|
||||
#define fasl_fld_i32 0x4
|
||||
#define fasl_fld_i40 0x5
|
||||
#define fasl_fld_i48 0x6
|
||||
#define fasl_fld_i56 0x7
|
||||
#define fasl_fld_i64 0x8
|
||||
#define fasl_fld_ptr 0x0
|
||||
#define fasl_fld_single 0x9
|
||||
#define fasl_fld_u8 0x1
|
||||
#define fasl_header #vu8(0 0 0 0 99 104 101 122)
|
||||
#define fasl_type_base_rtd 0x1A
|
||||
#define fasl_type_box 0x1
|
||||
#define fasl_type_bytevector 0x1D
|
||||
#define fasl_type_closure 0x6
|
||||
#define fasl_type_code 0xB
|
||||
#define fasl_type_entry 0xD
|
||||
#define fasl_type_ephemeron 0x1C
|
||||
#define fasl_type_eq_hashtable 0x1F
|
||||
#define fasl_type_exactnum 0x14
|
||||
#define fasl_type_flonum 0x8
|
||||
#define fasl_type_fxvector 0x1B
|
||||
#define fasl_type_gensym 0x13
|
||||
#define fasl_type_graph 0x10
|
||||
#define fasl_type_graph_def 0x11
|
||||
#define fasl_type_graph_ref 0x12
|
||||
#define fasl_type_gzip 0x2B
|
||||
#define fasl_type_header 0x0
|
||||
#define fasl_type_immediate 0xC
|
||||
#define fasl_type_immutable_box 0x29
|
||||
#define fasl_type_immutable_bytevector 0x28
|
||||
#define fasl_type_immutable_fxvector 0x27
|
||||
#define fasl_type_immutable_string 0x26
|
||||
#define fasl_type_immutable_vector 0x25
|
||||
#define fasl_type_inexactnum 0x5
|
||||
#define fasl_type_large_integer 0xA
|
||||
#define fasl_type_library 0xE
|
||||
#define fasl_type_library_code 0xF
|
||||
#define fasl_type_lz4 0x2C
|
||||
#define fasl_type_pair 0x7
|
||||
#define fasl_type_ratnum 0x3
|
||||
#define fasl_type_record 0x17
|
||||
#define fasl_type_revisit 0x23
|
||||
#define fasl_type_rtd 0x18
|
||||
#define fasl_type_small_integer 0x19
|
||||
#define fasl_type_string 0x9
|
||||
#define fasl_type_symbol 0x2
|
||||
#define fasl_type_symbol_hashtable 0x20
|
||||
#define fasl_type_uncompressed 0x2A
|
||||
#define fasl_type_vector 0x4
|
||||
#define fasl_type_visit 0x22
|
||||
#define fasl_type_visit_revisit 0x24
|
||||
#define fasl_type_weak_pair 0x1E
|
||||
#define fixnum_bits 0x1E
|
||||
#define fixnum_factor 0x4
|
||||
#define fixnum_offset 0x2
|
||||
#define fld_byte_index 0x4
|
||||
#define fld_mutablep_index 0x2
|
||||
#define fld_name_index 0x1
|
||||
#define fld_type_index 0x3
|
||||
#define flonum_data_disp 0x6
|
||||
#define forward_address_disp 0x4
|
||||
#define forward_marker (ptr)0x2E
|
||||
#define forward_marker_disp 0x0
|
||||
#define ftype_guardian_rep (ptr)0x56
|
||||
#define fxvector_data_disp 0x5
|
||||
#define fxvector_immutable_flag 0x8
|
||||
#define fxvector_length_factor 0x10
|
||||
#define fxvector_length_offset 0x4
|
||||
#define fxvector_type_disp 0x1
|
||||
#define guardian_entry_next_disp 0xC
|
||||
#define guardian_entry_obj_disp 0x0
|
||||
#define guardian_entry_rep_disp 0x4
|
||||
#define guardian_entry_tconc_disp 0x8
|
||||
#define hashtable_default_size 0x8
|
||||
#define header_size_bignum 0x4
|
||||
#define header_size_bytevector 0x8
|
||||
#define header_size_closure 0x4
|
||||
#define header_size_code 0x20
|
||||
#define header_size_fxvector 0x4
|
||||
#define header_size_record 0x4
|
||||
#define header_size_reloc_table 0x8
|
||||
#define header_size_string 0x4
|
||||
#define header_size_vector 0x4
|
||||
#define ignore_event_flag 0x0
|
||||
#define inexactnum_imag_disp 0x11
|
||||
#define inexactnum_pad_disp 0x5
|
||||
#define inexactnum_real_disp 0x9
|
||||
#define inexactnum_type_disp 0x1
|
||||
#define int_bits 0x20
|
||||
#define integer_divide_instruction 1
|
||||
#define keyboard_interrupt_index 0x3
|
||||
#define library_entry_vector_size 0x210
|
||||
#define libspec_closure_index 0xD
|
||||
#define libspec_does_not_expect_headroom_index 0x0
|
||||
#define libspec_error_index 0xE
|
||||
#define libspec_fake_index 0x10
|
||||
#define libspec_flags_index 0x2
|
||||
#define libspec_has_does_not_expect_headroom_version_index 0xF
|
||||
#define libspec_index_base_offset 0x1
|
||||
#define libspec_index_base_size 0x9
|
||||
#define libspec_index_offset 0x0
|
||||
#define libspec_index_size 0xA
|
||||
#define libspec_interface_offset 0xA
|
||||
#define libspec_interface_size 0x3
|
||||
#define libspec_name_index 0x1
|
||||
#define log2_ptr_bytes 0x2
|
||||
#define long_bits 0x20
|
||||
#define long_long_bits 0x40
|
||||
#define machine_type 0x4
|
||||
#define machine_type_a6fb 0x15
|
||||
#define machine_type_a6le 0xB
|
||||
#define machine_type_a6nb 0x19
|
||||
#define machine_type_a6nt 0x1B
|
||||
#define machine_type_a6ob 0xF
|
||||
#define machine_type_a6osx 0xD
|
||||
#define machine_type_a6s2 0x11
|
||||
#define machine_type_alist ((0 . any) (1 . i3le) (2 . ti3le) (3 . i3nt) (4 . ti3nt) (5 . i3fb) (6 . ti3fb) (7 . i3ob) (8 . ti3ob) (9 . i3osx) (10 . ti3osx) (11 . a6le) (12 . ta6le) (13 . a6osx) (14 . ta6osx) (15 . a6ob) (16 . ta6ob) (17 . a6s2) (18 . ta6s2) (19 . i3s2) (20 . ti3s2) (21 . a6fb) (22 . ta6fb) (23 . i3nb) (24 . ti3nb) (25 . a6nb) (26 . ta6nb) (27 . a6nt) (28 . ta6nt) (29 . i3qnx) (30 . ti3qnx) (31 . arm32le) (32 . tarm32le) (33 . ppc32le) (34 . tppc32le))
|
||||
#define machine_type_any 0x0
|
||||
#define machine_type_arm32le 0x1F
|
||||
#define machine_type_i3fb 0x5
|
||||
#define machine_type_i3le 0x1
|
||||
#define machine_type_i3nb 0x17
|
||||
#define machine_type_i3nt 0x3
|
||||
#define machine_type_i3ob 0x7
|
||||
#define machine_type_i3osx 0x9
|
||||
#define machine_type_i3qnx 0x1D
|
||||
#define machine_type_i3s2 0x13
|
||||
#define machine_type_limit 0x23
|
||||
#define machine_type_name ti3nt
|
||||
#define machine_type_ppc32le 0x21
|
||||
#define machine_type_ta6fb 0x16
|
||||
#define machine_type_ta6le 0xC
|
||||
#define machine_type_ta6nb 0x1A
|
||||
#define machine_type_ta6nt 0x1C
|
||||
#define machine_type_ta6ob 0x10
|
||||
#define machine_type_ta6osx 0xE
|
||||
#define machine_type_ta6s2 0x12
|
||||
#define machine_type_tarm32le 0x20
|
||||
#define machine_type_ti3fb 0x6
|
||||
#define machine_type_ti3le 0x2
|
||||
#define machine_type_ti3nb 0x18
|
||||
#define machine_type_ti3nt 0x4
|
||||
#define machine_type_ti3ob 0x8
|
||||
#define machine_type_ti3osx 0xA
|
||||
#define machine_type_ti3qnx 0x1E
|
||||
#define machine_type_ti3s2 0x14
|
||||
#define machine_type_tppc32le 0x22
|
||||
#define mask_bignum 0x1F
|
||||
#define mask_bignum_sign 0x20
|
||||
#define mask_binary_input_port 0x5FF
|
||||
#define mask_binary_output_port 0x6FF
|
||||
#define mask_binary_port 0x4FF
|
||||
#define mask_boolean 0xF7
|
||||
#define mask_box 0x7F
|
||||
#define mask_bwp 0xFFFFFFFF
|
||||
#define mask_bytevector 0x3
|
||||
#define mask_char 0xFF
|
||||
#define mask_closure 0x7
|
||||
#define mask_code 0xFF
|
||||
#define mask_continuation_code 0x2FF
|
||||
#define mask_eof 0xFFFFFFFF
|
||||
#define mask_exactnum 0xFFFFFFFF
|
||||
#define mask_false 0xFFFFFFFF
|
||||
#define mask_fixnum 0x3
|
||||
#define mask_flonum 0x7
|
||||
#define mask_fxvector 0x7
|
||||
#define mask_guardian_code 0x8FF
|
||||
#define mask_immediate 0x7
|
||||
#define mask_inexactnum 0xFFFFFFFF
|
||||
#define mask_input_port 0x1FF
|
||||
#define mask_mutable_box 0xFFFFFFFF
|
||||
#define mask_mutable_bytevector 0x7
|
||||
#define mask_mutable_fxvector 0xF
|
||||
#define mask_mutable_string 0xF
|
||||
#define mask_mutable_vector 0x7
|
||||
#define mask_nil 0xFFFFFFFF
|
||||
#define mask_octet -0x3FD
|
||||
#define mask_other_number 0xF
|
||||
#define mask_output_port 0x2FF
|
||||
#define mask_pair 0x7
|
||||
#define mask_port 0xFF
|
||||
#define mask_ratnum 0xFFFFFFFF
|
||||
#define mask_record 0x7
|
||||
#define mask_rtd_counts 0xFFFFFFFF
|
||||
#define mask_signed_bignum 0x3F
|
||||
#define mask_string 0x7
|
||||
#define mask_symbol 0x7
|
||||
#define mask_system_code 0x1FF
|
||||
#define mask_textual_input_port 0x5FF
|
||||
#define mask_textual_output_port 0x6FF
|
||||
#define mask_textual_port 0x4FF
|
||||
#define mask_thread 0xFFFFFFFF
|
||||
#define mask_tlc 0xFFFFFFFF
|
||||
#define mask_typed_object 0x7
|
||||
#define mask_unbound 0xFFFFFFFF
|
||||
#define mask_vector 0x3
|
||||
#define max_float_alignment 0x8
|
||||
#define max_integer_alignment 0x8
|
||||
#define max_real_space 0xB
|
||||
#define max_space 0xC
|
||||
#define max_sweep_space 0xA
|
||||
#define maximum_bignum_length (iptr)0x3FFFFFF
|
||||
#define maximum_bytevector_length (iptr)0x1FFFFFFF
|
||||
#define maximum_fxvector_length (iptr)0xFFFFFFF
|
||||
#define maximum_interrupt_index 0x4
|
||||
#define maximum_string_length (iptr)0xFFFFFFF
|
||||
#define maximum_vector_length (iptr)0x1FFFFFFF
|
||||
#define minimum_segment_request 0x80
|
||||
#define most_negative_fixnum (iptr)-0x20000000
|
||||
#define most_positive_fixnum (iptr)0x1FFFFFFF
|
||||
#define native_endianness little
|
||||
#define one_shot_headroom 0x600
|
||||
#define ordinary_type_bits 0x8
|
||||
#define pair_car_disp 0x7
|
||||
#define pair_cdr_disp 0xB
|
||||
#define pair_shift 0x3
|
||||
#define port_flag_binary 0x4
|
||||
#define port_flag_block_buffered 0x200
|
||||
#define port_flag_bol 0x80
|
||||
#define port_flag_char_positions 0x1000
|
||||
#define port_flag_closed 0x8
|
||||
#define port_flag_compressed 0x20
|
||||
#define port_flag_eof 0x100
|
||||
#define port_flag_exclusive 0x40
|
||||
#define port_flag_file 0x10
|
||||
#define port_flag_fold_case 0x4000
|
||||
#define port_flag_input 0x1
|
||||
#define port_flag_input_mode 0x800
|
||||
#define port_flag_line_buffered 0x400
|
||||
#define port_flag_no_fold_case 0x8000
|
||||
#define port_flag_output 0x2
|
||||
#define port_flag_r6rs 0x2000
|
||||
#define port_flags_offset 0x8
|
||||
#define port_handler_disp 0x5
|
||||
#define port_ibuffer_disp 0x1D
|
||||
#define port_icount_disp 0xD
|
||||
#define port_ilast_disp 0x19
|
||||
#define port_info_disp 0x21
|
||||
#define port_name_disp 0x25
|
||||
#define port_obuffer_disp 0x15
|
||||
#define port_ocount_disp 0x9
|
||||
#define port_olast_disp 0x11
|
||||
#define port_type_disp 0x1
|
||||
#define prelex_is_flags_offset 0x8
|
||||
#define prelex_is_mask 0xFF00
|
||||
#define prelex_sticky_mask 0xFF
|
||||
#define prelex_was_flags_offset 0x10
|
||||
#define primary_type_bits 0x3
|
||||
#define ptr_bits 0x20
|
||||
#define ptr_bytes 0x4
|
||||
#define ptrdiff_t_bits 0x20
|
||||
#define ratnum_denominator_disp 0x9
|
||||
#define ratnum_numerator_disp 0x5
|
||||
#define ratnum_type_disp 0x1
|
||||
#define real_space_alist ((new . 0) (impure . 1) (symbol . 2) (port . 3) (weakpair . 4) (ephemeron . 5) (pure . 6) (continuation . 7) (code . 8) (pure-typed-object . 9) (impure-record . 10) (data . 11))
|
||||
#define record_data_disp 0x5
|
||||
#define record_type_counts_disp 0x25
|
||||
#define record_type_disp 0x1
|
||||
#define record_type_flags_disp 0x1D
|
||||
#define record_type_flds_disp 0x19
|
||||
#define record_type_mpm_disp 0x11
|
||||
#define record_type_name_disp 0x15
|
||||
#define record_type_parent_disp 0x5
|
||||
#define record_type_pm_disp 0xD
|
||||
#define record_type_size_disp 0x9
|
||||
#define record_type_type_disp 0x1
|
||||
#define record_type_uid_disp 0x21
|
||||
#define reloc_abs 0x0
|
||||
#define reloc_code_offset_index 0x3
|
||||
#define reloc_code_offset_mask 0x3FF
|
||||
#define reloc_code_offset_offset 0x4
|
||||
#define reloc_extended_format 0x1
|
||||
#define reloc_item_offset_index 0x2
|
||||
#define reloc_item_offset_mask 0x3FFFF
|
||||
#define reloc_item_offset_offset 0xE
|
||||
#define reloc_longp_index 0x4
|
||||
#define reloc_rel 0x1
|
||||
#define reloc_table_code_disp 0x4
|
||||
#define reloc_table_data_disp 0x8
|
||||
#define reloc_table_size_disp 0x0
|
||||
#define reloc_type_index 0x1
|
||||
#define reloc_type_mask 0x7
|
||||
#define reloc_type_offset 0x1
|
||||
#define return_address_frame_size_disp -0x8
|
||||
#define return_address_livemask_disp -0x10
|
||||
#define return_address_mv_return_address_disp -0x4
|
||||
#define return_address_toplink_disp -0xC
|
||||
#define rp_header_frame_size_disp 0x8
|
||||
#define rp_header_livemask_disp 0x0
|
||||
#define rp_header_mv_return_address_disp 0xC
|
||||
#define rp_header_toplink_disp 0x4
|
||||
#define rtd_counts_data_disp 0x11
|
||||
#define rtd_counts_timestamp_disp 0x9
|
||||
#define rtd_counts_type_disp 0x1
|
||||
#define rtd_generative 0x1
|
||||
#define rtd_opaque 0x2
|
||||
#define rtd_sealed 0x4
|
||||
#define sbwp (ptr)0x4E
|
||||
#define scaled_shot_1_shot_flag -0x4
|
||||
#define scheme_version 0x90509
|
||||
#define segment_card_offset_bits 0x5
|
||||
#define segment_offset_bits 0xD
|
||||
#define segment_t1_bits 0x13
|
||||
#define segment_table_levels 0x1
|
||||
#define seof (ptr)0x36
|
||||
#define sfalse (ptr)0x6
|
||||
#define short_bits 0x10
|
||||
#define signal_interrupt_index 0x4
|
||||
#define size_box 0x8
|
||||
#define size_cached_stack 0x8
|
||||
#define size_continuation 0x20
|
||||
#define size_ephemeron 0x10
|
||||
#define size_exactnum 0x10
|
||||
#define size_flonum 0x8
|
||||
#define size_forward 0x8
|
||||
#define size_guardian_entry 0x10
|
||||
#define size_inexactnum 0x18
|
||||
#define size_pair 0x8
|
||||
#define size_port 0x28
|
||||
#define size_ratnum 0x10
|
||||
#define size_record_type 0x28
|
||||
#define size_rp_header 0x10
|
||||
#define size_rtd_counts 0x410
|
||||
#define size_symbol 0x18
|
||||
#define size_tc 0x160
|
||||
#define size_thread 0x8
|
||||
#define size_tlc 0x10
|
||||
#define size_typed_object 0x8
|
||||
#define size_t_bits 0x20
|
||||
#define snil (ptr)0x26
|
||||
#define space_char_list (#\n #\i #\x #\q #\w #\e #\p #\k #\c #\r #\s #\d #\e)
|
||||
#define space_cname_list ("new" "impure" "symbol" "port" "weakpr" "emph" "pure" "cont" "code" "p-tobj" "ip-rec" "data" "empty")
|
||||
#define space_code 0x8
|
||||
#define space_continuation 0x7
|
||||
#define space_data 0xB
|
||||
#define space_empty 0xC
|
||||
#define space_ephemeron 0x5
|
||||
#define space_impure 0x1
|
||||
#define space_impure_record 0xA
|
||||
#define space_locked 0x20
|
||||
#define space_new 0x0
|
||||
#define space_old 0x40
|
||||
#define space_port 0x3
|
||||
#define space_pure 0x6
|
||||
#define space_pure_typed_object 0x9
|
||||
#define space_symbol 0x2
|
||||
#define space_weakpair 0x4
|
||||
#define stack_frame_limit 0x100
|
||||
#define stack_slop 0x200
|
||||
#define static_generation 0xFF
|
||||
#define string_char_bits 0x20
|
||||
#define string_char_bytes 0x4
|
||||
#define string_char_offset 0x2
|
||||
#define string_data_disp 0x5
|
||||
#define string_immutable_flag 0x8
|
||||
#define string_length_factor 0x10
|
||||
#define string_length_offset 0x4
|
||||
#define string_type_disp 0x1
|
||||
#define strue (ptr)0xE
|
||||
#define sunbound (ptr)0x1E
|
||||
#define svoid (ptr)0x3E
|
||||
#define symbol_hash_disp 0x19
|
||||
#define symbol_name_disp 0x11
|
||||
#define symbol_plist_disp 0xD
|
||||
#define symbol_pvalue_disp 0x9
|
||||
#define symbol_splist_disp 0x15
|
||||
#define symbol_value_disp 0x5
|
||||
#define tc_DSTBV_disp 0x154
|
||||
#define tc_SRCBV_disp 0x158
|
||||
#define tc_U_disp 0xA4
|
||||
#define tc_V_disp 0xA8
|
||||
#define tc_W_disp 0xAC
|
||||
#define tc_X_disp 0xB0
|
||||
#define tc_Y_disp 0xB4
|
||||
#define tc_ac0_disp 0x4
|
||||
#define tc_ac1_disp 0x8
|
||||
#define tc_active_disp 0x8C
|
||||
#define tc_alloc_counter_disp 0x148
|
||||
#define tc_ap_disp 0x18
|
||||
#define tc_arg_regs_disp 0x0
|
||||
#define tc_block_counter_disp 0xE0
|
||||
#define tc_cchain_disp 0x80
|
||||
#define tc_code_ranges_to_flush_disp 0x84
|
||||
#define tc_compile_profile_disp 0x10C
|
||||
#define tc_compress_format_disp 0x130
|
||||
#define tc_compress_level_disp 0x134
|
||||
#define tc_cp_disp 0x10
|
||||
#define tc_current_error_disp 0xDC
|
||||
#define tc_current_input_disp 0xD4
|
||||
#define tc_current_mso_disp 0xE8
|
||||
#define tc_current_output_disp 0xD8
|
||||
#define tc_default_record_equal_procedure_disp 0x128
|
||||
#define tc_default_record_hash_procedure_disp 0x12C
|
||||
#define tc_disable_count_disp 0xC0
|
||||
#define tc_eap_disp 0x1C
|
||||
#define tc_esp_disp 0x14
|
||||
#define tc_fxfirst_bit_set_bv_disp 0xF4
|
||||
#define tc_fxlength_bv_disp 0xF0
|
||||
#define tc_generate_inspector_information_disp 0x110
|
||||
#define tc_generate_procedure_source_information_disp 0x114
|
||||
#define tc_generate_profile_forms_disp 0x118
|
||||
#define tc_guardian_entries_disp 0x7C
|
||||
#define tc_instr_counter_disp 0x140
|
||||
#define tc_keyboard_interrupt_pending_disp 0xCC
|
||||
#define tc_lz4_out_buffer_disp 0x138
|
||||
#define tc_meta_level_disp 0x108
|
||||
#define tc_null_immutable_bytevector_disp 0x100
|
||||
#define tc_null_immutable_fxvector_disp 0xFC
|
||||
#define tc_null_immutable_string_disp 0x104
|
||||
#define tc_null_immutable_vector_disp 0xF8
|
||||
#define tc_optimize_level_disp 0x11C
|
||||
#define tc_parameters_disp 0x150
|
||||
#define tc_random_seed_disp 0x88
|
||||
#define tc_real_eap_disp 0x38
|
||||
#define tc_ret_disp 0x20
|
||||
#define tc_scheme_stack_disp 0x90
|
||||
#define tc_scheme_stack_size_disp 0x9C
|
||||
#define tc_sfd_disp 0xE4
|
||||
#define tc_sfp_disp 0xC
|
||||
#define tc_signal_interrupt_pending_disp 0xC4
|
||||
#define tc_signal_interrupt_queue_disp 0xC8
|
||||
#define tc_something_pending_disp 0xB8
|
||||
#define tc_stack_cache_disp 0x94
|
||||
#define tc_stack_link_disp 0x98
|
||||
#define tc_subset_mode_disp 0x120
|
||||
#define tc_suppress_primitive_inlining_disp 0x124
|
||||
#define tc_target_machine_disp 0xEC
|
||||
#define tc_td_disp 0x34
|
||||
#define tc_threadno_disp 0xD0
|
||||
#define tc_timer_ticks_disp 0xBC
|
||||
#define tc_trap_disp 0x24
|
||||
#define tc_ts_disp 0x30
|
||||
#define tc_virtual_registers_disp 0x3C
|
||||
#define tc_winders_disp 0xA0
|
||||
#define tc_xp_disp 0x28
|
||||
#define tc_yp_disp 0x2C
|
||||
#define thread_handle_uptrs 0x2
|
||||
#define thread_tc_disp 0x5
|
||||
#define thread_type_disp 0x1
|
||||
#define time_collector_cpu 0x5
|
||||
#define time_collector_real 0x6
|
||||
#define time_duration 0x2
|
||||
#define time_monotonic 0x3
|
||||
#define time_process 0x0
|
||||
#define time_t_bits 0x40
|
||||
#define time_thread 0x1
|
||||
#define time_utc 0x4
|
||||
#define timer_interrupt_index 0x2
|
||||
#define tlc_ht_disp 0x9
|
||||
#define tlc_keyval_disp 0x5
|
||||
#define tlc_next_disp 0xD
|
||||
#define tlc_type_disp 0x1
|
||||
#define type_bignum 0x6
|
||||
#define type_binary_input_port 0x51E
|
||||
#define type_binary_output_port 0x61E
|
||||
#define type_binary_port 0x41E
|
||||
#define type_boolean 0x6
|
||||
#define type_box 0xE
|
||||
#define type_bytevector 0x1
|
||||
#define type_char 0x16
|
||||
#define type_closure 0x5
|
||||
#define type_code 0x3E
|
||||
#define type_continuation_code 0x23E
|
||||
#define type_exactnum 0x56
|
||||
#define type_fixnum 0x0
|
||||
#define type_flonum 0x2
|
||||
#define type_fxvector 0x3
|
||||
#define type_guardian_code 0x83E
|
||||
#define type_immediate 0x6
|
||||
#define type_immutable_box 0x8E
|
||||
#define type_immutable_bytevector 0x5
|
||||
#define type_immutable_fxvector 0xB
|
||||
#define type_immutable_string 0xA
|
||||
#define type_immutable_vector 0x4
|
||||
#define type_inexactnum 0x36
|
||||
#define type_input_port 0x11E
|
||||
#define type_io_port 0x31E
|
||||
#define type_mutable_box 0xE
|
||||
#define type_mutable_bytevector 0x1
|
||||
#define type_mutable_fxvector 0x3
|
||||
#define type_mutable_string 0x2
|
||||
#define type_mutable_vector 0x0
|
||||
#define type_negative_bignum 0x26
|
||||
#define type_octet 0x0
|
||||
#define type_other_number 0x6
|
||||
#define type_output_port 0x21E
|
||||
#define type_pair 0x1
|
||||
#define type_port 0x1E
|
||||
#define type_positive_bignum 0x6
|
||||
#define type_ratnum 0x16
|
||||
#define type_record 0x7
|
||||
#define type_rtd_counts 0x6E
|
||||
#define type_string 0x2
|
||||
#define type_symbol 0x3
|
||||
#define type_system_code 0x13E
|
||||
#define type_textual_input_port 0x11E
|
||||
#define type_textual_output_port 0x21E
|
||||
#define type_textual_port 0x1E
|
||||
#define type_thread 0x4E
|
||||
#define type_tlc 0x5E
|
||||
#define type_typed_object 0x7
|
||||
#define type_vector 0x0
|
||||
#define typed_object_type_disp 0x1
|
||||
#define typedef_i16 "short"
|
||||
#define typedef_i32 "int"
|
||||
#define typedef_i64 "long long"
|
||||
#define typedef_i8 "char"
|
||||
#define typedef_iptr "int"
|
||||
#define typedef_ptr "void *"
|
||||
#define typedef_string_char "unsigned int"
|
||||
#define typedef_u16 "unsigned short"
|
||||
#define typedef_u32 "unsigned int"
|
||||
#define typedef_u64 "unsigned long long"
|
||||
#define typedef_u8 "unsigned char"
|
||||
#define typedef_uptr "unsigned int"
|
||||
#define typemod 0x8
|
||||
#define unactivate_mode_deactivate 0x1
|
||||
#define unactivate_mode_destroy 0x2
|
||||
#define unactivate_mode_noop 0x0
|
||||
#define unaligned_floats 1
|
||||
#define unaligned_integers 1
|
||||
#define underflow_limit 0x40
|
||||
#define unscaled_shot_1_shot_flag -0x1
|
||||
#define vector_data_disp 0x5
|
||||
#define vector_immutable_flag 0x4
|
||||
#define vector_length_factor 0x8
|
||||
#define vector_length_offset 0x3
|
||||
#define vector_type_disp 0x1
|
||||
#define virtual_register_count 0x10
|
||||
#define wchar_bits 0x10
|
||||
|
||||
/* constants from declare-c-entries */
|
||||
#define CENTRY_Scall_any_results 24
|
||||
#define CENTRY_Scall_one_result 23
|
||||
#define CENTRY_Sreturn 22
|
||||
#define CENTRY_activate_thread 11
|
||||
#define CENTRY_deactivate_thread 12
|
||||
#define CENTRY_foreign_entry 17
|
||||
#define CENTRY_get_more_room 19
|
||||
#define CENTRY_get_thread_context 1
|
||||
#define CENTRY_handle_apply_overflood 2
|
||||
#define CENTRY_handle_arg_error 16
|
||||
#define CENTRY_handle_docall_error 3
|
||||
#define CENTRY_handle_mvlet_error 15
|
||||
#define CENTRY_handle_nonprocedure_symbol 6
|
||||
#define CENTRY_handle_overflood 5
|
||||
#define CENTRY_handle_overflow 4
|
||||
#define CENTRY_handle_values_error 14
|
||||
#define CENTRY_install_library_entry 18
|
||||
#define CENTRY_instantiate_code_object 21
|
||||
#define CENTRY_raw_collect_cond 9
|
||||
#define CENTRY_raw_tc_mutex 10
|
||||
#define CENTRY_scan_remembered_set 20
|
||||
#define CENTRY_split_and_resize 8
|
||||
#define CENTRY_thread_context 0
|
||||
#define CENTRY_thread_list 7
|
||||
#define CENTRY_unactivate_thread 13
|
||||
|
||||
/* displacements for records */
|
||||
#define eq_hashtable_rtd_disp 1
|
||||
#define eq_hashtable_type_disp 5
|
||||
#define eq_hashtable_mutablep_disp 9
|
||||
#define eq_hashtable_vec_disp 13
|
||||
#define eq_hashtable_minlen_disp 17
|
||||
#define eq_hashtable_size_disp 21
|
||||
#define eq_hashtable_subtype_disp 25
|
||||
#define symbol_hashtable_rtd_disp 1
|
||||
#define symbol_hashtable_type_disp 5
|
||||
#define symbol_hashtable_mutablep_disp 9
|
||||
#define symbol_hashtable_vec_disp 13
|
||||
#define symbol_hashtable_minlen_disp 17
|
||||
#define symbol_hashtable_size_disp 21
|
||||
#define symbol_hashtable_equivp_disp 25
|
||||
#define code_info_rtd_disp 1
|
||||
#define code_info_src_disp 5
|
||||
#define code_info_sexpr_disp 9
|
||||
#define code_info_free_disp 13
|
||||
#define code_info_live_disp 17
|
||||
#define code_info_rpis_disp 21
|
||||
|
||||
/* predicates */
|
||||
#define Simmediatep(x) (((uptr)(x)&0x7)==0x6)
|
||||
#define Sportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x1E))
|
||||
#define Scodep(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x3E))
|
||||
|
||||
/* structure accessors */
|
||||
#define INITCAR(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define INITCDR(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define SETCAR(x,y) DIRTYSET(((ptr *)((uptr)(x)+7)),(y))
|
||||
#define SETCDR(x,y) DIRTYSET(((ptr *)((uptr)(x)+11)),(y))
|
||||
#define BOXTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITBOXREF(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SETBOXREF(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define EPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define INITEPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define EPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define INITEPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define TLCTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define TLCKEYVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define TLCHT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define TLCNEXT(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITTLCKEYVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITTLCHT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITTLCNEXT(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SETTLCNEXT(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SYMPVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define SYMPLIST(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SYMNAME(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define SYMSPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define SYMHASH(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define INITSYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITSYMPVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITSYMPLIST(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITSYMNAME(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define INITSYMSPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define INITSYMHASH(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define SETSYMVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define SETSYMPVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+9)),(y))
|
||||
#define SETSYMPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SETSYMNAME(x,y) DIRTYSET(((ptr *)((uptr)(x)+17)),(y))
|
||||
#define SETSYMSPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+21)),(y))
|
||||
#define SETSYMHASH(x,y) DIRTYSET(((ptr *)((uptr)(x)+25)),(y))
|
||||
#define VECTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITVECTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define SETVECTIT(x,i,y) DIRTYSET((((ptr *)((uptr)(x)+5))+i),(y))
|
||||
#define FXVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define FXVECTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define BYTEVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BVIT(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
#define INEXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INEXACTNUM_REAL_PART(x) (*((double *)((uptr)(x)+9)))
|
||||
#define INEXACTNUM_IMAG_PART(x) (*((double *)((uptr)(x)+17)))
|
||||
#define EXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define EXACTNUM_REAL_PART(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define EXACTNUM_IMAG_PART(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RATTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RATNUM(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define RATDEN(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define CLOSENTRY(x) (*((ptr *)((uptr)(x)+3)))
|
||||
#define CLOSIT(x,i) (((ptr *)((uptr)(x)+7))[i])
|
||||
#define FLODAT(x) (*((double *)((uptr)(x)+6)))
|
||||
#define PORTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define PORTNAME(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define PORTHANDLER(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define PORTINFO(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define PORTOCNT(x) (*((iptr *)((uptr)(x)+9)))
|
||||
#define PORTOLAST(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define PORTOBUF(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define PORTICNT(x) (*((iptr *)((uptr)(x)+13)))
|
||||
#define PORTILAST(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define PORTIBUF(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define STRTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define STRIT(x,i) (((string_char *)((uptr)(x)+5))[i])
|
||||
#define BIGTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BIGIT(x,i) (((bigit *)((uptr)(x)+5))[i])
|
||||
#define CODETYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define CODELEN(x) (*((iptr *)((uptr)(x)+5)))
|
||||
#define CODERELOC(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define CODENAME(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define CODEARITYMASK(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CODEFREE(x) (*((iptr *)((uptr)(x)+21)))
|
||||
#define CODEINFO(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define CODEPINFOS(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define CODEIT(x,i) (((octet *)((uptr)(x)+33))[i])
|
||||
#define RELOCSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define RELOCCODE(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define RELOCIT(x,i) (((uptr *)((uptr)(x)+8))[i])
|
||||
#define CONTSTACK(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define CONTLENGTH(x) (*((iptr *)((uptr)(x)+11)))
|
||||
#define CONTCLENGTH(x) (*((iptr *)((uptr)(x)+15)))
|
||||
#define CONTLINK(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define CONTRET(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define CONTWINDERS(x) (*((ptr *)((uptr)(x)+27)))
|
||||
#define RTDCOUNTSTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RTDCOUNTSTIMESTAMP(x) (*((U64 *)((uptr)(x)+9)))
|
||||
#define RTDCOUNTSIT(x,i) (((uptr *)((uptr)(x)+17))[i])
|
||||
#define RECORDDESCPARENT(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define RECORDDESCSIZE(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RECORDDESCPM(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define RECORDDESCMPM(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RECORDDESCNAME(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define RECORDDESCFLDS(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define RECORDDESCFLAGS(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define RECORDDESCUID(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define RECORDDESCCOUNTS(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define RECORDINSTTYPE(x) (*((ptr *)((uptr)(x)+1)))
|
||||
#define RECORDINSTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define CLOSCODE(p) ((ptr)((uptr)CLOSENTRY(p)-code_data_disp))
|
||||
#define CODEENTRYPOINT(x) ((ptr)((uptr)(x)+code_data_disp))
|
||||
#define SETCLOSCODE(p,x) (CLOSENTRY(p) = CODEENTRYPOINT(x))
|
||||
#define SYMCODE(p) ((ptr)((uptr)SYMPVAL(p)-code_data_disp))
|
||||
#define INITSYMCODE(p,x) (INITSYMPVAL(p) = CODEENTRYPOINT(x))
|
||||
#define SETSYMCODE(p,x) SETSYMPVAL(p,CODEENTRYPOINT(x))
|
||||
#define BIGLEN(x) ((iptr)((uptr)BIGTYPE(x) >> bignum_length_offset))
|
||||
#define BIGSIGN(x) ((BIGTYPE(x) & mask_bignum_sign) >> bignum_sign_offset)
|
||||
#define SETBIGLENANDSIGN(x,xl,xs) BIGTYPE(x) = (uptr)(xl) << bignum_length_offset | (xs) << bignum_sign_offset | type_bignum
|
||||
#define CLOSLEN(p) CODEFREE(CLOSCODE(p))
|
||||
#define GUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define GUARDIANREP(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define GUARDIANTCONC(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define GUARDIANNEXT(x) (*((ptr *)((uptr)(x)+12)))
|
||||
#define INITGUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define INITGUARDIANREP(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define INITGUARDIANTCONC(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define INITGUARDIANNEXT(x) (*((ptr *)((uptr)(x)+12)))
|
||||
#define FORWARDMARKER(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define FORWARDADDRESS(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define CACHEDSTACKSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define CACHEDSTACKLINK(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define RPHEADERFRAMESIZE(x) (*((iptr *)((uptr)(x)+8)))
|
||||
#define RPHEADERLIVEMASK(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define RPHEADERTOPLINK(x) (*((uptr *)((uptr)(x)+4)))
|
||||
|
||||
/* machine types */
|
||||
#define machine_type_names {"any", "i3le", "ti3le", "i3nt", "ti3nt", "i3fb", "ti3fb", "i3ob", "ti3ob", "i3osx", "ti3osx", "a6le", "ta6le", "a6osx", "ta6osx", "a6ob", "ta6ob", "a6s2", "ta6s2", "i3s2", "ti3s2", "a6fb", "ta6fb", "i3nb", "ti3nb", "a6nb", "ta6nb", "a6nt", "ta6nt", "i3qnx", "ti3qnx", "arm32le", "tarm32le", "ppc32le", "tppc32le"}
|
||||
|
||||
/* allocation-space names */
|
||||
#define alloc_space_names "new", "impure", "symbol", "port", "weakpr", "emph", "pure", "cont", "code", "p-tobj", "ip-rec", "data", "empty"
|
||||
|
||||
/* allocation-space characters */
|
||||
#define alloc_space_chars 'n', 'i', 'x', 'q', 'w', 'e', 'p', 'k', 'c', 'r', 's', 'd', 'e'
|
||||
|
||||
/* threads */
|
||||
#define THREADTC(x) (*((uptr *)((uptr)(x)+5)))
|
||||
|
||||
/* thread-context data */
|
||||
#define DSTBV(x) (*((ptr *)((uptr)(x)+340)))
|
||||
#define SRCBV(x) (*((ptr *)((uptr)(x)+344)))
|
||||
#define U(x) (*((ptr *)((uptr)(x)+164)))
|
||||
#define V(x) (*((ptr *)((uptr)(x)+168)))
|
||||
#define W(x) (*((ptr *)((uptr)(x)+172)))
|
||||
#define X(x) (*((ptr *)((uptr)(x)+176)))
|
||||
#define Y(x) (*((ptr *)((uptr)(x)+180)))
|
||||
#define AC0(x) (*((void* *)((uptr)(x)+4)))
|
||||
#define AC1(x) (*((void* *)((uptr)(x)+8)))
|
||||
#define ACTIVE(x) (*((I32 *)((uptr)(x)+140)))
|
||||
#define ALLOCCOUNTER(x) (*((U64 *)((uptr)(x)+328)))
|
||||
#define AP(x) (*((void* *)((uptr)(x)+24)))
|
||||
#define ARGREGS(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define BLOCKCOUNTER(x) (*((ptr *)((uptr)(x)+224)))
|
||||
#define CCHAIN(x) (*((ptr *)((uptr)(x)+128)))
|
||||
#define CODERANGESTOFLUSH(x) (*((ptr *)((uptr)(x)+132)))
|
||||
#define COMPILEPROFILE(x) (*((ptr *)((uptr)(x)+268)))
|
||||
#define COMPRESSFORMAT(x) (*((ptr *)((uptr)(x)+304)))
|
||||
#define COMPRESSLEVEL(x) (*((ptr *)((uptr)(x)+308)))
|
||||
#define CP(x) (*((void* *)((uptr)(x)+16)))
|
||||
#define CURRENTERROR(x) (*((ptr *)((uptr)(x)+220)))
|
||||
#define CURRENTINPUT(x) (*((ptr *)((uptr)(x)+212)))
|
||||
#define CURRENTMSO(x) (*((ptr *)((uptr)(x)+232)))
|
||||
#define CURRENTOUTPUT(x) (*((ptr *)((uptr)(x)+216)))
|
||||
#define DEFAULTRECORDEQUALPROCEDURE(x) (*((ptr *)((uptr)(x)+296)))
|
||||
#define DEFAULTRECORDHASHPROCEDURE(x) (*((ptr *)((uptr)(x)+300)))
|
||||
#define DISABLECOUNT(x) (*((ptr *)((uptr)(x)+192)))
|
||||
#define EAP(x) (*((void* *)((uptr)(x)+28)))
|
||||
#define ESP(x) (*((void* *)((uptr)(x)+20)))
|
||||
#define FXFIRSTBITSETBV(x) (*((ptr *)((uptr)(x)+244)))
|
||||
#define FXLENGTHBV(x) (*((ptr *)((uptr)(x)+240)))
|
||||
#define GENERATEINSPECTORINFORMATION(x) (*((ptr *)((uptr)(x)+272)))
|
||||
#define GENERATEPROCEDURESOURCEINFORMATION(x) (*((ptr *)((uptr)(x)+276)))
|
||||
#define GENERATEPROFILEFORMS(x) (*((ptr *)((uptr)(x)+280)))
|
||||
#define GUARDIANENTRIES(x) (*((ptr *)((uptr)(x)+124)))
|
||||
#define INSTRCOUNTER(x) (*((U64 *)((uptr)(x)+320)))
|
||||
#define KEYBOARDINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+204)))
|
||||
#define LZ4OUTBUFFER(x) (*((void* *)((uptr)(x)+312)))
|
||||
#define METALEVEL(x) (*((ptr *)((uptr)(x)+264)))
|
||||
#define NULLIMMUTABLEBYTEVECTOR(x) (*((ptr *)((uptr)(x)+256)))
|
||||
#define NULLIMMUTABLEFXVECTOR(x) (*((ptr *)((uptr)(x)+252)))
|
||||
#define NULLIMMUTABLESTRING(x) (*((ptr *)((uptr)(x)+260)))
|
||||
#define NULLIMMUTABLEVECTOR(x) (*((ptr *)((uptr)(x)+248)))
|
||||
#define OPTIMIZELEVEL(x) (*((ptr *)((uptr)(x)+284)))
|
||||
#define PARAMETERS(x) (*((ptr *)((uptr)(x)+336)))
|
||||
#define RANDOMSEED(x) (*((U32 *)((uptr)(x)+136)))
|
||||
#define REAL_EAP(x) (*((void* *)((uptr)(x)+56)))
|
||||
#define RET(x) (*((void* *)((uptr)(x)+32)))
|
||||
#define SCHEMESTACK(x) (*((void* *)((uptr)(x)+144)))
|
||||
#define SCHEMESTACKSIZE(x) (*((iptr *)((uptr)(x)+156)))
|
||||
#define SFD(x) (*((ptr *)((uptr)(x)+228)))
|
||||
#define SFP(x) (*((void* *)((uptr)(x)+12)))
|
||||
#define SIGNALINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+196)))
|
||||
#define SIGNALINTERRUPTQUEUE(x) (*((ptr *)((uptr)(x)+200)))
|
||||
#define SOMETHINGPENDING(x) (*((ptr *)((uptr)(x)+184)))
|
||||
#define STACKCACHE(x) (*((ptr *)((uptr)(x)+148)))
|
||||
#define STACKLINK(x) (*((ptr *)((uptr)(x)+152)))
|
||||
#define SUBSETMODE(x) (*((ptr *)((uptr)(x)+288)))
|
||||
#define SUPPRESSPRIMITIVEINLINING(x) (*((ptr *)((uptr)(x)+292)))
|
||||
#define TARGETMACHINE(x) (*((ptr *)((uptr)(x)+236)))
|
||||
#define TD(x) (*((void* *)((uptr)(x)+52)))
|
||||
#define THREADNO(x) (*((ptr *)((uptr)(x)+208)))
|
||||
#define TIMERTICKS(x) (*((ptr *)((uptr)(x)+188)))
|
||||
#define TRAP(x) (*((void* *)((uptr)(x)+36)))
|
||||
#define TS(x) (*((void* *)((uptr)(x)+48)))
|
||||
#define VIRTUALREGISTERS(x,i) (((ptr *)((uptr)(x)+60))[i])
|
||||
#define WINDERS(x) (*((ptr *)((uptr)(x)+160)))
|
||||
#define XP(x) (*((void* *)((uptr)(x)+40)))
|
||||
#define YP(x) (*((void* *)((uptr)(x)+44)))
|
||||
#define ARGREG(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define VIRTREG(x,i) (((ptr *)((uptr)(x)+60))[i])
|
||||
|
||||
/* library entries we access from C code */
|
||||
#define library_nonprocedure_code 152
|
||||
#define library_dounderflow 154
|
||||
BIN
boot/ti3nt/petite.boot
Normal file
BIN
boot/ti3nt/petite.boot
Normal file
Binary file not shown.
BIN
boot/ti3nt/scheme.boot
Normal file
BIN
boot/ti3nt/scheme.boot
Normal file
Binary file not shown.
223
boot/ti3nt/scheme.h
Normal file
223
boot/ti3nt/scheme.h
Normal file
|
|
@ -0,0 +1,223 @@
|
|||
/* scheme.h for Chez Scheme Version 9.5.9 (ti3nt) */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct scheme.h */
|
||||
/* for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Specify declaration of exports. */
|
||||
#ifdef _WIN32
|
||||
# if __cplusplus
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern "C" __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern "C" __declspec (dllexport)
|
||||
# endif
|
||||
# else
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern
|
||||
# else
|
||||
# define EXPORT extern __declspec (dllexport)
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# if __cplusplus
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern
|
||||
# endif
|
||||
#endif
|
||||
|
||||
/* Chez Scheme Version and machine type */
|
||||
#define VERSION "9.5.9"
|
||||
#define MACHINE_TYPE "ti3nt"
|
||||
|
||||
/* All Scheme objects are of type ptr. Type iptr and */
|
||||
/* uptr are signed and unsigned ints of the same size */
|
||||
/* as a ptr */
|
||||
typedef void * ptr;
|
||||
typedef int iptr;
|
||||
typedef unsigned int uptr;
|
||||
|
||||
/* String elements are 32-bit tagged char objects */
|
||||
typedef unsigned int string_char;
|
||||
|
||||
/* Bytevector elements are 8-bit unsigned "octets" */
|
||||
typedef unsigned char octet;
|
||||
|
||||
/* Type predicates */
|
||||
#define Sfixnump(x) (((uptr)(x)&0x3)==0x0)
|
||||
#define Scharp(x) (((uptr)(x)&0xFF)==0x16)
|
||||
#define Snullp(x) ((uptr)(x)==0x26)
|
||||
#define Seof_objectp(x) ((uptr)(x)==0x36)
|
||||
#define Sbwp_objectp(x) ((uptr)(x)==0x4E)
|
||||
#define Sbooleanp(x) (((uptr)(x)&0xF7)==0x6)
|
||||
#define Spairp(x) (((uptr)(x)&0x7)==0x1)
|
||||
#define Ssymbolp(x) (((uptr)(x)&0x7)==0x3)
|
||||
#define Sprocedurep(x) (((uptr)(x)&0x7)==0x5)
|
||||
#define Sflonump(x) (((uptr)(x)&0x7)==0x2)
|
||||
#define Svectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x0))
|
||||
#define Sfxvectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x3))
|
||||
#define Sbytevectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x1))
|
||||
#define Sstringp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x2))
|
||||
#define Sbignump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1F)==0x6))
|
||||
#define Sboxp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7F)==0xE))
|
||||
#define Sinexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x36))
|
||||
#define Sexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x56))
|
||||
#define Sratnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x16))
|
||||
#define Sinputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1FF)==0x11E))
|
||||
#define Soutputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x2FF)==0x21E))
|
||||
#define Srecordp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x7))
|
||||
|
||||
/* Accessors */
|
||||
#define Sfixnum_value(x) ((iptr)(x)/4)
|
||||
#define Schar_value(x) ((string_char)((uptr)(x)>>8))
|
||||
#define Sboolean_value(x) ((x) != Sfalse)
|
||||
#define Scar(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define Scdr(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define Sflonum_value(x) (*((double *)((uptr)(x)+6)))
|
||||
#define Svector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Svector_ref(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define Sfxvector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sfxvector_ref(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define Sbytevector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Sbytevector_u8_ref(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
/* Warning: Sbytevector_data(x) returns a pointer into x. */
|
||||
#define Sbytevector_data(x) &Sbytevector_u8_ref(x,0)
|
||||
#define Sstring_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sstring_ref(x,i) Schar_value(((string_char *)((uptr)(x)+5))[i])
|
||||
#define Sunbox(x) (*((ptr *)((uptr)(x)+5)))
|
||||
EXPORT iptr Sinteger_value(ptr);
|
||||
#define Sunsigned_value(x) (uptr)Sinteger_value(x)
|
||||
EXPORT int Sinteger32_value(ptr);
|
||||
#define Sunsigned32_value(x) (unsigned int)Sinteger32_value(x)
|
||||
EXPORT long long Sinteger64_value(ptr);
|
||||
#define Sunsigned64_value(x) (unsigned long long)Sinteger64_value(x)
|
||||
|
||||
/* Mutators */
|
||||
EXPORT void Sset_box(ptr, ptr);
|
||||
EXPORT void Sset_car(ptr, ptr);
|
||||
EXPORT void Sset_cdr(ptr, ptr);
|
||||
#define Sstring_set(x,i,c) ((void)((((string_char *)((uptr)(x)+5))[i]) = (string_char)(uptr)Schar(c)))
|
||||
#define Sfxvector_set(x,i,n) ((void)(Sfxvector_ref(x,i) = (n)))
|
||||
#define Sbytevector_u8_set(x,i,n) ((void)(Sbytevector_u8_ref(x,i) = (n)))
|
||||
EXPORT void Svector_set(ptr, iptr, ptr);
|
||||
|
||||
/* Constructors */
|
||||
#define Sfixnum(x) ((ptr)(uptr)((x)*4))
|
||||
#define Schar(x) ((ptr)(uptr)((x)<<8|0x16))
|
||||
#define Snil ((ptr)0x26)
|
||||
#define Strue ((ptr)0xE)
|
||||
#define Sfalse ((ptr)0x6)
|
||||
#define Sboolean(x) ((x)?Strue:Sfalse)
|
||||
#define Sbwp_object ((ptr)0x4E)
|
||||
#define Seof_object ((ptr)0x36)
|
||||
#define Svoid ((ptr)0x3E)
|
||||
EXPORT ptr Scons(ptr, ptr);
|
||||
EXPORT ptr Sstring_to_symbol(const char *);
|
||||
EXPORT ptr Ssymbol_to_string(ptr);
|
||||
EXPORT ptr Sflonum(double);
|
||||
EXPORT ptr Smake_vector(iptr, ptr);
|
||||
EXPORT ptr Smake_fxvector(iptr, ptr);
|
||||
EXPORT ptr Smake_bytevector(iptr, int);
|
||||
EXPORT ptr Smake_string(iptr, int);
|
||||
EXPORT ptr Smake_uninitialized_string(iptr);
|
||||
EXPORT ptr Sstring(const char *);
|
||||
EXPORT ptr Sstring_of_length(const char *, iptr);
|
||||
EXPORT ptr Sstring_utf8(const char*, iptr);
|
||||
EXPORT ptr Sbox(ptr);
|
||||
EXPORT ptr Sinteger(iptr);
|
||||
EXPORT ptr Sunsigned(uptr);
|
||||
EXPORT ptr Sinteger32(int);
|
||||
EXPORT ptr Sunsigned32(unsigned int);
|
||||
EXPORT ptr Sinteger64(long long);
|
||||
EXPORT ptr Sunsigned64(unsigned long long);
|
||||
|
||||
/* Miscellaneous */
|
||||
EXPORT ptr Stop_level_value(ptr);
|
||||
EXPORT void Sset_top_level_value(ptr, ptr);
|
||||
EXPORT void Slock_object(ptr);
|
||||
EXPORT void Sunlock_object(ptr);
|
||||
EXPORT int Slocked_objectp(ptr);
|
||||
EXPORT void Sforeign_symbol(const char *, void *);
|
||||
EXPORT void Sregister_symbol(const char *, void *);
|
||||
|
||||
/* Support for calls into Scheme */
|
||||
EXPORT ptr Scall0(ptr);
|
||||
EXPORT ptr Scall1(ptr, ptr);
|
||||
EXPORT ptr Scall2(ptr, ptr, ptr);
|
||||
EXPORT ptr Scall3(ptr, ptr, ptr, ptr);
|
||||
EXPORT void Sinitframe(iptr);
|
||||
EXPORT void Sput_arg(iptr, ptr);
|
||||
EXPORT ptr Scall(ptr, iptr);
|
||||
/* Warning: Sforeign_callable_entry_point(x) returns a pointer into x. */
|
||||
#define Sforeign_callable_entry_point(x) ((void (*)(void))((uptr)(x)+33))
|
||||
#define Sforeign_callable_code_object(x) ((ptr)((uptr)(x)-33))
|
||||
|
||||
/* Customization support. */
|
||||
EXPORT const char * Skernel_version(void);
|
||||
EXPORT void Sretain_static_relocation(void);
|
||||
EXPORT void Sset_verbose(int);
|
||||
EXPORT void Sscheme_init(void (*)(void));
|
||||
EXPORT void Sregister_boot_file(const char *);
|
||||
EXPORT void Sregister_boot_file_fd(const char *, int fd);
|
||||
EXPORT void Sregister_heap_file(const char *);
|
||||
EXPORT void Scompact_heap(void);
|
||||
EXPORT void Ssave_heap(const char *, int);
|
||||
EXPORT void Sbuild_heap(const char *, void (*)(void));
|
||||
EXPORT void Senable_expeditor(const char *);
|
||||
EXPORT int Sscheme_start(int, const char *[]);
|
||||
EXPORT int Sscheme_script(const char *, int, const char *[]);
|
||||
EXPORT int Sscheme_program(const char *, int, const char *[]);
|
||||
EXPORT void Sscheme_deinit(void);
|
||||
|
||||
/* Thread support. */
|
||||
EXPORT int Sactivate_thread(void);
|
||||
EXPORT void Sdeactivate_thread(void);
|
||||
EXPORT int Sdestroy_thread(void);
|
||||
|
||||
/* Windows support. */
|
||||
#include <wchar.h>
|
||||
EXPORT char * Sgetenv(const char *);
|
||||
EXPORT wchar_t * Sutf8_to_wide(const char *);
|
||||
EXPORT char * Swide_to_utf8(const wchar_t *);
|
||||
|
||||
/* Features. */
|
||||
#define FEATURE_ICONV
|
||||
#define FEATURE_EXPEDITOR
|
||||
#define FEATURE_PTHREADS
|
||||
#define FEATURE_WINDOWS
|
||||
|
||||
/* Locking macros. */
|
||||
#define INITLOCK(addr) (*((long *) addr) = 0)
|
||||
|
||||
#define SPINLOCK(addr) \
|
||||
{ \
|
||||
while (_InterlockedExchange(addr, 1) != 0) { \
|
||||
while(*((long *) addr) != 0); \
|
||||
} \
|
||||
} while(0)
|
||||
|
||||
#define UNLOCK(addr) (*((long *) addr) = 0)
|
||||
|
||||
#define LOCKED_INCR(addr, res) (res = (-1 == _InterlockedExchangeAdd(addr, 1)))
|
||||
|
||||
#define LOCKED_DECR(addr, res) (res = (1 == _InterlockedExchangeAdd(addr, -1)))
|
||||
991
boot/ti3osx/equates.h
Normal file
991
boot/ti3osx/equates.h
Normal file
|
|
@ -0,0 +1,991 @@
|
|||
/* equates.h for Chez Scheme Version 9.5.9 */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct version */
|
||||
/* of this file for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Integer typedefs */
|
||||
typedef char I8;
|
||||
typedef unsigned char U8;
|
||||
typedef short I16;
|
||||
typedef unsigned short U16;
|
||||
typedef int I32;
|
||||
typedef unsigned int U32;
|
||||
typedef long long I64;
|
||||
typedef unsigned long long U64;
|
||||
|
||||
/* constants from cmacros.ss */
|
||||
#define $c_func_closure_index 0x4
|
||||
#define $c_func_closure_record_index 0x3
|
||||
#define $c_func_code_object_index 0x2
|
||||
#define $c_func_code_record_index 0x1
|
||||
#define COMPRESS_FORMAT_BITS 0x3
|
||||
#define COMPRESS_GZIP 0x0
|
||||
#define COMPRESS_HIGH 0x3
|
||||
#define COMPRESS_LOW 0x1
|
||||
#define COMPRESS_LZ4 0x1
|
||||
#define COMPRESS_MAX 0x4
|
||||
#define COMPRESS_MEDIUM 0x2
|
||||
#define COMPRESS_MIN 0x0
|
||||
#define ERROR_CALL_ARGUMENT_COUNT 0x4
|
||||
#define ERROR_CALL_NONPROCEDURE 0x3
|
||||
#define ERROR_CALL_NONPROCEDURE_SYMBOL 0x2
|
||||
#define ERROR_CALL_UNBOUND 0x1
|
||||
#define ERROR_MVLET 0x8
|
||||
#define ERROR_NONCONTINUABLE_INTERRUPT 0x6
|
||||
#define ERROR_OTHER 0x0
|
||||
#define ERROR_RESET 0x5
|
||||
#define ERROR_VALUES 0x7
|
||||
#define OPEN_ERROR_EXISTS 0x2
|
||||
#define OPEN_ERROR_EXISTSNOT 0x3
|
||||
#define OPEN_ERROR_OTHER 0x0
|
||||
#define OPEN_ERROR_PROTECTION 0x1
|
||||
#define PORT_FLAG_BINARY 0x400
|
||||
#define PORT_FLAG_BLOCK_BUFFERED 0x20000
|
||||
#define PORT_FLAG_BOL 0x8000
|
||||
#define PORT_FLAG_CHAR_POSITIONS 0x100000
|
||||
#define PORT_FLAG_CLOSED 0x800
|
||||
#define PORT_FLAG_COMPRESSED 0x2000
|
||||
#define PORT_FLAG_EOF 0x10000
|
||||
#define PORT_FLAG_EXCLUSIVE 0x4000
|
||||
#define PORT_FLAG_FILE 0x1000
|
||||
#define PORT_FLAG_FOLD_CASE 0x400000
|
||||
#define PORT_FLAG_INPUT 0x100
|
||||
#define PORT_FLAG_INPUT_MODE 0x80000
|
||||
#define PORT_FLAG_LINE_BUFFERED 0x40000
|
||||
#define PORT_FLAG_NO_FOLD_CASE 0x800000
|
||||
#define PORT_FLAG_OUTPUT 0x200
|
||||
#define PORT_FLAG_R6RS 0x200000
|
||||
#define SAPPEND 0x3
|
||||
#define SDEFAULT 0x4
|
||||
#define SEOF -0x1
|
||||
#define SERROR 0x0
|
||||
#define SICONV_DUNNO 0x0
|
||||
#define SICONV_INCOMPLETE 0x2
|
||||
#define SICONV_INVALID 0x1
|
||||
#define SICONV_NOROOM 0x3
|
||||
#define SREPLACE 0x2
|
||||
#define STRVNCATE 0x1
|
||||
#define address_bits 0x20
|
||||
#define alloc_waste_maximum 0x400
|
||||
#define annotation_all 0x3
|
||||
#define annotation_debug 0x1
|
||||
#define annotation_profile 0x2
|
||||
#define architecture x86
|
||||
#define asm_arg_reg_cnt 0x1
|
||||
#define asm_arg_reg_max 0x1
|
||||
#define bigit_bits 0x20
|
||||
#define bigit_bytes 0x4
|
||||
#define bignum_data_disp 0x5
|
||||
#define bignum_length_factor 0x40
|
||||
#define bignum_length_offset 0x6
|
||||
#define bignum_sign_offset 0x5
|
||||
#define bignum_type_disp 0x1
|
||||
#define black_hole (ptr)0x46
|
||||
#define box_ref_disp 0x5
|
||||
#define box_type_disp 0x1
|
||||
#define byte_alignment 0x8
|
||||
#define byte_constant_mask 0xFFFFFFFF
|
||||
#define bytes_per_card 0x100
|
||||
#define bytes_per_segment 0x2000
|
||||
#define bytevector_data_disp 0x9
|
||||
#define bytevector_immutable_flag 0x4
|
||||
#define bytevector_length_factor 0x8
|
||||
#define bytevector_length_offset 0x3
|
||||
#define bytevector_pad_disp 0x5
|
||||
#define bytevector_type_disp 0x1
|
||||
#define c_entry_name_vector #(thread-context get-thread-context handle-apply-overflood handle-docall-error handle-overflow handle-overflood handle-nonprocedure-symbol thread-list split-and-resize raw-collect-cond raw-tc-mutex activate-thread deactivate-thread unactivate-thread handle-values-error handle-mvlet-error handle-arg-error foreign-entry install-library-entry get-more-room scan-remembered-set instantiate-code-object Sreturn Scall-one-result Scall-any-results)
|
||||
#define c_entry_vector_size 0x19
|
||||
#define cached_stack_link_disp 0x4
|
||||
#define cached_stack_size_disp 0x0
|
||||
#define card_offset_bits 0x8
|
||||
#define cards_per_segment 0x20
|
||||
#define char_data_offset 0x8
|
||||
#define char_factor 0x100
|
||||
#define closure_code_disp 0x3
|
||||
#define closure_data_disp 0x7
|
||||
#define code_arity_mask_disp 0x11
|
||||
#define code_closure_length_disp 0x15
|
||||
#define code_data_disp 0x21
|
||||
#define code_flag_continuation 0x2
|
||||
#define code_flag_guardian 0x8
|
||||
#define code_flag_system 0x1
|
||||
#define code_flag_template 0x4
|
||||
#define code_flags_offset 0x8
|
||||
#define code_info_disp 0x19
|
||||
#define code_length_disp 0x5
|
||||
#define code_name_disp 0xD
|
||||
#define code_pinfos_disp 0x1D
|
||||
#define code_reloc_disp 0x9
|
||||
#define code_type_disp 0x1
|
||||
#define collect_interrupt_index 0x1
|
||||
#define continuation_code_disp 0x3
|
||||
#define continuation_link_disp 0x13
|
||||
#define continuation_return_address_disp 0x17
|
||||
#define continuation_stack_clength_disp 0xF
|
||||
#define continuation_stack_disp 0x7
|
||||
#define continuation_stack_length_disp 0xB
|
||||
#define continuation_winders_disp 0x1B
|
||||
#define countof_bignum 0x5
|
||||
#define countof_box 0x9
|
||||
#define countof_bytevector 0x15
|
||||
#define countof_closure 0x3
|
||||
#define countof_code 0xB
|
||||
#define countof_continuation 0x4
|
||||
#define countof_ephemeron 0x19
|
||||
#define countof_exactnum 0x8
|
||||
#define countof_flonum 0x2
|
||||
#define countof_fxvector 0x14
|
||||
#define countof_guardian 0x17
|
||||
#define countof_inexactnum 0x7
|
||||
#define countof_locked 0x16
|
||||
#define countof_oblist 0x18
|
||||
#define countof_pair 0x0
|
||||
#define countof_port 0xA
|
||||
#define countof_ratnum 0x6
|
||||
#define countof_relocation_table 0x10
|
||||
#define countof_rtd_counts 0xE
|
||||
#define countof_stack 0xF
|
||||
#define countof_string 0x13
|
||||
#define countof_symbol 0x1
|
||||
#define countof_thread 0xC
|
||||
#define countof_tlc 0xD
|
||||
#define countof_types 0x1A
|
||||
#define countof_vector 0x12
|
||||
#define countof_weakpair 0x11
|
||||
#define default_collect_trip_bytes 0x400000
|
||||
#define default_heap_reserve_ratio 1.0
|
||||
#define default_max_nonstatic_generation 0x4
|
||||
#define default_stack_size 0x7FF8
|
||||
#define default_timer_ticks 0x3E8
|
||||
#define dtvec_hour 0x3
|
||||
#define dtvec_isdst 0x9
|
||||
#define dtvec_mday 0x4
|
||||
#define dtvec_min 0x2
|
||||
#define dtvec_mon 0x5
|
||||
#define dtvec_nsec 0x0
|
||||
#define dtvec_sec 0x1
|
||||
#define dtvec_size 0xC
|
||||
#define dtvec_tzname 0xB
|
||||
#define dtvec_tzoff 0xA
|
||||
#define dtvec_wday 0x7
|
||||
#define dtvec_yday 0x8
|
||||
#define dtvec_year 0x6
|
||||
#define ephemeron_car_disp 0x7
|
||||
#define ephemeron_cdr_disp 0xB
|
||||
#define ephemeron_next_disp 0xF
|
||||
#define ephemeron_trigger_next_disp 0x13
|
||||
#define eq_hashtable_subtype_ephemeron 0x2
|
||||
#define eq_hashtable_subtype_normal 0x0
|
||||
#define eq_hashtable_subtype_weak 0x1
|
||||
#define exactnum_imag_disp 0x9
|
||||
#define exactnum_real_disp 0x5
|
||||
#define exactnum_type_disp 0x1
|
||||
#define fasl_fld_double 0xA
|
||||
#define fasl_fld_i16 0x2
|
||||
#define fasl_fld_i24 0x3
|
||||
#define fasl_fld_i32 0x4
|
||||
#define fasl_fld_i40 0x5
|
||||
#define fasl_fld_i48 0x6
|
||||
#define fasl_fld_i56 0x7
|
||||
#define fasl_fld_i64 0x8
|
||||
#define fasl_fld_ptr 0x0
|
||||
#define fasl_fld_single 0x9
|
||||
#define fasl_fld_u8 0x1
|
||||
#define fasl_header #vu8(0 0 0 0 99 104 101 122)
|
||||
#define fasl_type_base_rtd 0x1A
|
||||
#define fasl_type_box 0x1
|
||||
#define fasl_type_bytevector 0x1D
|
||||
#define fasl_type_closure 0x6
|
||||
#define fasl_type_code 0xB
|
||||
#define fasl_type_entry 0xD
|
||||
#define fasl_type_ephemeron 0x1C
|
||||
#define fasl_type_eq_hashtable 0x1F
|
||||
#define fasl_type_exactnum 0x14
|
||||
#define fasl_type_flonum 0x8
|
||||
#define fasl_type_fxvector 0x1B
|
||||
#define fasl_type_gensym 0x13
|
||||
#define fasl_type_graph 0x10
|
||||
#define fasl_type_graph_def 0x11
|
||||
#define fasl_type_graph_ref 0x12
|
||||
#define fasl_type_gzip 0x2B
|
||||
#define fasl_type_header 0x0
|
||||
#define fasl_type_immediate 0xC
|
||||
#define fasl_type_immutable_box 0x29
|
||||
#define fasl_type_immutable_bytevector 0x28
|
||||
#define fasl_type_immutable_fxvector 0x27
|
||||
#define fasl_type_immutable_string 0x26
|
||||
#define fasl_type_immutable_vector 0x25
|
||||
#define fasl_type_inexactnum 0x5
|
||||
#define fasl_type_large_integer 0xA
|
||||
#define fasl_type_library 0xE
|
||||
#define fasl_type_library_code 0xF
|
||||
#define fasl_type_lz4 0x2C
|
||||
#define fasl_type_pair 0x7
|
||||
#define fasl_type_ratnum 0x3
|
||||
#define fasl_type_record 0x17
|
||||
#define fasl_type_revisit 0x23
|
||||
#define fasl_type_rtd 0x18
|
||||
#define fasl_type_small_integer 0x19
|
||||
#define fasl_type_string 0x9
|
||||
#define fasl_type_symbol 0x2
|
||||
#define fasl_type_symbol_hashtable 0x20
|
||||
#define fasl_type_uncompressed 0x2A
|
||||
#define fasl_type_vector 0x4
|
||||
#define fasl_type_visit 0x22
|
||||
#define fasl_type_visit_revisit 0x24
|
||||
#define fasl_type_weak_pair 0x1E
|
||||
#define fixnum_bits 0x1E
|
||||
#define fixnum_factor 0x4
|
||||
#define fixnum_offset 0x2
|
||||
#define fld_byte_index 0x4
|
||||
#define fld_mutablep_index 0x2
|
||||
#define fld_name_index 0x1
|
||||
#define fld_type_index 0x3
|
||||
#define flonum_data_disp 0x6
|
||||
#define forward_address_disp 0x4
|
||||
#define forward_marker (ptr)0x2E
|
||||
#define forward_marker_disp 0x0
|
||||
#define ftype_guardian_rep (ptr)0x56
|
||||
#define fxvector_data_disp 0x5
|
||||
#define fxvector_immutable_flag 0x8
|
||||
#define fxvector_length_factor 0x10
|
||||
#define fxvector_length_offset 0x4
|
||||
#define fxvector_type_disp 0x1
|
||||
#define guardian_entry_next_disp 0xC
|
||||
#define guardian_entry_obj_disp 0x0
|
||||
#define guardian_entry_rep_disp 0x4
|
||||
#define guardian_entry_tconc_disp 0x8
|
||||
#define hashtable_default_size 0x8
|
||||
#define header_size_bignum 0x4
|
||||
#define header_size_bytevector 0x8
|
||||
#define header_size_closure 0x4
|
||||
#define header_size_code 0x20
|
||||
#define header_size_fxvector 0x4
|
||||
#define header_size_record 0x4
|
||||
#define header_size_reloc_table 0x8
|
||||
#define header_size_string 0x4
|
||||
#define header_size_vector 0x4
|
||||
#define ignore_event_flag 0x0
|
||||
#define inexactnum_imag_disp 0x11
|
||||
#define inexactnum_pad_disp 0x5
|
||||
#define inexactnum_real_disp 0x9
|
||||
#define inexactnum_type_disp 0x1
|
||||
#define int_bits 0x20
|
||||
#define integer_divide_instruction 1
|
||||
#define keyboard_interrupt_index 0x3
|
||||
#define library_entry_vector_size 0x210
|
||||
#define libspec_closure_index 0xD
|
||||
#define libspec_does_not_expect_headroom_index 0x0
|
||||
#define libspec_error_index 0xE
|
||||
#define libspec_fake_index 0x10
|
||||
#define libspec_flags_index 0x2
|
||||
#define libspec_has_does_not_expect_headroom_version_index 0xF
|
||||
#define libspec_index_base_offset 0x1
|
||||
#define libspec_index_base_size 0x9
|
||||
#define libspec_index_offset 0x0
|
||||
#define libspec_index_size 0xA
|
||||
#define libspec_interface_offset 0xA
|
||||
#define libspec_interface_size 0x3
|
||||
#define libspec_name_index 0x1
|
||||
#define log2_ptr_bytes 0x2
|
||||
#define long_bits 0x20
|
||||
#define long_long_bits 0x40
|
||||
#define machine_type 0xA
|
||||
#define machine_type_a6fb 0x15
|
||||
#define machine_type_a6le 0xB
|
||||
#define machine_type_a6nb 0x19
|
||||
#define machine_type_a6nt 0x1B
|
||||
#define machine_type_a6ob 0xF
|
||||
#define machine_type_a6osx 0xD
|
||||
#define machine_type_a6s2 0x11
|
||||
#define machine_type_alist ((0 . any) (1 . i3le) (2 . ti3le) (3 . i3nt) (4 . ti3nt) (5 . i3fb) (6 . ti3fb) (7 . i3ob) (8 . ti3ob) (9 . i3osx) (10 . ti3osx) (11 . a6le) (12 . ta6le) (13 . a6osx) (14 . ta6osx) (15 . a6ob) (16 . ta6ob) (17 . a6s2) (18 . ta6s2) (19 . i3s2) (20 . ti3s2) (21 . a6fb) (22 . ta6fb) (23 . i3nb) (24 . ti3nb) (25 . a6nb) (26 . ta6nb) (27 . a6nt) (28 . ta6nt) (29 . i3qnx) (30 . ti3qnx) (31 . arm32le) (32 . tarm32le) (33 . ppc32le) (34 . tppc32le))
|
||||
#define machine_type_any 0x0
|
||||
#define machine_type_arm32le 0x1F
|
||||
#define machine_type_i3fb 0x5
|
||||
#define machine_type_i3le 0x1
|
||||
#define machine_type_i3nb 0x17
|
||||
#define machine_type_i3nt 0x3
|
||||
#define machine_type_i3ob 0x7
|
||||
#define machine_type_i3osx 0x9
|
||||
#define machine_type_i3qnx 0x1D
|
||||
#define machine_type_i3s2 0x13
|
||||
#define machine_type_limit 0x23
|
||||
#define machine_type_name ti3osx
|
||||
#define machine_type_ppc32le 0x21
|
||||
#define machine_type_ta6fb 0x16
|
||||
#define machine_type_ta6le 0xC
|
||||
#define machine_type_ta6nb 0x1A
|
||||
#define machine_type_ta6nt 0x1C
|
||||
#define machine_type_ta6ob 0x10
|
||||
#define machine_type_ta6osx 0xE
|
||||
#define machine_type_ta6s2 0x12
|
||||
#define machine_type_tarm32le 0x20
|
||||
#define machine_type_ti3fb 0x6
|
||||
#define machine_type_ti3le 0x2
|
||||
#define machine_type_ti3nb 0x18
|
||||
#define machine_type_ti3nt 0x4
|
||||
#define machine_type_ti3ob 0x8
|
||||
#define machine_type_ti3osx 0xA
|
||||
#define machine_type_ti3qnx 0x1E
|
||||
#define machine_type_ti3s2 0x14
|
||||
#define machine_type_tppc32le 0x22
|
||||
#define mask_bignum 0x1F
|
||||
#define mask_bignum_sign 0x20
|
||||
#define mask_binary_input_port 0x5FF
|
||||
#define mask_binary_output_port 0x6FF
|
||||
#define mask_binary_port 0x4FF
|
||||
#define mask_boolean 0xF7
|
||||
#define mask_box 0x7F
|
||||
#define mask_bwp 0xFFFFFFFF
|
||||
#define mask_bytevector 0x3
|
||||
#define mask_char 0xFF
|
||||
#define mask_closure 0x7
|
||||
#define mask_code 0xFF
|
||||
#define mask_continuation_code 0x2FF
|
||||
#define mask_eof 0xFFFFFFFF
|
||||
#define mask_exactnum 0xFFFFFFFF
|
||||
#define mask_false 0xFFFFFFFF
|
||||
#define mask_fixnum 0x3
|
||||
#define mask_flonum 0x7
|
||||
#define mask_fxvector 0x7
|
||||
#define mask_guardian_code 0x8FF
|
||||
#define mask_immediate 0x7
|
||||
#define mask_inexactnum 0xFFFFFFFF
|
||||
#define mask_input_port 0x1FF
|
||||
#define mask_mutable_box 0xFFFFFFFF
|
||||
#define mask_mutable_bytevector 0x7
|
||||
#define mask_mutable_fxvector 0xF
|
||||
#define mask_mutable_string 0xF
|
||||
#define mask_mutable_vector 0x7
|
||||
#define mask_nil 0xFFFFFFFF
|
||||
#define mask_octet -0x3FD
|
||||
#define mask_other_number 0xF
|
||||
#define mask_output_port 0x2FF
|
||||
#define mask_pair 0x7
|
||||
#define mask_port 0xFF
|
||||
#define mask_ratnum 0xFFFFFFFF
|
||||
#define mask_record 0x7
|
||||
#define mask_rtd_counts 0xFFFFFFFF
|
||||
#define mask_signed_bignum 0x3F
|
||||
#define mask_string 0x7
|
||||
#define mask_symbol 0x7
|
||||
#define mask_system_code 0x1FF
|
||||
#define mask_textual_input_port 0x5FF
|
||||
#define mask_textual_output_port 0x6FF
|
||||
#define mask_textual_port 0x4FF
|
||||
#define mask_thread 0xFFFFFFFF
|
||||
#define mask_tlc 0xFFFFFFFF
|
||||
#define mask_typed_object 0x7
|
||||
#define mask_unbound 0xFFFFFFFF
|
||||
#define mask_vector 0x3
|
||||
#define max_float_alignment 0x4
|
||||
#define max_integer_alignment 0x4
|
||||
#define max_real_space 0xB
|
||||
#define max_space 0xC
|
||||
#define max_sweep_space 0xA
|
||||
#define maximum_bignum_length (iptr)0x3FFFFFF
|
||||
#define maximum_bytevector_length (iptr)0x1FFFFFFF
|
||||
#define maximum_fxvector_length (iptr)0xFFFFFFF
|
||||
#define maximum_interrupt_index 0x4
|
||||
#define maximum_string_length (iptr)0xFFFFFFF
|
||||
#define maximum_vector_length (iptr)0x1FFFFFFF
|
||||
#define minimum_segment_request 0x80
|
||||
#define most_negative_fixnum (iptr)-0x20000000
|
||||
#define most_positive_fixnum (iptr)0x1FFFFFFF
|
||||
#define native_endianness little
|
||||
#define one_shot_headroom 0x600
|
||||
#define ordinary_type_bits 0x8
|
||||
#define pair_car_disp 0x7
|
||||
#define pair_cdr_disp 0xB
|
||||
#define pair_shift 0x3
|
||||
#define port_flag_binary 0x4
|
||||
#define port_flag_block_buffered 0x200
|
||||
#define port_flag_bol 0x80
|
||||
#define port_flag_char_positions 0x1000
|
||||
#define port_flag_closed 0x8
|
||||
#define port_flag_compressed 0x20
|
||||
#define port_flag_eof 0x100
|
||||
#define port_flag_exclusive 0x40
|
||||
#define port_flag_file 0x10
|
||||
#define port_flag_fold_case 0x4000
|
||||
#define port_flag_input 0x1
|
||||
#define port_flag_input_mode 0x800
|
||||
#define port_flag_line_buffered 0x400
|
||||
#define port_flag_no_fold_case 0x8000
|
||||
#define port_flag_output 0x2
|
||||
#define port_flag_r6rs 0x2000
|
||||
#define port_flags_offset 0x8
|
||||
#define port_handler_disp 0x5
|
||||
#define port_ibuffer_disp 0x1D
|
||||
#define port_icount_disp 0xD
|
||||
#define port_ilast_disp 0x19
|
||||
#define port_info_disp 0x21
|
||||
#define port_name_disp 0x25
|
||||
#define port_obuffer_disp 0x15
|
||||
#define port_ocount_disp 0x9
|
||||
#define port_olast_disp 0x11
|
||||
#define port_type_disp 0x1
|
||||
#define prelex_is_flags_offset 0x8
|
||||
#define prelex_is_mask 0xFF00
|
||||
#define prelex_sticky_mask 0xFF
|
||||
#define prelex_was_flags_offset 0x10
|
||||
#define primary_type_bits 0x3
|
||||
#define ptr_bits 0x20
|
||||
#define ptr_bytes 0x4
|
||||
#define ptrdiff_t_bits 0x20
|
||||
#define ratnum_denominator_disp 0x9
|
||||
#define ratnum_numerator_disp 0x5
|
||||
#define ratnum_type_disp 0x1
|
||||
#define real_space_alist ((new . 0) (impure . 1) (symbol . 2) (port . 3) (weakpair . 4) (ephemeron . 5) (pure . 6) (continuation . 7) (code . 8) (pure-typed-object . 9) (impure-record . 10) (data . 11))
|
||||
#define record_data_disp 0x5
|
||||
#define record_type_counts_disp 0x25
|
||||
#define record_type_disp 0x1
|
||||
#define record_type_flags_disp 0x1D
|
||||
#define record_type_flds_disp 0x19
|
||||
#define record_type_mpm_disp 0x11
|
||||
#define record_type_name_disp 0x15
|
||||
#define record_type_parent_disp 0x5
|
||||
#define record_type_pm_disp 0xD
|
||||
#define record_type_size_disp 0x9
|
||||
#define record_type_type_disp 0x1
|
||||
#define record_type_uid_disp 0x21
|
||||
#define reloc_abs 0x0
|
||||
#define reloc_code_offset_index 0x3
|
||||
#define reloc_code_offset_mask 0x3FF
|
||||
#define reloc_code_offset_offset 0x4
|
||||
#define reloc_extended_format 0x1
|
||||
#define reloc_item_offset_index 0x2
|
||||
#define reloc_item_offset_mask 0x3FFFF
|
||||
#define reloc_item_offset_offset 0xE
|
||||
#define reloc_longp_index 0x4
|
||||
#define reloc_rel 0x1
|
||||
#define reloc_table_code_disp 0x4
|
||||
#define reloc_table_data_disp 0x8
|
||||
#define reloc_table_size_disp 0x0
|
||||
#define reloc_type_index 0x1
|
||||
#define reloc_type_mask 0x7
|
||||
#define reloc_type_offset 0x1
|
||||
#define return_address_frame_size_disp -0x8
|
||||
#define return_address_livemask_disp -0x10
|
||||
#define return_address_mv_return_address_disp -0x4
|
||||
#define return_address_toplink_disp -0xC
|
||||
#define rp_header_frame_size_disp 0x8
|
||||
#define rp_header_livemask_disp 0x0
|
||||
#define rp_header_mv_return_address_disp 0xC
|
||||
#define rp_header_toplink_disp 0x4
|
||||
#define rtd_counts_data_disp 0xD
|
||||
#define rtd_counts_timestamp_disp 0x5
|
||||
#define rtd_counts_type_disp 0x1
|
||||
#define rtd_generative 0x1
|
||||
#define rtd_opaque 0x2
|
||||
#define rtd_sealed 0x4
|
||||
#define sbwp (ptr)0x4E
|
||||
#define scaled_shot_1_shot_flag -0x4
|
||||
#define scheme_version 0x90509
|
||||
#define segment_card_offset_bits 0x5
|
||||
#define segment_offset_bits 0xD
|
||||
#define segment_t1_bits 0x13
|
||||
#define segment_table_levels 0x1
|
||||
#define seof (ptr)0x36
|
||||
#define sfalse (ptr)0x6
|
||||
#define short_bits 0x10
|
||||
#define signal_interrupt_index 0x4
|
||||
#define size_box 0x8
|
||||
#define size_cached_stack 0x8
|
||||
#define size_continuation 0x20
|
||||
#define size_ephemeron 0x10
|
||||
#define size_exactnum 0x10
|
||||
#define size_flonum 0x8
|
||||
#define size_forward 0x8
|
||||
#define size_guardian_entry 0x10
|
||||
#define size_inexactnum 0x18
|
||||
#define size_pair 0x8
|
||||
#define size_port 0x28
|
||||
#define size_ratnum 0x10
|
||||
#define size_record_type 0x28
|
||||
#define size_rp_header 0x10
|
||||
#define size_rtd_counts 0x410
|
||||
#define size_symbol 0x18
|
||||
#define size_tc 0x158
|
||||
#define size_thread 0x8
|
||||
#define size_tlc 0x10
|
||||
#define size_typed_object 0x8
|
||||
#define size_t_bits 0x20
|
||||
#define snil (ptr)0x26
|
||||
#define space_char_list (#\n #\i #\x #\q #\w #\e #\p #\k #\c #\r #\s #\d #\e)
|
||||
#define space_cname_list ("new" "impure" "symbol" "port" "weakpr" "emph" "pure" "cont" "code" "p-tobj" "ip-rec" "data" "empty")
|
||||
#define space_code 0x8
|
||||
#define space_continuation 0x7
|
||||
#define space_data 0xB
|
||||
#define space_empty 0xC
|
||||
#define space_ephemeron 0x5
|
||||
#define space_impure 0x1
|
||||
#define space_impure_record 0xA
|
||||
#define space_locked 0x20
|
||||
#define space_new 0x0
|
||||
#define space_old 0x40
|
||||
#define space_port 0x3
|
||||
#define space_pure 0x6
|
||||
#define space_pure_typed_object 0x9
|
||||
#define space_symbol 0x2
|
||||
#define space_weakpair 0x4
|
||||
#define stack_frame_limit 0x100
|
||||
#define stack_slop 0x200
|
||||
#define static_generation 0xFF
|
||||
#define string_char_bits 0x20
|
||||
#define string_char_bytes 0x4
|
||||
#define string_char_offset 0x2
|
||||
#define string_data_disp 0x5
|
||||
#define string_immutable_flag 0x8
|
||||
#define string_length_factor 0x10
|
||||
#define string_length_offset 0x4
|
||||
#define string_type_disp 0x1
|
||||
#define strue (ptr)0xE
|
||||
#define sunbound (ptr)0x1E
|
||||
#define svoid (ptr)0x3E
|
||||
#define symbol_hash_disp 0x19
|
||||
#define symbol_name_disp 0x11
|
||||
#define symbol_plist_disp 0xD
|
||||
#define symbol_pvalue_disp 0x9
|
||||
#define symbol_splist_disp 0x15
|
||||
#define symbol_value_disp 0x5
|
||||
#define tc_DSTBV_disp 0x150
|
||||
#define tc_SRCBV_disp 0x154
|
||||
#define tc_U_disp 0xA4
|
||||
#define tc_V_disp 0xA8
|
||||
#define tc_W_disp 0xAC
|
||||
#define tc_X_disp 0xB0
|
||||
#define tc_Y_disp 0xB4
|
||||
#define tc_ac0_disp 0x4
|
||||
#define tc_ac1_disp 0x8
|
||||
#define tc_active_disp 0x8C
|
||||
#define tc_alloc_counter_disp 0x144
|
||||
#define tc_ap_disp 0x18
|
||||
#define tc_arg_regs_disp 0x0
|
||||
#define tc_block_counter_disp 0xE0
|
||||
#define tc_cchain_disp 0x80
|
||||
#define tc_code_ranges_to_flush_disp 0x84
|
||||
#define tc_compile_profile_disp 0x10C
|
||||
#define tc_compress_format_disp 0x130
|
||||
#define tc_compress_level_disp 0x134
|
||||
#define tc_cp_disp 0x10
|
||||
#define tc_current_error_disp 0xDC
|
||||
#define tc_current_input_disp 0xD4
|
||||
#define tc_current_mso_disp 0xE8
|
||||
#define tc_current_output_disp 0xD8
|
||||
#define tc_default_record_equal_procedure_disp 0x128
|
||||
#define tc_default_record_hash_procedure_disp 0x12C
|
||||
#define tc_disable_count_disp 0xC0
|
||||
#define tc_eap_disp 0x1C
|
||||
#define tc_esp_disp 0x14
|
||||
#define tc_fxfirst_bit_set_bv_disp 0xF4
|
||||
#define tc_fxlength_bv_disp 0xF0
|
||||
#define tc_generate_inspector_information_disp 0x110
|
||||
#define tc_generate_procedure_source_information_disp 0x114
|
||||
#define tc_generate_profile_forms_disp 0x118
|
||||
#define tc_guardian_entries_disp 0x7C
|
||||
#define tc_instr_counter_disp 0x13C
|
||||
#define tc_keyboard_interrupt_pending_disp 0xCC
|
||||
#define tc_lz4_out_buffer_disp 0x138
|
||||
#define tc_meta_level_disp 0x108
|
||||
#define tc_null_immutable_bytevector_disp 0x100
|
||||
#define tc_null_immutable_fxvector_disp 0xFC
|
||||
#define tc_null_immutable_string_disp 0x104
|
||||
#define tc_null_immutable_vector_disp 0xF8
|
||||
#define tc_optimize_level_disp 0x11C
|
||||
#define tc_parameters_disp 0x14C
|
||||
#define tc_random_seed_disp 0x88
|
||||
#define tc_real_eap_disp 0x38
|
||||
#define tc_ret_disp 0x20
|
||||
#define tc_scheme_stack_disp 0x90
|
||||
#define tc_scheme_stack_size_disp 0x9C
|
||||
#define tc_sfd_disp 0xE4
|
||||
#define tc_sfp_disp 0xC
|
||||
#define tc_signal_interrupt_pending_disp 0xC4
|
||||
#define tc_signal_interrupt_queue_disp 0xC8
|
||||
#define tc_something_pending_disp 0xB8
|
||||
#define tc_stack_cache_disp 0x94
|
||||
#define tc_stack_link_disp 0x98
|
||||
#define tc_subset_mode_disp 0x120
|
||||
#define tc_suppress_primitive_inlining_disp 0x124
|
||||
#define tc_target_machine_disp 0xEC
|
||||
#define tc_td_disp 0x34
|
||||
#define tc_threadno_disp 0xD0
|
||||
#define tc_timer_ticks_disp 0xBC
|
||||
#define tc_trap_disp 0x24
|
||||
#define tc_ts_disp 0x30
|
||||
#define tc_virtual_registers_disp 0x3C
|
||||
#define tc_winders_disp 0xA0
|
||||
#define tc_xp_disp 0x28
|
||||
#define tc_yp_disp 0x2C
|
||||
#define thread_tc_disp 0x5
|
||||
#define thread_type_disp 0x1
|
||||
#define time_collector_cpu 0x5
|
||||
#define time_collector_real 0x6
|
||||
#define time_duration 0x2
|
||||
#define time_monotonic 0x3
|
||||
#define time_process 0x0
|
||||
#define time_t_bits 0x20
|
||||
#define time_thread 0x1
|
||||
#define time_utc 0x4
|
||||
#define timer_interrupt_index 0x2
|
||||
#define tlc_ht_disp 0x9
|
||||
#define tlc_keyval_disp 0x5
|
||||
#define tlc_next_disp 0xD
|
||||
#define tlc_type_disp 0x1
|
||||
#define type_bignum 0x6
|
||||
#define type_binary_input_port 0x51E
|
||||
#define type_binary_output_port 0x61E
|
||||
#define type_binary_port 0x41E
|
||||
#define type_boolean 0x6
|
||||
#define type_box 0xE
|
||||
#define type_bytevector 0x1
|
||||
#define type_char 0x16
|
||||
#define type_closure 0x5
|
||||
#define type_code 0x3E
|
||||
#define type_continuation_code 0x23E
|
||||
#define type_exactnum 0x56
|
||||
#define type_fixnum 0x0
|
||||
#define type_flonum 0x2
|
||||
#define type_fxvector 0x3
|
||||
#define type_guardian_code 0x83E
|
||||
#define type_immediate 0x6
|
||||
#define type_immutable_box 0x8E
|
||||
#define type_immutable_bytevector 0x5
|
||||
#define type_immutable_fxvector 0xB
|
||||
#define type_immutable_string 0xA
|
||||
#define type_immutable_vector 0x4
|
||||
#define type_inexactnum 0x36
|
||||
#define type_input_port 0x11E
|
||||
#define type_io_port 0x31E
|
||||
#define type_mutable_box 0xE
|
||||
#define type_mutable_bytevector 0x1
|
||||
#define type_mutable_fxvector 0x3
|
||||
#define type_mutable_string 0x2
|
||||
#define type_mutable_vector 0x0
|
||||
#define type_negative_bignum 0x26
|
||||
#define type_octet 0x0
|
||||
#define type_other_number 0x6
|
||||
#define type_output_port 0x21E
|
||||
#define type_pair 0x1
|
||||
#define type_port 0x1E
|
||||
#define type_positive_bignum 0x6
|
||||
#define type_ratnum 0x16
|
||||
#define type_record 0x7
|
||||
#define type_rtd_counts 0x6E
|
||||
#define type_string 0x2
|
||||
#define type_symbol 0x3
|
||||
#define type_system_code 0x13E
|
||||
#define type_textual_input_port 0x11E
|
||||
#define type_textual_output_port 0x21E
|
||||
#define type_textual_port 0x1E
|
||||
#define type_thread 0x4E
|
||||
#define type_tlc 0x5E
|
||||
#define type_typed_object 0x7
|
||||
#define type_vector 0x0
|
||||
#define typed_object_type_disp 0x1
|
||||
#define typedef_i16 "short"
|
||||
#define typedef_i32 "int"
|
||||
#define typedef_i64 "long long"
|
||||
#define typedef_i8 "char"
|
||||
#define typedef_iptr "int"
|
||||
#define typedef_ptr "void *"
|
||||
#define typedef_string_char "unsigned int"
|
||||
#define typedef_u16 "unsigned short"
|
||||
#define typedef_u32 "unsigned int"
|
||||
#define typedef_u64 "unsigned long long"
|
||||
#define typedef_u8 "unsigned char"
|
||||
#define typedef_uptr "unsigned int"
|
||||
#define typemod 0x8
|
||||
#define unactivate_mode_deactivate 0x1
|
||||
#define unactivate_mode_destroy 0x2
|
||||
#define unactivate_mode_noop 0x0
|
||||
#define unaligned_floats 1
|
||||
#define unaligned_integers 1
|
||||
#define underflow_limit 0x40
|
||||
#define unscaled_shot_1_shot_flag -0x1
|
||||
#define vector_data_disp 0x5
|
||||
#define vector_immutable_flag 0x4
|
||||
#define vector_length_factor 0x8
|
||||
#define vector_length_offset 0x3
|
||||
#define vector_type_disp 0x1
|
||||
#define virtual_register_count 0x10
|
||||
#define wchar_bits 0x20
|
||||
|
||||
/* constants from declare-c-entries */
|
||||
#define CENTRY_Scall_any_results 24
|
||||
#define CENTRY_Scall_one_result 23
|
||||
#define CENTRY_Sreturn 22
|
||||
#define CENTRY_activate_thread 11
|
||||
#define CENTRY_deactivate_thread 12
|
||||
#define CENTRY_foreign_entry 17
|
||||
#define CENTRY_get_more_room 19
|
||||
#define CENTRY_get_thread_context 1
|
||||
#define CENTRY_handle_apply_overflood 2
|
||||
#define CENTRY_handle_arg_error 16
|
||||
#define CENTRY_handle_docall_error 3
|
||||
#define CENTRY_handle_mvlet_error 15
|
||||
#define CENTRY_handle_nonprocedure_symbol 6
|
||||
#define CENTRY_handle_overflood 5
|
||||
#define CENTRY_handle_overflow 4
|
||||
#define CENTRY_handle_values_error 14
|
||||
#define CENTRY_install_library_entry 18
|
||||
#define CENTRY_instantiate_code_object 21
|
||||
#define CENTRY_raw_collect_cond 9
|
||||
#define CENTRY_raw_tc_mutex 10
|
||||
#define CENTRY_scan_remembered_set 20
|
||||
#define CENTRY_split_and_resize 8
|
||||
#define CENTRY_thread_context 0
|
||||
#define CENTRY_thread_list 7
|
||||
#define CENTRY_unactivate_thread 13
|
||||
|
||||
/* displacements for records */
|
||||
#define eq_hashtable_rtd_disp 1
|
||||
#define eq_hashtable_type_disp 5
|
||||
#define eq_hashtable_mutablep_disp 9
|
||||
#define eq_hashtable_vec_disp 13
|
||||
#define eq_hashtable_minlen_disp 17
|
||||
#define eq_hashtable_size_disp 21
|
||||
#define eq_hashtable_subtype_disp 25
|
||||
#define symbol_hashtable_rtd_disp 1
|
||||
#define symbol_hashtable_type_disp 5
|
||||
#define symbol_hashtable_mutablep_disp 9
|
||||
#define symbol_hashtable_vec_disp 13
|
||||
#define symbol_hashtable_minlen_disp 17
|
||||
#define symbol_hashtable_size_disp 21
|
||||
#define symbol_hashtable_equivp_disp 25
|
||||
#define code_info_rtd_disp 1
|
||||
#define code_info_src_disp 5
|
||||
#define code_info_sexpr_disp 9
|
||||
#define code_info_free_disp 13
|
||||
#define code_info_live_disp 17
|
||||
#define code_info_rpis_disp 21
|
||||
|
||||
/* predicates */
|
||||
#define Simmediatep(x) (((uptr)(x)&0x7)==0x6)
|
||||
#define Sportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x1E))
|
||||
#define Scodep(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0xFF)==0x3E))
|
||||
|
||||
/* structure accessors */
|
||||
#define INITCAR(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define INITCDR(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define SETCAR(x,y) DIRTYSET(((ptr *)((uptr)(x)+7)),(y))
|
||||
#define SETCDR(x,y) DIRTYSET(((ptr *)((uptr)(x)+11)),(y))
|
||||
#define BOXTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITBOXREF(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SETBOXREF(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define EPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define INITEPHEMERONNEXT(x) (*((ptr *)((uptr)(x)+15)))
|
||||
#define EPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define INITEPHEMERONTRIGGERNEXT(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define TLCTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define TLCKEYVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define TLCHT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define TLCNEXT(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITTLCKEYVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITTLCHT(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITTLCNEXT(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SETTLCNEXT(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define SYMPVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define SYMPLIST(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define SYMNAME(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define SYMSPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define SYMHASH(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define INITSYMVAL(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define INITSYMPVAL(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define INITSYMPLIST(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define INITSYMNAME(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define INITSYMSPLIST(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define INITSYMHASH(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define SETSYMVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+5)),(y))
|
||||
#define SETSYMPVAL(x,y) DIRTYSET(((ptr *)((uptr)(x)+9)),(y))
|
||||
#define SETSYMPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+13)),(y))
|
||||
#define SETSYMNAME(x,y) DIRTYSET(((ptr *)((uptr)(x)+17)),(y))
|
||||
#define SETSYMSPLIST(x,y) DIRTYSET(((ptr *)((uptr)(x)+21)),(y))
|
||||
#define SETSYMHASH(x,y) DIRTYSET(((ptr *)((uptr)(x)+25)),(y))
|
||||
#define VECTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INITVECTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define SETVECTIT(x,i,y) DIRTYSET((((ptr *)((uptr)(x)+5))+i),(y))
|
||||
#define FXVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define FXVECTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define BYTEVECTOR_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BVIT(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
#define INEXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define INEXACTNUM_REAL_PART(x) (*((double *)((uptr)(x)+9)))
|
||||
#define INEXACTNUM_IMAG_PART(x) (*((double *)((uptr)(x)+17)))
|
||||
#define EXACTNUM_TYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define EXACTNUM_REAL_PART(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define EXACTNUM_IMAG_PART(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RATTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RATNUM(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define RATDEN(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define CLOSENTRY(x) (*((ptr *)((uptr)(x)+3)))
|
||||
#define CLOSIT(x,i) (((ptr *)((uptr)(x)+7))[i])
|
||||
#define FLODAT(x) (*((double *)((uptr)(x)+6)))
|
||||
#define PORTTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define PORTNAME(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define PORTHANDLER(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define PORTINFO(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define PORTOCNT(x) (*((iptr *)((uptr)(x)+9)))
|
||||
#define PORTOLAST(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define PORTOBUF(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define PORTICNT(x) (*((iptr *)((uptr)(x)+13)))
|
||||
#define PORTILAST(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define PORTIBUF(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define STRTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define STRIT(x,i) (((string_char *)((uptr)(x)+5))[i])
|
||||
#define BIGTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define BIGIT(x,i) (((bigit *)((uptr)(x)+5))[i])
|
||||
#define CODETYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define CODELEN(x) (*((iptr *)((uptr)(x)+5)))
|
||||
#define CODERELOC(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define CODENAME(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define CODEARITYMASK(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define CODEFREE(x) (*((iptr *)((uptr)(x)+21)))
|
||||
#define CODEINFO(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define CODEPINFOS(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define CODEIT(x,i) (((octet *)((uptr)(x)+33))[i])
|
||||
#define RELOCSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define RELOCCODE(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define RELOCIT(x,i) (((uptr *)((uptr)(x)+8))[i])
|
||||
#define CONTSTACK(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define CONTLENGTH(x) (*((iptr *)((uptr)(x)+11)))
|
||||
#define CONTCLENGTH(x) (*((iptr *)((uptr)(x)+15)))
|
||||
#define CONTLINK(x) (*((ptr *)((uptr)(x)+19)))
|
||||
#define CONTRET(x) (*((ptr *)((uptr)(x)+23)))
|
||||
#define CONTWINDERS(x) (*((ptr *)((uptr)(x)+27)))
|
||||
#define RTDCOUNTSTYPE(x) (*((iptr *)((uptr)(x)+1)))
|
||||
#define RTDCOUNTSTIMESTAMP(x) (*((U64 *)((uptr)(x)+5)))
|
||||
#define RTDCOUNTSIT(x,i) (((uptr *)((uptr)(x)+13))[i])
|
||||
#define RECORDDESCPARENT(x) (*((ptr *)((uptr)(x)+5)))
|
||||
#define RECORDDESCSIZE(x) (*((ptr *)((uptr)(x)+9)))
|
||||
#define RECORDDESCPM(x) (*((ptr *)((uptr)(x)+13)))
|
||||
#define RECORDDESCMPM(x) (*((ptr *)((uptr)(x)+17)))
|
||||
#define RECORDDESCNAME(x) (*((ptr *)((uptr)(x)+21)))
|
||||
#define RECORDDESCFLDS(x) (*((ptr *)((uptr)(x)+25)))
|
||||
#define RECORDDESCFLAGS(x) (*((ptr *)((uptr)(x)+29)))
|
||||
#define RECORDDESCUID(x) (*((ptr *)((uptr)(x)+33)))
|
||||
#define RECORDDESCCOUNTS(x) (*((ptr *)((uptr)(x)+37)))
|
||||
#define RECORDINSTTYPE(x) (*((ptr *)((uptr)(x)+1)))
|
||||
#define RECORDINSTIT(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define CLOSCODE(p) ((ptr)((uptr)CLOSENTRY(p)-code_data_disp))
|
||||
#define CODEENTRYPOINT(x) ((ptr)((uptr)(x)+code_data_disp))
|
||||
#define SETCLOSCODE(p,x) (CLOSENTRY(p) = CODEENTRYPOINT(x))
|
||||
#define SYMCODE(p) ((ptr)((uptr)SYMPVAL(p)-code_data_disp))
|
||||
#define INITSYMCODE(p,x) (INITSYMPVAL(p) = CODEENTRYPOINT(x))
|
||||
#define SETSYMCODE(p,x) SETSYMPVAL(p,CODEENTRYPOINT(x))
|
||||
#define BIGLEN(x) ((iptr)((uptr)BIGTYPE(x) >> bignum_length_offset))
|
||||
#define BIGSIGN(x) ((BIGTYPE(x) & mask_bignum_sign) >> bignum_sign_offset)
|
||||
#define SETBIGLENANDSIGN(x,xl,xs) BIGTYPE(x) = (uptr)(xl) << bignum_length_offset | (xs) << bignum_sign_offset | type_bignum
|
||||
#define CLOSLEN(p) CODEFREE(CLOSCODE(p))
|
||||
#define GUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define GUARDIANREP(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define GUARDIANTCONC(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define GUARDIANNEXT(x) (*((ptr *)((uptr)(x)+12)))
|
||||
#define INITGUARDIANOBJ(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define INITGUARDIANREP(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define INITGUARDIANTCONC(x) (*((ptr *)((uptr)(x)+8)))
|
||||
#define INITGUARDIANNEXT(x) (*((ptr *)((uptr)(x)+12)))
|
||||
#define FORWARDMARKER(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define FORWARDADDRESS(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define CACHEDSTACKSIZE(x) (*((iptr *)((uptr)(x)+0)))
|
||||
#define CACHEDSTACKLINK(x) (*((ptr *)((uptr)(x)+4)))
|
||||
#define RPHEADERFRAMESIZE(x) (*((iptr *)((uptr)(x)+8)))
|
||||
#define RPHEADERLIVEMASK(x) (*((ptr *)((uptr)(x)+0)))
|
||||
#define RPHEADERTOPLINK(x) (*((uptr *)((uptr)(x)+4)))
|
||||
|
||||
/* machine types */
|
||||
#define machine_type_names {"any", "i3le", "ti3le", "i3nt", "ti3nt", "i3fb", "ti3fb", "i3ob", "ti3ob", "i3osx", "ti3osx", "a6le", "ta6le", "a6osx", "ta6osx", "a6ob", "ta6ob", "a6s2", "ta6s2", "i3s2", "ti3s2", "a6fb", "ta6fb", "i3nb", "ti3nb", "a6nb", "ta6nb", "a6nt", "ta6nt", "i3qnx", "ti3qnx", "arm32le", "tarm32le", "ppc32le", "tppc32le"}
|
||||
|
||||
/* allocation-space names */
|
||||
#define alloc_space_names "new", "impure", "symbol", "port", "weakpr", "emph", "pure", "cont", "code", "p-tobj", "ip-rec", "data", "empty"
|
||||
|
||||
/* allocation-space characters */
|
||||
#define alloc_space_chars 'n', 'i', 'x', 'q', 'w', 'e', 'p', 'k', 'c', 'r', 's', 'd', 'e'
|
||||
|
||||
/* threads */
|
||||
#define THREADTC(x) (*((uptr *)((uptr)(x)+5)))
|
||||
|
||||
/* thread-context data */
|
||||
#define DSTBV(x) (*((ptr *)((uptr)(x)+336)))
|
||||
#define SRCBV(x) (*((ptr *)((uptr)(x)+340)))
|
||||
#define U(x) (*((ptr *)((uptr)(x)+164)))
|
||||
#define V(x) (*((ptr *)((uptr)(x)+168)))
|
||||
#define W(x) (*((ptr *)((uptr)(x)+172)))
|
||||
#define X(x) (*((ptr *)((uptr)(x)+176)))
|
||||
#define Y(x) (*((ptr *)((uptr)(x)+180)))
|
||||
#define AC0(x) (*((void* *)((uptr)(x)+4)))
|
||||
#define AC1(x) (*((void* *)((uptr)(x)+8)))
|
||||
#define ACTIVE(x) (*((I32 *)((uptr)(x)+140)))
|
||||
#define ALLOCCOUNTER(x) (*((U64 *)((uptr)(x)+324)))
|
||||
#define AP(x) (*((void* *)((uptr)(x)+24)))
|
||||
#define ARGREGS(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define BLOCKCOUNTER(x) (*((ptr *)((uptr)(x)+224)))
|
||||
#define CCHAIN(x) (*((ptr *)((uptr)(x)+128)))
|
||||
#define CODERANGESTOFLUSH(x) (*((ptr *)((uptr)(x)+132)))
|
||||
#define COMPILEPROFILE(x) (*((ptr *)((uptr)(x)+268)))
|
||||
#define COMPRESSFORMAT(x) (*((ptr *)((uptr)(x)+304)))
|
||||
#define COMPRESSLEVEL(x) (*((ptr *)((uptr)(x)+308)))
|
||||
#define CP(x) (*((void* *)((uptr)(x)+16)))
|
||||
#define CURRENTERROR(x) (*((ptr *)((uptr)(x)+220)))
|
||||
#define CURRENTINPUT(x) (*((ptr *)((uptr)(x)+212)))
|
||||
#define CURRENTMSO(x) (*((ptr *)((uptr)(x)+232)))
|
||||
#define CURRENTOUTPUT(x) (*((ptr *)((uptr)(x)+216)))
|
||||
#define DEFAULTRECORDEQUALPROCEDURE(x) (*((ptr *)((uptr)(x)+296)))
|
||||
#define DEFAULTRECORDHASHPROCEDURE(x) (*((ptr *)((uptr)(x)+300)))
|
||||
#define DISABLECOUNT(x) (*((ptr *)((uptr)(x)+192)))
|
||||
#define EAP(x) (*((void* *)((uptr)(x)+28)))
|
||||
#define ESP(x) (*((void* *)((uptr)(x)+20)))
|
||||
#define FXFIRSTBITSETBV(x) (*((ptr *)((uptr)(x)+244)))
|
||||
#define FXLENGTHBV(x) (*((ptr *)((uptr)(x)+240)))
|
||||
#define GENERATEINSPECTORINFORMATION(x) (*((ptr *)((uptr)(x)+272)))
|
||||
#define GENERATEPROCEDURESOURCEINFORMATION(x) (*((ptr *)((uptr)(x)+276)))
|
||||
#define GENERATEPROFILEFORMS(x) (*((ptr *)((uptr)(x)+280)))
|
||||
#define GUARDIANENTRIES(x) (*((ptr *)((uptr)(x)+124)))
|
||||
#define INSTRCOUNTER(x) (*((U64 *)((uptr)(x)+316)))
|
||||
#define KEYBOARDINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+204)))
|
||||
#define LZ4OUTBUFFER(x) (*((void* *)((uptr)(x)+312)))
|
||||
#define METALEVEL(x) (*((ptr *)((uptr)(x)+264)))
|
||||
#define NULLIMMUTABLEBYTEVECTOR(x) (*((ptr *)((uptr)(x)+256)))
|
||||
#define NULLIMMUTABLEFXVECTOR(x) (*((ptr *)((uptr)(x)+252)))
|
||||
#define NULLIMMUTABLESTRING(x) (*((ptr *)((uptr)(x)+260)))
|
||||
#define NULLIMMUTABLEVECTOR(x) (*((ptr *)((uptr)(x)+248)))
|
||||
#define OPTIMIZELEVEL(x) (*((ptr *)((uptr)(x)+284)))
|
||||
#define PARAMETERS(x) (*((ptr *)((uptr)(x)+332)))
|
||||
#define RANDOMSEED(x) (*((U32 *)((uptr)(x)+136)))
|
||||
#define REAL_EAP(x) (*((void* *)((uptr)(x)+56)))
|
||||
#define RET(x) (*((void* *)((uptr)(x)+32)))
|
||||
#define SCHEMESTACK(x) (*((void* *)((uptr)(x)+144)))
|
||||
#define SCHEMESTACKSIZE(x) (*((iptr *)((uptr)(x)+156)))
|
||||
#define SFD(x) (*((ptr *)((uptr)(x)+228)))
|
||||
#define SFP(x) (*((void* *)((uptr)(x)+12)))
|
||||
#define SIGNALINTERRUPTPENDING(x) (*((ptr *)((uptr)(x)+196)))
|
||||
#define SIGNALINTERRUPTQUEUE(x) (*((ptr *)((uptr)(x)+200)))
|
||||
#define SOMETHINGPENDING(x) (*((ptr *)((uptr)(x)+184)))
|
||||
#define STACKCACHE(x) (*((ptr *)((uptr)(x)+148)))
|
||||
#define STACKLINK(x) (*((ptr *)((uptr)(x)+152)))
|
||||
#define SUBSETMODE(x) (*((ptr *)((uptr)(x)+288)))
|
||||
#define SUPPRESSPRIMITIVEINLINING(x) (*((ptr *)((uptr)(x)+292)))
|
||||
#define TARGETMACHINE(x) (*((ptr *)((uptr)(x)+236)))
|
||||
#define TD(x) (*((void* *)((uptr)(x)+52)))
|
||||
#define THREADNO(x) (*((ptr *)((uptr)(x)+208)))
|
||||
#define TIMERTICKS(x) (*((ptr *)((uptr)(x)+188)))
|
||||
#define TRAP(x) (*((void* *)((uptr)(x)+36)))
|
||||
#define TS(x) (*((void* *)((uptr)(x)+48)))
|
||||
#define VIRTUALREGISTERS(x,i) (((ptr *)((uptr)(x)+60))[i])
|
||||
#define WINDERS(x) (*((ptr *)((uptr)(x)+160)))
|
||||
#define XP(x) (*((void* *)((uptr)(x)+40)))
|
||||
#define YP(x) (*((void* *)((uptr)(x)+44)))
|
||||
#define ARGREG(x,i) (((void* *)((uptr)(x)+0))[i])
|
||||
#define VIRTREG(x,i) (((ptr *)((uptr)(x)+60))[i])
|
||||
|
||||
/* library entries we access from C code */
|
||||
#define library_nonprocedure_code 152
|
||||
#define library_dounderflow 154
|
||||
BIN
boot/ti3osx/petite.boot
Normal file
BIN
boot/ti3osx/petite.boot
Normal file
Binary file not shown.
BIN
boot/ti3osx/scheme.boot
Normal file
BIN
boot/ti3osx/scheme.boot
Normal file
Binary file not shown.
245
boot/ti3osx/scheme.h
Normal file
245
boot/ti3osx/scheme.h
Normal file
|
|
@ -0,0 +1,245 @@
|
|||
/* scheme.h for Chez Scheme Version 9.5.9 (ti3osx) */
|
||||
|
||||
/* Do not edit this file. It is automatically generated and */
|
||||
/* specifically tailored to the version of Chez Scheme named */
|
||||
/* above. Always be certain that you have the correct scheme.h */
|
||||
/* for the version of Chez Scheme you are using. */
|
||||
|
||||
/* Warning: Some macros may evaluate arguments more than once. */
|
||||
|
||||
/* Specify declaration of exports. */
|
||||
#ifdef _WIN32
|
||||
# if __cplusplus
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern "C" __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern "C" __declspec (dllexport)
|
||||
# endif
|
||||
# else
|
||||
# ifdef SCHEME_IMPORT
|
||||
# define EXPORT extern __declspec (dllimport)
|
||||
# elif SCHEME_STATIC
|
||||
# define EXPORT extern
|
||||
# else
|
||||
# define EXPORT extern __declspec (dllexport)
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# if __cplusplus
|
||||
# define EXPORT extern "C"
|
||||
# else
|
||||
# define EXPORT extern
|
||||
# endif
|
||||
#endif
|
||||
|
||||
/* Chez Scheme Version and machine type */
|
||||
#define VERSION "9.5.9"
|
||||
#define MACHINE_TYPE "ti3osx"
|
||||
|
||||
/* All Scheme objects are of type ptr. Type iptr and */
|
||||
/* uptr are signed and unsigned ints of the same size */
|
||||
/* as a ptr */
|
||||
typedef void * ptr;
|
||||
typedef int iptr;
|
||||
typedef unsigned int uptr;
|
||||
|
||||
/* String elements are 32-bit tagged char objects */
|
||||
typedef unsigned int string_char;
|
||||
|
||||
/* Bytevector elements are 8-bit unsigned "octets" */
|
||||
typedef unsigned char octet;
|
||||
|
||||
/* Type predicates */
|
||||
#define Sfixnump(x) (((uptr)(x)&0x3)==0x0)
|
||||
#define Scharp(x) (((uptr)(x)&0xFF)==0x16)
|
||||
#define Snullp(x) ((uptr)(x)==0x26)
|
||||
#define Seof_objectp(x) ((uptr)(x)==0x36)
|
||||
#define Sbwp_objectp(x) ((uptr)(x)==0x4E)
|
||||
#define Sbooleanp(x) (((uptr)(x)&0xF7)==0x6)
|
||||
#define Spairp(x) (((uptr)(x)&0x7)==0x1)
|
||||
#define Ssymbolp(x) (((uptr)(x)&0x7)==0x3)
|
||||
#define Sprocedurep(x) (((uptr)(x)&0x7)==0x5)
|
||||
#define Sflonump(x) (((uptr)(x)&0x7)==0x2)
|
||||
#define Svectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x0))
|
||||
#define Sfxvectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x3))
|
||||
#define Sbytevectorp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x3)==0x1))
|
||||
#define Sstringp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x2))
|
||||
#define Sbignump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1F)==0x6))
|
||||
#define Sboxp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7F)==0xE))
|
||||
#define Sinexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x36))
|
||||
#define Sexactnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x56))
|
||||
#define Sratnump(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
((uptr)((*((ptr *)((uptr)(x)+1))))==0x16))
|
||||
#define Sinputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x1FF)==0x11E))
|
||||
#define Soutputportp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x2FF)==0x21E))
|
||||
#define Srecordp(x) ((((uptr)(x)&0x7)==0x7) &&\
|
||||
(((uptr)((*((ptr *)((uptr)(x)+1))))&0x7)==0x7))
|
||||
|
||||
/* Accessors */
|
||||
#define Sfixnum_value(x) ((iptr)(x)/4)
|
||||
#define Schar_value(x) ((string_char)((uptr)(x)>>8))
|
||||
#define Sboolean_value(x) ((x) != Sfalse)
|
||||
#define Scar(x) (*((ptr *)((uptr)(x)+7)))
|
||||
#define Scdr(x) (*((ptr *)((uptr)(x)+11)))
|
||||
#define Sflonum_value(x) (*((double *)((uptr)(x)+6)))
|
||||
#define Svector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Svector_ref(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define Sfxvector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sfxvector_ref(x,i) (((ptr *)((uptr)(x)+5))[i])
|
||||
#define Sbytevector_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>3))
|
||||
#define Sbytevector_u8_ref(x,i) (((octet *)((uptr)(x)+9))[i])
|
||||
/* Warning: Sbytevector_data(x) returns a pointer into x. */
|
||||
#define Sbytevector_data(x) &Sbytevector_u8_ref(x,0)
|
||||
#define Sstring_length(x) ((iptr)((uptr)(*((iptr *)((uptr)(x)+1)))>>4))
|
||||
#define Sstring_ref(x,i) Schar_value(((string_char *)((uptr)(x)+5))[i])
|
||||
#define Sunbox(x) (*((ptr *)((uptr)(x)+5)))
|
||||
EXPORT iptr Sinteger_value(ptr);
|
||||
#define Sunsigned_value(x) (uptr)Sinteger_value(x)
|
||||
EXPORT int Sinteger32_value(ptr);
|
||||
#define Sunsigned32_value(x) (unsigned int)Sinteger32_value(x)
|
||||
EXPORT long long Sinteger64_value(ptr);
|
||||
#define Sunsigned64_value(x) (unsigned long long)Sinteger64_value(x)
|
||||
|
||||
/* Mutators */
|
||||
EXPORT void Sset_box(ptr, ptr);
|
||||
EXPORT void Sset_car(ptr, ptr);
|
||||
EXPORT void Sset_cdr(ptr, ptr);
|
||||
#define Sstring_set(x,i,c) ((void)((((string_char *)((uptr)(x)+5))[i]) = (string_char)(uptr)Schar(c)))
|
||||
#define Sfxvector_set(x,i,n) ((void)(Sfxvector_ref(x,i) = (n)))
|
||||
#define Sbytevector_u8_set(x,i,n) ((void)(Sbytevector_u8_ref(x,i) = (n)))
|
||||
EXPORT void Svector_set(ptr, iptr, ptr);
|
||||
|
||||
/* Constructors */
|
||||
#define Sfixnum(x) ((ptr)(uptr)((x)*4))
|
||||
#define Schar(x) ((ptr)(uptr)((x)<<8|0x16))
|
||||
#define Snil ((ptr)0x26)
|
||||
#define Strue ((ptr)0xE)
|
||||
#define Sfalse ((ptr)0x6)
|
||||
#define Sboolean(x) ((x)?Strue:Sfalse)
|
||||
#define Sbwp_object ((ptr)0x4E)
|
||||
#define Seof_object ((ptr)0x36)
|
||||
#define Svoid ((ptr)0x3E)
|
||||
EXPORT ptr Scons(ptr, ptr);
|
||||
EXPORT ptr Sstring_to_symbol(const char *);
|
||||
EXPORT ptr Ssymbol_to_string(ptr);
|
||||
EXPORT ptr Sflonum(double);
|
||||
EXPORT ptr Smake_vector(iptr, ptr);
|
||||
EXPORT ptr Smake_fxvector(iptr, ptr);
|
||||
EXPORT ptr Smake_bytevector(iptr, int);
|
||||
EXPORT ptr Smake_string(iptr, int);
|
||||
EXPORT ptr Smake_uninitialized_string(iptr);
|
||||
EXPORT ptr Sstring(const char *);
|
||||
EXPORT ptr Sstring_of_length(const char *, iptr);
|
||||
EXPORT ptr Sstring_utf8(const char*, iptr);
|
||||
EXPORT ptr Sbox(ptr);
|
||||
EXPORT ptr Sinteger(iptr);
|
||||
EXPORT ptr Sunsigned(uptr);
|
||||
EXPORT ptr Sinteger32(int);
|
||||
EXPORT ptr Sunsigned32(unsigned int);
|
||||
EXPORT ptr Sinteger64(long long);
|
||||
EXPORT ptr Sunsigned64(unsigned long long);
|
||||
|
||||
/* Miscellaneous */
|
||||
EXPORT ptr Stop_level_value(ptr);
|
||||
EXPORT void Sset_top_level_value(ptr, ptr);
|
||||
EXPORT void Slock_object(ptr);
|
||||
EXPORT void Sunlock_object(ptr);
|
||||
EXPORT int Slocked_objectp(ptr);
|
||||
EXPORT void Sforeign_symbol(const char *, void *);
|
||||
EXPORT void Sregister_symbol(const char *, void *);
|
||||
|
||||
/* Support for calls into Scheme */
|
||||
EXPORT ptr Scall0(ptr);
|
||||
EXPORT ptr Scall1(ptr, ptr);
|
||||
EXPORT ptr Scall2(ptr, ptr, ptr);
|
||||
EXPORT ptr Scall3(ptr, ptr, ptr, ptr);
|
||||
EXPORT void Sinitframe(iptr);
|
||||
EXPORT void Sput_arg(iptr, ptr);
|
||||
EXPORT ptr Scall(ptr, iptr);
|
||||
/* Warning: Sforeign_callable_entry_point(x) returns a pointer into x. */
|
||||
#define Sforeign_callable_entry_point(x) ((void (*)(void))((uptr)(x)+33))
|
||||
#define Sforeign_callable_code_object(x) ((ptr)((uptr)(x)-33))
|
||||
|
||||
/* Customization support. */
|
||||
EXPORT const char * Skernel_version(void);
|
||||
EXPORT void Sretain_static_relocation(void);
|
||||
EXPORT void Sset_verbose(int);
|
||||
EXPORT void Sscheme_init(void (*)(void));
|
||||
EXPORT void Sregister_boot_file(const char *);
|
||||
EXPORT void Sregister_boot_file_fd(const char *, int fd);
|
||||
EXPORT void Sregister_heap_file(const char *);
|
||||
EXPORT void Scompact_heap(void);
|
||||
EXPORT void Ssave_heap(const char *, int);
|
||||
EXPORT void Sbuild_heap(const char *, void (*)(void));
|
||||
EXPORT void Senable_expeditor(const char *);
|
||||
EXPORT int Sscheme_start(int, const char *[]);
|
||||
EXPORT int Sscheme_script(const char *, int, const char *[]);
|
||||
EXPORT int Sscheme_program(const char *, int, const char *[]);
|
||||
EXPORT void Sscheme_deinit(void);
|
||||
|
||||
/* Thread support. */
|
||||
EXPORT int Sactivate_thread(void);
|
||||
EXPORT void Sdeactivate_thread(void);
|
||||
EXPORT int Sdestroy_thread(void);
|
||||
|
||||
/* Features. */
|
||||
#define FEATURE_ICONV
|
||||
#define FEATURE_EXPEDITOR
|
||||
#define FEATURE_PTHREADS
|
||||
|
||||
/* Locking macros. */
|
||||
#define INITLOCK(addr) \
|
||||
__asm__ __volatile__ ("movl $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "memory")
|
||||
|
||||
#define SPINLOCK(addr) \
|
||||
__asm__ __volatile__ ("0:\n\t"\
|
||||
"movl $1, %%eax\n\t"\
|
||||
"xchgl (%0), %%eax\n\t"\
|
||||
"cmpl $0, %%eax\n\t"\
|
||||
"je 2f\n\t"\
|
||||
"1:\n\t"\
|
||||
"pause\n\t"\
|
||||
"cmpl $0, (%0)\n\t"\
|
||||
"je 0b\n\t"\
|
||||
"jmp 1b\n\t"\
|
||||
"2:"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "eax", "flags", "memory")
|
||||
|
||||
#define UNLOCK(addr) \
|
||||
__asm__ __volatile__ ("movl $0, (%0)"\
|
||||
: \
|
||||
: "r" (addr) \
|
||||
: "memory")
|
||||
|
||||
#define LOCKED_INCR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; incl (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
|
||||
#define LOCKED_DECR(addr, ret) \
|
||||
__asm__ __volatile__ ("lock; decl (%1)\n\t"\
|
||||
"sete %b0\n\t"\
|
||||
"movzx %b0, %0\n\t"\
|
||||
: "=q" (ret) \
|
||||
: "r" (addr) \
|
||||
: "flags", "memory")
|
||||
154
c/Makefile.a6nt
Normal file
154
c/Makefile.a6nt
Normal file
|
|
@ -0,0 +1,154 @@
|
|||
# Makefile.a6nt
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = a6nt
|
||||
|
||||
# following have to use \ for directory separator
|
||||
SchemeInclude = ..\boot\$m
|
||||
KernelDll = ..\bin\$m\csv959.dll
|
||||
KernelLib = ..\bin\$m\csv959.lib
|
||||
MTKernelLib = ..\boot\$m\csv959mt.lib
|
||||
MDKernelLib = ..\boot\$m\csv959md.lib
|
||||
KernelExp = ..\bin\$m\csv959.exp
|
||||
Exec = ..\bin\$m\scheme.exe
|
||||
MTMain = ..\boot\$m\mainmt.obj
|
||||
MDMain = ..\boot\$m\mainmd.obj
|
||||
ResFile = ..\boot\$m\scheme.res
|
||||
|
||||
# We use MD so that we can link with and load DLLs built against msvcrxxx.dll
|
||||
CFLAGS=/nologo /Ox /W3 /Zi /I$(SchemeInclude) /I..\zlib /I..\lz4\lib /DX86_64 /DWIN32 /D_CRT_SECURE_NO_WARNINGS
|
||||
MDCFLAGS=$(CFLAGS) /MD
|
||||
MTCFLAGS=$(CFLAGS) /MT
|
||||
DLLLDFLAGS=/debug:full /machine:X64 /nologo
|
||||
# stack limit is 1MB by default. this is not enough for one of the mats in foreign.ms, which
|
||||
# builds up nested C & Scheme stack frames. 2MB seems to be enough, but we set to 16MB.
|
||||
EXELDFLAGS=/debug:full /machine:X64 /incremental:no /nologo /STACK:0x1000000
|
||||
|
||||
# use following flags for debugging
|
||||
# CFLAGS=/nologo /Od /W3 /Zi /I$(SchemeInclude) /I..\zlib /I..\lz4\lib /DX86_64 /DWIN32 /D_CRT_SECURE_NO_WARNINGS
|
||||
# MDCFLAGS=$(CFLAGS) /MDd
|
||||
# MTCFLAGS=$(CFLAGS) /MTd
|
||||
|
||||
SystemLib=rpcrt4.lib ole32.lib advapi32.lib User32.lib
|
||||
MDZlibLib=..\zlib\zlib.lib
|
||||
MTZlibLib=..\zlib\zlibmt.lib
|
||||
MDLZ4Lib=..\lz4\lib\liblz4.lib
|
||||
MTLZ4Lib=..\lz4\lib\liblz4mt.lib
|
||||
|
||||
csrc=statics.c segment.c alloc.c symbol.c intern.c gcwrapper.c gc-011.c gc-oce.c gc-ocd.c\
|
||||
number.c schsig.c io.c new-io.c print.c fasl.c stats.c\
|
||||
foreign.c prim.c prim5.c flushcache.c\
|
||||
windows.c\
|
||||
schlib.c thread.c expeditor.c scheme.c compress-io.c
|
||||
|
||||
cobj=statics.obj segment.obj alloc.obj symbol.obj intern.obj gcwrapper.obj gc-011.obj gc-oce.obj gc-ocd.obj\
|
||||
number.obj schsig.obj io.obj new-io.obj print.obj fasl.obj stats.obj\
|
||||
foreign.obj prim.obj prim5.obj flushcache.obj\
|
||||
windows.obj\
|
||||
schlib.obj thread.obj expeditor.obj scheme.obj compress-io.obj
|
||||
|
||||
hsrc=system.h types.h version.h globals.h externs.h compress-io.h segment.h gc.c thread.h sort.h itest.c
|
||||
|
||||
.SUFFIXES:
|
||||
|
||||
all: $(Exec) $(MTKernelLib) $(MDKernelLib) $(MTMain)
|
||||
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): $(hsrc)
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): $(SchemeInclude)/equates.h $(SchemeInclude)/scheme.h
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): ..\zlib/zconf.h ..\zlib/zlib.h
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): ../lz4/lib/lz4.h ../lz4/lib/lz4frame.h
|
||||
|
||||
$(MTKernelLib): $(csrc) $(MTZlibLib) $(MTLZ4Lib) a6nt-jump.obj
|
||||
-del /f $(MTKernelLib)
|
||||
cl /DSCHEME_STATIC /c $(MTCFLAGS) $(csrc)
|
||||
link /lib /nologo -out:$(MTKernelLib) $(cobj) $(MTZlibLib) $(MTLZ4Lib) a6nt-jump.obj
|
||||
|
||||
$(MDKernelLib): $(csrc) $(MDZlibLib) $(MDLZ4Lib) a6nt-jump.obj
|
||||
-del /f $(MDKernelLib)
|
||||
cl /DSCHEME_STATIC /c $(MDCFLAGS) $(csrc)
|
||||
link /lib /nologo -out:$(MDKernelLib) $(cobj) $(MDZlibLib) $(MDLZ4Lib) a6nt-jump.obj
|
||||
|
||||
# nmake builds Dll twice if we list it with $(KernelLib) below
|
||||
$(KernelDll): $(KernelLib)
|
||||
|
||||
# base chosen to be consistent with "microsoft conventions"
|
||||
# http://www.windevnet.com/documents/s=7482/win1078945937961/
|
||||
# but set at a basically odd address to reduce likelihood of
|
||||
# conflicts with other dlls. use 'depends <exefile>' to check.
|
||||
# we no longer attempt to rebase other the CRT dll since it
|
||||
# has already been signed.
|
||||
$(KernelLib): $(ResFile) $(csrc) $(MDZlibLib) $(MDLZ4Lib) a6nt-jump.obj
|
||||
-del /f $(KernelLib)
|
||||
-del /f $(KernelDll)
|
||||
cl /c $(MDCFLAGS) $(csrc)
|
||||
link -dll -out:$(KernelDll) $(DLLLDFLAGS) $(ResFile) $(cobj) $(MDZlibLib) $(MDLZ4Lib) $(SystemLib) a6nt-jump.obj
|
||||
editbin /nologo /rebase:base=0x67480000 $(KernelDll)
|
||||
|
||||
$(MTMain): main.c
|
||||
-del /f $(MTMain)
|
||||
cl /DSCHEME_STATIC /c $(MTCFLAGS) main.c
|
||||
copy main.obj $(MTMain)
|
||||
|
||||
$(MDMain): main.c
|
||||
-del /f $(MDMain)
|
||||
cl /c $(MDCFLAGS) main.c
|
||||
copy main.obj $(MDMain)
|
||||
|
||||
$(Exec): $(ResFile) $(MDMain) $(KernelLib)
|
||||
-del /f $(Exec)
|
||||
link /out:$(Exec) $(EXELDFLAGS) $(ResFile) $(MDMain) $(KernelLib)
|
||||
mt -manifest ..\..\c\scheme.exe.manifest -outputresource:$(Exec);1
|
||||
|
||||
$(ResFile): scheme.rc
|
||||
-del /f $(ResFile)
|
||||
rc -r /fo $(ResFile) -DWIN32 scheme.rc
|
||||
|
||||
# for testing mt kernel and mainmt.obj:
|
||||
mtscheme.exe: $(ResFile) $(MTMain) $(MTKernelLib)
|
||||
-del /f mtscheme.exe
|
||||
link /out:mtscheme.exe $(EXELDFLAGS) $(ResFile) $(MTMain) $(MTKernelLib) $(SystemLib)
|
||||
|
||||
# for testing md kernel and mainmd.obj:
|
||||
mdscheme.exe: $(ResFile) $(MDMain) $(MDKernelLib)
|
||||
-del /f mdscheme.exe
|
||||
link /out:mdscheme.exe $(EXELDFLAGS) $(ResFile) $(MDMain) $(MDKernelLib) $(SystemLib)
|
||||
|
||||
..\zlib\zlib.h ..\zlib\zconf.h $(MDZlibLib) $(MTZlibLib):
|
||||
cd ../zlib
|
||||
nmake /nologo -f win32/Makefile.msc AR="link /lib" CFLAGS="-nologo -MT -O2 $(LOC)"
|
||||
ren zlib.lib zlibmt.lib
|
||||
nmake /nologo -f win32/Makefile.msc clean
|
||||
nmake /nologo -f win32/Makefile.msc AR="link /lib"
|
||||
cd ../c
|
||||
|
||||
$(MDLZ4Lib) $(MTLZ4Lib): ../lz4/lib/lz4.c ../lz4/lib/lz4frame.c ../lz4/lib/lz4hc.c
|
||||
cl /c /Fo../lz4/lib/lz4.obj $(MDCFLAGS) ../lz4/lib/lz4.c
|
||||
cl /c /Fo../lz4/lib/lz4frame.obj $(MDCFLAGS) ../lz4/lib/lz4frame.c
|
||||
cl /c /Fo../lz4/lib/lz4hc.obj $(MDCFLAGS) ../lz4/lib/lz4hc.c
|
||||
cl /c /Fo../lz4/lib/xxhash.obj $(MDCFLAGS) ../lz4/lib/xxhash.c
|
||||
lib /OUT:$(MDLZ4Lib) ../lz4/lib/lz4.obj ../lz4/lib/lz4frame.obj ../lz4/lib/lz4hc.obj ../lz4/lib/xxhash.obj
|
||||
cl /c /Fo../lz4/lib/lz4mt.obj $(MTCFLAGS) ../lz4/lib/lz4.c
|
||||
cl /c /Fo../lz4/lib/lz4framemt.obj $(MTCFLAGS) ../lz4/lib/lz4frame.c
|
||||
cl /c /Fo../lz4/lib/lz4hcmt.obj $(MTCFLAGS) ../lz4/lib/lz4hc.c
|
||||
cl /c /Fo../lz4/lib/xxhashmt.obj $(MTCFLAGS) ../lz4/lib/xxhash.c
|
||||
lib /OUT:$(MTLZ4Lib) ../lz4/lib/lz4mt.obj ../lz4/lib/lz4framemt.obj ../lz4/lib/lz4hcmt.obj ../lz4/lib/xxhashmt.obj
|
||||
|
||||
a6nt-jump.obj: a6nt-jump.asm
|
||||
ml64 /nologo /W3 /Zi /c a6nt-jump.asm
|
||||
|
||||
clean:
|
||||
-del /f $(cobj) main.obj $(KernelExp) a6nt-jump.obj
|
||||
-del /f mtscheme.exe
|
||||
-del /f mdscheme.exe
|
||||
150
c/Makefile.i3nt
Normal file
150
c/Makefile.i3nt
Normal file
|
|
@ -0,0 +1,150 @@
|
|||
# Makefile.i3nt
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = i3nt
|
||||
|
||||
# following have to use \ for directory separator
|
||||
SchemeInclude = ..\boot\$m
|
||||
KernelDll = ..\bin\$m\csv959.dll
|
||||
KernelLib = ..\bin\$m\csv959.lib
|
||||
MTKernelLib = ..\boot\$m\csv959mt.lib
|
||||
MDKernelLib = ..\boot\$m\csv959md.lib
|
||||
KernelExp = ..\bin\$m\csv959.exp
|
||||
Exec = ..\bin\$m\scheme.exe
|
||||
MTMain = ..\boot\$m\mainmt.obj
|
||||
MDMain = ..\boot\$m\mainmd.obj
|
||||
ResFile = ..\boot\$m\scheme.res
|
||||
|
||||
# We use MD so that we can link with and load DLLs built against msvcrxxx.dll
|
||||
CFLAGS=/nologo /fp:precise /Ox /W3 /Zi /I$(SchemeInclude) /I..\zlib /I..\lz4\lib /DI386 /DWIN32 /D_CRT_SECURE_NO_WARNINGS
|
||||
MDCFLAGS=$(CFLAGS) /MD
|
||||
MTCFLAGS=$(CFLAGS) /MT
|
||||
DLLLDFLAGS=/debug:full /machine:ix86 /nologo
|
||||
# see note in Makefile.a6nt regarding stack size. we use 8MB here to be consistent.
|
||||
EXELDFLAGS=/debug:full /machine:ix86 /incremental:no /nologo /STACK:0x800000
|
||||
|
||||
# use following flags for debugging
|
||||
# CFLAGS=/nologo /fp:precise /Od /W3 /Zi /I$(SchemeInclude) /I..\zlib /I..\lz4\lib /DI386 /DWIN32 /D_CRT_SECURE_NO_WARNINGS
|
||||
# MDCFLAGS=$(CFLAGS) /MDd
|
||||
# MTCFLAGS=$(CFLAGS) /MTd
|
||||
|
||||
SystemLib=rpcrt4.lib ole32.lib advapi32.lib User32.lib
|
||||
MDZlibLib=..\zlib\zlib.lib
|
||||
MTZlibLib=..\zlib\zlibmt.lib
|
||||
MDLZ4Lib=..\lz4\lib\liblz4.lib
|
||||
MTLZ4Lib=..\lz4\lib\liblz4mt.lib
|
||||
|
||||
csrc=statics.c segment.c alloc.c symbol.c intern.c gcwrapper.c gc-011.c gc-oce.c gc-ocd.c\
|
||||
number.c schsig.c io.c new-io.c print.c fasl.c stats.c\
|
||||
foreign.c prim.c prim5.c flushcache.c\
|
||||
windows.c\
|
||||
schlib.c thread.c expeditor.c scheme.c compress-io.c
|
||||
|
||||
cobj=statics.obj segment.obj alloc.obj symbol.obj intern.obj gcwrapper.obj gc-011.obj gc-oce.obj gc-ocd.obj\
|
||||
number.obj schsig.obj io.obj new-io.obj print.obj fasl.obj stats.obj\
|
||||
foreign.obj prim.obj prim5.obj flushcache.obj\
|
||||
windows.obj\
|
||||
schlib.obj thread.obj expeditor.obj scheme.obj compress-io.obj
|
||||
|
||||
hsrc=system.h types.h version.h globals.h externs.h compress-io.h segment.h gc.c thread.h sort.h itest.c
|
||||
|
||||
.SUFFIXES:
|
||||
|
||||
all: $(Exec) $(MTKernelLib) $(MDKernelLib) $(MTMain)
|
||||
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): $(hsrc)
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): $(SchemeInclude)/equates.h $(SchemeInclude)/scheme.h
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): ..\zlib/zconf.h ..\zlib/zlib.h
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): ../lz4/lib/lz4.h ../lz4/lib/lz4frame.h
|
||||
|
||||
$(MTKernelLib): $(csrc) $(MTZlibLib) $(MTLZ4Lib)
|
||||
-del /f $(MTKernelLib)
|
||||
cl /DSCHEME_STATIC /c $(MTCFLAGS) $(csrc)
|
||||
link /lib /nologo -out:$(MTKernelLib) $(cobj) $(MTZlibLib) $(MTLZ4Lib)
|
||||
|
||||
$(MDKernelLib): $(csrc) $(MDZlibLib) $(MDLZ4Lib)
|
||||
-del /f $(MDKernelLib)
|
||||
cl /DSCHEME_STATIC /c $(MDCFLAGS) $(csrc)
|
||||
link /lib /nologo -out:$(MDKernelLib) $(cobj) $(MDZlibLib) $(MDLZ4Lib)
|
||||
|
||||
# nmake builds Dll twice if we list it with $(KernelLib) below
|
||||
$(KernelDll): $(KernelLib)
|
||||
|
||||
# base chosen to be consistent with "microsoft conventions"
|
||||
# http://www.windevnet.com/documents/s=7482/win1078945937961/
|
||||
# but set at a basically odd address to reduce likelihood of
|
||||
# conflicts with other dlls. use 'depends <exefile>' to check.
|
||||
# we no longer attempt to rebase other the CRT dll since it
|
||||
# has already been signed.
|
||||
$(KernelLib): $(ResFile) $(csrc) $(MDZlibLib) $(MDLZ4Lib)
|
||||
-del /f $(KernelLib)
|
||||
-del /f $(KernelDll)
|
||||
cl /c $(MDCFLAGS) $(csrc)
|
||||
link -dll -out:$(KernelDll) $(DLLLDFLAGS) $(ResFile) $(cobj) $(MDZlibLib) $(MDLZ4Lib) $(SystemLib)
|
||||
editbin /nologo /rebase:base=0x67480000 $(KernelDll)
|
||||
|
||||
$(MTMain): main.c
|
||||
-del /f $(MTMain)
|
||||
cl /DSCHEME_STATIC /c $(MTCFLAGS) main.c
|
||||
copy main.obj $(MTMain)
|
||||
|
||||
$(MDMain): main.c
|
||||
-del /f $(MDMain)
|
||||
cl /c $(MDCFLAGS) main.c
|
||||
copy main.obj $(MDMain)
|
||||
|
||||
$(Exec): $(ResFile) $(MDMain) $(KernelLib)
|
||||
-del /f $(Exec)
|
||||
link /out:$(Exec) $(EXELDFLAGS) $(ResFile) $(MDMain) $(KernelLib)
|
||||
mt -manifest ..\..\c\scheme.exe.manifest -outputresource:$(Exec);1
|
||||
|
||||
$(ResFile): scheme.rc
|
||||
-del /f $(ResFile)
|
||||
rc -r /fo $(ResFile) -DWIN32 scheme.rc
|
||||
|
||||
# for testing mt kernel and mainmt.obj:
|
||||
mtscheme.exe: $(ResFile) $(MTMain) $(MTKernelLib)
|
||||
-del /f mtscheme.exe
|
||||
link /out:mtscheme.exe $(EXELDFLAGS) $(ResFile) $(MTMain) $(MTKernelLib) $(SystemLib)
|
||||
|
||||
# for testing md kernel and mainmd.obj:
|
||||
mdscheme.exe: $(ResFile) $(MDMain) $(MDKernelLib)
|
||||
-del /f mdscheme.exe
|
||||
link /out:mdscheme.exe $(EXELDFLAGS) $(ResFile) $(MDMain) $(MDKernelLib) $(SystemLib)
|
||||
|
||||
..\zlib\zlib.h ..\zlib\zconf.h $(MDZlibLib) $(MTZlibLib):
|
||||
cd ../zlib
|
||||
nmake /nologo -f win32/Makefile.msc AR="link /lib" CFLAGS="-nologo -MT -O2 $(LOC)"
|
||||
ren zlib.lib zlibmt.lib
|
||||
nmake /nologo -f win32/Makefile.msc clean
|
||||
nmake /nologo -f win32/Makefile.msc AR="link /lib"
|
||||
cd ../c
|
||||
|
||||
$(MDLZ4Lib) $(MTLZ4Lib): ../lz4/lib/lz4.c ../lz4/lib/lz4frame.c ../lz4/lib/lz4hc.c
|
||||
cl /c /Fo../lz4/lib/lz4.obj $(MDCFLAGS) ../lz4/lib/lz4.c
|
||||
cl /c /Fo../lz4/lib/lz4frame.obj $(MDCFLAGS) ../lz4/lib/lz4frame.c
|
||||
cl /c /Fo../lz4/lib/lz4hc.obj $(MDCFLAGS) ../lz4/lib/lz4hc.c
|
||||
cl /c /Fo../lz4/lib/xxhash.obj $(MDCFLAGS) ../lz4/lib/xxhash.c
|
||||
lib /OUT:$(MDLZ4Lib) ../lz4/lib/lz4.obj ../lz4/lib/lz4frame.obj ../lz4/lib/lz4hc.obj ../lz4/lib/xxhash.obj
|
||||
cl /c /Fo../lz4/lib/lz4mt.obj $(MTCFLAGS) ../lz4/lib/lz4.c
|
||||
cl /c /Fo../lz4/lib/lz4framemt.obj $(MTCFLAGS) ../lz4/lib/lz4frame.c
|
||||
cl /c /Fo../lz4/lib/lz4hcmt.obj $(MTCFLAGS) ../lz4/lib/lz4hc.c
|
||||
cl /c /Fo../lz4/lib/xxhashmt.obj $(MTCFLAGS) ../lz4/lib/xxhash.c
|
||||
lib /OUT:$(MTLZ4Lib) ../lz4/lib/lz4mt.obj ../lz4/lib/lz4framemt.obj ../lz4/lib/lz4hcmt.obj ../lz4/lib/xxhashmt.obj
|
||||
|
||||
clean:
|
||||
-del /f $(cobj) main.obj $(KernelExp)
|
||||
-del /f mtscheme.exe
|
||||
-del /f mdscheme.exe
|
||||
154
c/Makefile.ta6nt
Normal file
154
c/Makefile.ta6nt
Normal file
|
|
@ -0,0 +1,154 @@
|
|||
# Makefile.ta6nt
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = ta6nt
|
||||
|
||||
# following have to use \ for directory separator
|
||||
SchemeInclude = ..\boot\$m
|
||||
KernelDll = ..\bin\$m\csv959.dll
|
||||
KernelLib = ..\bin\$m\csv959.lib
|
||||
MTKernelLib = ..\boot\$m\csv959mt.lib
|
||||
MDKernelLib = ..\boot\$m\csv959md.lib
|
||||
KernelExp = ..\bin\$m\csv959.exp
|
||||
Exec = ..\bin\$m\scheme.exe
|
||||
MTMain = ..\boot\$m\mainmt.obj
|
||||
MDMain = ..\boot\$m\mainmd.obj
|
||||
ResFile = ..\boot\$m\scheme.res
|
||||
|
||||
# We use MD so that we can link with and load DLLs built against msvcrxxx.dll
|
||||
CFLAGS=/nologo /Ox /W3 /Zi /I$(SchemeInclude) /I..\zlib /I..\lz4\lib /DX86_64 /DWIN32 /D_CRT_SECURE_NO_WARNINGS
|
||||
MDCFLAGS=$(CFLAGS) /MD
|
||||
MTCFLAGS=$(CFLAGS) /MT
|
||||
DLLLDFLAGS=/debug:full /machine:X64 /nologo
|
||||
# stack limit is 1MB by default. this is not enough for one of the mats in foreign.ms, which
|
||||
# builds up nested C & Scheme stack frames. 2MB seems to be enough, but we set to 16MB.
|
||||
EXELDFLAGS=/debug:full /machine:X64 /incremental:no /nologo /STACK:0x1000000
|
||||
|
||||
# use following flags for debugging
|
||||
# CFLAGS=/nologo /Od /W3 /Zi /I$(SchemeInclude) /I..\zlib /I..\lz4\lib /DX86_64 /DWIN32 /D_CRT_SECURE_NO_WARNINGS
|
||||
# MDCFLAGS=$(CFLAGS) /MDd
|
||||
# MTCFLAGS=$(CFLAGS) /MTd
|
||||
|
||||
SystemLib=rpcrt4.lib ole32.lib advapi32.lib User32.lib
|
||||
MDZlibLib=..\zlib\zlib.lib
|
||||
MTZlibLib=..\zlib\zlibmt.lib
|
||||
MDLZ4Lib=..\lz4\lib\liblz4.lib
|
||||
MTLZ4Lib=..\lz4\lib\liblz4mt.lib
|
||||
|
||||
csrc=statics.c segment.c alloc.c symbol.c intern.c gcwrapper.c gc-011.c gc-oce.c gc-ocd.c\
|
||||
number.c schsig.c io.c new-io.c print.c fasl.c stats.c\
|
||||
foreign.c prim.c prim5.c flushcache.c\
|
||||
windows.c\
|
||||
schlib.c thread.c expeditor.c scheme.c compress-io.c
|
||||
|
||||
cobj=statics.obj segment.obj alloc.obj symbol.obj intern.obj gcwrapper.obj gc-011.obj gc-oce.obj gc-ocd.obj\
|
||||
number.obj schsig.obj io.obj new-io.obj print.obj fasl.obj stats.obj\
|
||||
foreign.obj prim.obj prim5.obj flushcache.obj\
|
||||
windows.obj\
|
||||
schlib.obj thread.obj expeditor.obj scheme.obj compress-io.obj
|
||||
|
||||
hsrc=system.h types.h version.h globals.h externs.h compress-io.h segment.h gc.c thread.h sort.h itest.c
|
||||
|
||||
.SUFFIXES:
|
||||
|
||||
all: $(Exec) $(MTKernelLib) $(MDKernelLib) $(MTMain)
|
||||
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): $(hsrc)
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): $(SchemeInclude)/equates.h $(SchemeInclude)/scheme.h
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): ..\zlib/zconf.h ..\zlib/zlib.h
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): ../lz4/lib/lz4.h ../lz4/lib/lz4frame.h
|
||||
|
||||
$(MTKernelLib): $(csrc) $(MTZlibLib) $(MTLZ4Lib) a6nt-jump.obj
|
||||
-del /f $(MTKernelLib)
|
||||
cl /DSCHEME_STATIC /c $(MTCFLAGS) $(csrc)
|
||||
link /lib /nologo -out:$(MTKernelLib) $(cobj) $(MTZlibLib) $(MTLZ4Lib) a6nt-jump.obj
|
||||
|
||||
$(MDKernelLib): $(csrc) $(MDZlibLib) $(MDLZ4Lib) a6nt-jump.obj
|
||||
-del /f $(MDKernelLib)
|
||||
cl /DSCHEME_STATIC /c $(MDCFLAGS) $(csrc)
|
||||
link /lib /nologo -out:$(MDKernelLib) $(cobj) $(MDZlibLib) $(MDLZ4Lib) a6nt-jump.obj
|
||||
|
||||
# nmake builds Dll twice if we list it with $(KernelLib) below
|
||||
$(KernelDll): $(KernelLib)
|
||||
|
||||
# base chosen to be consistent with "microsoft conventions"
|
||||
# http://www.windevnet.com/documents/s=7482/win1078945937961/
|
||||
# but set at a basically odd address to reduce likelihood of
|
||||
# conflicts with other dlls. use 'depends <exefile>' to check.
|
||||
# we no longer attempt to rebase other the CRT dll since it
|
||||
# has already been signed.
|
||||
$(KernelLib): $(ResFile) $(csrc) $(MDZlibLib) $(MDLZ4Lib) a6nt-jump.obj
|
||||
-del /f $(KernelLib)
|
||||
-del /f $(KernelDll)
|
||||
cl /c $(MDCFLAGS) $(csrc)
|
||||
link -dll -out:$(KernelDll) $(DLLLDFLAGS) $(ResFile) $(cobj) $(MDZlibLib) $(MDLZ4Lib) $(SystemLib) a6nt-jump.obj
|
||||
editbin /nologo /rebase:base=0x67480000 $(KernelDll)
|
||||
|
||||
$(MTMain): main.c
|
||||
-del /f $(MTMain)
|
||||
cl /DSCHEME_STATIC /c $(MTCFLAGS) main.c
|
||||
copy main.obj $(MTMain)
|
||||
|
||||
$(MDMain): main.c
|
||||
-del /f $(MDMain)
|
||||
cl /c $(MDCFLAGS) main.c
|
||||
copy main.obj $(MDMain)
|
||||
|
||||
$(Exec): $(ResFile) $(MDMain) $(KernelLib)
|
||||
-del /f $(Exec)
|
||||
link /out:$(Exec) $(EXELDFLAGS) $(ResFile) $(MDMain) $(KernelLib)
|
||||
mt -manifest ..\..\c\scheme.exe.manifest -outputresource:$(Exec);1
|
||||
|
||||
$(ResFile): scheme.rc
|
||||
-del /f $(ResFile)
|
||||
rc -r /fo $(ResFile) -DWIN32 scheme.rc
|
||||
|
||||
# for testing mt kernel and mainmt.obj:
|
||||
mtscheme.exe: $(ResFile) $(MTMain) $(MTKernelLib)
|
||||
-del /f mtscheme.exe
|
||||
link /out:mtscheme.exe $(EXELDFLAGS) $(ResFile) $(MTMain) $(MTKernelLib) $(SystemLib)
|
||||
|
||||
# for testing md kernel and mainmd.obj:
|
||||
mdscheme.exe: $(ResFile) $(MDMain) $(MDKernelLib)
|
||||
-del /f mdscheme.exe
|
||||
link /out:mdscheme.exe $(EXELDFLAGS) $(ResFile) $(MDMain) $(MDKernelLib) $(SystemLib)
|
||||
|
||||
..\zlib\zlib.h ..\zlib\zconf.h $(MDZlibLib) $(MTZlibLib):
|
||||
cd ../zlib
|
||||
nmake /nologo -f win32/Makefile.msc AR="link /lib" CFLAGS="-nologo -MT -O2 $(LOC)"
|
||||
ren zlib.lib zlibmt.lib
|
||||
nmake /nologo -f win32/Makefile.msc clean
|
||||
nmake /nologo -f win32/Makefile.msc AR="link /lib"
|
||||
cd ../c
|
||||
|
||||
$(MDLZ4Lib) $(MTLZ4Lib): ../lz4/lib/lz4.c ../lz4/lib/lz4frame.c ../lz4/lib/lz4hc.c
|
||||
cl /c /Fo../lz4/lib/lz4.obj $(MDCFLAGS) ../lz4/lib/lz4.c
|
||||
cl /c /Fo../lz4/lib/lz4frame.obj $(MDCFLAGS) ../lz4/lib/lz4frame.c
|
||||
cl /c /Fo../lz4/lib/lz4hc.obj $(MDCFLAGS) ../lz4/lib/lz4hc.c
|
||||
cl /c /Fo../lz4/lib/xxhash.obj $(MDCFLAGS) ../lz4/lib/xxhash.c
|
||||
lib /OUT:$(MDLZ4Lib) ../lz4/lib/lz4.obj ../lz4/lib/lz4frame.obj ../lz4/lib/lz4hc.obj ../lz4/lib/xxhash.obj
|
||||
cl /c /Fo../lz4/lib/lz4mt.obj $(MTCFLAGS) ../lz4/lib/lz4.c
|
||||
cl /c /Fo../lz4/lib/lz4framemt.obj $(MTCFLAGS) ../lz4/lib/lz4frame.c
|
||||
cl /c /Fo../lz4/lib/lz4hcmt.obj $(MTCFLAGS) ../lz4/lib/lz4hc.c
|
||||
cl /c /Fo../lz4/lib/xxhashmt.obj $(MTCFLAGS) ../lz4/lib/xxhash.c
|
||||
lib /OUT:$(MTLZ4Lib) ../lz4/lib/lz4mt.obj ../lz4/lib/lz4framemt.obj ../lz4/lib/lz4hcmt.obj ../lz4/lib/xxhashmt.obj
|
||||
|
||||
a6nt-jump.obj: a6nt-jump.asm
|
||||
ml64 /nologo /W3 /Zi /c a6nt-jump.asm
|
||||
|
||||
clean:
|
||||
-del /f $(cobj) main.obj $(KernelExp) a6nt-jump.obj
|
||||
-del /f mtscheme.exe
|
||||
-del /f mdscheme.exe
|
||||
150
c/Makefile.ti3nt
Normal file
150
c/Makefile.ti3nt
Normal file
|
|
@ -0,0 +1,150 @@
|
|||
# Makefile.ti3nt
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = ti3nt
|
||||
|
||||
# following have to use \ for directory separator
|
||||
SchemeInclude = ..\boot\$m
|
||||
KernelDll = ..\bin\$m\csv959.dll
|
||||
KernelLib = ..\bin\$m\csv959.lib
|
||||
MTKernelLib = ..\boot\$m\csv959mt.lib
|
||||
MDKernelLib = ..\boot\$m\csv959md.lib
|
||||
KernelExp = ..\bin\$m\csv959.exp
|
||||
Exec = ..\bin\$m\scheme.exe
|
||||
MTMain = ..\boot\$m\mainmt.obj
|
||||
MDMain = ..\boot\$m\mainmd.obj
|
||||
ResFile = ..\boot\$m\scheme.res
|
||||
|
||||
# We use MD so that we can link with and load DLLs built against msvcrxxx.dll
|
||||
CFLAGS=/nologo /fp:precise /Ox /W3 /Zi /I$(SchemeInclude) /I..\zlib /I..\lz4\lib /DI386 /DWIN32 /D_CRT_SECURE_NO_WARNINGS
|
||||
MDCFLAGS=$(CFLAGS) /MD
|
||||
MTCFLAGS=$(CFLAGS) /MT
|
||||
DLLLDFLAGS=/debug:full /machine:ix86 /nologo
|
||||
# see note in Makefile.a6nt regarding stack size. we use 8MB here to be consistent.
|
||||
EXELDFLAGS=/debug:full /machine:ix86 /incremental:no /nologo /STACK:0x800000
|
||||
|
||||
# use following flags for debugging
|
||||
# CFLAGS=/nologo /fp:precise /Od /W3 /Zi /I$(SchemeInclude) /I..\zlib /I..\lz4\lib /DI386 /DWIN32 /D_CRT_SECURE_NO_WARNINGS
|
||||
# MDCFLAGS=$(CFLAGS) /MDd
|
||||
# MTCFLAGS=$(CFLAGS) /MTd
|
||||
|
||||
SystemLib=rpcrt4.lib ole32.lib advapi32.lib User32.lib
|
||||
MDZlibLib=..\zlib\zlib.lib
|
||||
MTZlibLib=..\zlib\zlibmt.lib
|
||||
MDLZ4Lib=..\lz4\lib\liblz4.lib
|
||||
MTLZ4Lib=..\lz4\lib\liblz4mt.lib
|
||||
|
||||
csrc=statics.c segment.c alloc.c symbol.c intern.c gcwrapper.c gc-011.c gc-oce.c gc-ocd.c\
|
||||
number.c schsig.c io.c new-io.c print.c fasl.c stats.c\
|
||||
foreign.c prim.c prim5.c flushcache.c\
|
||||
windows.c\
|
||||
schlib.c thread.c expeditor.c scheme.c compress-io.c
|
||||
|
||||
cobj=statics.obj segment.obj alloc.obj symbol.obj intern.obj gcwrapper.obj gc-011.obj gc-oce.obj gc-ocd.obj\
|
||||
number.obj schsig.obj io.obj new-io.obj print.obj fasl.obj stats.obj\
|
||||
foreign.obj prim.obj prim5.obj flushcache.obj\
|
||||
windows.obj\
|
||||
schlib.obj thread.obj expeditor.obj scheme.obj compress-io.obj
|
||||
|
||||
hsrc=system.h types.h version.h globals.h externs.h compress-io.h segment.h gc.c thread.h sort.h itest.c
|
||||
|
||||
.SUFFIXES:
|
||||
|
||||
all: $(Exec) $(MTKernelLib) $(MDKernelLib) $(MTMain)
|
||||
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): $(hsrc)
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): $(SchemeInclude)/equates.h $(SchemeInclude)/scheme.h
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): ..\zlib/zconf.h ..\zlib/zlib.h
|
||||
$(KernelLib) $(MTKernelLib) $(MDKernelLib): ../lz4/lib/lz4.h ../lz4/lib/lz4frame.h
|
||||
|
||||
$(MTKernelLib): $(csrc) $(MTZlibLib) $(MTLZ4Lib)
|
||||
-del /f $(MTKernelLib)
|
||||
cl /DSCHEME_STATIC /c $(MTCFLAGS) $(csrc)
|
||||
link /lib /nologo -out:$(MTKernelLib) $(cobj) $(MTZlibLib) $(MTLZ4Lib)
|
||||
|
||||
$(MDKernelLib): $(csrc) $(MDZlibLib) $(MDLZ4Lib)
|
||||
-del /f $(MDKernelLib)
|
||||
cl /DSCHEME_STATIC /c $(MDCFLAGS) $(csrc)
|
||||
link /lib /nologo -out:$(MDKernelLib) $(cobj) $(MDZlibLib) $(MDLZ4Lib)
|
||||
|
||||
# nmake builds Dll twice if we list it with $(KernelLib) below
|
||||
$(KernelDll): $(KernelLib)
|
||||
|
||||
# base chosen to be consistent with "microsoft conventions"
|
||||
# http://www.windevnet.com/documents/s=7482/win1078945937961/
|
||||
# but set at a basically odd address to reduce likelihood of
|
||||
# conflicts with other dlls. use 'depends <exefile>' to check.
|
||||
# we no longer attempt to rebase other the CRT dll since it
|
||||
# has already been signed.
|
||||
$(KernelLib): $(ResFile) $(csrc) $(MDZlibLib) $(MDLZ4Lib)
|
||||
-del /f $(KernelLib)
|
||||
-del /f $(KernelDll)
|
||||
cl /c $(MDCFLAGS) $(csrc)
|
||||
link -dll -out:$(KernelDll) $(DLLLDFLAGS) $(ResFile) $(cobj) $(MDZlibLib) $(MDLZ4Lib) $(SystemLib)
|
||||
editbin /nologo /rebase:base=0x67480000 $(KernelDll)
|
||||
|
||||
$(MTMain): main.c
|
||||
-del /f $(MTMain)
|
||||
cl /DSCHEME_STATIC /c $(MTCFLAGS) main.c
|
||||
copy main.obj $(MTMain)
|
||||
|
||||
$(MDMain): main.c
|
||||
-del /f $(MDMain)
|
||||
cl /c $(MDCFLAGS) main.c
|
||||
copy main.obj $(MDMain)
|
||||
|
||||
$(Exec): $(ResFile) $(MDMain) $(KernelLib)
|
||||
-del /f $(Exec)
|
||||
link /out:$(Exec) $(EXELDFLAGS) $(ResFile) $(MDMain) $(KernelLib)
|
||||
mt -manifest ..\..\c\scheme.exe.manifest -outputresource:$(Exec);1
|
||||
|
||||
$(ResFile): scheme.rc
|
||||
-del /f $(ResFile)
|
||||
rc -r /fo $(ResFile) -DWIN32 scheme.rc
|
||||
|
||||
# for testing mt kernel and mainmt.obj:
|
||||
mtscheme.exe: $(ResFile) $(MTMain) $(MTKernelLib)
|
||||
-del /f mtscheme.exe
|
||||
link /out:mtscheme.exe $(EXELDFLAGS) $(ResFile) $(MTMain) $(MTKernelLib) $(SystemLib)
|
||||
|
||||
# for testing md kernel and mainmd.obj:
|
||||
mdscheme.exe: $(ResFile) $(MDMain) $(MDKernelLib)
|
||||
-del /f mdscheme.exe
|
||||
link /out:mdscheme.exe $(EXELDFLAGS) $(ResFile) $(MDMain) $(MDKernelLib) $(SystemLib)
|
||||
|
||||
..\zlib\zlib.h ..\zlib\zconf.h $(MDZlibLib) $(MTZlibLib):
|
||||
cd ../zlib
|
||||
nmake /nologo -f win32/Makefile.msc AR="link /lib" CFLAGS="-nologo -MT -O2 $(LOC)"
|
||||
ren zlib.lib zlibmt.lib
|
||||
nmake /nologo -f win32/Makefile.msc clean
|
||||
nmake /nologo -f win32/Makefile.msc AR="link /lib"
|
||||
cd ../c
|
||||
|
||||
$(MDLZ4Lib) $(MTLZ4Lib): ../lz4/lib/lz4.c ../lz4/lib/lz4frame.c ../lz4/lib/lz4hc.c
|
||||
cl /c /Fo../lz4/lib/lz4.obj $(MDCFLAGS) ../lz4/lib/lz4.c
|
||||
cl /c /Fo../lz4/lib/lz4frame.obj $(MDCFLAGS) ../lz4/lib/lz4frame.c
|
||||
cl /c /Fo../lz4/lib/lz4hc.obj $(MDCFLAGS) ../lz4/lib/lz4hc.c
|
||||
cl /c /Fo../lz4/lib/xxhash.obj $(MDCFLAGS) ../lz4/lib/xxhash.c
|
||||
lib /OUT:$(MDLZ4Lib) ../lz4/lib/lz4.obj ../lz4/lib/lz4frame.obj ../lz4/lib/lz4hc.obj ../lz4/lib/xxhash.obj
|
||||
cl /c /Fo../lz4/lib/lz4mt.obj $(MTCFLAGS) ../lz4/lib/lz4.c
|
||||
cl /c /Fo../lz4/lib/lz4framemt.obj $(MTCFLAGS) ../lz4/lib/lz4frame.c
|
||||
cl /c /Fo../lz4/lib/lz4hcmt.obj $(MTCFLAGS) ../lz4/lib/lz4hc.c
|
||||
cl /c /Fo../lz4/lib/xxhashmt.obj $(MTCFLAGS) ../lz4/lib/xxhash.c
|
||||
lib /OUT:$(MTLZ4Lib) ../lz4/lib/lz4mt.obj ../lz4/lib/lz4framemt.obj ../lz4/lib/lz4hcmt.obj ../lz4/lib/xxhashmt.obj
|
||||
|
||||
clean:
|
||||
-del /f $(cobj) main.obj $(KernelExp)
|
||||
-del /f mtscheme.exe
|
||||
-del /f mdscheme.exe
|
||||
47
c/Mf-a6fb
Normal file
47
c/Mf-a6fb
Normal file
|
|
@ -0,0 +1,47 @@
|
|||
# Mf-a6fb
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = a6fb
|
||||
Cpu = X86_64
|
||||
|
||||
mdinclude = -I/usr/local/include -I/usr/X11R6/include
|
||||
mdclib = -L/usr/local/lib -liconv -lm ${ncursesLib} -lossp-uuid
|
||||
C = ${CC} ${CPPFLAGS} -Wpointer-arith -Wextra -Werror -O ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} ${mdinclude} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -rdynamic -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m64" ./configure --64)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m64" ${MAKE} liblz4.a)
|
||||
46
c/Mf-a6le
Normal file
46
c/Mf-a6le
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
# Mf-a6le
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = a6le
|
||||
Cpu = X86_64
|
||||
|
||||
mdclib = -lm -ldl ${ncursesLib} -lrt -luuid
|
||||
C = ${CC} ${CPPFLAGS} -m64 -msse2 -Wpointer-arith -Wall -Wextra -Werror -Wno-implicit-fallthrough -O2 ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -melf_x86_64 -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -rdynamic -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m64 -fPIC" ./configure --64)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m64" ${MAKE} liblz4.a)
|
||||
48
c/Mf-a6nb
Normal file
48
c/Mf-a6nb
Normal file
|
|
@ -0,0 +1,48 @@
|
|||
# Mf-a6nb
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = a6nb
|
||||
Cpu = X86_64
|
||||
|
||||
mdinclude = -I/usr/X11R7/include -I/usr/pkg/include -I/usr/pkg/include/ncurses -I/usr/local/include -I/usr/X11R6/include
|
||||
mdclib = /usr/lib/i18n/libiconv_std.a -lm /usr/pkg/lib/libncurses.a
|
||||
C = ${CC} ${CPPFLAGS} -m64 -Wpointer-arith -Wextra -Werror -O ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} ${mdinclude} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -rdynamic -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
paxctl +m ${Scheme}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m64" ./configure --64)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m64" ${MAKE} liblz4.a)
|
||||
65
c/Mf-a6nt
Normal file
65
c/Mf-a6nt
Normal file
|
|
@ -0,0 +1,65 @@
|
|||
# Mf-a6nt
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = a6nt
|
||||
Cpu = X86_64
|
||||
|
||||
clib=
|
||||
o = obj
|
||||
mdobj=windows.$o
|
||||
mdsrc=a6nt-jump.asm windows.c Makefile.$m cs.ico scheme.rc make.bat
|
||||
mdclean=vs.bat make.bat scheme.res ../bin/$m/*.exp mtscheme.exe* mdscheme.exe*
|
||||
cross=f
|
||||
|
||||
include Mf-base
|
||||
|
||||
export MSYS_NO_PATHCONV=1
|
||||
export MSYS2_ARG_CONV_EXCL=*
|
||||
|
||||
${Scheme}${cross:f=}: make.bat
|
||||
cmd.exe /c make.bat
|
||||
cp ../bin/$m/scheme.exe ../bin/$m/petite.exe
|
||||
cp ../bin/$m/scheme.pdb ../bin/$m/petite.pdb
|
||||
|
||||
make.bat: vs.bat
|
||||
echo '@echo off' > $@
|
||||
echo 'set MAKEFLAGS=' >> $@
|
||||
echo 'vs.bat amd64 && nmake /f Makefile.$m /nologo %*' >> $@
|
||||
chmod +x $@
|
||||
|
||||
# -------------------------------------------------------
|
||||
# For cross-compilation, triggered by setting cross=t o=o
|
||||
|
||||
C = ${CC} ${CPPFLAGS} -O2 ${CFLAGS}
|
||||
|
||||
${Scheme}${cross:t=}: ${Main} ${Kernel} ${KernelLinkDeps}
|
||||
$C -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS} -lshell32 -luser32 -lole32 -lrpcrt4 -luuid
|
||||
|
||||
.c.$o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} $*.c
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
../zlib/configure.log:
|
||||
echo "all:" >> ../zlib/Makefile
|
||||
echo ' $$(MAKE) -f win32/Makefile.gcc CC="$(CC)" CFLAGS="$(CFLAGS)" AR="$(AR)" RANLIB="$(RANLIB)" RC="$(WINDRES)"' >> ../zlib/Makefile
|
||||
touch ../zlib/configure.log
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CC="$(CC)" CFLAGS="$(CFLAGS)" AR="$(AR)" RANLIB="$(RANLIB)" ${MAKE} liblz4.a)
|
||||
47
c/Mf-a6ob
Normal file
47
c/Mf-a6ob
Normal file
|
|
@ -0,0 +1,47 @@
|
|||
# Mf-a6ob
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = a6ob
|
||||
Cpu = X86_64
|
||||
|
||||
mdinclude = -I/usr/local/include -I/usr/X11R6/include
|
||||
mdclib = -L/usr/local/lib -liconv -lm ${ncursesLib} -lossp-uuid
|
||||
C = ${CC} ${CPPFLAGS} -Wpointer-arith -Werror -O ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} ${mdinclude} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -rdynamic -Wl,--export-dynamic -Wl,-zwxneeded -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m64" ./configure --64)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m64" ${MAKE} liblz4.a)
|
||||
46
c/Mf-a6osx
Normal file
46
c/Mf-a6osx
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
# Mf-a6osx
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = a6osx
|
||||
Cpu = X86_64
|
||||
|
||||
mdclib = -liconv -lm ${ncursesLib}
|
||||
C = ${CC} ${CPPFLAGS} -m64 -Wpointer-arith -Wall -Wextra -Wno-implicit-fallthrough -Werror -O2 -I/opt/X11/include/ ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m64" ./configure --64)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m64" ${MAKE} liblz4.a)
|
||||
46
c/Mf-a6s2
Normal file
46
c/Mf-a6s2
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
# Mf-a6s2
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = a6s2
|
||||
Cpu = X86_64
|
||||
|
||||
mdclib = -lnsl -ldl -lm ${cursesLib} -lrt
|
||||
C = ${CC} ${CPPFLAGS} -m64 -Wpointer-arith -Wextra -Werror -O ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -DSOLARIS -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -melf_x86_64 -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m64" ./configure --64)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m64" ${MAKE} liblz4.a)
|
||||
46
c/Mf-arm32le
Normal file
46
c/Mf-arm32le
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
# Mf-arm32le
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = arm32le
|
||||
Cpu = ARMV6
|
||||
|
||||
mdclib = -lm -ldl ${ncursesLib} -lrt -luuid
|
||||
C = ${CC} ${CPPFLAGS} -Wpointer-arith -Wextra -Werror -Wno-implicit-fallthrough -O2 ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = arm32le.c
|
||||
mdobj = arm32le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -rdynamic -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -fPIC" ./configure)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; ${MAKE} liblz4.a)
|
||||
82
c/Mf-base
Normal file
82
c/Mf-base
Normal file
|
|
@ -0,0 +1,82 @@
|
|||
# Mf-base
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
include Mf-config
|
||||
export CC CFLAGS LD LDFLAGS
|
||||
|
||||
Include=../boot/$m
|
||||
PetiteBoot=../boot/$m/petite.boot
|
||||
SchemeBoot=../boot/$m/scheme.boot
|
||||
Main=../boot/$m/main.$o
|
||||
Scheme=../bin/$m/scheme
|
||||
|
||||
# One of these sets is referenced in Mf-config to select between
|
||||
# linking with kernel.o or libkernel.a
|
||||
|
||||
KernelO=../boot/$m/kernel.$o
|
||||
KernelOLinkDeps=
|
||||
KernelOLinkLibs=
|
||||
|
||||
KernelLib=../boot/$m/libkernel.a
|
||||
KernelLibLinkDeps=${zlibDep} ${LZ4Dep}
|
||||
KernelLibLinkLibs=${zlibLib} ${LZ4Lib}
|
||||
|
||||
kernelsrc=statics.c segment.c alloc.c symbol.c intern.c gcwrapper.c gc-011.c gc-ocd.c gc-oce.c\
|
||||
number.c schsig.c io.c new-io.c print.c fasl.c stats.c foreign.c prim.c prim5.c flushcache.c\
|
||||
schlib.c thread.c expeditor.c scheme.c compress-io.c
|
||||
|
||||
kernelobj=${kernelsrc:%.c=%.$o} ${mdobj}
|
||||
|
||||
kernelhdr=system.h types.h version.h globals.h externs.h segment.h gc.c sort.h thread.h config.h compress-io.h itest.c nocurses.h
|
||||
|
||||
mainsrc=main.c
|
||||
|
||||
mainobj:=${mainsrc:%.c=%.$o}
|
||||
|
||||
doit: ${Scheme}
|
||||
|
||||
source: ${kernelsrc} ${kernelhdr} ${mdsrc} ${mainsrc}
|
||||
|
||||
${Main}: ${mainobj}
|
||||
cp -p ${mainobj} ${Main}
|
||||
|
||||
rootsrc=$(shell cd ../../c; echo *)
|
||||
${rootsrc}:
|
||||
ifeq ($(OS),Windows_NT)
|
||||
cp -p ../../c/$@ $@
|
||||
else
|
||||
ln -s ../../c/$@ $@
|
||||
endif
|
||||
|
||||
scheme.o: itest.c
|
||||
scheme.o main.o: config.h
|
||||
${kernelobj}: system.h types.h version.h externs.h globals.h segment.h thread.h sort.h compress-io.h nocurses.h
|
||||
${kernelobj}: ${Include}/equates.h ${Include}/scheme.h
|
||||
${mainobj}: ${Include}/scheme.h
|
||||
${kernelobj}: ${zlibHeaderDep} ${LZ4HeaderDep}
|
||||
gc-011.o gc-ocd.o gc-oce.o: gc.c
|
||||
|
||||
../zlib/zlib.h ../zlib/zconf.h: ../zlib/configure.log
|
||||
|
||||
../zlib/libz.a: ../zlib/configure.log
|
||||
(cd ../zlib; ${MAKE})
|
||||
|
||||
LZ4Sources=../lz4/lib/lz4.h ../lz4/lib/lz4frame.h \
|
||||
../lz4/lib/lz4.c ../lz4/lib/lz4frame.c \
|
||||
../lz4/lib/lz4hc.c ../lz4/lib/xxhash.c
|
||||
|
||||
clean:
|
||||
rm -f *.$o ${mdclean}
|
||||
rm -f Make.out
|
||||
47
c/Mf-i3fb
Normal file
47
c/Mf-i3fb
Normal file
|
|
@ -0,0 +1,47 @@
|
|||
# Mf-i3fb
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = i3fb
|
||||
Cpu = I386
|
||||
|
||||
mdinclude = -I/usr/local/include -I/usr/X11R6/include
|
||||
mdclib = -L/usr/local/lib -liconv -lm ${ncursesLib} -lossp-uuid
|
||||
C = ${CC} ${CPPFLAGS} -Wpointer-arith -Wextra -Werror -O ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} ${mdinclude} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -rdynamic -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m32" ./configure)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m32" ${MAKE} liblz4.a)
|
||||
46
c/Mf-i3le
Normal file
46
c/Mf-i3le
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
# Mf-i3le
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = i3le
|
||||
Cpu = I386
|
||||
|
||||
mdclib = -lm -ldl ${ncursesLib} -lrt -luuid
|
||||
C = ${CC} ${CPPFLAGS} -m32 -msse2 -Wpointer-arith -Wall -Wextra -Werror -Wno-implicit-fallthrough -O2 -fno-stack-protector ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -melf_i386 -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -rdynamic -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m32 -fPIC" ./configure)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m32" ${MAKE} liblz4.a)
|
||||
48
c/Mf-i3nb
Normal file
48
c/Mf-i3nb
Normal file
|
|
@ -0,0 +1,48 @@
|
|||
# Mf-i3nb
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = i3nb
|
||||
Cpu = I386
|
||||
|
||||
mdinclude = -I/usr/X11R7/include -I/usr/pkg/include -I/usr/pkg/include/ncurses -I/usr/X11R6/include
|
||||
mdclib = /usr/lib/i18n/libiconv_std.a -lm /usr/pkg/lib/libncurses.a
|
||||
C = ${CC} ${CPPFLAGS} -Wpointer-arith -Wextra -Werror -O ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} ${mdinclude} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -rdynamic -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
paxctl +m ${Scheme}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m32" ./configure)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m32" ${MAKE} liblz4.a)
|
||||
65
c/Mf-i3nt
Normal file
65
c/Mf-i3nt
Normal file
|
|
@ -0,0 +1,65 @@
|
|||
# Mf-i3nt
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = i3nt
|
||||
Cpu = I386
|
||||
|
||||
clib=
|
||||
o = obj
|
||||
mdobj=windows.$o
|
||||
mdsrc=windows.c Makefile.$m cs.ico scheme.rc make.bat
|
||||
mdclean=vs.bat make.bat scheme.res ../bin/$m/*.exp mtscheme.exe* mdscheme.exe*
|
||||
cross=f
|
||||
|
||||
include Mf-base
|
||||
|
||||
export MSYS_NO_PATHCONV=1
|
||||
export MSYS2_ARG_CONV_EXCL=*
|
||||
|
||||
${Scheme}${cross:f=}: make.bat
|
||||
cmd.exe /c make.bat
|
||||
cp ../bin/$m/scheme.exe ../bin/$m/petite.exe
|
||||
cp ../bin/$m/scheme.pdb ../bin/$m/petite.pdb
|
||||
|
||||
make.bat: vs.bat
|
||||
echo '@echo off' > $@
|
||||
echo 'set MAKEFLAGS=' >> $@
|
||||
echo 'vs.bat x86 && nmake /f Makefile.$m /nologo %*' >> $@
|
||||
chmod +x $@
|
||||
|
||||
# -------------------------------------------------------
|
||||
# For cross-compilation, triggered by setting cross=t o=o
|
||||
|
||||
C = ${CC} ${CPPFLAGS} -O2 ${CFLAGS}
|
||||
|
||||
${Scheme}${cross:t=}: ${Main} ${Kernel} ${KernelLinkDeps}
|
||||
$C -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS} -lshell32 -luser32 -lole32 -lrpcrt4 -luuid
|
||||
|
||||
.c.$o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} $*.c
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
../zlib/configure.log:
|
||||
echo "all:" >> ../zlib/Makefile
|
||||
echo ' $$(MAKE) -f win32/Makefile.gcc CC="$(CC)" CFLAGS="$(CFLAGS)" AR="$(AR)" RANLIB="$(RANLIB)" RC="$(WINDRES)"' >> ../zlib/Makefile
|
||||
touch ../zlib/configure.log
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CC="$(CC)" CFLAGS="$(CFLAGS)" AR="$(AR)" RANLIB="$(RANLIB)" ${MAKE} liblz4.a)
|
||||
47
c/Mf-i3ob
Normal file
47
c/Mf-i3ob
Normal file
|
|
@ -0,0 +1,47 @@
|
|||
# Mf-i3ob
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = i3ob
|
||||
Cpu = I386
|
||||
|
||||
mdinclude = -I/usr/local/include -I/usr/X11R6/include
|
||||
mdclib = -L/usr/local/lib -liconv -lm ${ncursesLib} -lossp-uuid
|
||||
C = ${CC} ${CPPFLAGS} -Wpointer-arith -Werror -O ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} ${mdinclude} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -rdynamic -Wl,--export-dynamic -Wl,-zwxneeded -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m32" ./configure)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m32" ${MAKE} liblz4.a)
|
||||
46
c/Mf-i3osx
Normal file
46
c/Mf-i3osx
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
# Mf-i3osx
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = i3osx
|
||||
Cpu = I386
|
||||
|
||||
mdclib = -liconv -lm ${ncursesLib}
|
||||
C = ${CC} ${CPPFLAGS} -m32 -Wpointer-arith -Wall -Wextra -Wno-implicit-fallthrough -Werror -O2 -msse2 -I/opt/X11/include/ ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m32" ./configure)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m32" ${MAKE} liblz4.a)
|
||||
47
c/Mf-i3qnx
Normal file
47
c/Mf-i3qnx
Normal file
|
|
@ -0,0 +1,47 @@
|
|||
# Mf-i3qnx
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = i3qnx
|
||||
Cpu = I386
|
||||
|
||||
mdclib = -lm /usr/local/lib/libiconv.so -lsocket ${ncursesLib}
|
||||
C = qcc ${CPPFLAGS} -m32 -Wpointer-arith -Wextra -Werror -O2 -N2048K ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
LocalInclude = /usr/local/include
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} -I${LocalInclude} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -mi386nto -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -Wl,--export-dynamic -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m32" ./configure)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m32" ${MAKE} liblz4.a)
|
||||
46
c/Mf-i3s2
Normal file
46
c/Mf-i3s2
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
# Mf-i3s2
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = i3s2
|
||||
Cpu = I386
|
||||
|
||||
mdclib = -lnsl -ldl -lm ${cursesLib} -lrt
|
||||
C = ${CC} ${CFLAGS} -m32 -Wpointer-arith -Wextra -Werror -O ${CPPFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -DSOLARIS -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -melf_i386 -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m32" ./configure)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m32" ${MAKE} liblz4.a)
|
||||
46
c/Mf-ppc32le
Normal file
46
c/Mf-ppc32le
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
# Mf-ppc32le
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = ppc32le
|
||||
Cpu = PPC32
|
||||
|
||||
mdclib = -lm -ldl ${ncursesLib} -lrt -luuid
|
||||
C = ${CC} ${CPPFLAGS} -m32 -Wpointer-arith -Wextra -Werror -Wno-implicit-fallthrough -O2 ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = ppc32.c
|
||||
mdobj = ppc32.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -rdynamic -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m32 -fPIC" ./configure)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m32" ${MAKE} liblz4.a)
|
||||
47
c/Mf-ta6fb
Normal file
47
c/Mf-ta6fb
Normal file
|
|
@ -0,0 +1,47 @@
|
|||
# Mf-ta6fb
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = ta6fb
|
||||
Cpu = X86_64
|
||||
|
||||
mdinclude = -I/usr/local/include -I/usr/X11R6/include
|
||||
mdclib = -L/usr/local/lib -liconv -lm ${ncursesLib} -lpthread -lossp-uuid
|
||||
C = ${CC} ${CPPFLAGS} -Wpointer-arith -Wextra -Werror -O2 -D_REENTRANT -pthread ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} ${mdinclude} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -rdynamic -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m64" ./configure --64)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m64" ${MAKE} liblz4.a)
|
||||
46
c/Mf-ta6le
Normal file
46
c/Mf-ta6le
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
# Mf-ta6le
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = ta6le
|
||||
Cpu = X86_64
|
||||
|
||||
mdclib = -lm -ldl ${ncursesLib} -lpthread -lrt -luuid
|
||||
C = ${CC} ${CPPFLAGS} -m64 -msse2 -Wpointer-arith -Wall -Wextra -Werror -Wno-implicit-fallthrough -O2 -D_REENTRANT -pthread ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -melf_x86_64 -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -rdynamic -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m64 -fPIC" ./configure --64)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m64" ${MAKE} liblz4.a)
|
||||
48
c/Mf-ta6nb
Normal file
48
c/Mf-ta6nb
Normal file
|
|
@ -0,0 +1,48 @@
|
|||
# Mf-ta6nb
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = ta6nb
|
||||
Cpu = X86_64
|
||||
|
||||
mdinclude = -I/usr/X11R7/include -I/usr/pkg/include -I/usr/pkg/include/ncurses -I/usr/X11R6/include
|
||||
mdclib = /usr/lib/i18n/libiconv_std.a -lm /usr/pkg/lib/libncurses.a -lpthread
|
||||
C = ${CC} ${CPPFLAGS} -m64 -Wpointer-arith -Wextra -Werror -O2 -D_REENTRANT -pthread ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} ${mdinclude} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -rdynamic -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
paxctl +m ${Scheme}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m64" ./configure --64)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m64" ${MAKE} liblz4.a)
|
||||
65
c/Mf-ta6nt
Normal file
65
c/Mf-ta6nt
Normal file
|
|
@ -0,0 +1,65 @@
|
|||
# Mf-ta6nt
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = ta6nt
|
||||
Cpu = X86_64
|
||||
|
||||
clib=
|
||||
o = obj
|
||||
mdobj=windows.$o
|
||||
mdsrc=a6nt-jump.asm windows.c Makefile.$m cs.ico scheme.rc make.bat
|
||||
mdclean=vs.bat make.bat scheme.res ../bin/$m/*.exp mtscheme.exe* mdscheme.exe*
|
||||
cross=f
|
||||
|
||||
include Mf-base
|
||||
|
||||
export MSYS_NO_PATHCONV=1
|
||||
export MSYS2_ARG_CONV_EXCL=*
|
||||
|
||||
${Scheme}${cross:f=}: make.bat
|
||||
cmd.exe /c make.bat
|
||||
cp ../bin/$m/scheme.exe ../bin/$m/petite.exe
|
||||
cp ../bin/$m/scheme.pdb ../bin/$m/petite.pdb
|
||||
|
||||
make.bat: vs.bat
|
||||
echo '@echo off' > $@
|
||||
echo 'set MAKEFLAGS=' >> $@
|
||||
echo 'vs.bat amd64 && nmake /f Makefile.$m /nologo %*' >> $@
|
||||
chmod +x $@
|
||||
|
||||
# -------------------------------------------------------
|
||||
# For cross-compilation, triggered by setting cross=t o=o
|
||||
|
||||
C = ${CC} ${CPPFLAGS} -O2 ${CFLAGS}
|
||||
|
||||
${Scheme}${cross:t=}: ${Main} ${Kernel} ${KernelLinkDeps}
|
||||
$C -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS} -lshell32 -luser32 -lole32 -lrpcrt4 -luuid
|
||||
|
||||
.c.$o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} $*.c
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
../zlib/configure.log:
|
||||
echo "all:" >> ../zlib/Makefile
|
||||
echo ' $$(MAKE) -f win32/Makefile.gcc CC="$(CC)" CFLAGS="$(CFLAGS)" AR="$(AR)" RANLIB="$(RANLIB)" RC="$(WINDRES)"' >> ../zlib/Makefile
|
||||
touch ../zlib/configure.log
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CC="$(CC)" CFLAGS="$(CFLAGS)" AR="$(AR)" RANLIB="$(RANLIB)" ${MAKE} liblz4.a)
|
||||
47
c/Mf-ta6ob
Normal file
47
c/Mf-ta6ob
Normal file
|
|
@ -0,0 +1,47 @@
|
|||
# Mf-ta6ob
|
||||
# Copyright 1984-2017 Cisco Systems, Inc.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
m = ta6ob
|
||||
Cpu = X86_64
|
||||
|
||||
mdinclude = -I/usr/local/include -I/usr/X11R6/include
|
||||
mdclib = -L/usr/local/lib -liconv -lm ${ncursesLib} -lpthread -lossp-uuid
|
||||
C = ${CC} ${CPPFLAGS} -Wpointer-arith -Werror -O2 -D_REENTRANT -pthread ${CFLAGS}
|
||||
o = o
|
||||
mdsrc = i3le.c
|
||||
mdobj = i3le.o
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
.c.o:
|
||||
$C -c -D${Cpu} -I${Include} ${zlibInc} ${LZ4Inc} ${mdinclude} $*.c
|
||||
|
||||
include Mf-base
|
||||
|
||||
${KernelO}: ${kernelobj} ${zlibDep} ${LZ4Dep}
|
||||
${LD} -r -X -o ${KernelO} ${kernelobj} ${zlibLib} ${LZ4Lib}
|
||||
|
||||
${KernelLib}: ${kernelobj}
|
||||
${AR} ${ARFLAGS} ${KernelLib} ${kernelobj}
|
||||
|
||||
${Scheme}: ${Kernel} ${KernelLinkDeps} ${Main}
|
||||
$C -rdynamic -Wl,--export-dynamic -Wl,-zwxneeded -o ${Scheme} ${Main} ${Kernel} ${mdclib} ${KernelLinkLibs} ${LDFLAGS}
|
||||
|
||||
../zlib/configure.log:
|
||||
(cd ../zlib; CFLAGS="${CFLAGS} -m64" ./configure --64)
|
||||
|
||||
../lz4/lib/liblz4.a: ${LZ4Sources}
|
||||
(cd ../lz4/lib; CFLAGS="${CFLAGS} -m64" ${MAKE} liblz4.a)
|
||||
Some files were not shown because too many files have changed in this diff Show more
Reference in a new issue