mirror of
https://github.com/gbdev/rgbds.git
synced 2025-11-21 02:32:06 +00:00
Compare commits
33 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
b55fead749 | ||
|
|
844e027a18 | ||
|
|
0fb80cd7a9 | ||
|
|
311b412f5d | ||
|
|
975200834e | ||
|
|
c8fa799883 | ||
|
|
7f37eef218 | ||
|
|
8521e45edc | ||
|
|
7bd082563d | ||
|
|
de32e245c9 | ||
|
|
f5164325d2 | ||
|
|
959bfe2a9d | ||
|
|
d24cf11ad4 | ||
|
|
8d89ba39d4 | ||
|
|
b04596a32b | ||
|
|
8e8865940a | ||
|
|
3c14f9760f | ||
|
|
3c15b141e0 | ||
|
|
72f801283d | ||
|
|
2ffaf72e39 | ||
|
|
f41c532400 | ||
|
|
ec76431c51 | ||
|
|
71961a88a0 | ||
|
|
ba944527ec | ||
|
|
87c9d819a1 | ||
|
|
13c0684497 | ||
|
|
c24cab6d1d | ||
|
|
0cbe6abbd5 | ||
|
|
fe6e5e445b | ||
|
|
781c90b940 | ||
|
|
e7a8bb1140 | ||
|
|
f1c13af703 | ||
|
|
90bc8d9110 |
60
.checkpatch.conf
Normal file
60
.checkpatch.conf
Normal file
@@ -0,0 +1,60 @@
|
|||||||
|
# Configuration for checkpatch.pl
|
||||||
|
# ===============================
|
||||||
|
|
||||||
|
# Enable more tests
|
||||||
|
--strict
|
||||||
|
|
||||||
|
# Quiet
|
||||||
|
--quiet
|
||||||
|
|
||||||
|
# No per-file summary
|
||||||
|
--no-summary
|
||||||
|
|
||||||
|
# Don't expect the Linux kernel tree
|
||||||
|
--no-tree
|
||||||
|
|
||||||
|
# Show file line, not input line
|
||||||
|
--showfile
|
||||||
|
|
||||||
|
# List of ignored rules
|
||||||
|
# ---------------------
|
||||||
|
|
||||||
|
# There's no BIT macro
|
||||||
|
--ignore BIT_MACRO
|
||||||
|
|
||||||
|
# Allow CamelCase
|
||||||
|
--ignore CAMELCASE
|
||||||
|
|
||||||
|
# Comparing to NULL explicitly isn't a bad thing
|
||||||
|
--ignore COMPARISON_TO_NULL
|
||||||
|
|
||||||
|
# Causes false positives
|
||||||
|
--ignore COMPLEX_MACRO
|
||||||
|
|
||||||
|
# Don't complain about structs not being const
|
||||||
|
--ignore CONST_STRUCT
|
||||||
|
|
||||||
|
# Do not check the format of commit messages
|
||||||
|
--ignore GIT_COMMIT_ID
|
||||||
|
|
||||||
|
# We don't have a MAINTAINERS file, don't complain about it.
|
||||||
|
--ignore FILE_PATH_CHANGES
|
||||||
|
|
||||||
|
# Writing the continuation on the start of the line can make it clearer
|
||||||
|
--ignore LOGICAL_CONTINUATIONS
|
||||||
|
|
||||||
|
# Don't complain if a line that contains a string is too long. It's better to
|
||||||
|
# have a really long line that can be found with grep.
|
||||||
|
--ignore LONG_LINE_STRING
|
||||||
|
|
||||||
|
# Allow new typedefs
|
||||||
|
--ignore NEW_TYPEDEFS
|
||||||
|
|
||||||
|
# Prefer stdint.h types over kernel types
|
||||||
|
--ignore PREFER_KERNEL_TYPES
|
||||||
|
|
||||||
|
# Parentheses can make the code clearer
|
||||||
|
--ignore UNNECESSARY_PARENTHESES
|
||||||
|
|
||||||
|
# Don't complain when files are modified in 'include/asm'
|
||||||
|
--ignore MODIFIED_INCLUDE_ASM
|
||||||
1
.gitignore
vendored
1
.gitignore
vendored
@@ -5,3 +5,4 @@ rgbgfx
|
|||||||
*.o
|
*.o
|
||||||
*.exe
|
*.exe
|
||||||
*.html
|
*.html
|
||||||
|
.checkpatch-camelcase.*
|
||||||
|
|||||||
88
CONTRIBUTING.rst
Normal file
88
CONTRIBUTING.rst
Normal file
@@ -0,0 +1,88 @@
|
|||||||
|
Contributing
|
||||||
|
============
|
||||||
|
|
||||||
|
RGBDS was created in the late 90's and has received contributions from several
|
||||||
|
developers since then. It wouldn't have been possible to get to this point
|
||||||
|
without their work and, for that reason, it is always open to the contributions
|
||||||
|
of other people.
|
||||||
|
|
||||||
|
Reporting Bugs
|
||||||
|
--------------
|
||||||
|
|
||||||
|
Bug reports are essential to improve RGBDS and they are always welcome. If you
|
||||||
|
want to report a bug:
|
||||||
|
|
||||||
|
1. Make sure that there isn't a similar issue already reported
|
||||||
|
`here <https://github.com/rednex/rgbds/issues>`__.
|
||||||
|
|
||||||
|
2. Figure out a way of reproducing it reliably.
|
||||||
|
|
||||||
|
3. If there is a piece of code that triggers the bug, try to reduce it to the
|
||||||
|
smallest file you can.
|
||||||
|
|
||||||
|
4. Create a new `issue <https://github.com/rednex/rgbds/issues>`__.
|
||||||
|
|
||||||
|
Of course, it may not always be possible to give an accurate bug report, but it
|
||||||
|
always helps to fix it.
|
||||||
|
|
||||||
|
Requesting new features
|
||||||
|
-----------------------
|
||||||
|
|
||||||
|
If you come up with a good idea that could be implemented, you can propose it to
|
||||||
|
be done.
|
||||||
|
|
||||||
|
1. Create a new `issue <https://github.com/rednex/rgbds/issues>`__.
|
||||||
|
|
||||||
|
2. Try to be as accurate as possible. Describe what you need and why you need
|
||||||
|
it, maybe with examples.
|
||||||
|
|
||||||
|
Please understand that the contributors are doing it in their free time, so
|
||||||
|
simple requests are more likely to catch the interest of a contributor than
|
||||||
|
complicated ones. If you really need something to be done, and you think you can
|
||||||
|
implement it yourself, you can always contribute to RGBDS with your own code.
|
||||||
|
|
||||||
|
Contributing code
|
||||||
|
-----------------
|
||||||
|
|
||||||
|
If you want to contribute with your own code, whether it is to fix a current
|
||||||
|
issue or to add something that nobody had requested, you should first consider
|
||||||
|
if your change is going to be small (and likely to be accepted as-is) or big
|
||||||
|
(and will have to go through some rework).
|
||||||
|
|
||||||
|
Big changes will most likely require some discussion, so open an
|
||||||
|
`issue <https://github.com/rednex/rgbds/issues>`__ and explain what you want to
|
||||||
|
do and how you intend to do it. If you already have a prototype, it's always a
|
||||||
|
good idea to show it. Tests help, too.
|
||||||
|
|
||||||
|
If you are going to work on a specific issue that involves a lot of work, it is
|
||||||
|
always a good idea to leave a message, just in case someone else is interested
|
||||||
|
but doesn't know that there's someone working on it.
|
||||||
|
|
||||||
|
1. Fork this repository.
|
||||||
|
|
||||||
|
2. Checkout the ``develop`` branch.
|
||||||
|
|
||||||
|
3. Create a new branch to work on. You could still work on ``develop``, but it's
|
||||||
|
easier that way.
|
||||||
|
|
||||||
|
4. Sign off your commits: ``git commit -s``
|
||||||
|
|
||||||
|
5. Follow the Linux kernel coding style, which can be found in the file
|
||||||
|
``Documentation/process/coding-style.rst`` in the Linux kernel repository.
|
||||||
|
Note that the coding style isn't writen on stone, if there is a good reason
|
||||||
|
to deviate from it, it should be fine.
|
||||||
|
|
||||||
|
6. Download the files ``checkpatch.pl``, ``const_structs.checkpatch`` and
|
||||||
|
``spelling.txt`` from the folder ``scripts`` in the Linux kernel repository.
|
||||||
|
|
||||||
|
7. To use ``checkpatch.pl`` you can use ``make checkpatch``, which will check
|
||||||
|
the coding style of all patches between the current one and the upstream
|
||||||
|
code. By default, the Makefile expects the script (and associate files) to be
|
||||||
|
located in ``../linux/scripts/``, but you can place them anywhere you like as
|
||||||
|
long as you specify it when executing the command:
|
||||||
|
``CHECKPATCH=../path/to/folder make checkpatch``.
|
||||||
|
|
||||||
|
8. Create a pull request against the branch ``develop``.
|
||||||
|
|
||||||
|
9. Be prepared to get some comments about your code and to modify it. Tip: Use
|
||||||
|
``git rebase -i origin/develop`` to modify chains of commits.
|
||||||
@@ -1,4 +1,8 @@
|
|||||||
# Original code
|
LICENSE
|
||||||
|
=======
|
||||||
|
|
||||||
|
Original code
|
||||||
|
-------------
|
||||||
|
|
||||||
Copyright (C) 1997 Carsten Sorensen <surfsmurf@matilde.demon.co.uk>
|
Copyright (C) 1997 Carsten Sorensen <surfsmurf@matilde.demon.co.uk>
|
||||||
|
|
||||||
@@ -24,11 +28,13 @@ This also means you can't...
|
|||||||
- expect me to be able to help you should you have a problem related or not to
|
- expect me to be able to help you should you have a problem related or not to
|
||||||
ASMotor.
|
ASMotor.
|
||||||
|
|
||||||
# Otaku no Zoku's modifications
|
Otaku no Zoku's modifications
|
||||||
|
-----------------------------
|
||||||
|
|
||||||
Copyright (C) 1999 Justin Lloyd <jlloyd@imf.la> (?)
|
Copyright (C) 1999 Justin Lloyd <jlloyd@imf.la> (?)
|
||||||
|
|
||||||
```
|
::
|
||||||
|
|
||||||
DO WHATEVER PUBLIC LICENSE*
|
DO WHATEVER PUBLIC LICENSE*
|
||||||
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
|
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
|
||||||
|
|
||||||
@@ -41,18 +47,19 @@ Copyright (C) 1999 Justin Lloyd <jlloyd@imf.la> (?)
|
|||||||
and/or modify it under the terms of the DO WHATEVER PUBLIC LICENSE
|
and/or modify it under the terms of the DO WHATEVER PUBLIC LICENSE
|
||||||
|
|
||||||
Software originally created by Justin Lloyd @ http://otakunozoku.com/
|
Software originally created by Justin Lloyd @ http://otakunozoku.com/
|
||||||
```
|
|
||||||
|
|
||||||
# rgbds-linux
|
rgbds-linux
|
||||||
|
-----------
|
||||||
|
|
||||||
Copyright (C) 2009 Vegard Nossum <vegard.nossum@gmail.com>
|
Copyright (C) 2009 Vegard Nossum <vegard.nossum@gmail.com>
|
||||||
|
|
||||||
# Current
|
Current
|
||||||
|
-------
|
||||||
|
|
||||||
rgbasm and rgblink are derived from Justin Lloyd's RGBDS.
|
rgbasm and rgblink are derived from Justin Lloyd's RGBDS.
|
||||||
|
|
||||||
rgbfix was rewritten from scratch by Anthony J. Bentley, and is released
|
rgbfix was rewritten from scratch by Anthony J. Bentley, and is released under
|
||||||
under the ISC license; see the source file for the text of the license.
|
the ISC license; see the source file for the text of the license.
|
||||||
|
|
||||||
rgbgfx was written by stag019, and is released under the ISC license.
|
rgbgfx was written by stag019, and is released under the ISC license.
|
||||||
|
|
||||||
@@ -64,11 +71,11 @@ The UTF-8 decoder in src/asm/charmap.c was written by Björn Höhrmann and is
|
|||||||
released under the MIT license. The remainder of charmap.c was written by
|
released under the MIT license. The remainder of charmap.c was written by
|
||||||
stag019, and is released under the ISC license.
|
stag019, and is released under the ISC license.
|
||||||
|
|
||||||
extern/err.c is derived from the Musl C library, http://www.musl-libc.org,
|
extern/err.c is derived from the Musl C library, http://www.musl-libc.org, and
|
||||||
and is released under the MIT license.
|
is released under the MIT license.
|
||||||
|
|
||||||
extern/reallocarray.c is derived from the OpenBSD Project,
|
extern/reallocarray.c is derived from the OpenBSD Project,
|
||||||
http://www.openbsd.org, and is released under the ISC license.
|
http://www.openbsd.org, and is released under the ISC license.
|
||||||
|
|
||||||
extern/strl.c is derived from the OpenBSD Project, http://www.openbsd.org,
|
extern/strl.c is derived from the OpenBSD Project, http://www.openbsd.org, and
|
||||||
and is released under the BSD license.
|
is released under the BSD license.
|
||||||
21
Makefile
21
Makefile
@@ -7,6 +7,7 @@ mandir := ${PREFIX}/man
|
|||||||
STRIP := -s
|
STRIP := -s
|
||||||
BINMODE := 555
|
BINMODE := 555
|
||||||
MANMODE := 444
|
MANMODE := 444
|
||||||
|
CHECKPATCH := ../linux/scripts/checkpatch.pl
|
||||||
|
|
||||||
# Other variables
|
# Other variables
|
||||||
|
|
||||||
@@ -47,7 +48,6 @@ rgbasm_obj := \
|
|||||||
src/asm/output.o \
|
src/asm/output.o \
|
||||||
src/asm/rpn.o \
|
src/asm/rpn.o \
|
||||||
src/asm/symbol.o \
|
src/asm/symbol.o \
|
||||||
src/asm/locallex.o \
|
|
||||||
src/extern/err.o \
|
src/extern/err.o \
|
||||||
src/extern/reallocarray.o \
|
src/extern/reallocarray.o \
|
||||||
src/extern/strlcpy.o \
|
src/extern/strlcpy.o \
|
||||||
@@ -144,6 +144,25 @@ install: all
|
|||||||
$Qinstall -m ${MANMODE} src/link/rgblink.5 ${DESTDIR}${mandir}/man5/rgblink.5
|
$Qinstall -m ${MANMODE} src/link/rgblink.5 ${DESTDIR}${mandir}/man5/rgblink.5
|
||||||
$Qinstall -m ${MANMODE} src/gfx/rgbgfx.1 ${DESTDIR}${mandir}/man1/rgbgfx.1
|
$Qinstall -m ${MANMODE} src/gfx/rgbgfx.1 ${DESTDIR}${mandir}/man1/rgbgfx.1
|
||||||
|
|
||||||
|
# Target used to check the coding style of the whole codebase. '.y' and '.l'
|
||||||
|
# files aren't checked, unfortunately...
|
||||||
|
checkcodebase:
|
||||||
|
$Qfor file in `git ls-files | grep -E '\.c|\.h'`; do \
|
||||||
|
${CHECKPATCH} -f "$$file"; \
|
||||||
|
done
|
||||||
|
|
||||||
|
# Target used to check the coding style of the patches from the upstream branch
|
||||||
|
# to the HEAD. Runs checkpatch once for each commit between the current HEAD and
|
||||||
|
# the first common commit between the HEAD and origin/develop. '.y' and '.l'
|
||||||
|
# files aren't checked, unfortunately...
|
||||||
|
checkpatch:
|
||||||
|
$Qeval COMMON_COMMIT=$$(git merge-base HEAD origin/develop); \
|
||||||
|
for commit in `git rev-list $$COMMON_COMMIT..HEAD`; do \
|
||||||
|
echo "[*] Analyzing commit '$$commit'"; \
|
||||||
|
git format-patch --stdout "$$commit~..$$commit" \
|
||||||
|
| ${CHECKPATCH} - || true; \
|
||||||
|
done
|
||||||
|
|
||||||
# Target for the project maintainer to easily create web manuals.
|
# Target for the project maintainer to easily create web manuals.
|
||||||
# It relies on mandoc: http://mdocml.bsd.lv
|
# It relies on mandoc: http://mdocml.bsd.lv
|
||||||
|
|
||||||
|
|||||||
157
README.md
157
README.md
@@ -1,157 +0,0 @@
|
|||||||
# RGBDS
|
|
||||||
|
|
||||||
RGBDS (Rednex Game Boy Development System) is a free assembler/linker package
|
|
||||||
for the Game Boy and Game Boy Color. It consists of:
|
|
||||||
|
|
||||||
- rgbasm (assembler)
|
|
||||||
- rgblink (linker)
|
|
||||||
- rgbfix (checksum/header fixer)
|
|
||||||
- rgbgfx (PNG‐to‐Game Boy graphics converter)
|
|
||||||
|
|
||||||
This is a fork of the original RGBDS which aims to make the programs more like
|
|
||||||
other UNIX tools.
|
|
||||||
|
|
||||||
This toolchain is maintained on [GitHub](https://github.com/rednex/rgbds), as
|
|
||||||
well as its [documentation](https://github.com/rednex/rednex.github.io).
|
|
||||||
|
|
||||||
The documentation of this toolchain can be viewed online
|
|
||||||
[here](https://rednex.github.io/), it is generated from the man pages found in
|
|
||||||
this repository.
|
|
||||||
|
|
||||||
## 1. Installing RGBDS
|
|
||||||
|
|
||||||
### 1.1 Windows
|
|
||||||
|
|
||||||
Windows builds are available in the releases page on GitHub:
|
|
||||||
|
|
||||||
https://github.com/rednex/rgbds/releases
|
|
||||||
|
|
||||||
Copy the `.exe` files to `C:\Windows\` or similar.
|
|
||||||
|
|
||||||
If you require the latest version in development, it should be possible to
|
|
||||||
compile RGBDS with MinGW or Cygwin by following the instructions to build it
|
|
||||||
on UNIX systems.
|
|
||||||
|
|
||||||
### 1.2 macOS
|
|
||||||
|
|
||||||
You can build RGBDS by following the instructions below. However, if you would
|
|
||||||
prefer not to build RGBDS yourself, you may also install it using
|
|
||||||
[Homebrew](http://brew.sh/).
|
|
||||||
|
|
||||||
To install the latest release, use:
|
|
||||||
|
|
||||||
```sh
|
|
||||||
brew install rgbds
|
|
||||||
```
|
|
||||||
|
|
||||||
To install RGBDS with all of the current changes in development (as seen on the
|
|
||||||
`master` branch on GitHub), use:
|
|
||||||
|
|
||||||
```sh
|
|
||||||
brew install rgbds --HEAD
|
|
||||||
```
|
|
||||||
|
|
||||||
### 1.3 Other UNIX-like systems
|
|
||||||
|
|
||||||
No official binaries of RGBDS are distributed for these systems, you must follow
|
|
||||||
the simple instructions below to compile and install it.
|
|
||||||
|
|
||||||
|
|
||||||
## 2. Building RGBDS from source
|
|
||||||
|
|
||||||
RGBDS can be built in UNIX-like systems by following the instructions below.
|
|
||||||
|
|
||||||
### 2.1 Dependencies
|
|
||||||
|
|
||||||
RGBDS requires yacc, flex, libpng and pkg-config to be installed.
|
|
||||||
|
|
||||||
On macOS, install the latter two with [Homebrew](http://brew.sh/):
|
|
||||||
|
|
||||||
```sh
|
|
||||||
brew install libpng pkg-config
|
|
||||||
```
|
|
||||||
|
|
||||||
On other Unixes, use the built-in package manager. For example, on Debian or
|
|
||||||
Ubuntu:
|
|
||||||
|
|
||||||
```sh
|
|
||||||
sudo apt-get install byacc flex pkg-config libpng-dev
|
|
||||||
```
|
|
||||||
|
|
||||||
You can test if libpng and pkg-config are installed by running
|
|
||||||
`pkg-config --cflags libpng`: if the output is a path, then you're good, and if
|
|
||||||
it outputs an error then you need to install them via a package manager.
|
|
||||||
|
|
||||||
### 2.2 Build process
|
|
||||||
|
|
||||||
To build the programs, run in your terminal:
|
|
||||||
|
|
||||||
```sh
|
|
||||||
make
|
|
||||||
```
|
|
||||||
|
|
||||||
Then, to install the compiled programs and manual pages, run (with appropriate
|
|
||||||
privileges, e.g, with `sudo`):
|
|
||||||
|
|
||||||
|
|
||||||
```sh
|
|
||||||
make install
|
|
||||||
```
|
|
||||||
|
|
||||||
After installation, you can read the manuals with the `man` command. E.g.,
|
|
||||||
|
|
||||||
```sh
|
|
||||||
man 7 rgbds
|
|
||||||
```
|
|
||||||
|
|
||||||
There are some variables in the Makefile that can be redefined by the user. The
|
|
||||||
variables described below can affect installation behavior when given on the
|
|
||||||
make command line. For example, to install RGBDS in your home directory instead
|
|
||||||
of systemwide, run the following:
|
|
||||||
|
|
||||||
```sh
|
|
||||||
make install PREFIX=$HOME
|
|
||||||
```
|
|
||||||
|
|
||||||
To do a verbose build, run:
|
|
||||||
|
|
||||||
```sh
|
|
||||||
make Q=
|
|
||||||
```
|
|
||||||
|
|
||||||
This is the complete list of user-defined variables:
|
|
||||||
|
|
||||||
- `PREFIX`: Location where RGBDS will be installed. Defaults to `/usr/local`.
|
|
||||||
|
|
||||||
- `bindir`: Location where the binaries will be installed. Defaults to `${PREFIX}/bin`.
|
|
||||||
|
|
||||||
- `mandir`: Location where the manpages will be installed. Defaults to `${PREFIX}/man`.
|
|
||||||
|
|
||||||
- `DESTDIR`: This is prepended to all paths during the installation. It is
|
|
||||||
mainly used for packaging.
|
|
||||||
|
|
||||||
- `Q`: Whether to quiet the build or not. To make the build more verbose, clear
|
|
||||||
this variable. Defaults to `@`.
|
|
||||||
|
|
||||||
- `STRIP`: Whether to strip the installed binaries of debug symbols or not.
|
|
||||||
Defaults to `-s`.
|
|
||||||
|
|
||||||
- `BINMODE`: Permissions of the installed binaries. Defaults to `555`.
|
|
||||||
|
|
||||||
- `MANMODE`: Permissions of the installed manpages. Defaults to `444`.
|
|
||||||
|
|
||||||
## 3 History
|
|
||||||
|
|
||||||
- Around 1997, Carsten Sorensen (AKA SurfSmurf) writes ASMotor as a
|
|
||||||
general-purpose assembler/linker system for DOS/Win32
|
|
||||||
|
|
||||||
- Around 1999, Justin Lloyd (AKA Otaku no Zoku) adapts ASMotor to read and
|
|
||||||
produce GBZ80 assembly/machine code, and releases this version as RGBDS.
|
|
||||||
|
|
||||||
- 2009, Vegard Nossum adapts the code to be more UNIX-like and releases this
|
|
||||||
version as rgbds-linux on [GitHub](https://github.com/vegard/rgbds-linux).
|
|
||||||
|
|
||||||
- 2010, Anthony J. Bentley forks that repository. The fork becomes the reference
|
|
||||||
implementation of rgbds.
|
|
||||||
|
|
||||||
- 2017, Bentley's repository is moved to a neutral name.
|
|
||||||
173
README.rst
Normal file
173
README.rst
Normal file
@@ -0,0 +1,173 @@
|
|||||||
|
RGBDS
|
||||||
|
=====
|
||||||
|
|
||||||
|
RGBDS (Rednex Game Boy Development System) is a free assembler/linker package
|
||||||
|
for the Game Boy and Game Boy Color. It consists of:
|
||||||
|
|
||||||
|
- rgbasm (assembler)
|
||||||
|
- rgblink (linker)
|
||||||
|
- rgbfix (checksum/header fixer)
|
||||||
|
- rgbgfx (PNG‐to‐Game Boy graphics converter)
|
||||||
|
|
||||||
|
This is a fork of the original RGBDS which aims to make the programs more like
|
||||||
|
other UNIX tools.
|
||||||
|
|
||||||
|
This toolchain is maintained on `GitHub <https://github.com/rednex/rgbds>`__, as
|
||||||
|
well as its `documentation <https://github.com/rednex/rednex.github.io>`__.
|
||||||
|
|
||||||
|
The documentation of this toolchain can be viewed online
|
||||||
|
`here <https://rednex.github.io/>`__, it is generated from the man pages found
|
||||||
|
in this repository.
|
||||||
|
|
||||||
|
1. Installing RGBDS
|
||||||
|
-------------------
|
||||||
|
|
||||||
|
1.1 Windows
|
||||||
|
~~~~~~~~~~~
|
||||||
|
|
||||||
|
Windows builds are available in the releases page on GitHub:
|
||||||
|
|
||||||
|
::
|
||||||
|
|
||||||
|
https://github.com/rednex/rgbds/releases
|
||||||
|
|
||||||
|
Copy the ``.exe`` files to ``C:\Windows\`` or similar.
|
||||||
|
|
||||||
|
If you require the latest version in development, it should be possible to
|
||||||
|
compile RGBDS with MinGW or Cygwin by following the instructions to build it on
|
||||||
|
UNIX systems.
|
||||||
|
|
||||||
|
1.2 macOS
|
||||||
|
~~~~~~~~~
|
||||||
|
|
||||||
|
You can build RGBDS by following the instructions below. However, if you would
|
||||||
|
prefer not to build RGBDS yourself, you may also install it using
|
||||||
|
`Homebrew <http://brew.sh/>`__.
|
||||||
|
|
||||||
|
To install the latest release, use:
|
||||||
|
|
||||||
|
.. code:: sh
|
||||||
|
|
||||||
|
brew install rgbds
|
||||||
|
|
||||||
|
To install RGBDS with all of the current changes in development (as seen on the
|
||||||
|
``master`` branch on GitHub), use:
|
||||||
|
|
||||||
|
.. code:: sh
|
||||||
|
|
||||||
|
brew install rgbds --HEAD
|
||||||
|
|
||||||
|
1.3 Other UNIX-like systems
|
||||||
|
~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||||
|
|
||||||
|
No official binaries of RGBDS are distributed for these systems, you must follow
|
||||||
|
the simple instructions below to compile and install it.
|
||||||
|
|
||||||
|
2. Building RGBDS from source
|
||||||
|
-----------------------------
|
||||||
|
|
||||||
|
RGBDS can be built in UNIX-like systems by following the instructions below.
|
||||||
|
|
||||||
|
2.1 Dependencies
|
||||||
|
~~~~~~~~~~~~~~~~
|
||||||
|
|
||||||
|
RGBDS requires yacc, flex, libpng and pkg-config to be installed.
|
||||||
|
|
||||||
|
On macOS, install the latter two with `Homebrew <http://brew.sh/>`__:
|
||||||
|
|
||||||
|
.. code:: sh
|
||||||
|
|
||||||
|
brew install libpng pkg-config
|
||||||
|
|
||||||
|
On other Unixes, use the built-in package manager. For example, on Debian or
|
||||||
|
Ubuntu:
|
||||||
|
|
||||||
|
.. code:: sh
|
||||||
|
|
||||||
|
sudo apt-get install byacc flex pkg-config libpng-dev
|
||||||
|
|
||||||
|
You can test if libpng and pkg-config are installed by running ``pkg-config
|
||||||
|
--cflags libpng``: if the output is a path, then you're good, and if it outputs
|
||||||
|
an error then you need to install them via a package manager.
|
||||||
|
|
||||||
|
2.2 Build process
|
||||||
|
~~~~~~~~~~~~~~~~~
|
||||||
|
|
||||||
|
To build the programs, run in your terminal:
|
||||||
|
|
||||||
|
.. code:: sh
|
||||||
|
|
||||||
|
make
|
||||||
|
|
||||||
|
Then, to install the compiled programs and manual pages, run (with appropriate
|
||||||
|
privileges, e.g, with ``sudo``):
|
||||||
|
|
||||||
|
.. code:: sh
|
||||||
|
|
||||||
|
make install
|
||||||
|
|
||||||
|
After installation, you can read the manuals with the ``man`` command. E.g.,
|
||||||
|
|
||||||
|
.. code:: sh
|
||||||
|
|
||||||
|
man 7 rgbds
|
||||||
|
|
||||||
|
There are some variables in the Makefile that can be redefined by the user. The
|
||||||
|
variables described below can affect installation behavior when given on the
|
||||||
|
make command line. For example, to install RGBDS in your home directory instead
|
||||||
|
of systemwide, run the following:
|
||||||
|
|
||||||
|
.. code:: sh
|
||||||
|
|
||||||
|
make install PREFIX=$HOME
|
||||||
|
|
||||||
|
To do a verbose build, run:
|
||||||
|
|
||||||
|
.. code:: sh
|
||||||
|
|
||||||
|
make Q=
|
||||||
|
|
||||||
|
This is the complete list of user-defined variables:
|
||||||
|
|
||||||
|
- ``PREFIX``: Location where RGBDS will be installed. Defaults to
|
||||||
|
``/usr/local``.
|
||||||
|
|
||||||
|
- ``bindir``: Location where the binaries will be installed. Defaults to
|
||||||
|
``${PREFIX}/bin``.
|
||||||
|
|
||||||
|
- ``mandir``: Location where the manpages will be installed. Defaults to
|
||||||
|
``${PREFIX}/man``.
|
||||||
|
|
||||||
|
- ``DESTDIR``: This is prepended to all paths during the installation. It is
|
||||||
|
mainly used for packaging.
|
||||||
|
|
||||||
|
- ``Q``: Whether to quiet the build or not. To make the build more verbose,
|
||||||
|
clear this variable. Defaults to ``@``.
|
||||||
|
|
||||||
|
- ``STRIP``: Whether to strip the installed binaries of debug symbols or not.
|
||||||
|
Defaults to ``-s``.
|
||||||
|
|
||||||
|
- ``BINMODE``: Permissions of the installed binaries. Defaults to ``555``.
|
||||||
|
|
||||||
|
- ``MANMODE``: Permissions of the installed manpages. Defaults to ``444``.
|
||||||
|
|
||||||
|
- ``CHECKPATCH``: Path of the script ``checkpatch.pl`` of the Linux kernel.
|
||||||
|
Defaults to ``../linux/scripts/checkpatch.pl``.
|
||||||
|
|
||||||
|
3 History
|
||||||
|
---------
|
||||||
|
|
||||||
|
- Around 1997, Carsten Sorensen (AKA SurfSmurf) writes ASMotor as a
|
||||||
|
general-purpose assembler/linker system for DOS/Win32
|
||||||
|
|
||||||
|
- Around 1999, Justin Lloyd (AKA Otaku no Zoku) adapts ASMotor to read and
|
||||||
|
produce GBZ80 assembly/machine code, and releases this version as RGBDS.
|
||||||
|
|
||||||
|
- 2009, Vegard Nossum adapts the code to be more UNIX-like and releases
|
||||||
|
this version as rgbds-linux on
|
||||||
|
`GitHub <https://github.com/vegard/rgbds-linux>`__.
|
||||||
|
|
||||||
|
- 2010, Anthony J. Bentley forks that repository. The fork becomes the reference
|
||||||
|
implementation of rgbds.
|
||||||
|
|
||||||
|
- 2017, Bentley's repository is moved to a neutral name.
|
||||||
@@ -1,40 +1,41 @@
|
|||||||
/* asm.h
|
/*
|
||||||
|
* asm.h
|
||||||
*
|
*
|
||||||
* Contains some assembler-wide defines and externs
|
* Contains some assembler-wide defines and externs
|
||||||
*
|
*
|
||||||
* Copyright 1997 Carsten Sorensen
|
* Copyright 1997 Carsten Sorensen
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#ifndef RGBDS_ASM_ASM_H
|
#ifndef RGBDS_ASM_ASM_H
|
||||||
#define RGBDS_ASM_ASM_H
|
#define RGBDS_ASM_ASM_H
|
||||||
|
|
||||||
#include <stdbool.h>
|
#include <stdbool.h>
|
||||||
|
#include <stdint.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
|
|
||||||
#include "types.h"
|
|
||||||
#include "asm/symbol.h"
|
|
||||||
|
|
||||||
#include "asm/localasm.h"
|
#include "asm/localasm.h"
|
||||||
|
#include "asm/symbol.h"
|
||||||
|
|
||||||
#define MAXUNIONS 128
|
#define MAXUNIONS 128
|
||||||
#define MAXMACROARGS 256
|
#define MAXMACROARGS 256
|
||||||
#define MAXINCPATHS 128
|
#define MAXINCPATHS 128
|
||||||
|
|
||||||
extern SLONG nLineNo;
|
extern int32_t nLineNo;
|
||||||
extern ULONG nTotalLines;
|
extern uint32_t nTotalLines;
|
||||||
extern ULONG nPC;
|
extern uint32_t nPC;
|
||||||
extern ULONG nPass;
|
extern uint32_t nPass;
|
||||||
extern ULONG nIFDepth;
|
extern uint32_t nIFDepth;
|
||||||
extern bool skipElif;
|
extern bool skipElif;
|
||||||
extern ULONG nUnionDepth;
|
extern uint32_t nUnionDepth;
|
||||||
extern ULONG unionStart[MAXUNIONS];
|
extern uint32_t unionStart[MAXUNIONS];
|
||||||
extern ULONG unionSize[MAXUNIONS];
|
extern uint32_t unionSize[MAXUNIONS];
|
||||||
extern char tzCurrentFileName[_MAX_PATH + 1];
|
extern char tzCurrentFileName[_MAX_PATH + 1];
|
||||||
extern struct Section *pCurrentSection;
|
extern struct Section *pCurrentSection;
|
||||||
extern struct sSymbol *tHashedSymbols[HASHSIZE];
|
extern struct sSymbol *tHashedSymbols[HASHSIZE];
|
||||||
extern struct sSymbol *pPCSymbol;
|
extern struct sSymbol *pPCSymbol;
|
||||||
extern bool oDontExpandStrings;
|
extern bool oDontExpandStrings;
|
||||||
|
|
||||||
#endif /* // ASM_H */
|
size_t symvaluetostring(char *dest, size_t maxLength, char *sym);
|
||||||
|
|
||||||
|
#endif /* RGBDS_ASM_ASM_H */
|
||||||
|
|||||||
@@ -1,18 +1,19 @@
|
|||||||
#ifndef RGBDS_ASM_CHARMAP_H
|
#ifndef RGBDS_ASM_CHARMAP_H
|
||||||
#define RGBDS_ASM_CHARMAP_H
|
#define RGBDS_ASM_CHARMAP_H
|
||||||
|
|
||||||
|
#include <stdint.h>
|
||||||
|
|
||||||
#define MAXCHARMAPS 512
|
#define MAXCHARMAPS 512
|
||||||
#define CHARMAPLENGTH 16
|
#define CHARMAPLENGTH 16
|
||||||
|
|
||||||
struct Charmap {
|
struct Charmap {
|
||||||
int count;
|
int32_t count;
|
||||||
char input[MAXCHARMAPS][CHARMAPLENGTH + 1];
|
char input[MAXCHARMAPS][CHARMAPLENGTH + 1];
|
||||||
char output[MAXCHARMAPS];
|
char output[MAXCHARMAPS];
|
||||||
};
|
};
|
||||||
|
|
||||||
int readUTF8Char(char *destination, char *source);
|
int32_t readUTF8Char(char *destination, char *source);
|
||||||
void charmap_Sort();
|
int32_t charmap_Add(char *input, uint8_t output);
|
||||||
int charmap_Add(char *input, UBYTE output);
|
int32_t charmap_Convert(char **input);
|
||||||
int charmap_Convert(char **input);
|
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_ASM_CHARMAP_H */
|
||||||
|
|||||||
@@ -9,40 +9,36 @@
|
|||||||
#ifndef RGBDS_ASM_FSTACK_H
|
#ifndef RGBDS_ASM_FSTACK_H
|
||||||
#define RGBDS_ASM_FSTACK_H
|
#define RGBDS_ASM_FSTACK_H
|
||||||
|
|
||||||
|
#include <stdint.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
|
|
||||||
#include "asm/asm.h"
|
#include "asm/asm.h"
|
||||||
#include "types.h"
|
|
||||||
#include "asm/lexer.h"
|
#include "asm/lexer.h"
|
||||||
|
|
||||||
|
#include "types.h"
|
||||||
|
|
||||||
struct sContext {
|
struct sContext {
|
||||||
YY_BUFFER_STATE FlexHandle;
|
YY_BUFFER_STATE FlexHandle;
|
||||||
struct sSymbol *pMacro;
|
struct sSymbol *pMacro;
|
||||||
struct sContext *pNext;
|
struct sContext *pNext;
|
||||||
char tzFileName[_MAX_PATH + 1];
|
char tzFileName[_MAX_PATH + 1];
|
||||||
char *tzMacroArgs[MAXMACROARGS + 1];
|
char *tzMacroArgs[MAXMACROARGS + 1];
|
||||||
SLONG nLine;
|
int32_t nLine;
|
||||||
ULONG nStatus;
|
uint32_t nStatus;
|
||||||
FILE *pFile;
|
FILE *pFile;
|
||||||
char *pREPTBlock;
|
char *pREPTBlock;
|
||||||
ULONG nREPTBlockCount;
|
uint32_t nREPTBlockCount;
|
||||||
ULONG nREPTBlockSize;
|
uint32_t nREPTBlockSize;
|
||||||
};
|
};
|
||||||
|
|
||||||
void
|
void fstk_RunInclude(char *tzFileName);
|
||||||
fstk_RunInclude(char *);
|
void fstk_RunMacroArg(int32_t s);
|
||||||
extern void fstk_RunMacroArg(SLONG s);
|
void fstk_Init(char *s);
|
||||||
void
|
void fstk_Dump(void);
|
||||||
fstk_Init(char *);
|
void fstk_AddIncludePath(char *s);
|
||||||
extern void fstk_Dump(void);
|
uint32_t fstk_RunMacro(char *s);
|
||||||
extern void fstk_AddIncludePath(char *s);
|
void fstk_RunRept(uint32_t count);
|
||||||
extern ULONG fstk_RunMacro(char *s);
|
FILE *fstk_FindFile(char *fname);
|
||||||
extern void fstk_RunRept(ULONG count);
|
int32_t fstk_GetLine(void);
|
||||||
FILE *
|
|
||||||
fstk_FindFile(char *);
|
|
||||||
|
|
||||||
int fstk_GetLine(void);
|
#endif /* RGBDS_ASM_FSTACK_H */
|
||||||
|
|
||||||
extern int yywrap(void);
|
|
||||||
|
|
||||||
#endif
|
|
||||||
|
|||||||
@@ -1,65 +1,69 @@
|
|||||||
#ifndef RGBDS_ASM_LEXER_H
|
#ifndef RGBDS_ASM_LEXER_H
|
||||||
#define RGBDS_ASM_LEXER_H
|
#define RGBDS_ASM_LEXER_H
|
||||||
|
|
||||||
|
#include <stdint.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
|
|
||||||
#include "types.h"
|
|
||||||
|
|
||||||
#define LEXHASHSIZE (1 << 11)
|
#define LEXHASHSIZE (1 << 11)
|
||||||
#define MAXSTRLEN 255
|
#define MAXSTRLEN 255
|
||||||
|
|
||||||
struct sLexInitString {
|
struct sLexInitString {
|
||||||
char *tzName;
|
char *tzName;
|
||||||
ULONG nToken;
|
uint32_t nToken;
|
||||||
};
|
};
|
||||||
|
|
||||||
struct sLexFloat {
|
struct sLexFloat {
|
||||||
ULONG(*Callback) (char *s, ULONG size);
|
uint32_t (*Callback)(char *s, uint32_t size);
|
||||||
ULONG nToken;
|
uint32_t nToken;
|
||||||
};
|
};
|
||||||
|
|
||||||
struct yy_buffer_state {
|
struct yy_buffer_state {
|
||||||
char *pBufferRealStart; // actual starting address
|
/* Actual starting address */
|
||||||
char *pBufferStart; // address where the data is initially written
|
char *pBufferRealStart;
|
||||||
// after the "safety margin"
|
/* Address where the data is initially written after a safety margin */
|
||||||
|
char *pBufferStart;
|
||||||
char *pBuffer;
|
char *pBuffer;
|
||||||
ULONG nBufferSize;
|
uint32_t nBufferSize;
|
||||||
ULONG oAtLineStart;
|
uint32_t oAtLineStart;
|
||||||
};
|
};
|
||||||
|
|
||||||
enum eLexerState {
|
enum eLexerState {
|
||||||
LEX_STATE_NORMAL,
|
LEX_STATE_NORMAL,
|
||||||
LEX_STATE_MACROARGS
|
LEX_STATE_MACROARGS
|
||||||
};
|
};
|
||||||
|
|
||||||
#define INITIAL 0
|
#define INITIAL 0
|
||||||
#define macroarg 3
|
#define macroarg 3
|
||||||
|
|
||||||
typedef struct yy_buffer_state *YY_BUFFER_STATE;
|
typedef struct yy_buffer_state *YY_BUFFER_STATE;
|
||||||
|
|
||||||
extern void yy_set_state(enum eLexerState i);
|
void setup_lexer(void);
|
||||||
extern YY_BUFFER_STATE yy_create_buffer(FILE * f);
|
|
||||||
extern YY_BUFFER_STATE yy_scan_bytes(char *mem, ULONG size);
|
void yy_set_state(enum eLexerState i);
|
||||||
extern void yy_delete_buffer(YY_BUFFER_STATE);
|
YY_BUFFER_STATE yy_create_buffer(FILE *f);
|
||||||
extern void yy_switch_to_buffer(YY_BUFFER_STATE);
|
YY_BUFFER_STATE yy_scan_bytes(char *mem, uint32_t size);
|
||||||
extern ULONG lex_FloatAlloc(struct sLexFloat * tok);
|
void yy_delete_buffer(YY_BUFFER_STATE buf);
|
||||||
extern void lex_FloatAddRange(ULONG id, UWORD start, UWORD end);
|
void yy_switch_to_buffer(YY_BUFFER_STATE buf);
|
||||||
extern void lex_FloatDeleteRange(ULONG id, UWORD start, UWORD end);
|
uint32_t lex_FloatAlloc(const struct sLexFloat *tok);
|
||||||
extern void lex_FloatAddFirstRange(ULONG id, UWORD start, UWORD end);
|
void lex_FloatAddRange(uint32_t id, uint16_t start, uint16_t end);
|
||||||
extern void lex_FloatDeleteFirstRange(ULONG id, UWORD start, UWORD end);
|
void lex_FloatDeleteRange(uint32_t id, uint16_t start, uint16_t end);
|
||||||
extern void lex_FloatAddSecondRange(ULONG id, UWORD start, UWORD end);
|
void lex_FloatAddFirstRange(uint32_t id, uint16_t start, uint16_t end);
|
||||||
extern void lex_FloatDeleteSecondRange(ULONG id, UWORD start, UWORD end);
|
void lex_FloatDeleteFirstRange(uint32_t id, uint16_t start, uint16_t end);
|
||||||
extern void lex_Init(void);
|
void lex_FloatAddSecondRange(uint32_t id, uint16_t start, uint16_t end);
|
||||||
extern void lex_AddStrings(struct sLexInitString * lex);
|
void lex_FloatDeleteSecondRange(uint32_t id, uint16_t start, uint16_t end);
|
||||||
extern void lex_SetBuffer(char *buffer, ULONG len);
|
void lex_Init(void);
|
||||||
extern ULONG yylex(void);
|
void lex_AddStrings(const struct sLexInitString *lex);
|
||||||
extern void yyunput(char c);
|
void lex_SetBuffer(char *buffer, uint32_t len);
|
||||||
extern void yyunputstr(char *s);
|
int yywrap(void);
|
||||||
extern void yyskipbytes(ULONG count);
|
uint32_t yylex(void);
|
||||||
extern void yyunputbytes(ULONG count);
|
void yyunput(char c);
|
||||||
|
void yyunputstr(char *s);
|
||||||
|
void yyskipbytes(uint32_t count);
|
||||||
|
void yyunputbytes(uint32_t count);
|
||||||
|
|
||||||
extern YY_BUFFER_STATE pCurrentBuffer;
|
extern YY_BUFFER_STATE pCurrentBuffer;
|
||||||
|
|
||||||
extern void upperstring(char *s);
|
void upperstring(char *s);
|
||||||
extern void lowerstring(char *s);
|
void lowerstring(char *s);
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_ASM_LEXER_H */
|
||||||
|
|||||||
@@ -1,92 +1,89 @@
|
|||||||
/* GB Z80 instruction groups
|
#ifndef RGBDS_ASM_LOCALASM_H
|
||||||
|
#define RGBDS_ASM_LOCALASM_H
|
||||||
n3 = 3-bit
|
|
||||||
n = 8-bit
|
|
||||||
nn = 16-bit
|
|
||||||
|
|
||||||
* ADC A,n : 0xCE
|
|
||||||
* ADC A,r : 0x88|r
|
|
||||||
* ADD A,n : 0xC6
|
|
||||||
* ADD A,r : 0x80|r
|
|
||||||
* ADD HL,ss : 0x09|(ss<<4)
|
|
||||||
* ADD SP,n : 0xE8
|
|
||||||
* AND A,n : 0xE6
|
|
||||||
* AND A,r : 0xA0|r
|
|
||||||
* BIT n3,r : 0xCB 0x40|(n3<<3)|r
|
|
||||||
* CALL cc,nn : 0xC4|(cc<<3)
|
|
||||||
* CALL nn : 0xCD
|
|
||||||
* CCF : 0x3F
|
|
||||||
* CP A,n : 0xFE
|
|
||||||
* CP A,r : 0xB8|r
|
|
||||||
* CPL : 0x2F
|
|
||||||
* DAA : 0x27
|
|
||||||
* DEC r : 0x05|(r<<3)
|
|
||||||
* DEC ss : 0x0B|(ss<<4)
|
|
||||||
* DI : 0xF3
|
|
||||||
* EI : 0xFB
|
|
||||||
* HALT : 0x76
|
|
||||||
* INC r : 0x04|(r<<3)
|
|
||||||
* INC ss : 0x03|(ss<<4)
|
|
||||||
* JP HL : 0xE9
|
|
||||||
* JP cc,nn : 0xC2|(cc<<3)
|
|
||||||
* JP nn : 0xC3|(cc<<3)
|
|
||||||
* JR n : 0x18
|
|
||||||
* JR cc,n : 0x20|(cc<<3)
|
|
||||||
* LD (nn),SP : 0x08
|
|
||||||
* LD ($FF00+C),A : 0xE2
|
|
||||||
* LD ($FF00+n),A : 0xE0
|
|
||||||
* LD (nn),A : 0xEA
|
|
||||||
* LD (rr),A : 0x02|(rr<<4) // HL+ and HL- included
|
|
||||||
* LD A,($FF00+C) : 0xF2
|
|
||||||
* LD A,($FF00+n) : 0xF0
|
|
||||||
* LD A,(nn) : 0xFA
|
|
||||||
* LD A,(rr) : 0x0A|(rr<<4) // HL+ and HL- included
|
|
||||||
* LD HL,SP+n : 0xF8
|
|
||||||
* LD SP,HL : 0xF9
|
|
||||||
* LD r,n : 0x06|(r<<3)
|
|
||||||
* LD r,r' : 0x40|(r<<3)|r' // NOTE: LD (HL),(HL) not allowed
|
|
||||||
* LD ss,nn : 0x01|(ss<<4)
|
|
||||||
* NOP : 0x00
|
|
||||||
* OR A,n : 0xF6
|
|
||||||
* OR A,r : 0xB0|r
|
|
||||||
* POP tt : 0xC1|(tt<<4)
|
|
||||||
* PUSH tt : 0xC5|(tt<<4)
|
|
||||||
* RES n3,r : 0xCB 0x80|(n3<<3)|r
|
|
||||||
* RET : 0xC9
|
|
||||||
* RET cc : 0xC0|(cc<<3)
|
|
||||||
* RETI : 0xD9
|
|
||||||
* RL r : 0xCB 0x10|r
|
|
||||||
* RLA : 0x17
|
|
||||||
* RLC r : 0xCB 0x00|r
|
|
||||||
* RLCA : 0x07
|
|
||||||
* RR r : 0xCB 0x18|r
|
|
||||||
* RRA : 0x1F
|
|
||||||
* RRC r : 0xCB 0x08|r
|
|
||||||
* RRCA : 0x0F
|
|
||||||
* RST n : 0xC7|n
|
|
||||||
* SBC A,n : 0xDE
|
|
||||||
* SBC A,r : 0x98|r
|
|
||||||
* SCF : 0x37
|
|
||||||
* SET n3,r : 0xCB 0xC0|(n8<<3)|r
|
|
||||||
* SLA r : 0xCB 0x20|r
|
|
||||||
* SRA r : 0xCB 0x28|r
|
|
||||||
* SRL r : 0xCB 0x38|r
|
|
||||||
* STOP : 0x10 0x00
|
|
||||||
* SUB A,n : 0xD6
|
|
||||||
* SUB A,r : 0x90|r
|
|
||||||
* SWAP r : 0xCB 0x30|r
|
|
||||||
* XOR A,n : 0xEE
|
|
||||||
* XOR A,r : 0xA8|r
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
* GB Z80 instruction groups
|
||||||
|
*
|
||||||
|
* n3 = 3-bit
|
||||||
|
* n = 8-bit
|
||||||
|
* nn = 16-bit
|
||||||
|
*
|
||||||
|
* ADC A,n : 0xCE
|
||||||
|
* ADC A,r : 0x88|r
|
||||||
|
* ADD A,n : 0xC6
|
||||||
|
* ADD A,r : 0x80|r
|
||||||
|
* ADD HL,ss : 0x09|(ss<<4)
|
||||||
|
* ADD SP,n : 0xE8
|
||||||
|
* AND A,n : 0xE6
|
||||||
|
* AND A,r : 0xA0|r
|
||||||
|
* BIT n3,r : 0xCB 0x40|(n3<<3)|r
|
||||||
|
* CALL cc,nn : 0xC4|(cc<<3)
|
||||||
|
* CALL nn : 0xCD
|
||||||
|
* CCF : 0x3F
|
||||||
|
* CP A,n : 0xFE
|
||||||
|
* CP A,r : 0xB8|r
|
||||||
|
* CPL : 0x2F
|
||||||
|
* DAA : 0x27
|
||||||
|
* DEC r : 0x05|(r<<3)
|
||||||
|
* DEC ss : 0x0B|(ss<<4)
|
||||||
|
* DI : 0xF3
|
||||||
|
* EI : 0xFB
|
||||||
|
* HALT : 0x76
|
||||||
|
* INC r : 0x04|(r<<3)
|
||||||
|
* INC ss : 0x03|(ss<<4)
|
||||||
|
* JP HL : 0xE9
|
||||||
|
* JP cc,nn : 0xC2|(cc<<3)
|
||||||
|
* JP nn : 0xC3|(cc<<3)
|
||||||
|
* JR n : 0x18
|
||||||
|
* JR cc,n : 0x20|(cc<<3)
|
||||||
|
* LD (nn),SP : 0x08
|
||||||
|
* LD ($FF00+C),A : 0xE2
|
||||||
|
* LD ($FF00+n),A : 0xE0
|
||||||
|
* LD (nn),A : 0xEA
|
||||||
|
* LD (rr),A : 0x02|(rr<<4) // HL+ and HL- included
|
||||||
|
* LD A,($FF00+C) : 0xF2
|
||||||
|
* LD A,($FF00+n) : 0xF0
|
||||||
|
* LD A,(nn) : 0xFA
|
||||||
|
* LD A,(rr) : 0x0A|(rr<<4) // HL+ and HL- included
|
||||||
|
* LD HL,SP+n : 0xF8
|
||||||
|
* LD SP,HL : 0xF9
|
||||||
|
* LD r,n : 0x06|(r<<3)
|
||||||
|
* LD r,r' : 0x40|(r<<3)|r' // NOTE: LD (HL),(HL) not allowed
|
||||||
|
* LD ss,nn : 0x01|(ss<<4)
|
||||||
|
* NOP : 0x00
|
||||||
|
* OR A,n : 0xF6
|
||||||
|
* OR A,r : 0xB0|r
|
||||||
|
* POP tt : 0xC1|(tt<<4)
|
||||||
|
* PUSH tt : 0xC5|(tt<<4)
|
||||||
|
* RES n3,r : 0xCB 0x80|(n3<<3)|r
|
||||||
|
* RET : 0xC9
|
||||||
|
* RET cc : 0xC0|(cc<<3)
|
||||||
|
* RETI : 0xD9
|
||||||
|
* RL r : 0xCB 0x10|r
|
||||||
|
* RLA : 0x17
|
||||||
|
* RLC r : 0xCB 0x00|r
|
||||||
|
* RLCA : 0x07
|
||||||
|
* RR r : 0xCB 0x18|r
|
||||||
|
* RRA : 0x1F
|
||||||
|
* RRC r : 0xCB 0x08|r
|
||||||
|
* RRCA : 0x0F
|
||||||
|
* RST n : 0xC7|n
|
||||||
|
* SBC A,n : 0xDE
|
||||||
|
* SBC A,r : 0x98|r
|
||||||
|
* SCF : 0x37
|
||||||
|
* SET n3,r : 0xCB 0xC0|(n8<<3)|r
|
||||||
|
* SLA r : 0xCB 0x20|r
|
||||||
|
* SRA r : 0xCB 0x28|r
|
||||||
|
* SRL r : 0xCB 0x38|r
|
||||||
|
* STOP : 0x10 0x00
|
||||||
|
* SUB A,n : 0xD6
|
||||||
|
* SUB A,r : 0x90|r
|
||||||
|
* SWAP r : 0xCB 0x30|r
|
||||||
|
* XOR A,n : 0xEE
|
||||||
|
* XOR A,r : 0xA8|r
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#define NAME_DB "db"
|
|
||||||
#define NAME_DW "dw"
|
|
||||||
#define NAME_RB "rb"
|
|
||||||
#define NAME_RW "rw"
|
|
||||||
|
|
||||||
/* "r" defs */
|
/* "r" defs */
|
||||||
|
|
||||||
enum {
|
enum {
|
||||||
REG_B = 0,
|
REG_B = 0,
|
||||||
REG_C,
|
REG_C,
|
||||||
@@ -97,36 +94,30 @@ enum {
|
|||||||
REG_HL_IND,
|
REG_HL_IND,
|
||||||
REG_A
|
REG_A
|
||||||
};
|
};
|
||||||
/* "rr" defs */
|
|
||||||
|
|
||||||
|
/* "rr" defs */
|
||||||
enum {
|
enum {
|
||||||
REG_BC_IND = 0,
|
REG_BC_IND = 0,
|
||||||
REG_DE_IND,
|
REG_DE_IND,
|
||||||
REG_HL_INDINC,
|
REG_HL_INDINC,
|
||||||
REG_HL_INDDEC,
|
REG_HL_INDDEC,
|
||||||
};
|
};
|
||||||
/* "ss" defs */
|
|
||||||
|
|
||||||
|
/* "ss" defs (SP) and "tt" defs (AF) */
|
||||||
enum {
|
enum {
|
||||||
REG_BC = 0,
|
REG_BC = 0,
|
||||||
REG_DE,
|
REG_DE = 1,
|
||||||
REG_HL,
|
REG_HL = 2,
|
||||||
REG_SP
|
REG_SP = 3,
|
||||||
|
REG_AF = 3
|
||||||
};
|
};
|
||||||
/* "tt" defs */
|
|
||||||
|
|
||||||
/*
|
|
||||||
#define REG_BC 0
|
|
||||||
#define REG_DE 1
|
|
||||||
#define REG_HL 2
|
|
||||||
*/
|
|
||||||
#define REG_AF 3
|
|
||||||
|
|
||||||
/* "cc" defs */
|
/* "cc" defs */
|
||||||
|
|
||||||
enum {
|
enum {
|
||||||
CC_NZ = 0,
|
CC_NZ = 0,
|
||||||
CC_Z,
|
CC_Z,
|
||||||
CC_NC,
|
CC_NC,
|
||||||
CC_C
|
CC_C
|
||||||
};
|
};
|
||||||
|
|
||||||
|
#endif /* RGBDS_ASM_LOCALASM_H */
|
||||||
|
|||||||
@@ -2,29 +2,33 @@
|
|||||||
#define RGBDS_MAIN_H
|
#define RGBDS_MAIN_H
|
||||||
|
|
||||||
#include <stdbool.h>
|
#include <stdbool.h>
|
||||||
|
#include <stdint.h>
|
||||||
|
|
||||||
#include "extern/stdnoreturn.h"
|
#include "extern/stdnoreturn.h"
|
||||||
|
|
||||||
struct sOptions {
|
struct sOptions {
|
||||||
char gbgfx[4];
|
char gbgfx[4];
|
||||||
char binary[2];
|
char binary[2];
|
||||||
SLONG fillchar;
|
int32_t fillchar;
|
||||||
bool verbose;
|
bool verbose;
|
||||||
bool haltnop;
|
bool haltnop;
|
||||||
bool exportall;
|
bool exportall;
|
||||||
bool warnings; /* true to enable warnings, false to disable them. */
|
bool warnings; /* True to enable warnings, false to disable them. */
|
||||||
//-1 == random
|
|
||||||
};
|
};
|
||||||
|
|
||||||
extern char *tzNewMacro;
|
extern char *tzNewMacro;
|
||||||
extern ULONG ulNewMacroSize;
|
extern uint32_t ulNewMacroSize;
|
||||||
extern SLONG nGBGfxID;
|
extern int32_t nGBGfxID;
|
||||||
extern SLONG nBinaryID;
|
extern int32_t nBinaryID;
|
||||||
|
|
||||||
extern struct sOptions DefaultOptions;
|
extern struct sOptions DefaultOptions;
|
||||||
extern struct sOptions CurrentOptions;
|
extern struct sOptions CurrentOptions;
|
||||||
extern void opt_Push(void);
|
|
||||||
extern void opt_Pop(void);
|
extern FILE *dependfile;
|
||||||
extern void opt_Parse(char *s);
|
|
||||||
|
void opt_Push(void);
|
||||||
|
void opt_Pop(void);
|
||||||
|
void opt_Parse(char *s);
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Used for errors that compromise the whole assembly process by affecting the
|
* Used for errors that compromise the whole assembly process by affecting the
|
||||||
@@ -34,6 +38,7 @@ extern void opt_Parse(char *s);
|
|||||||
* when it fails to allocate memory).
|
* when it fails to allocate memory).
|
||||||
*/
|
*/
|
||||||
noreturn void fatalerror(const char *fmt, ...);
|
noreturn void fatalerror(const char *fmt, ...);
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Used for errors that make it impossible to assemble correctly, but don't
|
* Used for errors that make it impossible to assemble correctly, but don't
|
||||||
* affect the following code. The code will fail to assemble but the user will
|
* affect the following code. The code will fail to assemble but the user will
|
||||||
@@ -41,6 +46,7 @@ noreturn void fatalerror(const char *fmt, ...);
|
|||||||
* once.
|
* once.
|
||||||
*/
|
*/
|
||||||
void yyerror(const char *fmt, ...);
|
void yyerror(const char *fmt, ...);
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Used to warn the user about problems that don't prevent the generation of
|
* Used to warn the user about problems that don't prevent the generation of
|
||||||
* valid code.
|
* valid code.
|
||||||
@@ -54,4 +60,4 @@ void warning(const char *fmt, ...);
|
|||||||
#endif
|
#endif
|
||||||
#define YYLMAX 65536
|
#define YYLMAX 65536
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_MAIN_H */
|
||||||
|
|||||||
@@ -1,61 +0,0 @@
|
|||||||
#ifndef RGBDS_ASM_LINK_H
|
|
||||||
#define RGBDS_ASM_LINK_H
|
|
||||||
|
|
||||||
enum {
|
|
||||||
RPN_ADD = 0,
|
|
||||||
RPN_SUB,
|
|
||||||
RPN_MUL,
|
|
||||||
RPN_DIV,
|
|
||||||
RPN_MOD,
|
|
||||||
RPN_UNSUB,
|
|
||||||
|
|
||||||
RPN_OR,
|
|
||||||
RPN_AND,
|
|
||||||
RPN_XOR,
|
|
||||||
RPN_UNNOT,
|
|
||||||
|
|
||||||
RPN_LOGAND,
|
|
||||||
RPN_LOGOR,
|
|
||||||
RPN_LOGUNNOT,
|
|
||||||
|
|
||||||
RPN_LOGEQ,
|
|
||||||
RPN_LOGNE,
|
|
||||||
RPN_LOGGT,
|
|
||||||
RPN_LOGLT,
|
|
||||||
RPN_LOGGE,
|
|
||||||
RPN_LOGLE,
|
|
||||||
|
|
||||||
RPN_SHL,
|
|
||||||
RPN_SHR,
|
|
||||||
|
|
||||||
RPN_BANK,
|
|
||||||
|
|
||||||
RPN_HRAM,
|
|
||||||
|
|
||||||
RPN_CONST = 0x80,
|
|
||||||
RPN_SYM = 0x81
|
|
||||||
};
|
|
||||||
|
|
||||||
enum {
|
|
||||||
SECT_WRAM0 = 0,
|
|
||||||
SECT_VRAM,
|
|
||||||
SECT_ROMX,
|
|
||||||
SECT_ROM0,
|
|
||||||
SECT_HRAM,
|
|
||||||
SECT_WRAMX,
|
|
||||||
SECT_SRAM,
|
|
||||||
SECT_OAM
|
|
||||||
};
|
|
||||||
|
|
||||||
enum {
|
|
||||||
SYM_LOCAL = 0,
|
|
||||||
SYM_IMPORT,
|
|
||||||
SYM_EXPORT
|
|
||||||
};
|
|
||||||
|
|
||||||
enum {
|
|
||||||
PATCH_BYTE = 0,
|
|
||||||
PATCH_WORD_L,
|
|
||||||
PATCH_LONG_L
|
|
||||||
};
|
|
||||||
#endif
|
|
||||||
@@ -1,21 +1,21 @@
|
|||||||
#ifndef RGBDS_ASM_MATH_H
|
#ifndef RGBDS_ASM_MATH_H
|
||||||
#define RGBDS_ASM_MATH_H
|
#define RGBDS_ASM_MATH_H
|
||||||
|
|
||||||
#include "types.h"
|
#include <stdint.h>
|
||||||
|
|
||||||
void math_DefinePI(void);
|
void math_DefinePI(void);
|
||||||
void math_Print(SLONG i);
|
void math_Print(int32_t i);
|
||||||
SLONG math_Sin(SLONG i);
|
int32_t math_Sin(int32_t i);
|
||||||
SLONG math_Cos(SLONG i);
|
int32_t math_Cos(int32_t i);
|
||||||
SLONG math_Tan(SLONG i);
|
int32_t math_Tan(int32_t i);
|
||||||
SLONG math_ASin(SLONG i);
|
int32_t math_ASin(int32_t i);
|
||||||
SLONG math_ACos(SLONG i);
|
int32_t math_ACos(int32_t i);
|
||||||
SLONG math_ATan(SLONG i);
|
int32_t math_ATan(int32_t i);
|
||||||
SLONG math_ATan2(SLONG i, SLONG j);
|
int32_t math_ATan2(int32_t i, int32_t j);
|
||||||
SLONG math_Mul(SLONG i, SLONG j);
|
int32_t math_Mul(int32_t i, int32_t j);
|
||||||
SLONG math_Div(SLONG i, SLONG j);
|
int32_t math_Div(int32_t i, int32_t j);
|
||||||
SLONG math_Round(SLONG i);
|
int32_t math_Round(int32_t i);
|
||||||
SLONG math_Ceil(SLONG i);
|
int32_t math_Ceil(int32_t i);
|
||||||
SLONG math_Floor(SLONG i);
|
int32_t math_Floor(int32_t i);
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_ASM_MATH_H */
|
||||||
|
|||||||
@@ -1,40 +1,45 @@
|
|||||||
#ifndef RGBDS_ASM_OUTPUT_H
|
#ifndef RGBDS_ASM_OUTPUT_H
|
||||||
#define RGBDS_ASM_OUTPUT_H
|
#define RGBDS_ASM_OUTPUT_H
|
||||||
|
|
||||||
|
#include <stdint.h>
|
||||||
|
|
||||||
#include "asm/rpn.h"
|
#include "asm/rpn.h"
|
||||||
#include "types.h"
|
|
||||||
|
|
||||||
struct Section {
|
struct Section {
|
||||||
char *pzName;
|
char *pzName;
|
||||||
UBYTE nType;
|
uint8_t nType;
|
||||||
ULONG nPC;
|
uint32_t nPC;
|
||||||
ULONG nOrg;
|
uint32_t nOrg;
|
||||||
ULONG nBank;
|
uint32_t nBank;
|
||||||
ULONG nAlign;
|
uint32_t nAlign;
|
||||||
struct Section *pNext;
|
struct Section *pNext;
|
||||||
struct Patch *pPatches;
|
struct Patch *pPatches;
|
||||||
struct Charmap *charmap;
|
struct Charmap *charmap;
|
||||||
UBYTE *tData;
|
uint8_t *tData;
|
||||||
};
|
};
|
||||||
|
|
||||||
|
extern char *tzObjectname;
|
||||||
|
|
||||||
void out_PrepPass2(void);
|
void out_PrepPass2(void);
|
||||||
void out_SetFileName(char *s);
|
void out_SetFileName(char *s);
|
||||||
void out_NewSection(char *pzName, ULONG secttype);
|
void out_NewSection(char *pzName, uint32_t secttype);
|
||||||
void out_NewAbsSection(char *pzName, ULONG secttype, SLONG org, SLONG bank);
|
void out_NewAbsSection(char *pzName, uint32_t secttype, int32_t org,
|
||||||
void out_NewAlignedSection(char *pzName, ULONG secttype, SLONG alignment, SLONG bank);
|
int32_t bank);
|
||||||
void out_AbsByte(int b);
|
void out_NewAlignedSection(char *pzName, uint32_t secttype, int32_t alignment,
|
||||||
void out_AbsByteGroup(char *s, int length);
|
int32_t bank);
|
||||||
void out_RelByte(struct Expression * expr);
|
void out_AbsByte(int32_t b);
|
||||||
void out_RelWord(struct Expression * expr);
|
void out_AbsByteGroup(char *s, int32_t length);
|
||||||
void out_PCRelByte(struct Expression * expr);
|
void out_RelByte(struct Expression *expr);
|
||||||
|
void out_RelWord(struct Expression *expr);
|
||||||
|
void out_PCRelByte(struct Expression *expr);
|
||||||
void out_WriteObject(void);
|
void out_WriteObject(void);
|
||||||
void out_Skip(int skip);
|
void out_Skip(int32_t skip);
|
||||||
void out_BinaryFile(char *s);
|
void out_BinaryFile(char *s);
|
||||||
void out_BinaryFileSlice(char *s, SLONG start_pos, SLONG length);
|
void out_BinaryFileSlice(char *s, int32_t start_pos, int32_t length);
|
||||||
void out_String(char *s);
|
void out_String(char *s);
|
||||||
void out_AbsLong(SLONG b);
|
void out_AbsLong(int32_t b);
|
||||||
void out_RelLong(struct Expression * expr);
|
void out_RelLong(struct Expression *expr);
|
||||||
void out_PushSection(void);
|
void out_PushSection(void);
|
||||||
void out_PopSection(void);
|
void out_PopSection(void);
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_ASM_OUTPUT_H */
|
||||||
|
|||||||
@@ -1,81 +1,67 @@
|
|||||||
#ifndef RGBDS_ASM_RPN_H
|
#ifndef RGBDS_ASM_RPN_H
|
||||||
#define RGBDS_ASM_RPN_H
|
#define RGBDS_ASM_RPN_H
|
||||||
|
|
||||||
|
#include <stdint.h>
|
||||||
|
|
||||||
struct Expression {
|
struct Expression {
|
||||||
SLONG nVal;
|
int32_t nVal;
|
||||||
UBYTE tRPN[256];
|
uint8_t tRPN[256];
|
||||||
ULONG nRPNLength;
|
uint32_t nRPNLength;
|
||||||
ULONG nRPNOut;
|
uint32_t nRPNOut;
|
||||||
ULONG isReloc;
|
uint32_t isReloc;
|
||||||
ULONG isPCRel;
|
uint32_t isPCRel;
|
||||||
};
|
};
|
||||||
|
|
||||||
ULONG rpn_isReloc(struct Expression * expr);
|
uint32_t rpn_isReloc(const struct Expression *expr);
|
||||||
ULONG rpn_isPCRelative(struct Expression * expr);
|
uint32_t rpn_isPCRelative(const struct Expression *expr);
|
||||||
void rpn_Symbol(struct Expression * expr, char *tzSym);
|
void rpn_Symbol(struct Expression *expr, char *tzSym);
|
||||||
void rpn_Number(struct Expression * expr, ULONG i);
|
void rpn_Number(struct Expression *expr, uint32_t i);
|
||||||
void rpn_LOGNOT(struct Expression * expr, struct Expression * src1);
|
void rpn_LOGNOT(struct Expression *expr, const struct Expression *src);
|
||||||
void
|
void rpn_LOGOR(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_LOGOR(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2);
|
||||||
struct Expression * src2);
|
void rpn_LOGAND(struct Expression *expr, const struct Expression *src1,
|
||||||
void
|
const struct Expression *src2);
|
||||||
rpn_LOGAND(struct Expression * expr, struct Expression * src1,
|
void rpn_LOGEQU(struct Expression *expr, const struct Expression *src1,
|
||||||
struct Expression * src2);
|
const struct Expression *src2);
|
||||||
void
|
void rpn_LOGGT(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_LOGEQU(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2);
|
||||||
struct Expression * src2);
|
void rpn_LOGLT(struct Expression *expr, const struct Expression *src1,
|
||||||
void
|
const struct Expression *src2);
|
||||||
rpn_LOGGT(struct Expression * expr, struct Expression * src1,
|
void rpn_LOGGE(struct Expression *expr, const struct Expression *src1,
|
||||||
struct Expression * src2);
|
const struct Expression *src2);
|
||||||
void
|
void rpn_LOGLE(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_LOGLT(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2);
|
||||||
struct Expression * src2);
|
void rpn_LOGNE(struct Expression *expr, const struct Expression *src1,
|
||||||
void
|
const struct Expression *src2);
|
||||||
rpn_LOGGE(struct Expression * expr, struct Expression * src1,
|
void rpn_ADD(struct Expression *expr, const struct Expression *src1,
|
||||||
struct Expression * src2);
|
const struct Expression *src2);
|
||||||
void
|
void rpn_SUB(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_LOGLE(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2);
|
||||||
struct Expression * src2);
|
void rpn_XOR(struct Expression *expr, const struct Expression *src1,
|
||||||
void
|
const struct Expression *src2);
|
||||||
rpn_LOGNE(struct Expression * expr, struct Expression * src1,
|
void rpn_OR(struct Expression *expr, const struct Expression *src1,
|
||||||
struct Expression * src2);
|
const struct Expression *src2);
|
||||||
void
|
void rpn_AND(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_ADD(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2);
|
||||||
struct Expression * src2);
|
void rpn_SHL(struct Expression *expr, const struct Expression *src1,
|
||||||
void
|
const struct Expression *src2);
|
||||||
rpn_SUB(struct Expression * expr, struct Expression * src1,
|
void rpn_SHR(struct Expression *expr, const struct Expression *src1,
|
||||||
struct Expression * src2);
|
const struct Expression *src2);
|
||||||
void
|
void rpn_MUL(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_XOR(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2);
|
||||||
struct Expression * src2);
|
void rpn_DIV(struct Expression *expr, const struct Expression *src1,
|
||||||
void
|
const struct Expression *src2);
|
||||||
rpn_OR(struct Expression * expr, struct Expression * src1,
|
void rpn_MOD(struct Expression *expr, const struct Expression *src1,
|
||||||
struct Expression * src2);
|
const struct Expression *src2);
|
||||||
void
|
void rpn_HIGH(struct Expression *expr, const struct Expression *src);
|
||||||
rpn_AND(struct Expression * expr, struct Expression * src1,
|
void rpn_LOW(struct Expression *expr, const struct Expression *src);
|
||||||
struct Expression * src2);
|
void rpn_UNNEG(struct Expression *expr, const struct Expression *src);
|
||||||
void
|
void rpn_UNNOT(struct Expression *expr, const struct Expression *src);
|
||||||
rpn_SHL(struct Expression * expr, struct Expression * src1,
|
uint16_t rpn_PopByte(struct Expression *expr);
|
||||||
struct Expression * src2);
|
void rpn_BankSymbol(struct Expression *expr, char *tzSym);
|
||||||
void
|
void rpn_BankSection(struct Expression *expr, char *tzSectionName);
|
||||||
rpn_SHR(struct Expression * expr, struct Expression * src1,
|
void rpn_BankSelf(struct Expression *expr);
|
||||||
struct Expression * src2);
|
void rpn_Reset(struct Expression *expr);
|
||||||
void
|
void rpn_CheckHRAM(struct Expression *expr, const struct Expression *src);
|
||||||
rpn_MUL(struct Expression * expr, struct Expression * src1,
|
|
||||||
struct Expression * src2);
|
|
||||||
void
|
|
||||||
rpn_DIV(struct Expression * expr, struct Expression * src1,
|
|
||||||
struct Expression * src2);
|
|
||||||
void
|
|
||||||
rpn_MOD(struct Expression * expr, struct Expression * src1,
|
|
||||||
struct Expression * src2);
|
|
||||||
void rpn_HIGH(struct Expression * expr, struct Expression * src);
|
|
||||||
void rpn_LOW(struct Expression * expr, struct Expression * src);
|
|
||||||
void rpn_UNNEG(struct Expression * expr, struct Expression * src);
|
|
||||||
void rpn_UNNOT(struct Expression * expr, struct Expression * src);
|
|
||||||
UWORD rpn_PopByte(struct Expression * expr);
|
|
||||||
void rpn_Bank(struct Expression * expr, char *tzSym);
|
|
||||||
void rpn_Reset(struct Expression * expr);
|
|
||||||
void rpn_CheckHRAM(struct Expression * expr, struct Expression * src1);
|
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_ASM_RPN_H */
|
||||||
|
|||||||
@@ -1,6 +1,8 @@
|
|||||||
#ifndef RGBDS_SYMBOL_H
|
#ifndef RGBDS_SYMBOL_H
|
||||||
#define RGBDS_SYMBOL_H
|
#define RGBDS_SYMBOL_H
|
||||||
|
|
||||||
|
#include <stdint.h>
|
||||||
|
|
||||||
#include "types.h"
|
#include "types.h"
|
||||||
|
|
||||||
#define HASHSIZE (1 << 16)
|
#define HASHSIZE (1 << 16)
|
||||||
@@ -8,37 +10,41 @@
|
|||||||
|
|
||||||
struct sSymbol {
|
struct sSymbol {
|
||||||
char tzName[MAXSYMLEN + 1];
|
char tzName[MAXSYMLEN + 1];
|
||||||
SLONG nValue;
|
int32_t nValue;
|
||||||
ULONG nType;
|
uint32_t nType;
|
||||||
struct sSymbol *pScope;
|
struct sSymbol *pScope;
|
||||||
struct sSymbol *pNext;
|
struct sSymbol *pNext;
|
||||||
struct Section *pSection;
|
struct Section *pSection;
|
||||||
ULONG ulMacroSize;
|
uint32_t ulMacroSize;
|
||||||
char *pMacro;
|
char *pMacro;
|
||||||
SLONG(*Callback) (struct sSymbol *);
|
int32_t (*Callback)(struct sSymbol *);
|
||||||
char tzFileName[_MAX_PATH + 1]; /* File where the symbol was defined. */
|
char tzFileName[_MAX_PATH + 1]; /* File where the symbol was defined. */
|
||||||
ULONG nFileLine; /* Line where the symbol was defined. */
|
uint32_t nFileLine; /* Line where the symbol was defined. */
|
||||||
};
|
};
|
||||||
#define SYMF_RELOC 0x001 /* symbol will be reloc'ed during
|
|
||||||
* linking, it's absolute value is
|
|
||||||
* unknown */
|
|
||||||
#define SYMF_EQU 0x002 /* symbol is defined using EQU, will
|
|
||||||
* not be changed during linking */
|
|
||||||
#define SYMF_SET 0x004 /* symbol is (re)defined using SET,
|
|
||||||
* will not be changed during linking */
|
|
||||||
#define SYMF_EXPORT 0x008 /* symbol should be exported */
|
|
||||||
#define SYMF_IMPORT 0x010 /* symbol is imported, it's value is
|
|
||||||
* unknown */
|
|
||||||
#define SYMF_LOCAL 0x020 /* symbol is a local symbol */
|
|
||||||
#define SYMF_DEFINED 0x040 /* symbol has been defined, not only
|
|
||||||
* referenced */
|
|
||||||
#define SYMF_MACRO 0x080 /* symbol is a macro */
|
|
||||||
#define SYMF_STRING 0x100 /* symbol is a stringsymbol */
|
|
||||||
#define SYMF_CONST 0x200 /* symbol has a constant value, will
|
|
||||||
* not be changed during linking */
|
|
||||||
|
|
||||||
ULONG calchash(char *s);
|
/* Symbol will be relocated during linking, it's absolute value is unknown */
|
||||||
void sym_SetExportAll(BBOOL set);
|
#define SYMF_RELOC 0x001
|
||||||
|
/* Symbol is defined using EQU, will not be changed during linking */
|
||||||
|
#define SYMF_EQU 0x002
|
||||||
|
/* Symbol is (re)defined using SET, will not be changed during linking */
|
||||||
|
#define SYMF_SET 0x004
|
||||||
|
/* Symbol should be exported */
|
||||||
|
#define SYMF_EXPORT 0x008
|
||||||
|
/* Symbol is imported, it's value is unknown */
|
||||||
|
#define SYMF_IMPORT 0x010
|
||||||
|
/* Symbol is a local symbol */
|
||||||
|
#define SYMF_LOCAL 0x020
|
||||||
|
/* Symbol has been defined, not only referenced */
|
||||||
|
#define SYMF_DEFINED 0x040
|
||||||
|
/* Symbol is a macro */
|
||||||
|
#define SYMF_MACRO 0x080
|
||||||
|
/* Symbol is a stringsymbol */
|
||||||
|
#define SYMF_STRING 0x100
|
||||||
|
/* Symbol has a constant value, will not be changed during linking */
|
||||||
|
#define SYMF_CONST 0x200
|
||||||
|
|
||||||
|
uint32_t calchash(char *s);
|
||||||
|
void sym_SetExportAll(uint8_t set);
|
||||||
void sym_PrepPass1(void);
|
void sym_PrepPass1(void);
|
||||||
void sym_PrepPass2(void);
|
void sym_PrepPass2(void);
|
||||||
void sym_AddLocalReloc(char *tzSym);
|
void sym_AddLocalReloc(char *tzSym);
|
||||||
@@ -52,26 +58,30 @@ void sym_SaveCurrentMacroArgs(char *save[]);
|
|||||||
void sym_RestoreCurrentMacroArgs(char *save[]);
|
void sym_RestoreCurrentMacroArgs(char *save[]);
|
||||||
void sym_UseNewMacroArgs(void);
|
void sym_UseNewMacroArgs(void);
|
||||||
void sym_FreeCurrentMacroArgs(void);
|
void sym_FreeCurrentMacroArgs(void);
|
||||||
void sym_AddEqu(char *tzSym, SLONG value);
|
void sym_AddEqu(char *tzSym, int32_t value);
|
||||||
void sym_AddSet(char *tzSym, SLONG value);
|
void sym_AddSet(char *tzSym, int32_t value);
|
||||||
void sym_Init(void);
|
void sym_Init(void);
|
||||||
ULONG sym_GetConstantValue(char *s);
|
uint32_t sym_GetConstantValue(char *s);
|
||||||
ULONG sym_isConstant(char *s);
|
uint32_t sym_isConstant(char *s);
|
||||||
struct sSymbol *sym_FindSymbol(char *tzName);
|
struct sSymbol *sym_FindSymbol(char *tzName);
|
||||||
void sym_Global(char *tzSym);
|
void sym_Global(char *tzSym);
|
||||||
char *sym_FindMacroArg(SLONG i);
|
char *sym_FindMacroArg(int32_t i);
|
||||||
char *sym_GetStringValue(char *tzSym);
|
char *sym_GetStringValue(char *tzSym);
|
||||||
void sym_UseCurrentMacroArgs(void);
|
void sym_UseCurrentMacroArgs(void);
|
||||||
void sym_SetMacroArgID(ULONG nMacroCount);
|
void sym_SetMacroArgID(uint32_t nMacroCount);
|
||||||
ULONG sym_isString(char *tzSym);
|
uint32_t sym_isString(char *tzSym);
|
||||||
void sym_AddMacro(char *tzSym);
|
void sym_AddMacro(char *tzSym);
|
||||||
void sym_ShiftCurrentMacroArgs(void);
|
void sym_ShiftCurrentMacroArgs(void);
|
||||||
void sym_AddString(char *tzSym, char *tzValue);
|
void sym_AddString(char *tzSym, char *tzValue);
|
||||||
ULONG sym_GetValue(char *s);
|
uint32_t sym_GetValue(char *s);
|
||||||
ULONG sym_GetDefinedValue(char *s);
|
uint32_t sym_GetDefinedValue(char *s);
|
||||||
ULONG sym_isDefined(char *tzName);
|
uint32_t sym_isDefined(char *tzName);
|
||||||
void sym_Purge(char *tzName);
|
void sym_Purge(char *tzName);
|
||||||
ULONG sym_isConstDefined(char *tzName);
|
uint32_t sym_isConstDefined(char *tzName);
|
||||||
int sym_IsRelocDiffDefined(char *tzSym1, char *tzSym2);
|
int32_t sym_IsRelocDiffDefined(char *tzSym1, char *tzSym2);
|
||||||
|
|
||||||
#endif
|
/* Functions to save and restore the current symbol scope. */
|
||||||
|
struct sSymbol *sym_GetCurrentSymbolScope(void);
|
||||||
|
void sym_SetCurrentSymbolScope(struct sSymbol *pNewScope);
|
||||||
|
|
||||||
|
#endif /* RGBDS_SYMBOL_H */
|
||||||
|
|||||||
@@ -1,6 +1,36 @@
|
|||||||
#ifndef RGBDS_COMMON_H
|
#ifndef RGBDS_COMMON_H
|
||||||
#define RGBDS_COMMON_H
|
#define RGBDS_COMMON_H
|
||||||
|
|
||||||
#define RGBDS_OBJECT_VERSION_STRING "RGB5"
|
#define RGBDS_OBJECT_VERSION_STRING "RGB6"
|
||||||
|
|
||||||
|
enum eBankCount {
|
||||||
|
BANK_COUNT_ROM0 = 1,
|
||||||
|
BANK_COUNT_ROMX = 511,
|
||||||
|
BANK_COUNT_WRAM0 = 1,
|
||||||
|
BANK_COUNT_WRAMX = 7,
|
||||||
|
BANK_COUNT_VRAM = 2,
|
||||||
|
BANK_COUNT_OAM = 1,
|
||||||
|
BANK_COUNT_HRAM = 1,
|
||||||
|
BANK_COUNT_SRAM = 16
|
||||||
|
};
|
||||||
|
|
||||||
|
enum eBankGBCount {
|
||||||
|
BANK_MIN_ROM0 = 0,
|
||||||
|
BANK_MAX_ROM0 = BANK_COUNT_ROM0 + BANK_MIN_ROM0 - 1,
|
||||||
|
BANK_MIN_ROMX = 1,
|
||||||
|
BANK_MAX_ROMX = BANK_COUNT_ROMX + BANK_MIN_ROMX - 1,
|
||||||
|
BANK_MIN_WRAM0 = 0,
|
||||||
|
BANK_MAX_WRAM0 = BANK_COUNT_WRAM0 + BANK_MIN_WRAM0 - 1,
|
||||||
|
BANK_MIN_WRAMX = 1,
|
||||||
|
BANK_MAX_WRAMX = BANK_COUNT_WRAMX + BANK_MIN_WRAMX - 1,
|
||||||
|
BANK_MIN_VRAM = 0,
|
||||||
|
BANK_MAX_VRAM = BANK_COUNT_VRAM + BANK_MIN_VRAM - 1,
|
||||||
|
BANK_MIN_OAM = 0,
|
||||||
|
BANK_MAX_OAM = BANK_COUNT_OAM + BANK_MIN_OAM - 1,
|
||||||
|
BANK_MIN_HRAM = 0,
|
||||||
|
BANK_MAX_HRAM = BANK_COUNT_HRAM + BANK_MIN_HRAM - 1,
|
||||||
|
BANK_MIN_SRAM = 0,
|
||||||
|
BANK_MAX_SRAM = BANK_COUNT_SRAM + BANK_MIN_SRAM - 1
|
||||||
|
};
|
||||||
|
|
||||||
#endif /* RGBDS_COMMON_H */
|
#endif /* RGBDS_COMMON_H */
|
||||||
|
|||||||
25
include/extern/err.h
vendored
25
include/extern/err.h
vendored
@@ -2,10 +2,13 @@
|
|||||||
#define EXTERN_ERR_H
|
#define EXTERN_ERR_H
|
||||||
|
|
||||||
#ifdef ERR_IN_LIBC
|
#ifdef ERR_IN_LIBC
|
||||||
|
|
||||||
#include <err.h>
|
#include <err.h>
|
||||||
#else
|
|
||||||
|
#else /* ERR_IN_LIBC */
|
||||||
|
|
||||||
#include <stdarg.h>
|
#include <stdarg.h>
|
||||||
|
|
||||||
#include "extern/stdnoreturn.h"
|
#include "extern/stdnoreturn.h"
|
||||||
|
|
||||||
#define warn rgbds_warn
|
#define warn rgbds_warn
|
||||||
@@ -18,16 +21,16 @@
|
|||||||
#define errx rgbds_errx
|
#define errx rgbds_errx
|
||||||
#define verrx rgbds_verrx
|
#define verrx rgbds_verrx
|
||||||
|
|
||||||
void warn(const char *, ...);
|
void warn(const char *fmt, ...);
|
||||||
void vwarn(const char *, va_list);
|
void vwarn(const char *fmt, va_list ap);
|
||||||
void warnx(const char *, ...);
|
void warnx(const char *fmt, ...);
|
||||||
void vwarnx(const char *, va_list);
|
void vwarnx(const char *fmt, va_list ap);
|
||||||
|
|
||||||
noreturn void err(int, const char *, ...);
|
noreturn void err(int status, const char *fmt, ...);
|
||||||
noreturn void verr(int, const char *, va_list);
|
noreturn void verr(int status, const char *fmt, va_list ap);
|
||||||
noreturn void errx(int, const char *, ...);
|
noreturn void errx(int status, const char *fmt, ...);
|
||||||
noreturn void verrx(int, const char *, va_list);
|
noreturn void verrx(int status, const char *fmt, va_list ap);
|
||||||
|
|
||||||
#endif
|
#endif /* ERR_IN_LIBC */
|
||||||
|
|
||||||
#endif
|
#endif /* EXTERN_ERR_H */
|
||||||
|
|||||||
9
include/extern/reallocarray.h
vendored
9
include/extern/reallocarray.h
vendored
@@ -2,13 +2,14 @@
|
|||||||
#define EXTERN_REALLOCARRAY_H
|
#define EXTERN_REALLOCARRAY_H
|
||||||
|
|
||||||
#ifdef REALLOCARRAY_IN_LIBC
|
#ifdef REALLOCARRAY_IN_LIBC
|
||||||
|
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#else
|
|
||||||
|
#else /* REALLOCARRAY_IN_LIBC */
|
||||||
|
|
||||||
#define reallocarray rgbds_reallocarray
|
#define reallocarray rgbds_reallocarray
|
||||||
|
|
||||||
void *reallocarray(void *, size_t, size_t);
|
void *reallocarray(void *, size_t, size_t);
|
||||||
|
|
||||||
#endif
|
#endif /* REALLOCARRAY_IN_LIBC */
|
||||||
|
|
||||||
#endif
|
#endif /* EXTERN_REALLOCARRAY_H */
|
||||||
|
|||||||
9
include/extern/stdnoreturn.h
vendored
9
include/extern/stdnoreturn.h
vendored
@@ -1,3 +1,6 @@
|
|||||||
|
#ifndef EXTERN_STDNORETURN_H
|
||||||
|
#define EXTERN_STDNORETURN_H
|
||||||
|
|
||||||
#if __STDC_VERSION__ >= 201112L
|
#if __STDC_VERSION__ >= 201112L
|
||||||
/* C11 or newer */
|
/* C11 or newer */
|
||||||
#define noreturn _Noreturn
|
#define noreturn _Noreturn
|
||||||
@@ -9,8 +12,10 @@
|
|||||||
#define noreturn __attribute__ ((noreturn))
|
#define noreturn __attribute__ ((noreturn))
|
||||||
#elif _MSC_VER >= 1310
|
#elif _MSC_VER >= 1310
|
||||||
/* MS Visual Studio 2003/.NET Framework 1.1 or newer */
|
/* MS Visual Studio 2003/.NET Framework 1.1 or newer */
|
||||||
#define noreturn _declspec( noreturn)
|
#define noreturn _declspec(noreturn)
|
||||||
#else
|
#else
|
||||||
/* unsupported, but no need to throw a fit */
|
/* Unsupported, but no need to throw a fit */
|
||||||
#define noreturn
|
#define noreturn
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
#endif /* EXTERN_STDNORETURN_H */
|
||||||
|
|||||||
18
include/extern/strl.h
vendored
18
include/extern/strl.h
vendored
@@ -1,13 +1,17 @@
|
|||||||
#ifndef STRL_H
|
#ifndef EXTERN_STRL_H
|
||||||
#define STRL_H
|
#define EXTERN_STRL_H
|
||||||
|
|
||||||
#ifdef STRL_IN_LIBC
|
#ifdef STRL_IN_LIBC
|
||||||
|
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
#else
|
|
||||||
|
#else /* STRL_IN_LIBC */
|
||||||
|
|
||||||
#define strlcpy rgbds_strlcpy
|
#define strlcpy rgbds_strlcpy
|
||||||
#define strlcat rgbds_strlcat
|
#define strlcat rgbds_strlcat
|
||||||
size_t strlcpy(char *, const char *, size_t);
|
size_t strlcpy(char *dst, const char *src, size_t dsize);
|
||||||
size_t strlcat(char *, const char *, size_t);
|
size_t strlcat(char *dst, const char *src, size_t dsize);
|
||||||
#endif
|
|
||||||
|
|
||||||
#endif
|
#endif /* STRL_IN_LIBC */
|
||||||
|
|
||||||
|
#endif /* EXTERN_STRL_H */
|
||||||
|
|||||||
9
include/extern/version.h
vendored
9
include/extern/version.h
vendored
@@ -14,8 +14,13 @@
|
|||||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
#ifndef EXTERN_VERSION_H
|
||||||
|
#define EXTERN_VERSION_H
|
||||||
|
|
||||||
#define PACKAGE_VERSION_MAJOR (0)
|
#define PACKAGE_VERSION_MAJOR (0)
|
||||||
#define PACKAGE_VERSION_MINOR (3)
|
#define PACKAGE_VERSION_MINOR (3)
|
||||||
#define PACKAGE_VERSION_PATCH (2)
|
#define PACKAGE_VERSION_PATCH (4)
|
||||||
|
|
||||||
const char * get_package_version_string(void);
|
const char *get_package_version_string(void);
|
||||||
|
|
||||||
|
#endif /* EXTERN_VERSION_H */
|
||||||
|
|||||||
@@ -20,11 +20,14 @@
|
|||||||
#include <stdint.h>
|
#include <stdint.h>
|
||||||
#include "gfx/main.h"
|
#include "gfx/main.h"
|
||||||
|
|
||||||
void png_to_gb(struct PNGImage png, struct GBImage *gb);
|
void png_to_gb(const struct PNGImage png, struct GBImage *gb);
|
||||||
void output_file(struct Options opts, struct GBImage gb);
|
void output_file(const struct Options opts, const struct GBImage gb);
|
||||||
int get_tile_index(uint8_t *tile, uint8_t **tiles, int num_tiles, int tile_size);
|
int get_tile_index(uint8_t *tile, uint8_t **tiles, int num_tiles,
|
||||||
void create_tilemap(struct Options opts, struct GBImage *gb, struct Tilemap *tilemap);
|
int tile_size);
|
||||||
void output_tilemap_file(struct Options opts, struct Tilemap tilemap);
|
void create_tilemap(const struct Options opts, struct GBImage *gb,
|
||||||
void output_palette_file(struct Options opts, struct PNGImage png);
|
struct Tilemap *tilemap);
|
||||||
|
void output_tilemap_file(const struct Options opts,
|
||||||
|
const struct Tilemap tilemap);
|
||||||
|
void output_palette_file(const struct Options opts, const struct PNGImage png);
|
||||||
|
|
||||||
#endif
|
#endif
|
||||||
|
|||||||
@@ -72,4 +72,4 @@ int depth, colors;
|
|||||||
#include "gfx/makepng.h"
|
#include "gfx/makepng.h"
|
||||||
#include "gfx/gb.h"
|
#include "gfx/gb.h"
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_GFX_MAIN_H */
|
||||||
|
|||||||
@@ -19,10 +19,10 @@
|
|||||||
|
|
||||||
#include "gfx/main.h"
|
#include "gfx/main.h"
|
||||||
|
|
||||||
void input_png_file(struct Options opts, struct PNGImage *img);
|
void input_png_file(const struct Options opts, struct PNGImage *img);
|
||||||
void get_text(struct PNGImage *png);
|
void get_text(struct PNGImage *png);
|
||||||
void set_text(struct PNGImage *png);
|
void set_text(const struct PNGImage *png);
|
||||||
void output_png_file(struct Options opts, struct PNGImage *png);
|
void output_png_file(const struct Options opts, const struct PNGImage *png);
|
||||||
void free_png_data(struct PNGImage *png);
|
void free_png_data(const struct PNGImage *png);
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_GFX_PNG_H */
|
||||||
|
|||||||
@@ -1,50 +1,45 @@
|
|||||||
#ifndef RGBDS_LINK_ASSIGN_H
|
#ifndef RGBDS_LINK_ASSIGN_H
|
||||||
#define RGBDS_LINK_ASSIGN_H
|
#define RGBDS_LINK_ASSIGN_H
|
||||||
|
|
||||||
|
#include <stdint.h>
|
||||||
|
|
||||||
|
#include "common.h"
|
||||||
#include "mylink.h"
|
#include "mylink.h"
|
||||||
#include "types.h"
|
|
||||||
|
|
||||||
enum eBankCount {
|
|
||||||
BANK_COUNT_ROM0 = 1,
|
|
||||||
BANK_COUNT_ROMX = 511,
|
|
||||||
BANK_COUNT_WRAM0 = 1,
|
|
||||||
BANK_COUNT_WRAMX = 7,
|
|
||||||
BANK_COUNT_VRAM = 2,
|
|
||||||
BANK_COUNT_OAM = 1,
|
|
||||||
BANK_COUNT_HRAM = 1,
|
|
||||||
BANK_COUNT_SRAM = 16
|
|
||||||
};
|
|
||||||
|
|
||||||
|
/* Bank numbers as seen by the linker */
|
||||||
enum eBankDefine {
|
enum eBankDefine {
|
||||||
BANK_ROM0 = 0,
|
BANK_INDEX_ROM0 = 0,
|
||||||
BANK_ROMX = BANK_ROM0 + BANK_COUNT_ROM0,
|
BANK_INDEX_ROMX = BANK_INDEX_ROM0 + BANK_COUNT_ROM0,
|
||||||
BANK_WRAM0 = BANK_ROMX + BANK_COUNT_ROMX,
|
BANK_INDEX_WRAM0 = BANK_INDEX_ROMX + BANK_COUNT_ROMX,
|
||||||
BANK_WRAMX = BANK_WRAM0 + BANK_COUNT_WRAM0,
|
BANK_INDEX_WRAMX = BANK_INDEX_WRAM0 + BANK_COUNT_WRAM0,
|
||||||
BANK_VRAM = BANK_WRAMX + BANK_COUNT_WRAMX,
|
BANK_INDEX_VRAM = BANK_INDEX_WRAMX + BANK_COUNT_WRAMX,
|
||||||
BANK_OAM = BANK_VRAM + BANK_COUNT_VRAM,
|
BANK_INDEX_OAM = BANK_INDEX_VRAM + BANK_COUNT_VRAM,
|
||||||
BANK_HRAM = BANK_OAM + BANK_COUNT_OAM,
|
BANK_INDEX_HRAM = BANK_INDEX_OAM + BANK_COUNT_OAM,
|
||||||
BANK_SRAM = BANK_HRAM + BANK_COUNT_HRAM
|
BANK_INDEX_SRAM = BANK_INDEX_HRAM + BANK_COUNT_HRAM,
|
||||||
|
BANK_INDEX_MAX = BANK_INDEX_SRAM + BANK_COUNT_SRAM
|
||||||
};
|
};
|
||||||
|
|
||||||
#define MAXBANKS (BANK_COUNT_ROM0 + BANK_COUNT_ROMX + BANK_COUNT_WRAM0 + BANK_COUNT_WRAMX \
|
extern int32_t MaxBankUsed;
|
||||||
+ BANK_COUNT_VRAM + BANK_COUNT_OAM + BANK_COUNT_HRAM + BANK_COUNT_SRAM)
|
extern int32_t MaxAvail[BANK_INDEX_MAX];
|
||||||
|
|
||||||
extern SLONG area_Avail(SLONG bank);
|
int32_t area_Avail(int32_t bank);
|
||||||
extern void AssignSections(void);
|
void AssignSections(void);
|
||||||
extern void CreateSymbolTable(void);
|
void CreateSymbolTable(void);
|
||||||
extern SLONG MaxBankUsed;
|
struct sSection *GetSectionByName(const char *name);
|
||||||
extern SLONG MaxAvail[MAXBANKS];
|
int32_t IsSectionNameInUse(const char *name);
|
||||||
|
void SetLinkerscriptName(char *tzLinkerscriptFile);
|
||||||
|
int32_t IsSectionSameTypeBankAndFloating(const char *name,
|
||||||
|
enum eSectionType type, int32_t bank);
|
||||||
|
uint32_t AssignSectionAddressAndBankByName(const char *name, uint32_t address,
|
||||||
|
int32_t bank);
|
||||||
|
|
||||||
int
|
int BankIndexIsROM0(int32_t bank);
|
||||||
IsSectionNameInUse(const char *name);
|
int BankIndexIsROMX(int32_t bank);
|
||||||
|
int BankIndexIsWRAM0(int32_t bank);
|
||||||
|
int BankIndexIsWRAMX(int32_t bank);
|
||||||
|
int BankIndexIsVRAM(int32_t bank);
|
||||||
|
int BankIndexIsOAM(int32_t bank);
|
||||||
|
int BankIndexIsHRAM(int32_t bank);
|
||||||
|
int BankIndexIsSRAM(int32_t bank);
|
||||||
|
|
||||||
void
|
#endif /* RGBDS_LINK_ASSIGN_H */
|
||||||
SetLinkerscriptName(char *tzLinkerscriptFile);
|
|
||||||
|
|
||||||
int
|
|
||||||
IsSectionSameTypeBankAndFloating(const char *name, enum eSectionType type, int bank);
|
|
||||||
|
|
||||||
unsigned int
|
|
||||||
AssignSectionAddressAndBankByName(const char *name, unsigned int address, int bank);
|
|
||||||
|
|
||||||
#endif
|
|
||||||
|
|||||||
@@ -1,6 +1,6 @@
|
|||||||
#ifndef RGBDS_LINK_LIBRARY_H
|
#ifndef RGBDS_LINK_LIBRARY_H
|
||||||
#define RGBDS_LINK_LIBRARY_H
|
#define RGBDS_LINK_LIBRARY_H
|
||||||
|
|
||||||
extern void AddNeededModules(void);
|
void AddNeededModules(void);
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_LINK_LIBRARY_H */
|
||||||
|
|||||||
@@ -1,9 +1,9 @@
|
|||||||
#ifndef RGBDS_LINK_MAIN_H
|
#ifndef RGBDS_LINK_MAIN_H
|
||||||
#define RGBDS_LINK_MAIN_H
|
#define RGBDS_LINK_MAIN_H
|
||||||
|
|
||||||
#include "types.h"
|
#include <stdint.h>
|
||||||
|
|
||||||
extern SLONG fillchar;
|
extern int32_t fillchar;
|
||||||
extern char *smartlinkstartsymbol;
|
extern char *smartlinkstartsymbol;
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_LINK_MAIN_H */
|
||||||
|
|||||||
@@ -1,11 +1,13 @@
|
|||||||
#ifndef RGBDS_LINK_MAPFILE_H
|
#ifndef RGBDS_LINK_MAPFILE_H
|
||||||
#define RGBDS_LINK_MAPFILE_H
|
#define RGBDS_LINK_MAPFILE_H
|
||||||
|
|
||||||
extern void SetMapfileName(char *name);
|
#include <stdint.h>
|
||||||
extern void SetSymfileName(char *name);
|
|
||||||
extern void CloseMapfile(void);
|
|
||||||
extern void MapfileWriteSection(struct sSection * pSect);
|
|
||||||
extern void MapfileInitBank(SLONG bank);
|
|
||||||
extern void MapfileCloseBank(SLONG slack);
|
|
||||||
|
|
||||||
#endif
|
void SetMapfileName(char *name);
|
||||||
|
void SetSymfileName(char *name);
|
||||||
|
void CloseMapfile(void);
|
||||||
|
void MapfileWriteSection(const struct sSection *pSect);
|
||||||
|
void MapfileInitBank(int32_t bank);
|
||||||
|
void MapfileCloseBank(int32_t slack);
|
||||||
|
|
||||||
|
#endif /* RGBDS_LINK_MAPFILE_H */
|
||||||
|
|||||||
@@ -1,117 +1,60 @@
|
|||||||
#ifndef RGBDS_LINK_LINK_H
|
#ifndef RGBDS_LINK_LINK_H
|
||||||
#define RGBDS_LINK_LINK_H
|
#define RGBDS_LINK_LINK_H
|
||||||
|
|
||||||
#ifndef _MAX_PATH
|
#include <stdint.h>
|
||||||
#define _MAX_PATH 512
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#include "types.h"
|
#include "linkdefs.h"
|
||||||
|
|
||||||
|
extern int32_t options;
|
||||||
|
|
||||||
extern SLONG options;
|
|
||||||
#define OPT_TINY 0x01
|
#define OPT_TINY 0x01
|
||||||
#define OPT_SMART_C_LINK 0x02
|
#define OPT_SMART_C_LINK 0x02
|
||||||
#define OPT_OVERLAY 0x04
|
#define OPT_OVERLAY 0x04
|
||||||
#define OPT_CONTWRAM 0x08
|
#define OPT_CONTWRAM 0x08
|
||||||
#define OPT_DMG_MODE 0x10
|
#define OPT_DMG_MODE 0x10
|
||||||
|
|
||||||
enum eRpnData {
|
|
||||||
RPN_ADD = 0,
|
|
||||||
RPN_SUB,
|
|
||||||
RPN_MUL,
|
|
||||||
RPN_DIV,
|
|
||||||
RPN_MOD,
|
|
||||||
RPN_UNSUB,
|
|
||||||
|
|
||||||
RPN_OR,
|
|
||||||
RPN_AND,
|
|
||||||
RPN_XOR,
|
|
||||||
RPN_UNNOT,
|
|
||||||
|
|
||||||
RPN_LOGAND,
|
|
||||||
RPN_LOGOR,
|
|
||||||
RPN_LOGUNNOT,
|
|
||||||
|
|
||||||
RPN_LOGEQ,
|
|
||||||
RPN_LOGNE,
|
|
||||||
RPN_LOGGT,
|
|
||||||
RPN_LOGLT,
|
|
||||||
RPN_LOGGE,
|
|
||||||
RPN_LOGLE,
|
|
||||||
|
|
||||||
RPN_SHL,
|
|
||||||
RPN_SHR,
|
|
||||||
|
|
||||||
RPN_BANK,
|
|
||||||
|
|
||||||
RPN_HRAM,
|
|
||||||
|
|
||||||
RPN_CONST = 0x80,
|
|
||||||
RPN_SYM = 0x81
|
|
||||||
};
|
|
||||||
|
|
||||||
enum eSectionType {
|
|
||||||
SECT_WRAM0,
|
|
||||||
SECT_VRAM,
|
|
||||||
SECT_ROMX,
|
|
||||||
SECT_ROM0,
|
|
||||||
SECT_HRAM,
|
|
||||||
SECT_WRAMX,
|
|
||||||
SECT_SRAM,
|
|
||||||
SECT_OAM
|
|
||||||
};
|
|
||||||
|
|
||||||
struct sSection {
|
struct sSection {
|
||||||
SLONG nBank;
|
int32_t nBank;
|
||||||
SLONG nOrg;
|
int32_t nOrg;
|
||||||
SLONG nAlign;
|
int32_t nAlign;
|
||||||
BBOOL oAssigned;
|
uint8_t oAssigned;
|
||||||
|
|
||||||
char *pzName;
|
char *pzName;
|
||||||
SLONG nByteSize;
|
int32_t nByteSize;
|
||||||
enum eSectionType Type;
|
enum eSectionType Type;
|
||||||
UBYTE *pData;
|
uint8_t *pData;
|
||||||
SLONG nNumberOfSymbols;
|
int32_t nNumberOfSymbols;
|
||||||
struct sSymbol **tSymbols;
|
struct sSymbol **tSymbols;
|
||||||
struct sPatch *pPatches;
|
struct sPatch *pPatches;
|
||||||
struct sSection *pNext;
|
struct sSection *pNext;
|
||||||
};
|
};
|
||||||
|
|
||||||
enum eSymbolType {
|
|
||||||
SYM_LOCAL,
|
|
||||||
SYM_IMPORT,
|
|
||||||
SYM_EXPORT
|
|
||||||
};
|
|
||||||
|
|
||||||
struct sSymbol {
|
struct sSymbol {
|
||||||
char *pzName;
|
char *pzName;
|
||||||
enum eSymbolType Type;
|
enum eSymbolType Type;
|
||||||
/* the following 3 items only valid when Type!=SYM_IMPORT */
|
|
||||||
SLONG nSectionID; /* internal to object.c */
|
/* The following 3 items only valid when Type!=SYM_IMPORT */
|
||||||
|
int32_t nSectionID; /* Internal to object.c */
|
||||||
struct sSection *pSection;
|
struct sSection *pSection;
|
||||||
SLONG nOffset;
|
int32_t nOffset;
|
||||||
|
|
||||||
char *pzObjFileName; /* Object file where the symbol is located. */
|
char *pzObjFileName; /* Object file where the symbol is located. */
|
||||||
char *pzFileName; /* Source file where the symbol was defined. */
|
char *pzFileName; /* Source file where the symbol was defined. */
|
||||||
ULONG nFileLine; /* Line where the symbol was defined. */
|
uint32_t nFileLine; /* Line where the symbol was defined. */
|
||||||
};
|
|
||||||
|
|
||||||
enum ePatchType {
|
|
||||||
PATCH_BYTE = 0,
|
|
||||||
PATCH_WORD_L,
|
|
||||||
PATCH_LONG_L
|
|
||||||
};
|
};
|
||||||
|
|
||||||
struct sPatch {
|
struct sPatch {
|
||||||
char *pzFilename;
|
char *pzFilename;
|
||||||
SLONG nLineNo;
|
int32_t nLineNo;
|
||||||
SLONG nOffset;
|
int32_t nOffset;
|
||||||
enum ePatchType Type;
|
enum ePatchType Type;
|
||||||
SLONG nRPNSize;
|
int32_t nRPNSize;
|
||||||
UBYTE *pRPN;
|
uint8_t *pRPN;
|
||||||
struct sPatch *pNext;
|
struct sPatch *pNext;
|
||||||
BBOOL oRelocPatch;
|
uint8_t oRelocPatch;
|
||||||
};
|
};
|
||||||
|
|
||||||
extern struct sSection *pSections;
|
extern struct sSection *pSections;
|
||||||
extern struct sSection *pLibSections;
|
extern struct sSection *pLibSections;
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_LINK_LINK_H */
|
||||||
|
|||||||
@@ -1,6 +1,6 @@
|
|||||||
#ifndef RGBDS_LINK_OBJECT_H
|
#ifndef RGBDS_LINK_OBJECT_H
|
||||||
#define RGBDS_LINK_OBJECT_H
|
#define RGBDS_LINK_OBJECT_H
|
||||||
|
|
||||||
extern void obj_Readfile(char *tzObjectfile);
|
void obj_Readfile(char *tzObjectfile);
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_LINK_OBJECT_H */
|
||||||
|
|||||||
@@ -5,4 +5,4 @@ void out_Setname(char *tzOutputfile);
|
|||||||
void out_SetOverlayname(char *tzOverlayfile);
|
void out_SetOverlayname(char *tzOverlayfile);
|
||||||
void Output(void);
|
void Output(void);
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_LINK_OUTPUT_H */
|
||||||
|
|||||||
@@ -1,9 +1,9 @@
|
|||||||
#ifndef RGBDS_LINK_PATCH_H
|
#ifndef RGBDS_LINK_PATCH_H
|
||||||
#define RGBDS_LINK_PATCH_H
|
#define RGBDS_LINK_PATCH_H
|
||||||
|
|
||||||
#include "types.h"
|
#include <stdint.h>
|
||||||
|
|
||||||
void Patch(void);
|
void Patch(void);
|
||||||
extern SLONG nPC;
|
extern int32_t nPC;
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_LINK_PATCH_H */
|
||||||
|
|||||||
@@ -17,6 +17,8 @@
|
|||||||
#ifndef RGBDS_LINK_SCRIPT_H
|
#ifndef RGBDS_LINK_SCRIPT_H
|
||||||
#define RGBDS_LINK_SCRIPT_H
|
#define RGBDS_LINK_SCRIPT_H
|
||||||
|
|
||||||
|
#include <stdint.h>
|
||||||
|
|
||||||
#include "extern/stdnoreturn.h"
|
#include "extern/stdnoreturn.h"
|
||||||
|
|
||||||
noreturn void script_fatalerror(const char *fmt, ...);
|
noreturn void script_fatalerror(const char *fmt, ...);
|
||||||
@@ -24,14 +26,13 @@ noreturn void script_fatalerror(const char *fmt, ...);
|
|||||||
void script_Parse(const char *path);
|
void script_Parse(const char *path);
|
||||||
|
|
||||||
void script_IncludeFile(const char *path);
|
void script_IncludeFile(const char *path);
|
||||||
int script_IncludeDepthGet(void);
|
int32_t script_IncludeDepthGet(void);
|
||||||
void script_IncludePop(void);
|
void script_IncludePop(void);
|
||||||
|
|
||||||
void script_InitSections(void);
|
void script_InitSections(void);
|
||||||
void script_SetCurrentSectionType(const char *type, unsigned int bank);
|
void script_SetCurrentSectionType(const char *type, uint32_t bank);
|
||||||
void script_SetAddress(unsigned int addr);
|
void script_SetAddress(uint32_t addr);
|
||||||
void script_SetAlignment(unsigned int alignment);
|
void script_SetAlignment(uint32_t alignment);
|
||||||
void script_OutputSection(const char *section_name);
|
void script_OutputSection(const char *section_name);
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_LINK_SCRIPT_H */
|
||||||
|
|
||||||
|
|||||||
@@ -1,12 +1,13 @@
|
|||||||
#ifndef RGBDS_LINK_SYMBOL_H
|
#ifndef RGBDS_LINK_SYMBOL_H
|
||||||
#define RGBDS_LINK_SYMBOL_H
|
#define RGBDS_LINK_SYMBOL_H
|
||||||
|
|
||||||
#include "types.h"
|
#include <stdint.h>
|
||||||
|
|
||||||
void sym_Init(void);
|
void sym_Init(void);
|
||||||
void sym_CreateSymbol(char *tzName, SLONG nValue, SLONG nBank,
|
void sym_CreateSymbol(char *tzName, int32_t nValue, int32_t nBank,
|
||||||
char *tzObjFileName, char *tzFileName, ULONG nFileLine);
|
char *tzObjFileName, char *tzFileName,
|
||||||
SLONG sym_GetValue(char *tzName);
|
uint32_t nFileLine);
|
||||||
SLONG sym_GetBank(char *tzName);
|
int32_t sym_GetValue(char *tzName);
|
||||||
|
int32_t sym_GetBank(char *tzName);
|
||||||
|
|
||||||
#endif
|
#endif /* RGBDS_LINK_SYMBOL_H */
|
||||||
|
|||||||
64
include/linkdefs.h
Normal file
64
include/linkdefs.h
Normal file
@@ -0,0 +1,64 @@
|
|||||||
|
#ifndef RGBDS_LINKDEFS_H
|
||||||
|
#define RGBDS_LINKDEFS_H
|
||||||
|
|
||||||
|
enum eRpnData {
|
||||||
|
RPN_ADD = 0x00,
|
||||||
|
RPN_SUB = 0x01,
|
||||||
|
RPN_MUL = 0x02,
|
||||||
|
RPN_DIV = 0x03,
|
||||||
|
RPN_MOD = 0x04,
|
||||||
|
RPN_UNSUB = 0x05,
|
||||||
|
|
||||||
|
RPN_OR = 0x10,
|
||||||
|
RPN_AND = 0x11,
|
||||||
|
RPN_XOR = 0x12,
|
||||||
|
RPN_UNNOT = 0x13,
|
||||||
|
|
||||||
|
RPN_LOGAND = 0x21,
|
||||||
|
RPN_LOGOR = 0x22,
|
||||||
|
RPN_LOGUNNOT = 0x23,
|
||||||
|
|
||||||
|
RPN_LOGEQ = 0x30,
|
||||||
|
RPN_LOGNE = 0x31,
|
||||||
|
RPN_LOGGT = 0x32,
|
||||||
|
RPN_LOGLT = 0x33,
|
||||||
|
RPN_LOGGE = 0x34,
|
||||||
|
RPN_LOGLE = 0x35,
|
||||||
|
|
||||||
|
RPN_SHL = 0x40,
|
||||||
|
RPN_SHR = 0x41,
|
||||||
|
|
||||||
|
RPN_BANK_SYM = 0x50,
|
||||||
|
RPN_BANK_SECT = 0x51,
|
||||||
|
RPN_BANK_SELF = 0x52,
|
||||||
|
|
||||||
|
RPN_HRAM = 0x60,
|
||||||
|
|
||||||
|
RPN_CONST = 0x80,
|
||||||
|
RPN_SYM = 0x81
|
||||||
|
};
|
||||||
|
|
||||||
|
enum eSectionType {
|
||||||
|
SECT_WRAM0 = 0x00,
|
||||||
|
SECT_VRAM = 0x01,
|
||||||
|
SECT_ROMX = 0x02,
|
||||||
|
SECT_ROM0 = 0x03,
|
||||||
|
SECT_HRAM = 0x04,
|
||||||
|
SECT_WRAMX = 0x05,
|
||||||
|
SECT_SRAM = 0x06,
|
||||||
|
SECT_OAM = 0x07
|
||||||
|
};
|
||||||
|
|
||||||
|
enum eSymbolType {
|
||||||
|
SYM_LOCAL = 0x00,
|
||||||
|
SYM_IMPORT = 0x01,
|
||||||
|
SYM_EXPORT = 0x02
|
||||||
|
};
|
||||||
|
|
||||||
|
enum ePatchType {
|
||||||
|
PATCH_BYTE = 0x00,
|
||||||
|
PATCH_WORD_L = 0x01,
|
||||||
|
PATCH_LONG_L = 0x02
|
||||||
|
};
|
||||||
|
|
||||||
|
#endif /* RGBDS_LINKDEFS_H */
|
||||||
@@ -5,12 +5,4 @@
|
|||||||
#define _MAX_PATH 512
|
#define _MAX_PATH 512
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
typedef unsigned char UBYTE;
|
#endif /* RGBDS_TYPES_H */
|
||||||
typedef signed char SBYTE;
|
|
||||||
typedef unsigned short UWORD;
|
|
||||||
typedef signed short SWORD;
|
|
||||||
typedef unsigned long ULONG;
|
|
||||||
typedef signed long SLONG;
|
|
||||||
typedef signed char BBOOL;
|
|
||||||
|
|
||||||
#endif
|
|
||||||
|
|||||||
1572
src/asm/asmy.y
1572
src/asm/asmy.y
File diff suppressed because it is too large
Load Diff
@@ -24,31 +24,45 @@
|
|||||||
#include <stdint.h>
|
#include <stdint.h>
|
||||||
|
|
||||||
static const uint8_t utf8d[] = {
|
static const uint8_t utf8d[] = {
|
||||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 00..1f
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 00..0f */
|
||||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 20..3f
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 10..1f */
|
||||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 40..5f
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 20..2f */
|
||||||
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, // 60..7f
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 30..3f */
|
||||||
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, // 80..9f
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 40..4f */
|
||||||
7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, // a0..bf
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 50..5f */
|
||||||
8,8,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, // c0..df
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 60..6f */
|
||||||
0xa,0x3,0x3,0x3,0x3,0x3,0x3,0x3,0x3,0x3,0x3,0x3,0x3,0x4,0x3,0x3, // e0..ef
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 70..7f */
|
||||||
0xb,0x6,0x6,0x6,0x5,0x8,0x8,0x8,0x8,0x8,0x8,0x8,0x8,0x8,0x8,0x8, // f0..ff
|
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 80..8f */
|
||||||
0x0,0x1,0x2,0x3,0x5,0x8,0x7,0x1,0x1,0x1,0x4,0x6,0x1,0x1,0x1,0x1, // s0..s0
|
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, /* 90..9f */
|
||||||
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,0,1,0,1,1,1,1,1,1, // s1..s2
|
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, /* a0..af */
|
||||||
1,2,1,1,1,1,1,2,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1, // s3..s4
|
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, /* b0..bf */
|
||||||
1,2,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,3,1,3,1,1,1,1,1,1, // s5..s6
|
8, 8, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, /* c0..cf */
|
||||||
1,3,1,1,1,1,1,3,1,3,1,1,1,1,1,1,1,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1, // s7..s8
|
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, /* d0..df */
|
||||||
|
0xa, 0x3, 0x3, 0x3, 0x3, 0x3, 0x3, 0x3, /* e0..e7 */
|
||||||
|
0x3, 0x3, 0x3, 0x3, 0x3, 0x4, 0x3, 0x3, /* e8..ef */
|
||||||
|
0xb, 0x6, 0x6, 0x6, 0x5, 0x8, 0x8, 0x8, /* f0..f7 */
|
||||||
|
0x8, 0x8, 0x8, 0x8, 0x8, 0x8, 0x8, 0x8, /* f8..ff */
|
||||||
|
0x0, 0x1, 0x2, 0x3, 0x5, 0x8, 0x7, 0x1, /* s0.. */
|
||||||
|
0x1, 0x1, 0x4, 0x6, 0x1, 0x1, 0x1, 0x1, /* ..s0 */
|
||||||
|
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* s1 */
|
||||||
|
1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, /* s1 */
|
||||||
|
1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, /* s3 */
|
||||||
|
1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, /* s4 */
|
||||||
|
1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, /* s5 */
|
||||||
|
1, 1, 1, 1, 1, 1, 1, 3, 1, 3, 1, 1, 1, 1, 1, 1, /* s6 */
|
||||||
|
1, 3, 1, 1, 1, 1, 1, 3, 1, 3, 1, 1, 1, 1, 1, 1, /* s7 */
|
||||||
|
1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* s8 */
|
||||||
};
|
};
|
||||||
|
|
||||||
uint32_t
|
uint32_t decode(uint32_t *state, uint32_t *codep, uint32_t byte)
|
||||||
decode(uint32_t* state, uint32_t* codep, uint32_t byte) {
|
{
|
||||||
uint32_t type = utf8d[byte];
|
uint32_t type = utf8d[byte];
|
||||||
|
|
||||||
*codep = (*state != 0) ?
|
*codep = (*state != 0) ?
|
||||||
(byte & 0x3fu) | (*codep << 6) :
|
(byte & 0x3fu) | (*codep << 6) :
|
||||||
(0xff >> type) & (byte);
|
(0xff >> type) & (byte);
|
||||||
|
|
||||||
*state = utf8d[256 + *state*16 + type];
|
*state = utf8d[256 + *state * 16 + type];
|
||||||
return *state;
|
return *state;
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -79,19 +93,15 @@ decode(uint32_t* state, uint32_t* codep, uint32_t byte) {
|
|||||||
|
|
||||||
struct Charmap globalCharmap = {0};
|
struct Charmap globalCharmap = {0};
|
||||||
|
|
||||||
extern struct Section *pCurrentSection;
|
int32_t readUTF8Char(char *dest, char *src)
|
||||||
|
|
||||||
int
|
|
||||||
readUTF8Char(char *dest, char *src)
|
|
||||||
{
|
{
|
||||||
uint32_t state;
|
uint32_t state;
|
||||||
uint32_t codep;
|
uint32_t codep;
|
||||||
int i;
|
int32_t i;
|
||||||
|
|
||||||
for (i = 0, state = 0;; i++) {
|
for (i = 0, state = 0;; i++) {
|
||||||
if (decode(&state, &codep, (uint8_t)src[i]) == 1) {
|
if (decode(&state, &codep, (uint8_t)src[i]) == 1)
|
||||||
fatalerror("invalid UTF-8 character");
|
fatalerror("invalid UTF-8 character");
|
||||||
}
|
|
||||||
|
|
||||||
dest[i] = src[i];
|
dest[i] = src[i];
|
||||||
|
|
||||||
@@ -104,13 +114,12 @@ readUTF8Char(char *dest, char *src)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
int
|
int32_t charmap_Add(char *input, uint8_t output)
|
||||||
charmap_Add(char *input, UBYTE output)
|
|
||||||
{
|
{
|
||||||
int i;
|
int32_t i;
|
||||||
size_t input_length;
|
size_t input_length;
|
||||||
char temp1i[CHARMAPLENGTH + 1], temp2i[CHARMAPLENGTH + 1], temp1o = 0,
|
char temp1i[CHARMAPLENGTH + 1], temp2i[CHARMAPLENGTH + 1];
|
||||||
temp2o = 0;
|
char temp1o = 0, temp2o = 0;
|
||||||
|
|
||||||
struct Charmap *charmap;
|
struct Charmap *charmap;
|
||||||
|
|
||||||
@@ -118,23 +127,21 @@ charmap_Add(char *input, UBYTE output)
|
|||||||
if (pCurrentSection->charmap) {
|
if (pCurrentSection->charmap) {
|
||||||
charmap = pCurrentSection->charmap;
|
charmap = pCurrentSection->charmap;
|
||||||
} else {
|
} else {
|
||||||
if ((charmap = calloc(1, sizeof(struct Charmap))) ==
|
charmap = calloc(1, sizeof(struct Charmap));
|
||||||
NULL) {
|
if (charmap == NULL)
|
||||||
fatalerror("Not enough memory for charmap");
|
fatalerror("Not enough memory for charmap");
|
||||||
}
|
|
||||||
pCurrentSection->charmap = charmap;
|
pCurrentSection->charmap = charmap;
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
charmap = &globalCharmap;
|
charmap = &globalCharmap;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (nPass == 2) {
|
if (nPass == 2)
|
||||||
return charmap->count;
|
return charmap->count;
|
||||||
}
|
|
||||||
|
|
||||||
if (charmap->count > MAXCHARMAPS || strlen(input) > CHARMAPLENGTH) {
|
if (charmap->count > MAXCHARMAPS || strlen(input) > CHARMAPLENGTH)
|
||||||
return -1;
|
return -1;
|
||||||
}
|
|
||||||
|
|
||||||
input_length = strlen(input);
|
input_length = strlen(input);
|
||||||
if (input_length > 1) {
|
if (input_length > 1) {
|
||||||
@@ -170,24 +177,22 @@ charmap_Add(char *input, UBYTE output)
|
|||||||
return ++charmap->count;
|
return ++charmap->count;
|
||||||
}
|
}
|
||||||
|
|
||||||
int
|
int32_t charmap_Convert(char **input)
|
||||||
charmap_Convert(char **input)
|
|
||||||
{
|
{
|
||||||
struct Charmap *charmap;
|
struct Charmap *charmap;
|
||||||
|
|
||||||
char outchar[CHARMAPLENGTH + 1];
|
char outchar[CHARMAPLENGTH + 1];
|
||||||
char *buffer;
|
char *buffer;
|
||||||
int i, j, length;
|
int32_t i, j, length;
|
||||||
|
|
||||||
if (pCurrentSection && pCurrentSection->charmap) {
|
if (pCurrentSection && pCurrentSection->charmap)
|
||||||
charmap = pCurrentSection->charmap;
|
charmap = pCurrentSection->charmap;
|
||||||
} else {
|
else
|
||||||
charmap = &globalCharmap;
|
charmap = &globalCharmap;
|
||||||
}
|
|
||||||
|
|
||||||
if ((buffer = malloc(strlen(*input))) == NULL) {
|
buffer = malloc(strlen(*input));
|
||||||
|
if (buffer == NULL)
|
||||||
fatalerror("Not enough memory for buffer");
|
fatalerror("Not enough memory for buffer");
|
||||||
}
|
|
||||||
|
|
||||||
length = 0;
|
length = 0;
|
||||||
while (**input) {
|
while (**input) {
|
||||||
@@ -201,16 +206,16 @@ charmap_Convert(char **input)
|
|||||||
}
|
}
|
||||||
j = 0;
|
j = 0;
|
||||||
}
|
}
|
||||||
if (!j) {
|
|
||||||
|
if (!j)
|
||||||
j = readUTF8Char(outchar, *input);
|
j = readUTF8Char(outchar, *input);
|
||||||
}
|
|
||||||
if (!outchar[0]) {
|
if (!outchar[0]) {
|
||||||
buffer[length++] = 0;
|
buffer[length++] = 0;
|
||||||
} else {
|
} else {
|
||||||
for (i = 0; outchar[i]; i++) {
|
for (i = 0; outchar[i]; i++)
|
||||||
buffer[length++] = outchar[i];
|
buffer[length++] = outchar[i];
|
||||||
}
|
}
|
||||||
}
|
|
||||||
*input += j;
|
*input += j;
|
||||||
}
|
}
|
||||||
*input = buffer;
|
*input = buffer;
|
||||||
|
|||||||
223
src/asm/fstack.c
223
src/asm/fstack.c
@@ -4,40 +4,37 @@
|
|||||||
|
|
||||||
#include <errno.h>
|
#include <errno.h>
|
||||||
#include <limits.h>
|
#include <limits.h>
|
||||||
|
#include <stdint.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
||||||
#include "asm/symbol.h"
|
|
||||||
#include "asm/fstack.h"
|
#include "asm/fstack.h"
|
||||||
#include "types.h"
|
|
||||||
#include "asm/main.h"
|
|
||||||
#include "asm/lexer.h"
|
#include "asm/lexer.h"
|
||||||
|
#include "asm/main.h"
|
||||||
|
#include "asm/output.h"
|
||||||
|
#include "asm/symbol.h"
|
||||||
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
#include "extern/strl.h"
|
#include "extern/strl.h"
|
||||||
|
|
||||||
#ifndef PATH_MAX
|
#include "types.h"
|
||||||
#define PATH_MAX 256
|
|
||||||
#endif
|
|
||||||
|
|
||||||
struct sContext *pFileStack;
|
static struct sContext *pFileStack;
|
||||||
struct sSymbol *pCurrentMacro;
|
static struct sSymbol *pCurrentMacro;
|
||||||
YY_BUFFER_STATE CurrentFlexHandle;
|
static YY_BUFFER_STATE CurrentFlexHandle;
|
||||||
FILE *pCurrentFile;
|
static FILE *pCurrentFile;
|
||||||
ULONG nCurrentStatus;
|
static uint32_t nCurrentStatus;
|
||||||
char tzCurrentFileName[_MAX_PATH + 1];
|
char tzCurrentFileName[_MAX_PATH + 1];
|
||||||
char IncludePaths[MAXINCPATHS][_MAX_PATH + 1];
|
static char IncludePaths[MAXINCPATHS][_MAX_PATH + 1];
|
||||||
SLONG NextIncPath = 0;
|
static int32_t NextIncPath;
|
||||||
ULONG nMacroCount;
|
static uint32_t nMacroCount;
|
||||||
|
|
||||||
char *pCurrentREPTBlock;
|
static char *pCurrentREPTBlock;
|
||||||
ULONG nCurrentREPTBlockSize;
|
static uint32_t nCurrentREPTBlockSize;
|
||||||
ULONG nCurrentREPTBlockCount;
|
static uint32_t nCurrentREPTBlockCount;
|
||||||
|
|
||||||
ULONG ulMacroReturnValue;
|
uint32_t ulMacroReturnValue;
|
||||||
|
|
||||||
extern char *tzObjectname;
|
|
||||||
extern FILE *dependfile;
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* defines for nCurrentStatus
|
* defines for nCurrentStatus
|
||||||
@@ -50,8 +47,7 @@ extern FILE *dependfile;
|
|||||||
/*
|
/*
|
||||||
* Context push and pop
|
* Context push and pop
|
||||||
*/
|
*/
|
||||||
void
|
static void pushcontext(void)
|
||||||
pushcontext(void)
|
|
||||||
{
|
{
|
||||||
struct sContext **ppFileStack;
|
struct sContext **ppFileStack;
|
||||||
|
|
||||||
@@ -59,12 +55,16 @@ pushcontext(void)
|
|||||||
while (*ppFileStack)
|
while (*ppFileStack)
|
||||||
ppFileStack = &((*ppFileStack)->pNext);
|
ppFileStack = &((*ppFileStack)->pNext);
|
||||||
|
|
||||||
if ((*ppFileStack = malloc(sizeof(struct sContext))) != NULL) {
|
*ppFileStack = malloc(sizeof(struct sContext));
|
||||||
|
|
||||||
|
if (*ppFileStack == NULL)
|
||||||
|
fatalerror("No memory for context");
|
||||||
|
|
||||||
(*ppFileStack)->FlexHandle = CurrentFlexHandle;
|
(*ppFileStack)->FlexHandle = CurrentFlexHandle;
|
||||||
(*ppFileStack)->pNext = NULL;
|
(*ppFileStack)->pNext = NULL;
|
||||||
strcpy((char *) (*ppFileStack)->tzFileName,
|
strcpy((char *)(*ppFileStack)->tzFileName, (char *)tzCurrentFileName);
|
||||||
(char *) tzCurrentFileName);
|
|
||||||
(*ppFileStack)->nLine = nLineNo;
|
(*ppFileStack)->nLine = nLineNo;
|
||||||
|
|
||||||
switch ((*ppFileStack)->nStatus = nCurrentStatus) {
|
switch ((*ppFileStack)->nStatus = nCurrentStatus) {
|
||||||
case STAT_isMacroArg:
|
case STAT_isMacroArg:
|
||||||
case STAT_isMacro:
|
case STAT_isMacro:
|
||||||
@@ -78,17 +78,14 @@ pushcontext(void)
|
|||||||
sym_SaveCurrentMacroArgs((*ppFileStack)->tzMacroArgs);
|
sym_SaveCurrentMacroArgs((*ppFileStack)->tzMacroArgs);
|
||||||
(*ppFileStack)->pREPTBlock = pCurrentREPTBlock;
|
(*ppFileStack)->pREPTBlock = pCurrentREPTBlock;
|
||||||
(*ppFileStack)->nREPTBlockSize = nCurrentREPTBlockSize;
|
(*ppFileStack)->nREPTBlockSize = nCurrentREPTBlockSize;
|
||||||
(*ppFileStack)->nREPTBlockCount =
|
(*ppFileStack)->nREPTBlockCount = nCurrentREPTBlockCount;
|
||||||
nCurrentREPTBlockCount;
|
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
|
||||||
nLineNo = 0;
|
nLineNo = 0;
|
||||||
} else
|
|
||||||
fatalerror("No memory for context");
|
|
||||||
}
|
}
|
||||||
|
|
||||||
int
|
static int32_t popcontext(void)
|
||||||
popcontext(void)
|
|
||||||
{
|
{
|
||||||
struct sContext *pLastFile, **ppLastFile;
|
struct sContext *pLastFile, **ppLastFile;
|
||||||
|
|
||||||
@@ -102,10 +99,14 @@ popcontext(void)
|
|||||||
sym_UseCurrentMacroArgs();
|
sym_UseCurrentMacroArgs();
|
||||||
sym_SetMacroArgID(nMacroCount++);
|
sym_SetMacroArgID(nMacroCount++);
|
||||||
sym_UseNewMacroArgs();
|
sym_UseNewMacroArgs();
|
||||||
return (0);
|
return 0;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if ((pLastFile = pFileStack) != NULL) {
|
|
||||||
|
pLastFile = pFileStack;
|
||||||
|
if (pLastFile == NULL)
|
||||||
|
return 1;
|
||||||
|
|
||||||
ppLastFile = &pFileStack;
|
ppLastFile = &pFileStack;
|
||||||
while (pLastFile->pNext) {
|
while (pLastFile->pNext) {
|
||||||
ppLastFile = &(pLastFile->pNext);
|
ppLastFile = &(pLastFile->pNext);
|
||||||
@@ -114,18 +115,21 @@ popcontext(void)
|
|||||||
|
|
||||||
yy_delete_buffer(CurrentFlexHandle);
|
yy_delete_buffer(CurrentFlexHandle);
|
||||||
nLineNo = pLastFile->nLine;
|
nLineNo = pLastFile->nLine;
|
||||||
|
|
||||||
if (nCurrentStatus == STAT_isInclude)
|
if (nCurrentStatus == STAT_isInclude)
|
||||||
fclose(pCurrentFile);
|
fclose(pCurrentFile);
|
||||||
|
|
||||||
if (nCurrentStatus == STAT_isMacro) {
|
if (nCurrentStatus == STAT_isMacro) {
|
||||||
sym_FreeCurrentMacroArgs();
|
sym_FreeCurrentMacroArgs();
|
||||||
nLineNo += 1;
|
nLineNo += 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (nCurrentStatus == STAT_isREPTBlock)
|
if (nCurrentStatus == STAT_isREPTBlock)
|
||||||
nLineNo += 1;
|
nLineNo += 1;
|
||||||
|
|
||||||
CurrentFlexHandle = pLastFile->FlexHandle;
|
CurrentFlexHandle = pLastFile->FlexHandle;
|
||||||
strcpy((char *) tzCurrentFileName,
|
strcpy((char *)tzCurrentFileName, (char *)pLastFile->tzFileName);
|
||||||
(char *) pLastFile->tzFileName);
|
|
||||||
switch (nCurrentStatus = pLastFile->nStatus) {
|
switch (nCurrentStatus = pLastFile->nStatus) {
|
||||||
case STAT_isMacroArg:
|
case STAT_isMacroArg:
|
||||||
case STAT_isMacro:
|
case STAT_isMacro:
|
||||||
@@ -146,13 +150,10 @@ popcontext(void)
|
|||||||
free(*ppLastFile);
|
free(*ppLastFile);
|
||||||
*ppLastFile = NULL;
|
*ppLastFile = NULL;
|
||||||
yy_switch_to_buffer(CurrentFlexHandle);
|
yy_switch_to_buffer(CurrentFlexHandle);
|
||||||
return (0);
|
return 0;
|
||||||
} else
|
|
||||||
return (1);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
int
|
int32_t fstk_GetLine(void)
|
||||||
fstk_GetLine(void)
|
|
||||||
{
|
{
|
||||||
struct sContext *pLastFile, **ppLastFile;
|
struct sContext *pLastFile, **ppLastFile;
|
||||||
|
|
||||||
@@ -168,7 +169,9 @@ fstk_GetLine(void)
|
|||||||
break; /* Peek top file of the stack */
|
break; /* Peek top file of the stack */
|
||||||
}
|
}
|
||||||
|
|
||||||
if ((pLastFile = pFileStack) != NULL) {
|
pLastFile = pFileStack;
|
||||||
|
|
||||||
|
if (pLastFile != NULL) {
|
||||||
ppLastFile = &pFileStack;
|
ppLastFile = &pFileStack;
|
||||||
while (pLastFile->pNext) {
|
while (pLastFile->pNext) {
|
||||||
ppLastFile = &(pLastFile->pNext);
|
ppLastFile = &(pLastFile->pNext);
|
||||||
@@ -177,79 +180,77 @@ fstk_GetLine(void)
|
|||||||
return pLastFile->nLine;
|
return pLastFile->nLine;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* This is only reached if the lexer is in REPT or MACRO mode but there
|
/*
|
||||||
* are no saved contexts with the origin of said REPT or MACRO. */
|
* This is only reached if the lexer is in REPT or MACRO mode but there
|
||||||
fatalerror("fstk_GetLine: Internal error.");
|
* are no saved contexts with the origin of said REPT or MACRO.
|
||||||
|
*/
|
||||||
|
fatalerror("%s: Internal error.", __func__);
|
||||||
}
|
}
|
||||||
|
|
||||||
int
|
int yywrap(void)
|
||||||
yywrap(void)
|
|
||||||
{
|
{
|
||||||
return (popcontext());
|
return popcontext();
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Dump the context stack to stderr
|
* Dump the context stack to stderr
|
||||||
*/
|
*/
|
||||||
void
|
void fstk_Dump(void)
|
||||||
fstk_Dump(void)
|
|
||||||
{
|
{
|
||||||
struct sContext *pLastFile;
|
const struct sContext *pLastFile;
|
||||||
|
|
||||||
pLastFile = pFileStack;
|
pLastFile = pFileStack;
|
||||||
|
|
||||||
while (pLastFile) {
|
while (pLastFile) {
|
||||||
fprintf(stderr, "%s(%ld) -> ", pLastFile->tzFileName,
|
fprintf(stderr, "%s(%d) -> ", pLastFile->tzFileName,
|
||||||
pLastFile->nLine);
|
pLastFile->nLine);
|
||||||
pLastFile = pLastFile->pNext;
|
pLastFile = pLastFile->pNext;
|
||||||
}
|
}
|
||||||
|
|
||||||
fprintf(stderr, "%s(%ld)", tzCurrentFileName, nLineNo);
|
fprintf(stderr, "%s(%d)", tzCurrentFileName, nLineNo);
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Extra includepath stuff
|
* Extra includepath stuff
|
||||||
*/
|
*/
|
||||||
void
|
void fstk_AddIncludePath(char *s)
|
||||||
fstk_AddIncludePath(char *s)
|
|
||||||
{
|
{
|
||||||
if (NextIncPath == MAXINCPATHS) {
|
if (NextIncPath == MAXINCPATHS)
|
||||||
fatalerror("Too many include directories passed from command line");
|
fatalerror("Too many include directories passed from command line");
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (strlcpy(IncludePaths[NextIncPath++], s, _MAX_PATH) >= _MAX_PATH) {
|
if (strlcpy(IncludePaths[NextIncPath++], s, _MAX_PATH) >= _MAX_PATH)
|
||||||
fatalerror("Include path too long '%s'",s);
|
fatalerror("Include path too long '%s'", s);
|
||||||
return;
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
FILE *
|
FILE *fstk_FindFile(char *fname)
|
||||||
fstk_FindFile(char *fname)
|
|
||||||
{
|
{
|
||||||
char path[PATH_MAX];
|
char path[_MAX_PATH];
|
||||||
int i;
|
int32_t i;
|
||||||
FILE *f;
|
FILE *f;
|
||||||
|
|
||||||
if ((f = fopen(fname, "rb")) != NULL || errno != ENOENT) {
|
f = fopen(fname, "rb");
|
||||||
if (dependfile) {
|
|
||||||
|
if (f != NULL || errno != ENOENT) {
|
||||||
|
if (dependfile)
|
||||||
fprintf(dependfile, "%s: %s\n", tzObjectname, fname);
|
fprintf(dependfile, "%s: %s\n", tzObjectname, fname);
|
||||||
}
|
|
||||||
return f;
|
return f;
|
||||||
}
|
}
|
||||||
|
|
||||||
for (i = 0; i < NextIncPath; ++i) {
|
for (i = 0; i < NextIncPath; ++i) {
|
||||||
if (strlcpy(path, IncludePaths[i], sizeof path) >=
|
if (strlcpy(path, IncludePaths[i], sizeof(path))
|
||||||
sizeof path) {
|
>= sizeof(path))
|
||||||
continue;
|
continue;
|
||||||
}
|
|
||||||
if (strlcat(path, fname, sizeof path) >= sizeof path) {
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
|
|
||||||
if ((f = fopen(path, "rb")) != NULL || errno != ENOENT) {
|
if (strlcat(path, fname, sizeof(path)) >= sizeof(path))
|
||||||
|
continue;
|
||||||
|
|
||||||
|
f = fopen(path, "rb");
|
||||||
|
|
||||||
|
if (f != NULL || errno != ENOENT) {
|
||||||
if (dependfile) {
|
if (dependfile) {
|
||||||
fprintf(dependfile, "%s: %s\n", tzObjectname, path);
|
fprintf(dependfile, "%s: %s\n", tzObjectname,
|
||||||
|
path);
|
||||||
}
|
}
|
||||||
return f;
|
return f;
|
||||||
}
|
}
|
||||||
@@ -262,17 +263,12 @@ fstk_FindFile(char *fname)
|
|||||||
/*
|
/*
|
||||||
* Set up an include file for parsing
|
* Set up an include file for parsing
|
||||||
*/
|
*/
|
||||||
void
|
void fstk_RunInclude(char *tzFileName)
|
||||||
fstk_RunInclude(char *tzFileName)
|
|
||||||
{
|
{
|
||||||
FILE *f;
|
FILE *f = fstk_FindFile(tzFileName);
|
||||||
|
|
||||||
f = fstk_FindFile(tzFileName);
|
if (f == NULL)
|
||||||
|
err(1, "Unable to open included file '%s'", tzFileName);
|
||||||
if (f == NULL) {
|
|
||||||
err(1, "Unable to open included file '%s'",
|
|
||||||
tzFileName);
|
|
||||||
}
|
|
||||||
|
|
||||||
pushcontext();
|
pushcontext();
|
||||||
nLineNo = 1;
|
nLineNo = 1;
|
||||||
@@ -282,7 +278,7 @@ fstk_RunInclude(char *tzFileName)
|
|||||||
CurrentFlexHandle = yy_create_buffer(pCurrentFile);
|
CurrentFlexHandle = yy_create_buffer(pCurrentFile);
|
||||||
yy_switch_to_buffer(CurrentFlexHandle);
|
yy_switch_to_buffer(CurrentFlexHandle);
|
||||||
|
|
||||||
//Dirty hack to give the INCLUDE directive a linefeed
|
/* Dirty hack to give the INCLUDE directive a linefeed */
|
||||||
|
|
||||||
yyunput('\n');
|
yyunput('\n');
|
||||||
nLineNo -= 1;
|
nLineNo -= 1;
|
||||||
@@ -291,35 +287,35 @@ fstk_RunInclude(char *tzFileName)
|
|||||||
/*
|
/*
|
||||||
* Set up a macro for parsing
|
* Set up a macro for parsing
|
||||||
*/
|
*/
|
||||||
ULONG
|
uint32_t fstk_RunMacro(char *s)
|
||||||
fstk_RunMacro(char *s)
|
|
||||||
{
|
{
|
||||||
struct sSymbol *sym;
|
struct sSymbol *sym = sym_FindMacro(s);
|
||||||
|
|
||||||
|
if (sym == NULL)
|
||||||
|
return 0;
|
||||||
|
|
||||||
if ((sym = sym_FindMacro(s)) != NULL) {
|
|
||||||
pushcontext();
|
pushcontext();
|
||||||
sym_SetMacroArgID(nMacroCount++);
|
sym_SetMacroArgID(nMacroCount++);
|
||||||
nLineNo = -1;
|
nLineNo = -1;
|
||||||
sym_UseNewMacroArgs();
|
sym_UseNewMacroArgs();
|
||||||
nCurrentStatus = STAT_isMacro;
|
nCurrentStatus = STAT_isMacro;
|
||||||
strcpy(tzCurrentFileName, s);
|
strcpy(tzCurrentFileName, s);
|
||||||
|
|
||||||
if (sym->pMacro == NULL)
|
if (sym->pMacro == NULL)
|
||||||
return 0;
|
return 0;
|
||||||
|
|
||||||
pCurrentMacro = sym;
|
pCurrentMacro = sym;
|
||||||
CurrentFlexHandle =
|
CurrentFlexHandle = yy_scan_bytes(pCurrentMacro->pMacro,
|
||||||
yy_scan_bytes(pCurrentMacro->pMacro,
|
|
||||||
strlen(pCurrentMacro->pMacro));
|
strlen(pCurrentMacro->pMacro));
|
||||||
yy_switch_to_buffer(CurrentFlexHandle);
|
yy_switch_to_buffer(CurrentFlexHandle);
|
||||||
return (1);
|
|
||||||
} else
|
return 1;
|
||||||
return (0);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Set up a macroargument for parsing
|
* Set up a macroargument for parsing
|
||||||
*/
|
*/
|
||||||
void
|
void fstk_RunMacroArg(int32_t s)
|
||||||
fstk_RunMacroArg(SLONG s)
|
|
||||||
{
|
{
|
||||||
char *sym;
|
char *sym;
|
||||||
|
|
||||||
@@ -328,40 +324,41 @@ fstk_RunMacroArg(SLONG s)
|
|||||||
else
|
else
|
||||||
s -= '0';
|
s -= '0';
|
||||||
|
|
||||||
if ((sym = sym_FindMacroArg(s)) != NULL) {
|
sym = sym_FindMacroArg(s);
|
||||||
|
|
||||||
|
if (sym == NULL)
|
||||||
|
fatalerror("No such macroargument");
|
||||||
|
|
||||||
pushcontext();
|
pushcontext();
|
||||||
nCurrentStatus = STAT_isMacroArg;
|
nCurrentStatus = STAT_isMacroArg;
|
||||||
sprintf(tzCurrentFileName, "%c", (UBYTE) s);
|
sprintf(tzCurrentFileName, "%c", (uint8_t)s);
|
||||||
CurrentFlexHandle = yy_scan_bytes(sym, strlen(sym));
|
CurrentFlexHandle = yy_scan_bytes(sym, strlen(sym));
|
||||||
yy_switch_to_buffer(CurrentFlexHandle);
|
yy_switch_to_buffer(CurrentFlexHandle);
|
||||||
} else
|
|
||||||
fatalerror("No such macroargument");
|
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Set up a stringequate for parsing
|
* Set up a stringequate for parsing
|
||||||
*/
|
*/
|
||||||
void
|
void fstk_RunString(char *s)
|
||||||
fstk_RunString(char *s)
|
|
||||||
{
|
{
|
||||||
struct sSymbol *pSym;
|
const struct sSymbol *pSym = sym_FindSymbol(s);
|
||||||
|
|
||||||
if ((pSym = sym_FindSymbol(s)) != NULL) {
|
if (pSym != NULL) {
|
||||||
pushcontext();
|
pushcontext();
|
||||||
nCurrentStatus = STAT_isMacroArg;
|
nCurrentStatus = STAT_isMacroArg;
|
||||||
strcpy(tzCurrentFileName, s);
|
strcpy(tzCurrentFileName, s);
|
||||||
CurrentFlexHandle =
|
CurrentFlexHandle =
|
||||||
yy_scan_bytes(pSym->pMacro, strlen(pSym->pMacro));
|
yy_scan_bytes(pSym->pMacro, strlen(pSym->pMacro));
|
||||||
yy_switch_to_buffer(CurrentFlexHandle);
|
yy_switch_to_buffer(CurrentFlexHandle);
|
||||||
} else
|
} else {
|
||||||
yyerror("No such string symbol '%s'", s);
|
yyerror("No such string symbol '%s'", s);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Set up a repeat block for parsing
|
* Set up a repeat block for parsing
|
||||||
*/
|
*/
|
||||||
void
|
void fstk_RunRept(uint32_t count)
|
||||||
fstk_RunRept(ULONG count)
|
|
||||||
{
|
{
|
||||||
if (count) {
|
if (count) {
|
||||||
pushcontext();
|
pushcontext();
|
||||||
@@ -381,21 +378,19 @@ fstk_RunRept(ULONG count)
|
|||||||
/*
|
/*
|
||||||
* Initialize the filestack routines
|
* Initialize the filestack routines
|
||||||
*/
|
*/
|
||||||
void
|
void fstk_Init(char *s)
|
||||||
fstk_Init(char *s)
|
|
||||||
{
|
{
|
||||||
char tzFileName[_MAX_PATH + 1];
|
char tzFileName[_MAX_PATH + 1];
|
||||||
|
|
||||||
char tzSymFileName[_MAX_PATH + 1 + 2];
|
char tzSymFileName[_MAX_PATH + 1 + 2];
|
||||||
|
|
||||||
snprintf(tzSymFileName, sizeof(tzSymFileName), "\"%s\"", s);
|
snprintf(tzSymFileName, sizeof(tzSymFileName), "\"%s\"", s);
|
||||||
sym_AddString("__FILE__", tzSymFileName);
|
sym_AddString("__FILE__", tzSymFileName);
|
||||||
|
|
||||||
strcpy(tzFileName, s);
|
strcpy(tzFileName, s);
|
||||||
pFileStack = NULL;
|
pFileStack = NULL;
|
||||||
pCurrentFile = fopen(tzFileName, "rb");
|
pCurrentFile = fopen(tzFileName, "rb");
|
||||||
if (pCurrentFile == NULL) {
|
if (pCurrentFile == NULL)
|
||||||
err(1, "Unable to open file '%s'", tzFileName);
|
err(1, "Unable to open file '%s'", tzFileName);
|
||||||
}
|
|
||||||
|
|
||||||
nMacroCount = 0;
|
nMacroCount = 0;
|
||||||
nCurrentStatus = STAT_isInclude;
|
nCurrentStatus = STAT_isInclude;
|
||||||
|
|||||||
@@ -1,52 +1,48 @@
|
|||||||
|
#include <math.h>
|
||||||
|
#include <stdbool.h>
|
||||||
|
#include <stdint.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <string.h>
|
||||||
|
|
||||||
#include "asm/asm.h"
|
#include "asm/asm.h"
|
||||||
#include "asm/symbol.h"
|
#include "asm/lexer.h"
|
||||||
|
#include "asm/main.h"
|
||||||
#include "asm/rpn.h"
|
#include "asm/rpn.h"
|
||||||
#include "asm/symbol.h"
|
#include "asm/symbol.h"
|
||||||
#include "asm/main.h"
|
#include "asm/symbol.h"
|
||||||
#include "asm/lexer.h"
|
|
||||||
|
|
||||||
#include "asmy.h"
|
#include "asmy.h"
|
||||||
|
|
||||||
#include <stdbool.h>
|
bool oDontExpandStrings;
|
||||||
#include <stdio.h>
|
int32_t nGBGfxID = -1;
|
||||||
#include <stdlib.h>
|
int32_t nBinaryID = -1;
|
||||||
#include <math.h>
|
|
||||||
#include <string.h>
|
|
||||||
|
|
||||||
bool oDontExpandStrings = false;
|
static int32_t gbgfx2bin(char ch)
|
||||||
SLONG nGBGfxID = -1;
|
|
||||||
SLONG nBinaryID = -1;
|
|
||||||
|
|
||||||
SLONG
|
|
||||||
gbgfx2bin(char ch)
|
|
||||||
{
|
{
|
||||||
SLONG i;
|
int32_t i;
|
||||||
|
|
||||||
for (i = 0; i <= 3; i += 1) {
|
for (i = 0; i <= 3; i += 1) {
|
||||||
if (CurrentOptions.gbgfx[i] == ch) {
|
if (CurrentOptions.gbgfx[i] == ch)
|
||||||
return (i);
|
return i;
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
return (0);
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG
|
static int32_t binary2bin(char ch)
|
||||||
binary2bin(char ch)
|
|
||||||
{
|
{
|
||||||
SLONG i;
|
int32_t i;
|
||||||
|
|
||||||
for (i = 0; i <= 1; i += 1) {
|
for (i = 0; i <= 1; i += 1) {
|
||||||
if (CurrentOptions.binary[i] == ch) {
|
if (CurrentOptions.binary[i] == ch)
|
||||||
return (i);
|
return i;
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
return (0);
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG
|
static int32_t char2bin(char ch)
|
||||||
char2bin(char ch)
|
|
||||||
{
|
{
|
||||||
if (ch >= 'a' && ch <= 'f')
|
if (ch >= 'a' && ch <= 'f')
|
||||||
return (ch - 'a' + 10);
|
return (ch - 'a' + 10);
|
||||||
@@ -57,16 +53,15 @@ char2bin(char ch)
|
|||||||
if (ch >= '0' && ch <= '9')
|
if (ch >= '0' && ch <= '9')
|
||||||
return (ch - '0');
|
return (ch - '0');
|
||||||
|
|
||||||
return (0);
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
typedef SLONG(*x2bin) (char ch);
|
typedef int32_t(*x2bin) (char ch);
|
||||||
|
|
||||||
SLONG
|
static int32_t ascii2bin(char *s)
|
||||||
ascii2bin(char *s)
|
|
||||||
{
|
{
|
||||||
SLONG radix = 10;
|
int32_t radix = 10;
|
||||||
SLONG result = 0;
|
int32_t result = 0;
|
||||||
x2bin convertfunc = char2bin;
|
x2bin convertfunc = char2bin;
|
||||||
|
|
||||||
switch (*s) {
|
switch (*s) {
|
||||||
@@ -93,7 +88,7 @@ ascii2bin(char *s)
|
|||||||
}
|
}
|
||||||
|
|
||||||
if (radix == 4) {
|
if (radix == 4) {
|
||||||
SLONG c;
|
int32_t c;
|
||||||
|
|
||||||
while (*s != '\0') {
|
while (*s != '\0') {
|
||||||
c = convertfunc(*s++);
|
c = convertfunc(*s++);
|
||||||
@@ -104,37 +99,31 @@ ascii2bin(char *s)
|
|||||||
result = result * radix + convertfunc(*s++);
|
result = result * radix + convertfunc(*s++);
|
||||||
}
|
}
|
||||||
|
|
||||||
return (result);
|
return result;
|
||||||
}
|
}
|
||||||
|
|
||||||
ULONG
|
uint32_t ParseFixedPoint(char *s, uint32_t size)
|
||||||
ParseFixedPoint(char *s, ULONG size)
|
|
||||||
{
|
{
|
||||||
//char dest[256];
|
uint32_t i = 0, dot = 0;
|
||||||
ULONG i = 0, dot = 0;
|
|
||||||
|
|
||||||
while (size && dot != 2) {
|
while (size && dot != 2) {
|
||||||
if (s[i] == '.')
|
if (s[i] == '.')
|
||||||
dot += 1;
|
dot += 1;
|
||||||
|
|
||||||
if (dot < 2) {
|
if (dot < 2) {
|
||||||
//dest[i] = s[i];
|
|
||||||
size -= 1;
|
size -= 1;
|
||||||
i += 1;
|
i += 1;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
//dest[i] = 0;
|
|
||||||
|
|
||||||
yyunputbytes(size);
|
yyunputbytes(size);
|
||||||
|
|
||||||
yylval.nConstValue = (SLONG) (atof(s) * 65536);
|
yylval.nConstValue = (int32_t)(atof(s) * 65536);
|
||||||
|
|
||||||
return (1);
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
ULONG
|
uint32_t ParseNumber(char *s, uint32_t size)
|
||||||
ParseNumber(char *s, ULONG size)
|
|
||||||
{
|
{
|
||||||
char dest[256];
|
char dest[256];
|
||||||
|
|
||||||
@@ -142,14 +131,13 @@ ParseNumber(char *s, ULONG size)
|
|||||||
dest[size] = 0;
|
dest[size] = 0;
|
||||||
yylval.nConstValue = ascii2bin(dest);
|
yylval.nConstValue = ascii2bin(dest);
|
||||||
|
|
||||||
return (1);
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
ULONG
|
uint32_t ParseSymbol(char *src, uint32_t size)
|
||||||
ParseSymbol(char *src, ULONG size)
|
|
||||||
{
|
{
|
||||||
char dest[MAXSYMLEN + 1];
|
char dest[MAXSYMLEN + 1];
|
||||||
int copied = 0, size_backup = size;
|
int32_t copied = 0, size_backup = size;
|
||||||
|
|
||||||
while (size && copied < MAXSYMLEN) {
|
while (size && copied < MAXSYMLEN) {
|
||||||
if (*src == '\\') {
|
if (*src == '\\') {
|
||||||
@@ -158,13 +146,13 @@ ParseSymbol(char *src, ULONG size)
|
|||||||
src += 1;
|
src += 1;
|
||||||
size -= 1;
|
size -= 1;
|
||||||
|
|
||||||
if (*src == '@')
|
if (*src == '@') {
|
||||||
marg = sym_FindMacroArg(-1);
|
marg = sym_FindMacroArg(-1);
|
||||||
else if (*src >= '0' && *src <= '9')
|
} else if (*src >= '0' && *src <= '9') {
|
||||||
marg = sym_FindMacroArg(*src - '0');
|
marg = sym_FindMacroArg(*src - '0');
|
||||||
else {
|
} else {
|
||||||
fatalerror("Malformed ID");
|
fatalerror("Malformed ID");
|
||||||
return (0);
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
src += 1;
|
src += 1;
|
||||||
@@ -192,47 +180,48 @@ ParseSymbol(char *src, ULONG size)
|
|||||||
yyunputstr(s = sym_GetStringValue(dest));
|
yyunputstr(s = sym_GetStringValue(dest));
|
||||||
|
|
||||||
while (*s) {
|
while (*s) {
|
||||||
if (*s++ == '\n') {
|
if (*s++ == '\n')
|
||||||
nLineNo -= 1;
|
nLineNo -= 1;
|
||||||
}
|
}
|
||||||
|
return 0;
|
||||||
}
|
}
|
||||||
return (0);
|
|
||||||
} else {
|
|
||||||
strcpy(yylval.tzString, dest);
|
strcpy(yylval.tzString, dest);
|
||||||
return (1);
|
return 1;
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
ULONG
|
uint32_t PutMacroArg(char *src, uint32_t size)
|
||||||
PutMacroArg(char *src, ULONG size)
|
|
||||||
{
|
{
|
||||||
char *s;
|
char *s;
|
||||||
|
|
||||||
yyskipbytes(size);
|
yyskipbytes(size);
|
||||||
if ((size == 2 && src[1] >= '1' && src[1] <= '9')) {
|
if ((size == 2 && src[1] >= '1' && src[1] <= '9')) {
|
||||||
if ((s = sym_FindMacroArg(src[1] - '0')) != NULL) {
|
s = sym_FindMacroArg(src[1] - '0');
|
||||||
|
|
||||||
|
if (s != NULL)
|
||||||
yyunputstr(s);
|
yyunputstr(s);
|
||||||
} else {
|
else
|
||||||
yyerror("Macro argument not defined");
|
yyerror("Macro argument not defined");
|
||||||
}
|
|
||||||
} else {
|
} else {
|
||||||
yyerror("Invalid macro argument");
|
yyerror("Invalid macro argument");
|
||||||
}
|
}
|
||||||
return (0);
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
ULONG
|
uint32_t PutUniqueArg(char *src, uint32_t size)
|
||||||
PutUniqueArg(char *src, ULONG size)
|
|
||||||
{
|
{
|
||||||
char *s;
|
char *s;
|
||||||
|
|
||||||
yyskipbytes(size);
|
yyskipbytes(size);
|
||||||
if ((s = sym_FindMacroArg(-1)) != NULL) {
|
|
||||||
|
s = sym_FindMacroArg(-1);
|
||||||
|
|
||||||
|
if (s != NULL)
|
||||||
yyunputstr(s);
|
yyunputstr(s);
|
||||||
} else {
|
else
|
||||||
yyerror("Macro unique label string not defined");
|
yyerror("Macro unique label string not defined");
|
||||||
}
|
|
||||||
return (0);
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
enum {
|
enum {
|
||||||
@@ -240,9 +229,85 @@ enum {
|
|||||||
T_LEX_MACROUNIQUE
|
T_LEX_MACROUNIQUE
|
||||||
};
|
};
|
||||||
|
|
||||||
extern struct sLexInitString localstrings[];
|
const struct sLexInitString lexer_strings[] = {
|
||||||
|
{"adc", T_Z80_ADC},
|
||||||
|
{"add", T_Z80_ADD},
|
||||||
|
{"and", T_Z80_AND},
|
||||||
|
{"bit", T_Z80_BIT},
|
||||||
|
{"call", T_Z80_CALL},
|
||||||
|
{"ccf", T_Z80_CCF},
|
||||||
|
{"cpl", T_Z80_CPL},
|
||||||
|
{"cp", T_Z80_CP},
|
||||||
|
{"daa", T_Z80_DAA},
|
||||||
|
{"dec", T_Z80_DEC},
|
||||||
|
{"di", T_Z80_DI},
|
||||||
|
{"ei", T_Z80_EI},
|
||||||
|
{"halt", T_Z80_HALT},
|
||||||
|
{"inc", T_Z80_INC},
|
||||||
|
{"jp", T_Z80_JP},
|
||||||
|
{"jr", T_Z80_JR},
|
||||||
|
{"ld", T_Z80_LD},
|
||||||
|
{"ldi", T_Z80_LDI},
|
||||||
|
{"ldd", T_Z80_LDD},
|
||||||
|
{"ldio", T_Z80_LDIO},
|
||||||
|
{"ldh", T_Z80_LDIO},
|
||||||
|
{"nop", T_Z80_NOP},
|
||||||
|
{"or", T_Z80_OR},
|
||||||
|
{"pop", T_Z80_POP},
|
||||||
|
{"push", T_Z80_PUSH},
|
||||||
|
{"res", T_Z80_RES},
|
||||||
|
{"reti", T_Z80_RETI},
|
||||||
|
{"ret", T_Z80_RET},
|
||||||
|
{"rlca", T_Z80_RLCA},
|
||||||
|
{"rlc", T_Z80_RLC},
|
||||||
|
{"rla", T_Z80_RLA},
|
||||||
|
{"rl", T_Z80_RL},
|
||||||
|
{"rrc", T_Z80_RRC},
|
||||||
|
{"rrca", T_Z80_RRCA},
|
||||||
|
{"rra", T_Z80_RRA},
|
||||||
|
{"rr", T_Z80_RR},
|
||||||
|
{"rst", T_Z80_RST},
|
||||||
|
{"sbc", T_Z80_SBC},
|
||||||
|
{"scf", T_Z80_SCF},
|
||||||
|
{"set", T_POP_SET},
|
||||||
|
{"sla", T_Z80_SLA},
|
||||||
|
{"sra", T_Z80_SRA},
|
||||||
|
{"srl", T_Z80_SRL},
|
||||||
|
{"stop", T_Z80_STOP},
|
||||||
|
{"sub", T_Z80_SUB},
|
||||||
|
{"swap", T_Z80_SWAP},
|
||||||
|
{"xor", T_Z80_XOR},
|
||||||
|
|
||||||
|
{"nz", T_CC_NZ},
|
||||||
|
{"z", T_CC_Z},
|
||||||
|
{"nc", T_CC_NC},
|
||||||
|
/* Handled in list of registers */
|
||||||
|
/* { "c", T_TOKEN_C }, */
|
||||||
|
|
||||||
|
{"[bc]", T_MODE_BC_IND},
|
||||||
|
{"[de]", T_MODE_DE_IND},
|
||||||
|
{"[hl]", T_MODE_HL_IND},
|
||||||
|
{"[hl+]", T_MODE_HL_INDINC},
|
||||||
|
{"[hl-]", T_MODE_HL_INDDEC},
|
||||||
|
{"[hli]", T_MODE_HL_INDINC},
|
||||||
|
{"[hld]", T_MODE_HL_INDDEC},
|
||||||
|
{"[sp]", T_MODE_SP_IND},
|
||||||
|
{"af", T_MODE_AF},
|
||||||
|
{"bc", T_MODE_BC},
|
||||||
|
{"de", T_MODE_DE},
|
||||||
|
{"hl", T_MODE_HL},
|
||||||
|
{"sp", T_MODE_SP},
|
||||||
|
{"[c]", T_MODE_C_IND},
|
||||||
|
{"[$ff00+c]", T_MODE_C_IND},
|
||||||
|
|
||||||
|
{"a", T_TOKEN_A},
|
||||||
|
{"b", T_TOKEN_B},
|
||||||
|
{"c", T_TOKEN_C},
|
||||||
|
{"d", T_TOKEN_D},
|
||||||
|
{"e", T_TOKEN_E},
|
||||||
|
{"h", T_TOKEN_H},
|
||||||
|
{"l", T_TOKEN_L},
|
||||||
|
|
||||||
struct sLexInitString staticstrings[] = {
|
|
||||||
{"||", T_OP_LOGICOR},
|
{"||", T_OP_LOGICOR},
|
||||||
{"&&", T_OP_LOGICAND},
|
{"&&", T_OP_LOGICAND},
|
||||||
{"==", T_OP_LOGICEQU},
|
{"==", T_OP_LOGICEQU},
|
||||||
@@ -303,8 +368,9 @@ struct sLexInitString staticstrings[] = {
|
|||||||
{"xref", T_POP_IMPORT},
|
{"xref", T_POP_IMPORT},
|
||||||
{"global", T_POP_GLOBAL},
|
{"global", T_POP_GLOBAL},
|
||||||
{"ds", T_POP_DS},
|
{"ds", T_POP_DS},
|
||||||
{NAME_DB, T_POP_DB},
|
{"db", T_POP_DB},
|
||||||
{NAME_DW, T_POP_DW},
|
{"dw", T_POP_DW},
|
||||||
|
{"dl", T_POP_DL},
|
||||||
{"section", T_POP_SECTION},
|
{"section", T_POP_SECTION},
|
||||||
{"purge", T_POP_PURGE},
|
{"purge", T_POP_PURGE},
|
||||||
|
|
||||||
@@ -318,7 +384,6 @@ struct sLexInitString staticstrings[] = {
|
|||||||
{"warn", T_POP_WARN},
|
{"warn", T_POP_WARN},
|
||||||
|
|
||||||
{"macro", T_POP_MACRO},
|
{"macro", T_POP_MACRO},
|
||||||
|
|
||||||
/* Not needed but we have it here just to protect the name */
|
/* Not needed but we have it here just to protect the name */
|
||||||
{"endm", T_POP_ENDM},
|
{"endm", T_POP_ENDM},
|
||||||
{"shift", T_POP_SHIFT},
|
{"shift", T_POP_SHIFT},
|
||||||
@@ -351,12 +416,13 @@ struct sLexInitString staticstrings[] = {
|
|||||||
{"data", T_SECT_DATA},
|
{"data", T_SECT_DATA},
|
||||||
{"bss", T_SECT_BSS},
|
{"bss", T_SECT_BSS},
|
||||||
|
|
||||||
{NAME_RB, T_POP_RB},
|
{"rb", T_POP_RB},
|
||||||
{NAME_RW, T_POP_RW},
|
{"rw", T_POP_RW},
|
||||||
{"equ", T_POP_EQU},
|
{"equ", T_POP_EQU},
|
||||||
{"equs", T_POP_EQUS},
|
{"equs", T_POP_EQUS},
|
||||||
|
|
||||||
{"set", T_POP_SET},
|
/* Handled before in list of CPU instructions */
|
||||||
|
/* {"set", T_POP_SET}, */
|
||||||
{"=", T_POP_SET},
|
{"=", T_POP_SET},
|
||||||
|
|
||||||
{"pushs", T_POP_PUSHS},
|
{"pushs", T_POP_PUSHS},
|
||||||
@@ -369,39 +435,37 @@ struct sLexInitString staticstrings[] = {
|
|||||||
{NULL, 0}
|
{NULL, 0}
|
||||||
};
|
};
|
||||||
|
|
||||||
struct sLexFloat tNumberToken = {
|
const struct sLexFloat tNumberToken = {
|
||||||
ParseNumber,
|
ParseNumber,
|
||||||
T_NUMBER
|
T_NUMBER
|
||||||
};
|
};
|
||||||
|
|
||||||
struct sLexFloat tFixedPointToken = {
|
const struct sLexFloat tFixedPointToken = {
|
||||||
ParseFixedPoint,
|
ParseFixedPoint,
|
||||||
T_NUMBER
|
T_NUMBER
|
||||||
};
|
};
|
||||||
|
|
||||||
struct sLexFloat tIDToken = {
|
const struct sLexFloat tIDToken = {
|
||||||
ParseSymbol,
|
ParseSymbol,
|
||||||
T_ID
|
T_ID
|
||||||
};
|
};
|
||||||
|
|
||||||
struct sLexFloat tMacroArgToken = {
|
const struct sLexFloat tMacroArgToken = {
|
||||||
PutMacroArg,
|
PutMacroArg,
|
||||||
T_LEX_MACROARG
|
T_LEX_MACROARG
|
||||||
};
|
};
|
||||||
|
|
||||||
struct sLexFloat tMacroUniqueToken = {
|
const struct sLexFloat tMacroUniqueToken = {
|
||||||
PutUniqueArg,
|
PutUniqueArg,
|
||||||
T_LEX_MACROUNIQUE
|
T_LEX_MACROUNIQUE
|
||||||
};
|
};
|
||||||
|
|
||||||
void
|
void setup_lexer(void)
|
||||||
setuplex(void)
|
|
||||||
{
|
{
|
||||||
ULONG id;
|
uint32_t id;
|
||||||
|
|
||||||
lex_Init();
|
lex_Init();
|
||||||
lex_AddStrings(staticstrings);
|
lex_AddStrings(lexer_strings);
|
||||||
lex_AddStrings(localstrings);
|
|
||||||
|
|
||||||
//Macro arguments
|
//Macro arguments
|
||||||
|
|
||||||
@@ -421,7 +485,8 @@ setuplex(void)
|
|||||||
|
|
||||||
//Binary constants
|
//Binary constants
|
||||||
|
|
||||||
nBinaryID = id = lex_FloatAlloc(&tNumberToken);
|
id = lex_FloatAlloc(&tNumberToken);
|
||||||
|
nBinaryID = id;
|
||||||
lex_FloatAddFirstRange(id, '%', '%');
|
lex_FloatAddFirstRange(id, '%', '%');
|
||||||
lex_FloatAddSecondRange(id, CurrentOptions.binary[0],
|
lex_FloatAddSecondRange(id, CurrentOptions.binary[0],
|
||||||
CurrentOptions.binary[0]);
|
CurrentOptions.binary[0]);
|
||||||
@@ -441,7 +506,8 @@ setuplex(void)
|
|||||||
|
|
||||||
//Gameboy gfx constants
|
//Gameboy gfx constants
|
||||||
|
|
||||||
nGBGfxID = id = lex_FloatAlloc(&tNumberToken);
|
id = lex_FloatAlloc(&tNumberToken);
|
||||||
|
nGBGfxID = id;
|
||||||
lex_FloatAddFirstRange(id, '`', '`');
|
lex_FloatAddFirstRange(id, '`', '`');
|
||||||
lex_FloatAddSecondRange(id, CurrentOptions.gbgfx[0],
|
lex_FloatAddSecondRange(id, CurrentOptions.gbgfx[0],
|
||||||
CurrentOptions.gbgfx[0]);
|
CurrentOptions.gbgfx[0]);
|
||||||
@@ -518,5 +584,4 @@ setuplex(void)
|
|||||||
lex_FloatAddSecondRange(id, '0', '9');
|
lex_FloatAddSecondRange(id, '0', '9');
|
||||||
lex_FloatAddRange(id, '.', '.');
|
lex_FloatAddRange(id, '.', '.');
|
||||||
lex_FloatAddRange(id, '0', '9');
|
lex_FloatAddRange(id, '0', '9');
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
338
src/asm/lexer.c
338
src/asm/lexer.c
@@ -1,46 +1,45 @@
|
|||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
|
#include <stdint.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
#include <strings.h>
|
#include <strings.h>
|
||||||
#include <ctype.h>
|
#include <ctype.h>
|
||||||
|
|
||||||
#include "asm/asm.h"
|
#include "asm/asm.h"
|
||||||
|
#include "asm/fstack.h"
|
||||||
#include "asm/lexer.h"
|
#include "asm/lexer.h"
|
||||||
#include "types.h"
|
|
||||||
#include "asm/main.h"
|
#include "asm/main.h"
|
||||||
#include "asm/rpn.h"
|
#include "asm/rpn.h"
|
||||||
#include "asm/fstack.h"
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
|
|
||||||
#include "asmy.h"
|
#include "asmy.h"
|
||||||
|
|
||||||
struct sLexString {
|
struct sLexString {
|
||||||
char *tzName;
|
char *tzName;
|
||||||
ULONG nToken;
|
uint32_t nToken;
|
||||||
ULONG nNameLength;
|
uint32_t nNameLength;
|
||||||
struct sLexString *pNext;
|
struct sLexString *pNext;
|
||||||
};
|
};
|
||||||
|
|
||||||
#define pLexBufferRealStart (pCurrentBuffer->pBufferRealStart)
|
#define pLexBufferRealStart (pCurrentBuffer->pBufferRealStart)
|
||||||
#define pLexBuffer (pCurrentBuffer->pBuffer)
|
#define pLexBuffer (pCurrentBuffer->pBuffer)
|
||||||
#define AtLineStart (pCurrentBuffer->oAtLineStart)
|
#define AtLineStart (pCurrentBuffer->oAtLineStart)
|
||||||
|
|
||||||
#define SAFETYMARGIN 1024
|
#define SAFETYMARGIN 1024
|
||||||
|
|
||||||
extern size_t symvaluetostring(char *dest, size_t maxLength, char *sym);
|
|
||||||
|
|
||||||
struct sLexFloat tLexFloat[32];
|
struct sLexFloat tLexFloat[32];
|
||||||
struct sLexString *tLexHash[LEXHASHSIZE];
|
struct sLexString *tLexHash[LEXHASHSIZE];
|
||||||
YY_BUFFER_STATE pCurrentBuffer;
|
YY_BUFFER_STATE pCurrentBuffer;
|
||||||
ULONG nLexMaxLength; // max length of all keywords and operators
|
uint32_t nLexMaxLength; // max length of all keywords and operators
|
||||||
|
|
||||||
ULONG tFloatingSecondChar[256];
|
uint32_t tFloatingSecondChar[256];
|
||||||
ULONG tFloatingFirstChar[256];
|
uint32_t tFloatingFirstChar[256];
|
||||||
ULONG tFloatingChars[256];
|
uint32_t tFloatingChars[256];
|
||||||
ULONG nFloating;
|
uint32_t nFloating;
|
||||||
enum eLexerState lexerstate = LEX_STATE_NORMAL;
|
enum eLexerState lexerstate = LEX_STATE_NORMAL;
|
||||||
|
|
||||||
void
|
void upperstring(char *s)
|
||||||
upperstring(char *s)
|
|
||||||
{
|
{
|
||||||
while (*s) {
|
while (*s) {
|
||||||
*s = toupper(*s);
|
*s = toupper(*s);
|
||||||
@@ -48,8 +47,7 @@ upperstring(char *s)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void lowerstring(char *s)
|
||||||
lowerstring(char *s)
|
|
||||||
{
|
{
|
||||||
while (*s) {
|
while (*s) {
|
||||||
*s = tolower(*s);
|
*s = tolower(*s);
|
||||||
@@ -57,20 +55,17 @@ lowerstring(char *s)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void yyskipbytes(uint32_t count)
|
||||||
yyskipbytes(ULONG count)
|
|
||||||
{
|
{
|
||||||
pLexBuffer += count;
|
pLexBuffer += count;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void yyunputbytes(uint32_t count)
|
||||||
yyunputbytes(ULONG count)
|
|
||||||
{
|
{
|
||||||
pLexBuffer -= count;
|
pLexBuffer -= count;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void yyunput(char c)
|
||||||
yyunput(char c)
|
|
||||||
{
|
{
|
||||||
if (pLexBuffer <= pLexBufferRealStart)
|
if (pLexBuffer <= pLexBufferRealStart)
|
||||||
fatalerror("Buffer safety margin exceeded");
|
fatalerror("Buffer safety margin exceeded");
|
||||||
@@ -78,10 +73,9 @@ yyunput(char c)
|
|||||||
*(--pLexBuffer) = c;
|
*(--pLexBuffer) = c;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void yyunputstr(char *s)
|
||||||
yyunputstr(char *s)
|
|
||||||
{
|
{
|
||||||
int i, len;
|
int32_t i, len;
|
||||||
|
|
||||||
len = strlen(s);
|
len = strlen(s);
|
||||||
|
|
||||||
@@ -92,80 +86,79 @@ yyunputstr(char *s)
|
|||||||
*(--pLexBuffer) = s[i];
|
*(--pLexBuffer) = s[i];
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void yy_switch_to_buffer(YY_BUFFER_STATE buf)
|
||||||
yy_switch_to_buffer(YY_BUFFER_STATE buf)
|
|
||||||
{
|
{
|
||||||
pCurrentBuffer = buf;
|
pCurrentBuffer = buf;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void yy_set_state(enum eLexerState i)
|
||||||
yy_set_state(enum eLexerState i)
|
|
||||||
{
|
{
|
||||||
lexerstate = i;
|
lexerstate = i;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void yy_delete_buffer(YY_BUFFER_STATE buf)
|
||||||
yy_delete_buffer(YY_BUFFER_STATE buf)
|
|
||||||
{
|
{
|
||||||
free(buf->pBufferStart - SAFETYMARGIN);
|
free(buf->pBufferStart - SAFETYMARGIN);
|
||||||
free(buf);
|
free(buf);
|
||||||
}
|
}
|
||||||
|
|
||||||
YY_BUFFER_STATE
|
YY_BUFFER_STATE yy_scan_bytes(char *mem, uint32_t size)
|
||||||
yy_scan_bytes(char *mem, ULONG size)
|
|
||||||
{
|
{
|
||||||
YY_BUFFER_STATE pBuffer;
|
YY_BUFFER_STATE pBuffer = malloc(sizeof(struct yy_buffer_state));
|
||||||
|
|
||||||
|
if (pBuffer == NULL)
|
||||||
|
fatalerror("%s: Out of memory!", __func__);
|
||||||
|
|
||||||
|
pBuffer->pBufferRealStart = malloc(size + 1 + SAFETYMARGIN);
|
||||||
|
|
||||||
|
if (pBuffer->pBufferRealStart == NULL)
|
||||||
|
fatalerror("%s: Out of memory for buffer!", __func__);
|
||||||
|
|
||||||
if ((pBuffer = malloc(sizeof(struct yy_buffer_state))) != NULL) {
|
|
||||||
if ((pBuffer->pBufferRealStart =
|
|
||||||
malloc(size + 1 + SAFETYMARGIN)) != NULL) {
|
|
||||||
pBuffer->pBufferStart = pBuffer->pBufferRealStart + SAFETYMARGIN;
|
pBuffer->pBufferStart = pBuffer->pBufferRealStart + SAFETYMARGIN;
|
||||||
pBuffer->pBuffer = pBuffer->pBufferRealStart + SAFETYMARGIN;
|
pBuffer->pBuffer = pBuffer->pBufferRealStart + SAFETYMARGIN;
|
||||||
memcpy(pBuffer->pBuffer, mem, size);
|
memcpy(pBuffer->pBuffer, mem, size);
|
||||||
pBuffer->nBufferSize = size;
|
pBuffer->nBufferSize = size;
|
||||||
pBuffer->oAtLineStart = 1;
|
pBuffer->oAtLineStart = 1;
|
||||||
pBuffer->pBuffer[size] = 0;
|
pBuffer->pBuffer[size] = 0;
|
||||||
return (pBuffer);
|
|
||||||
}
|
return pBuffer;
|
||||||
}
|
|
||||||
fatalerror("Out of memory!");
|
|
||||||
return (NULL);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
YY_BUFFER_STATE
|
YY_BUFFER_STATE yy_create_buffer(FILE *f)
|
||||||
yy_create_buffer(FILE * f)
|
|
||||||
{
|
{
|
||||||
YY_BUFFER_STATE pBuffer;
|
YY_BUFFER_STATE pBuffer = malloc(sizeof(struct yy_buffer_state));
|
||||||
|
|
||||||
if ((pBuffer = malloc(sizeof(struct yy_buffer_state))) != NULL) {
|
if (pBuffer == NULL)
|
||||||
ULONG size;
|
fatalerror("%s: Out of memory!", __func__);
|
||||||
|
|
||||||
|
uint32_t size;
|
||||||
|
|
||||||
fseek(f, 0, SEEK_END);
|
fseek(f, 0, SEEK_END);
|
||||||
size = ftell(f);
|
size = ftell(f);
|
||||||
fseek(f, 0, SEEK_SET);
|
fseek(f, 0, SEEK_SET);
|
||||||
|
|
||||||
if ((pBuffer->pBufferRealStart =
|
pBuffer->pBufferRealStart = malloc(size + 2 + SAFETYMARGIN);
|
||||||
malloc(size + 2 + SAFETYMARGIN)) != NULL) {
|
|
||||||
char *mem;
|
if (pBuffer->pBufferRealStart == NULL)
|
||||||
ULONG instring = 0;
|
fatalerror("%s: Out of memory for buffer!", __func__);
|
||||||
|
|
||||||
pBuffer->pBufferStart = pBuffer->pBufferRealStart + SAFETYMARGIN;
|
pBuffer->pBufferStart = pBuffer->pBufferRealStart + SAFETYMARGIN;
|
||||||
pBuffer->pBuffer = pBuffer->pBufferRealStart + SAFETYMARGIN;
|
pBuffer->pBuffer = pBuffer->pBufferRealStart + SAFETYMARGIN;
|
||||||
|
|
||||||
size = fread(pBuffer->pBuffer, sizeof(UBYTE), size, f);
|
size = fread(pBuffer->pBuffer, sizeof(uint8_t), size, f);
|
||||||
|
|
||||||
pBuffer->pBuffer[size] = '\n';
|
pBuffer->pBuffer[size] = '\n';
|
||||||
pBuffer->pBuffer[size + 1] = 0;
|
pBuffer->pBuffer[size + 1] = 0;
|
||||||
pBuffer->nBufferSize = size + 1;
|
pBuffer->nBufferSize = size + 1;
|
||||||
|
|
||||||
mem = pBuffer->pBuffer;
|
char *mem = pBuffer->pBuffer;
|
||||||
|
uint32_t instring = 0;
|
||||||
|
|
||||||
while (*mem) {
|
while (*mem) {
|
||||||
if (*mem == '\"')
|
if (*mem == '\"')
|
||||||
instring = 1 - instring;
|
instring = 1 - instring;
|
||||||
|
|
||||||
if (mem[0] == '\\' &&
|
if ((mem[0] == '\\') && (mem[1] == '\"' || mem[1] == '\\')) {
|
||||||
(mem[1] == '\"' || mem[1] == '\\')) {
|
|
||||||
mem += 2;
|
mem += 2;
|
||||||
} else if (instring) {
|
} else if (instring) {
|
||||||
mem += 1;
|
mem += 1;
|
||||||
@@ -185,21 +178,17 @@ yy_create_buffer(FILE * f)
|
|||||||
} else if (*mem == ';') {
|
} else if (*mem == ';') {
|
||||||
while (!(*mem == '\n' || *mem == '\0'))
|
while (!(*mem == '\n' || *mem == '\0'))
|
||||||
*mem++ = ' ';
|
*mem++ = ' ';
|
||||||
} else
|
} else {
|
||||||
mem += 1;
|
mem += 1;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
}
|
||||||
|
|
||||||
pBuffer->oAtLineStart = 1;
|
pBuffer->oAtLineStart = 1;
|
||||||
return (pBuffer);
|
return pBuffer;
|
||||||
}
|
|
||||||
}
|
|
||||||
fatalerror("Out of memory!");
|
|
||||||
return (NULL);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
ULONG
|
uint32_t lex_FloatAlloc(const struct sLexFloat *token)
|
||||||
lex_FloatAlloc(struct sLexFloat *token)
|
|
||||||
{
|
{
|
||||||
tLexFloat[nFloating] = *token;
|
tLexFloat[nFloating] = *token;
|
||||||
|
|
||||||
@@ -210,8 +199,7 @@ lex_FloatAlloc(struct sLexFloat *token)
|
|||||||
* Make sure that only non-zero ASCII characters are used. Also, check if the
|
* Make sure that only non-zero ASCII characters are used. Also, check if the
|
||||||
* start is greater than the end of the range.
|
* start is greater than the end of the range.
|
||||||
*/
|
*/
|
||||||
void
|
void lex_CheckCharacterRange(uint16_t start, uint16_t end)
|
||||||
lex_CheckCharacterRange(UWORD start, UWORD end)
|
|
||||||
{
|
{
|
||||||
if (start > end || start < 1 || end > 127) {
|
if (start > end || start < 1 || end > 127) {
|
||||||
errx(1, "Invalid character range (start: %u, end: %u)",
|
errx(1, "Invalid character range (start: %u, end: %u)",
|
||||||
@@ -219,8 +207,7 @@ lex_CheckCharacterRange(UWORD start, UWORD end)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void lex_FloatDeleteRange(uint32_t id, uint16_t start, uint16_t end)
|
||||||
lex_FloatDeleteRange(ULONG id, UWORD start, UWORD end)
|
|
||||||
{
|
{
|
||||||
lex_CheckCharacterRange(start, end);
|
lex_CheckCharacterRange(start, end);
|
||||||
|
|
||||||
@@ -230,8 +217,7 @@ lex_FloatDeleteRange(ULONG id, UWORD start, UWORD end)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void lex_FloatAddRange(uint32_t id, uint16_t start, uint16_t end)
|
||||||
lex_FloatAddRange(ULONG id, UWORD start, UWORD end)
|
|
||||||
{
|
{
|
||||||
lex_CheckCharacterRange(start, end);
|
lex_CheckCharacterRange(start, end);
|
||||||
|
|
||||||
@@ -241,8 +227,7 @@ lex_FloatAddRange(ULONG id, UWORD start, UWORD end)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void lex_FloatDeleteFirstRange(uint32_t id, uint16_t start, uint16_t end)
|
||||||
lex_FloatDeleteFirstRange(ULONG id, UWORD start, UWORD end)
|
|
||||||
{
|
{
|
||||||
lex_CheckCharacterRange(start, end);
|
lex_CheckCharacterRange(start, end);
|
||||||
|
|
||||||
@@ -252,8 +237,7 @@ lex_FloatDeleteFirstRange(ULONG id, UWORD start, UWORD end)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void lex_FloatAddFirstRange(uint32_t id, uint16_t start, uint16_t end)
|
||||||
lex_FloatAddFirstRange(ULONG id, UWORD start, UWORD end)
|
|
||||||
{
|
{
|
||||||
lex_CheckCharacterRange(start, end);
|
lex_CheckCharacterRange(start, end);
|
||||||
|
|
||||||
@@ -263,8 +247,7 @@ lex_FloatAddFirstRange(ULONG id, UWORD start, UWORD end)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void lex_FloatDeleteSecondRange(uint32_t id, uint16_t start, uint16_t end)
|
||||||
lex_FloatDeleteSecondRange(ULONG id, UWORD start, UWORD end)
|
|
||||||
{
|
{
|
||||||
lex_CheckCharacterRange(start, end);
|
lex_CheckCharacterRange(start, end);
|
||||||
|
|
||||||
@@ -274,8 +257,7 @@ lex_FloatDeleteSecondRange(ULONG id, UWORD start, UWORD end)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void lex_FloatAddSecondRange(uint32_t id, uint16_t start, uint16_t end)
|
||||||
lex_FloatAddSecondRange(ULONG id, UWORD start, UWORD end)
|
|
||||||
{
|
{
|
||||||
lex_CheckCharacterRange(start, end);
|
lex_CheckCharacterRange(start, end);
|
||||||
|
|
||||||
@@ -285,43 +267,37 @@ lex_FloatAddSecondRange(ULONG id, UWORD start, UWORD end)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
struct sLexFloat *
|
static struct sLexFloat *lexgetfloat(uint32_t nFloatMask)
|
||||||
lexgetfloat(ULONG nFloatMask)
|
|
||||||
{
|
{
|
||||||
if (nFloatMask == 0) {
|
if (nFloatMask == 0)
|
||||||
fatalerror("Internal error in lexgetfloat");
|
fatalerror("Internal error in %s", __func__);
|
||||||
}
|
|
||||||
|
|
||||||
int i = 0;
|
int32_t i = 0;
|
||||||
|
|
||||||
while ((nFloatMask & 1) == 0) {
|
while ((nFloatMask & 1) == 0) {
|
||||||
nFloatMask >>= 1;
|
nFloatMask >>= 1;
|
||||||
i++;
|
i++;
|
||||||
}
|
}
|
||||||
|
|
||||||
return (&tLexFloat[i]);
|
return &tLexFloat[i];
|
||||||
}
|
}
|
||||||
|
|
||||||
ULONG
|
static uint32_t lexcalchash(char *s)
|
||||||
lexcalchash(char *s)
|
|
||||||
{
|
{
|
||||||
ULONG hash = 0;
|
uint32_t hash = 0;
|
||||||
|
|
||||||
while (*s) {
|
while (*s)
|
||||||
hash = (hash * 283) ^ toupper(*s++);
|
hash = (hash * 283) ^ toupper(*s++);
|
||||||
}
|
|
||||||
|
|
||||||
return (hash % LEXHASHSIZE);
|
return hash % LEXHASHSIZE;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void lex_Init(void)
|
||||||
lex_Init(void)
|
|
||||||
{
|
{
|
||||||
ULONG i;
|
uint32_t i;
|
||||||
|
|
||||||
for (i = 0; i < LEXHASHSIZE; i++) {
|
for (i = 0; i < LEXHASHSIZE; i++)
|
||||||
tLexHash[i] = NULL;
|
tLexHash[i] = NULL;
|
||||||
}
|
|
||||||
|
|
||||||
for (i = 0; i < 256; i++) {
|
for (i = 0; i < 256; i++) {
|
||||||
tFloatingFirstChar[i] = 0;
|
tFloatingFirstChar[i] = 0;
|
||||||
@@ -333,20 +309,24 @@ lex_Init(void)
|
|||||||
nFloating = 0;
|
nFloating = 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void lex_AddStrings(const struct sLexInitString *lex)
|
||||||
lex_AddStrings(struct sLexInitString * lex)
|
|
||||||
{
|
{
|
||||||
while (lex->tzName) {
|
while (lex->tzName) {
|
||||||
struct sLexString **ppHash;
|
struct sLexString **ppHash;
|
||||||
ULONG hash;
|
uint32_t hash;
|
||||||
|
|
||||||
ppHash = &tLexHash[hash = lexcalchash(lex->tzName)];
|
ppHash = &tLexHash[hash = lexcalchash(lex->tzName)];
|
||||||
while (*ppHash)
|
while (*ppHash)
|
||||||
ppHash = &((*ppHash)->pNext);
|
ppHash = &((*ppHash)->pNext);
|
||||||
|
|
||||||
if (((*ppHash) = malloc(sizeof(struct sLexString))) != NULL) {
|
*ppHash = malloc(sizeof(struct sLexString));
|
||||||
if (((*ppHash)->tzName =
|
if (*ppHash == NULL)
|
||||||
(char *) strdup(lex->tzName)) != NULL) {
|
fatalerror("Out of memory!");
|
||||||
|
|
||||||
|
(*ppHash)->tzName = (char *)strdup(lex->tzName);
|
||||||
|
if ((*ppHash)->tzName == NULL)
|
||||||
|
fatalerror("Out of memory!");
|
||||||
|
|
||||||
(*ppHash)->nNameLength = strlen(lex->tzName);
|
(*ppHash)->nNameLength = strlen(lex->tzName);
|
||||||
(*ppHash)->nToken = lex->nToken;
|
(*ppHash)->nToken = lex->nToken;
|
||||||
(*ppHash)->pNext = NULL;
|
(*ppHash)->pNext = NULL;
|
||||||
@@ -356,11 +336,6 @@ lex_AddStrings(struct sLexInitString * lex)
|
|||||||
if ((*ppHash)->nNameLength > nLexMaxLength)
|
if ((*ppHash)->nNameLength > nLexMaxLength)
|
||||||
nLexMaxLength = (*ppHash)->nNameLength;
|
nLexMaxLength = (*ppHash)->nNameLength;
|
||||||
|
|
||||||
} else
|
|
||||||
fatalerror("Out of memory!");
|
|
||||||
} else
|
|
||||||
fatalerror("Out of memory!");
|
|
||||||
|
|
||||||
lex += 1;
|
lex += 1;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -375,42 +350,42 @@ lex_AddStrings(struct sLexInitString * lex)
|
|||||||
* The token types with the longest match from the current position in the
|
* The token types with the longest match from the current position in the
|
||||||
* buffer will have their bits set in the float mask.
|
* buffer will have their bits set in the float mask.
|
||||||
*/
|
*/
|
||||||
void
|
void yylex_GetFloatMaskAndFloatLen(uint32_t *pnFloatMask, uint32_t *pnFloatLen)
|
||||||
yylex_GetFloatMaskAndFloatLen(ULONG *pnFloatMask, ULONG *pnFloatLen)
|
|
||||||
{
|
{
|
||||||
// Note that '\0' should always have a bit mask of 0 in the "floating"
|
/*
|
||||||
// tables, so it doesn't need to be checked for separately.
|
* Note that '\0' should always have a bit mask of 0 in the "floating"
|
||||||
|
* tables, so it doesn't need to be checked for separately.
|
||||||
|
*/
|
||||||
|
|
||||||
char *s = pLexBuffer;
|
char *s = pLexBuffer;
|
||||||
ULONG nOldFloatMask = 0;
|
uint32_t nOldFloatMask = 0;
|
||||||
ULONG nFloatMask = tFloatingFirstChar[(int)*s];
|
uint32_t nFloatMask = tFloatingFirstChar[(int32_t)*s];
|
||||||
|
|
||||||
if (nFloatMask != 0) {
|
if (nFloatMask != 0) {
|
||||||
s++;
|
s++;
|
||||||
nOldFloatMask = nFloatMask;
|
nOldFloatMask = nFloatMask;
|
||||||
nFloatMask &= tFloatingSecondChar[(int)*s];
|
nFloatMask &= tFloatingSecondChar[(int32_t)*s];
|
||||||
|
|
||||||
while (nFloatMask != 0) {
|
while (nFloatMask != 0) {
|
||||||
s++;
|
s++;
|
||||||
nOldFloatMask = nFloatMask;
|
nOldFloatMask = nFloatMask;
|
||||||
nFloatMask &= tFloatingChars[(int)*s];
|
nFloatMask &= tFloatingChars[(int32_t)*s];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
*pnFloatMask = nOldFloatMask;
|
*pnFloatMask = nOldFloatMask;
|
||||||
*pnFloatLen = (ULONG)(s - pLexBuffer);
|
*pnFloatLen = (uint32_t)(s - pLexBuffer);
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Gets the longest keyword/operator from the current position in the buffer.
|
* Gets the longest keyword/operator from the current position in the buffer.
|
||||||
*/
|
*/
|
||||||
struct sLexString *
|
struct sLexString *yylex_GetLongestFixed()
|
||||||
yylex_GetLongestFixed()
|
|
||||||
{
|
{
|
||||||
struct sLexString *pLongestFixed = NULL;
|
struct sLexString *pLongestFixed = NULL;
|
||||||
char *s = pLexBuffer;
|
char *s = pLexBuffer;
|
||||||
ULONG hash = 0;
|
uint32_t hash = 0;
|
||||||
ULONG length = 0;
|
uint32_t length = 0;
|
||||||
|
|
||||||
while (length < nLexMaxLength && *s) {
|
while (length < nLexMaxLength && *s) {
|
||||||
hash = (hash * 283) ^ toupper(*s);
|
hash = (hash * 283) ^ toupper(*s);
|
||||||
@@ -432,12 +407,11 @@ yylex_GetLongestFixed()
|
|||||||
return pLongestFixed;
|
return pLongestFixed;
|
||||||
}
|
}
|
||||||
|
|
||||||
size_t
|
size_t CopyMacroArg(char *dest, size_t maxLength, char c)
|
||||||
CopyMacroArg(char *dest, size_t maxLength, char c)
|
|
||||||
{
|
{
|
||||||
size_t i;
|
size_t i;
|
||||||
char *s;
|
char *s;
|
||||||
int argNum;
|
int32_t argNum;
|
||||||
|
|
||||||
switch (c) {
|
switch (c) {
|
||||||
case '1':
|
case '1':
|
||||||
@@ -458,35 +432,33 @@ CopyMacroArg(char *dest, size_t maxLength, char c)
|
|||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
if ((s = sym_FindMacroArg(argNum)) == NULL)
|
s = sym_FindMacroArg(argNum);
|
||||||
|
|
||||||
|
if (s == NULL)
|
||||||
fatalerror("Macro argument not defined");
|
fatalerror("Macro argument not defined");
|
||||||
|
|
||||||
for (i = 0; s[i] != 0; i++) {
|
for (i = 0; s[i] != 0; i++) {
|
||||||
if (i >= maxLength) {
|
if (i >= maxLength)
|
||||||
fatalerror("Macro argument too long to fit buffer");
|
fatalerror("Macro argument too long to fit buffer");
|
||||||
}
|
|
||||||
dest[i] = s[i];
|
dest[i] = s[i];
|
||||||
}
|
}
|
||||||
|
|
||||||
return i;
|
return i;
|
||||||
}
|
}
|
||||||
|
|
||||||
static inline void
|
static inline void yylex_StringWriteChar(char *s, size_t index, char c)
|
||||||
yylex_StringWriteChar(char *s, size_t index, char c)
|
|
||||||
{
|
{
|
||||||
if (index >= MAXSTRLEN) {
|
if (index >= MAXSTRLEN)
|
||||||
fatalerror("String too long");
|
fatalerror("String too long");
|
||||||
}
|
|
||||||
|
|
||||||
s[index] = c;
|
s[index] = c;
|
||||||
}
|
}
|
||||||
|
|
||||||
static inline void
|
static inline void yylex_SymbolWriteChar(char *s, size_t index, char c)
|
||||||
yylex_SymbolWriteChar(char *s, size_t index, char c)
|
|
||||||
{
|
{
|
||||||
if (index >= MAXSYMLEN) {
|
if (index >= MAXSYMLEN)
|
||||||
fatalerror("Symbol too long");
|
fatalerror("Symbol too long");
|
||||||
}
|
|
||||||
|
|
||||||
s[index] = c;
|
s[index] = c;
|
||||||
}
|
}
|
||||||
@@ -497,14 +469,15 @@ yylex_SymbolWriteChar(char *s, size_t index, char c)
|
|||||||
*/
|
*/
|
||||||
void yylex_TrimEnd(char *s, size_t index)
|
void yylex_TrimEnd(char *s, size_t index)
|
||||||
{
|
{
|
||||||
int i;
|
int32_t i = (int32_t)index - 1;
|
||||||
|
|
||||||
for (i = (int)index - 1; i >= 0 && (s[i] == ' ' || s[i] == '\t'); i--)
|
while ((i >= 0) && (s[i] == ' ' || s[i] == '\t')) {
|
||||||
s[i] = 0;
|
s[i] = 0;
|
||||||
|
i--;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
size_t
|
size_t yylex_ReadBracketedSymbol(char *dest, size_t index)
|
||||||
yylex_ReadBracketedSymbol(char *dest, size_t index)
|
|
||||||
{
|
{
|
||||||
char sym[MAXSYMLEN + 1];
|
char sym[MAXSYMLEN + 1];
|
||||||
char ch;
|
char ch;
|
||||||
@@ -523,13 +496,15 @@ yylex_ReadBracketedSymbol(char *dest, size_t index)
|
|||||||
i += length;
|
i += length;
|
||||||
else
|
else
|
||||||
fatalerror("Illegal character escape '%c'", ch);
|
fatalerror("Illegal character escape '%c'", ch);
|
||||||
} else
|
} else {
|
||||||
yylex_SymbolWriteChar(sym, i++, ch);
|
yylex_SymbolWriteChar(sym, i++, ch);
|
||||||
}
|
}
|
||||||
|
}
|
||||||
|
|
||||||
yylex_SymbolWriteChar(sym, i, 0);
|
yylex_SymbolWriteChar(sym, i, 0);
|
||||||
|
|
||||||
maxLength = MAXSTRLEN - index; // it's assumed we're writing to a T_STRING
|
/* It's assumed we're writing to a T_STRING */
|
||||||
|
maxLength = MAXSTRLEN - index;
|
||||||
length = symvaluetostring(&dest[index], maxLength, sym);
|
length = symvaluetostring(&dest[index], maxLength, sym);
|
||||||
|
|
||||||
if (*pLexBuffer == '}')
|
if (*pLexBuffer == '}')
|
||||||
@@ -540,8 +515,7 @@ yylex_ReadBracketedSymbol(char *dest, size_t index)
|
|||||||
return length;
|
return length;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
static void yylex_ReadQuotedString(void)
|
||||||
yylex_ReadQuotedString()
|
|
||||||
{
|
{
|
||||||
size_t index = 0;
|
size_t index = 0;
|
||||||
size_t length, maxLength;
|
size_t length, maxLength;
|
||||||
@@ -576,19 +550,22 @@ yylex_ReadQuotedString()
|
|||||||
break;
|
break;
|
||||||
default:
|
default:
|
||||||
maxLength = MAXSTRLEN - index;
|
maxLength = MAXSTRLEN - index;
|
||||||
length = CopyMacroArg(&yylval.tzString[index], maxLength, ch);
|
length = CopyMacroArg(&yylval.tzString[index],
|
||||||
|
maxLength, ch);
|
||||||
|
|
||||||
if (length != 0)
|
if (length != 0)
|
||||||
index += length;
|
index += length;
|
||||||
else
|
else
|
||||||
fatalerror("Illegal character escape '%c'", ch);
|
fatalerror("Illegal character escape '%c'",
|
||||||
|
ch);
|
||||||
|
|
||||||
ch = 0;
|
ch = 0;
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
} else if (ch == '{') {
|
} else if (ch == '{') {
|
||||||
// Get bracketed symbol within string.
|
// Get bracketed symbol within string.
|
||||||
index += yylex_ReadBracketedSymbol(yylval.tzString, index);
|
index += yylex_ReadBracketedSymbol(yylval.tzString,
|
||||||
|
index);
|
||||||
ch = 0;
|
ch = 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -604,12 +581,11 @@ yylex_ReadQuotedString()
|
|||||||
fatalerror("Unterminated string");
|
fatalerror("Unterminated string");
|
||||||
}
|
}
|
||||||
|
|
||||||
ULONG
|
static uint32_t yylex_NORMAL(void)
|
||||||
yylex_NORMAL()
|
|
||||||
{
|
{
|
||||||
struct sLexString *pLongestFixed = NULL;
|
struct sLexString *pLongestFixed = NULL;
|
||||||
ULONG nFloatMask, nFloatLen;
|
uint32_t nFloatMask, nFloatLen;
|
||||||
ULONG linestart = AtLineStart;
|
uint32_t linestart = AtLineStart;
|
||||||
|
|
||||||
AtLineStart = 0;
|
AtLineStart = 0;
|
||||||
|
|
||||||
@@ -628,15 +604,20 @@ scanagain:
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
// Try to match an identifier, macro argument (e.g. \1),
|
/*
|
||||||
// or numeric literal.
|
* Try to match an identifier, macro argument (e.g. \1),
|
||||||
|
* or numeric literal.
|
||||||
|
*/
|
||||||
yylex_GetFloatMaskAndFloatLen(&nFloatMask, &nFloatLen);
|
yylex_GetFloatMaskAndFloatLen(&nFloatMask, &nFloatLen);
|
||||||
|
|
||||||
// Try to match a keyword or operator.
|
/* Try to match a keyword or operator. */
|
||||||
pLongestFixed = yylex_GetLongestFixed();
|
pLongestFixed = yylex_GetLongestFixed();
|
||||||
|
|
||||||
if (nFloatLen == 0 && pLongestFixed == NULL) {
|
if (nFloatLen == 0 && pLongestFixed == NULL) {
|
||||||
// No keyword, identifier, operator, or numerical literal matches.
|
/*
|
||||||
|
* No keyword, identifier, operator, or numerical literal
|
||||||
|
* matches.
|
||||||
|
*/
|
||||||
|
|
||||||
if (*pLexBuffer == '"') {
|
if (*pLexBuffer == '"') {
|
||||||
pLexBuffer++;
|
pLexBuffer++;
|
||||||
@@ -646,52 +627,55 @@ scanagain:
|
|||||||
pLexBuffer++;
|
pLexBuffer++;
|
||||||
yylex_ReadBracketedSymbol(yylval.tzString, 0);
|
yylex_ReadBracketedSymbol(yylval.tzString, 0);
|
||||||
return T_STRING;
|
return T_STRING;
|
||||||
} else {
|
}
|
||||||
// It's not a keyword, operator, identifier, macro argument,
|
|
||||||
// numeric literal, string, or bracketed symbol, so just return
|
/*
|
||||||
// the ASCII character.
|
* It's not a keyword, operator, identifier, macro argument,
|
||||||
|
* numeric literal, string, or bracketed symbol, so just return
|
||||||
|
* the ASCII character.
|
||||||
|
*/
|
||||||
if (*pLexBuffer == '\n')
|
if (*pLexBuffer == '\n')
|
||||||
AtLineStart = 1;
|
AtLineStart = 1;
|
||||||
|
|
||||||
return *pLexBuffer++;
|
return *pLexBuffer++;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
|
|
||||||
if (pLongestFixed == NULL || nFloatLen > pLongestFixed->nNameLength) {
|
if (pLongestFixed == NULL || nFloatLen > pLongestFixed->nNameLength) {
|
||||||
// Longest match was an identifier, macro argument, or numeric literal.
|
/*
|
||||||
|
* Longest match was an identifier, macro argument, or numeric
|
||||||
|
* literal.
|
||||||
|
*/
|
||||||
struct sLexFloat *token = lexgetfloat(nFloatMask);
|
struct sLexFloat *token = lexgetfloat(nFloatMask);
|
||||||
|
|
||||||
if (token->Callback) {
|
if (token->Callback) {
|
||||||
int done = token->Callback(pLexBuffer, nFloatLen);
|
int32_t done = token->Callback(pLexBuffer, nFloatLen);
|
||||||
|
|
||||||
if (!done)
|
if (!done)
|
||||||
goto scanagain;
|
goto scanagain;
|
||||||
}
|
}
|
||||||
|
|
||||||
pLexBuffer += nFloatLen;
|
pLexBuffer += nFloatLen;
|
||||||
|
|
||||||
if (token->nToken == T_ID && linestart) {
|
if (token->nToken == T_ID && linestart)
|
||||||
return T_LABEL;
|
return T_LABEL;
|
||||||
} else {
|
else
|
||||||
return token->nToken;
|
return token->nToken;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
|
|
||||||
// Longest match was a keyword or operator.
|
/* Longest match was a keyword or operator. */
|
||||||
pLexBuffer += pLongestFixed->nNameLength;
|
pLexBuffer += pLongestFixed->nNameLength;
|
||||||
return pLongestFixed->nToken;
|
return pLongestFixed->nToken;
|
||||||
}
|
}
|
||||||
|
|
||||||
ULONG
|
static uint32_t yylex_MACROARGS(void)
|
||||||
yylex_MACROARGS()
|
|
||||||
{
|
{
|
||||||
size_t index = 0;
|
size_t index = 0;
|
||||||
size_t length, maxLength;
|
size_t length, maxLength;
|
||||||
|
|
||||||
while (*pLexBuffer == ' ' || *pLexBuffer == '\t') {
|
while ((*pLexBuffer == ' ') || (*pLexBuffer == '\t'))
|
||||||
pLexBuffer++;
|
pLexBuffer++;
|
||||||
}
|
|
||||||
|
|
||||||
while (*pLexBuffer != ',' && (*pLexBuffer != '\n')) {
|
while ((*pLexBuffer != ',') && (*pLexBuffer != '\n')) {
|
||||||
char ch = *pLexBuffer++;
|
char ch = *pLexBuffer++;
|
||||||
|
|
||||||
if (ch == '\\') {
|
if (ch == '\\') {
|
||||||
@@ -718,18 +702,21 @@ yylex_MACROARGS()
|
|||||||
break;
|
break;
|
||||||
default:
|
default:
|
||||||
maxLength = MAXSTRLEN - index;
|
maxLength = MAXSTRLEN - index;
|
||||||
length = CopyMacroArg(&yylval.tzString[index], maxLength, ch);
|
length = CopyMacroArg(&yylval.tzString[index],
|
||||||
|
maxLength, ch);
|
||||||
|
|
||||||
if (length != 0)
|
if (length != 0)
|
||||||
index += length;
|
index += length;
|
||||||
else
|
else
|
||||||
fatalerror("Illegal character escape '%c'", ch);
|
fatalerror("Illegal character escape '%c'",
|
||||||
|
ch);
|
||||||
|
|
||||||
ch = 0;
|
ch = 0;
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
} else if (ch == '{') {
|
} else if (ch == '{') {
|
||||||
index += yylex_ReadBracketedSymbol(yylval.tzString, index);
|
index += yylex_ReadBracketedSymbol(yylval.tzString,
|
||||||
|
index);
|
||||||
ch = 0;
|
ch = 0;
|
||||||
}
|
}
|
||||||
if (ch)
|
if (ch)
|
||||||
@@ -739,7 +726,7 @@ yylex_MACROARGS()
|
|||||||
if (index) {
|
if (index) {
|
||||||
yylex_StringWriteChar(yylval.tzString, index, 0);
|
yylex_StringWriteChar(yylval.tzString, index, 0);
|
||||||
|
|
||||||
// trim trailing white space at the end of the line
|
/* trim trailing white space at the end of the line */
|
||||||
if (*pLexBuffer == '\n')
|
if (*pLexBuffer == '\n')
|
||||||
yylex_TrimEnd(yylval.tzString, index);
|
yylex_TrimEnd(yylval.tzString, index);
|
||||||
|
|
||||||
@@ -753,12 +740,10 @@ yylex_MACROARGS()
|
|||||||
return ',';
|
return ',';
|
||||||
}
|
}
|
||||||
|
|
||||||
fatalerror("Internal error in yylex_MACROARGS");
|
fatalerror("Internal error in %s", __func__);
|
||||||
return 0;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
ULONG
|
uint32_t yylex(void)
|
||||||
yylex(void)
|
|
||||||
{
|
{
|
||||||
switch (lexerstate) {
|
switch (lexerstate) {
|
||||||
case LEX_STATE_NORMAL:
|
case LEX_STATE_NORMAL:
|
||||||
@@ -767,6 +752,5 @@ yylex(void)
|
|||||||
return yylex_MACROARGS();
|
return yylex_MACROARGS();
|
||||||
}
|
}
|
||||||
|
|
||||||
fatalerror("Internal error in yylex");
|
fatalerror("Internal error in %s", __func__);
|
||||||
return 0;
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,89 +0,0 @@
|
|||||||
#include "asm/symbol.h"
|
|
||||||
#include "asm/lexer.h"
|
|
||||||
#include "asm/rpn.h"
|
|
||||||
|
|
||||||
#include "asmy.h"
|
|
||||||
|
|
||||||
struct sLexInitString localstrings[] = {
|
|
||||||
{"adc", T_Z80_ADC},
|
|
||||||
{"add", T_Z80_ADD},
|
|
||||||
{"and", T_Z80_AND},
|
|
||||||
{"bit", T_Z80_BIT},
|
|
||||||
{"call", T_Z80_CALL},
|
|
||||||
{"ccf", T_Z80_CCF},
|
|
||||||
{"cpl", T_Z80_CPL},
|
|
||||||
{"cp", T_Z80_CP},
|
|
||||||
{"daa", T_Z80_DAA},
|
|
||||||
{"dec", T_Z80_DEC},
|
|
||||||
{"di", T_Z80_DI},
|
|
||||||
{"ei", T_Z80_EI},
|
|
||||||
{"halt", T_Z80_HALT},
|
|
||||||
{"inc", T_Z80_INC},
|
|
||||||
{"jp", T_Z80_JP},
|
|
||||||
{"jr", T_Z80_JR},
|
|
||||||
{"ld", T_Z80_LD},
|
|
||||||
{"ldi", T_Z80_LDI},
|
|
||||||
{"ldd", T_Z80_LDD},
|
|
||||||
{"ldio", T_Z80_LDIO},
|
|
||||||
{"ldh", T_Z80_LDIO},
|
|
||||||
{"nop", T_Z80_NOP},
|
|
||||||
{"or", T_Z80_OR},
|
|
||||||
{"pop", T_Z80_POP},
|
|
||||||
{"push", T_Z80_PUSH},
|
|
||||||
{"res", T_Z80_RES},
|
|
||||||
{"reti", T_Z80_RETI},
|
|
||||||
{"ret", T_Z80_RET},
|
|
||||||
{"rlca", T_Z80_RLCA},
|
|
||||||
{"rlc", T_Z80_RLC},
|
|
||||||
{"rla", T_Z80_RLA},
|
|
||||||
{"rl", T_Z80_RL},
|
|
||||||
{"rrc", T_Z80_RRC},
|
|
||||||
{"rrca", T_Z80_RRCA},
|
|
||||||
{"rra", T_Z80_RRA},
|
|
||||||
{"rr", T_Z80_RR},
|
|
||||||
{"rst", T_Z80_RST},
|
|
||||||
{"sbc", T_Z80_SBC},
|
|
||||||
{"scf", T_Z80_SCF},
|
|
||||||
|
|
||||||
/* Handled by globallex.c */
|
|
||||||
/* { "set", T_POP_SET }, */
|
|
||||||
|
|
||||||
{"sla", T_Z80_SLA},
|
|
||||||
{"sra", T_Z80_SRA},
|
|
||||||
{"srl", T_Z80_SRL},
|
|
||||||
{"stop", T_Z80_STOP},
|
|
||||||
{"sub", T_Z80_SUB},
|
|
||||||
{"swap", T_Z80_SWAP},
|
|
||||||
{"xor", T_Z80_XOR},
|
|
||||||
|
|
||||||
{"nz", T_CC_NZ},
|
|
||||||
{"z", T_CC_Z},
|
|
||||||
{"nc", T_CC_NC},
|
|
||||||
/* { "c", T_TOKEN_C }, */
|
|
||||||
|
|
||||||
{"[bc]", T_MODE_BC_IND},
|
|
||||||
{"[de]", T_MODE_DE_IND},
|
|
||||||
{"[hl]", T_MODE_HL_IND},
|
|
||||||
{"[hl+]", T_MODE_HL_INDINC},
|
|
||||||
{"[hl-]", T_MODE_HL_INDDEC},
|
|
||||||
{"[hli]", T_MODE_HL_INDINC},
|
|
||||||
{"[hld]", T_MODE_HL_INDDEC},
|
|
||||||
{"[sp]", T_MODE_SP_IND},
|
|
||||||
{"af", T_MODE_AF},
|
|
||||||
{"bc", T_MODE_BC},
|
|
||||||
{"de", T_MODE_DE},
|
|
||||||
{"hl", T_MODE_HL},
|
|
||||||
{"sp", T_MODE_SP},
|
|
||||||
{"[c]", T_MODE_C_IND},
|
|
||||||
{"[$ff00+c]", T_MODE_C_IND},
|
|
||||||
|
|
||||||
{"a", T_TOKEN_A},
|
|
||||||
{"b", T_TOKEN_B},
|
|
||||||
{"c", T_TOKEN_C},
|
|
||||||
{"d", T_TOKEN_D},
|
|
||||||
{"e", T_TOKEN_E},
|
|
||||||
{"h", T_TOKEN_H},
|
|
||||||
{"l", T_TOKEN_L},
|
|
||||||
|
|
||||||
{NULL, 0}
|
|
||||||
};
|
|
||||||
177
src/asm/main.c
177
src/asm/main.c
@@ -1,6 +1,7 @@
|
|||||||
#include <math.h>
|
#include <math.h>
|
||||||
#include <stdarg.h>
|
#include <stdarg.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
|
#include <stdint.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
#include <time.h>
|
#include <time.h>
|
||||||
@@ -8,29 +9,29 @@
|
|||||||
|
|
||||||
#include "asm/symbol.h"
|
#include "asm/symbol.h"
|
||||||
#include "asm/fstack.h"
|
#include "asm/fstack.h"
|
||||||
|
#include "asm/lexer.h"
|
||||||
#include "asm/output.h"
|
#include "asm/output.h"
|
||||||
#include "asm/main.h"
|
#include "asm/main.h"
|
||||||
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
#include "extern/reallocarray.h"
|
#include "extern/reallocarray.h"
|
||||||
#include "extern/version.h"
|
#include "extern/version.h"
|
||||||
|
|
||||||
int yyparse(void);
|
extern int yyparse(void);
|
||||||
void setuplex(void);
|
|
||||||
|
|
||||||
int cldefines_index;
|
int32_t cldefines_index;
|
||||||
int cldefines_size;
|
int32_t cldefines_size;
|
||||||
char **cldefines;
|
char **cldefines;
|
||||||
|
|
||||||
clock_t nStartClock, nEndClock;
|
clock_t nStartClock, nEndClock;
|
||||||
SLONG nLineNo;
|
int32_t nLineNo;
|
||||||
ULONG nTotalLines, nPass, nPC, nIFDepth, nUnionDepth, nErrors;
|
uint32_t nTotalLines, nPass, nPC, nIFDepth, nUnionDepth, nErrors;
|
||||||
bool skipElif;
|
bool skipElif;
|
||||||
ULONG unionStart[128], unionSize[128];
|
uint32_t unionStart[128], unionSize[128];
|
||||||
|
|
||||||
extern int yydebug;
|
/* extern int yydebug; */
|
||||||
|
|
||||||
FILE *dependfile;
|
FILE *dependfile;
|
||||||
extern char *tzObjectname;
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Option stack
|
* Option stack
|
||||||
@@ -44,10 +45,9 @@ struct sOptionStackEntry {
|
|||||||
struct sOptionStackEntry *pNext;
|
struct sOptionStackEntry *pNext;
|
||||||
};
|
};
|
||||||
|
|
||||||
struct sOptionStackEntry *pOptionStack = NULL;
|
struct sOptionStackEntry *pOptionStack;
|
||||||
|
|
||||||
void
|
void opt_SetCurrentOptions(struct sOptions *pOpt)
|
||||||
opt_SetCurrentOptions(struct sOptions * pOpt)
|
|
||||||
{
|
{
|
||||||
if (nGBGfxID != -1) {
|
if (nGBGfxID != -1) {
|
||||||
lex_FloatDeleteRange(nGBGfxID, CurrentOptions.gbgfx[0],
|
lex_FloatDeleteRange(nGBGfxID, CurrentOptions.gbgfx[0],
|
||||||
@@ -109,8 +109,7 @@ opt_SetCurrentOptions(struct sOptions * pOpt)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void opt_Parse(char *s)
|
||||||
opt_Parse(char *s)
|
|
||||||
{
|
{
|
||||||
struct sOptions newopt;
|
struct sOptions newopt;
|
||||||
|
|
||||||
@@ -124,8 +123,7 @@ opt_Parse(char *s)
|
|||||||
newopt.gbgfx[2] = s[3];
|
newopt.gbgfx[2] = s[3];
|
||||||
newopt.gbgfx[3] = s[4];
|
newopt.gbgfx[3] = s[4];
|
||||||
} else {
|
} else {
|
||||||
errx(1, "Must specify exactly 4 characters for "
|
errx(1, "Must specify exactly 4 characters for option 'g'");
|
||||||
"option 'g'");
|
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case 'b':
|
case 'b':
|
||||||
@@ -133,21 +131,18 @@ opt_Parse(char *s)
|
|||||||
newopt.binary[0] = s[1];
|
newopt.binary[0] = s[1];
|
||||||
newopt.binary[1] = s[2];
|
newopt.binary[1] = s[2];
|
||||||
} else {
|
} else {
|
||||||
errx(1, "Must specify exactly 2 characters for option "
|
errx(1, "Must specify exactly 2 characters for option 'b'");
|
||||||
"'b'");
|
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case 'z':
|
case 'z':
|
||||||
if (strlen(&s[1]) <= 2) {
|
if (strlen(&s[1]) <= 2) {
|
||||||
int result;
|
int32_t result;
|
||||||
|
|
||||||
result = sscanf(&s[1], "%lx", &newopt.fillchar);
|
result = sscanf(&s[1], "%x", &newopt.fillchar);
|
||||||
if (!((result == EOF) || (result == 1))) {
|
if (!((result == EOF) || (result == 1)))
|
||||||
errx(1, "Invalid argument for option 'z'");
|
errx(1, "Invalid argument for option 'z'");
|
||||||
}
|
|
||||||
} else {
|
} else {
|
||||||
errx(1, "Invalid argument for option 'z'");
|
errx(1, "Invalid argument for option 'z'");
|
||||||
exit(1);
|
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
default:
|
default:
|
||||||
@@ -158,77 +153,67 @@ opt_Parse(char *s)
|
|||||||
opt_SetCurrentOptions(&newopt);
|
opt_SetCurrentOptions(&newopt);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void opt_Push(void)
|
||||||
opt_Push(void)
|
|
||||||
{
|
{
|
||||||
struct sOptionStackEntry *pOpt;
|
struct sOptionStackEntry *pOpt;
|
||||||
|
|
||||||
if ((pOpt = malloc(sizeof(struct sOptionStackEntry))) != NULL) {
|
pOpt = malloc(sizeof(struct sOptionStackEntry));
|
||||||
|
|
||||||
|
if (pOpt == NULL)
|
||||||
|
fatalerror("No memory for option stack");
|
||||||
|
|
||||||
pOpt->Options = CurrentOptions;
|
pOpt->Options = CurrentOptions;
|
||||||
pOpt->pNext = pOptionStack;
|
pOpt->pNext = pOptionStack;
|
||||||
pOptionStack = pOpt;
|
pOptionStack = pOpt;
|
||||||
} else
|
|
||||||
fatalerror("No memory for option stack");
|
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void opt_Pop(void)
|
||||||
opt_Pop(void)
|
|
||||||
{
|
{
|
||||||
if (pOptionStack) {
|
if (pOptionStack == NULL)
|
||||||
|
fatalerror("No entries in the option stack");
|
||||||
|
|
||||||
struct sOptionStackEntry *pOpt;
|
struct sOptionStackEntry *pOpt;
|
||||||
|
|
||||||
pOpt = pOptionStack;
|
pOpt = pOptionStack;
|
||||||
opt_SetCurrentOptions(&(pOpt->Options));
|
opt_SetCurrentOptions(&(pOpt->Options));
|
||||||
pOptionStack = pOpt->pNext;
|
pOptionStack = pOpt->pNext;
|
||||||
free(pOpt);
|
free(pOpt);
|
||||||
} else
|
|
||||||
fatalerror("No entries in the option stack");
|
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void opt_AddDefine(char *s)
|
||||||
opt_AddDefine(char *s)
|
|
||||||
{
|
{
|
||||||
char *value, *equals;
|
char *value, *equals;
|
||||||
if(cldefines_index >= cldefines_size)
|
|
||||||
{
|
if (cldefines_index >= cldefines_size) {
|
||||||
cldefines_size *= 2;
|
cldefines_size *= 2;
|
||||||
cldefines = reallocarray(cldefines, cldefines_size,
|
cldefines = reallocarray(cldefines, cldefines_size,
|
||||||
2 * sizeof(void *));
|
2 * sizeof(void *));
|
||||||
if(!cldefines)
|
if (!cldefines)
|
||||||
{
|
|
||||||
fatalerror("No memory for command line defines");
|
fatalerror("No memory for command line defines");
|
||||||
}
|
}
|
||||||
}
|
|
||||||
equals = strchr(s, '=');
|
equals = strchr(s, '=');
|
||||||
if(equals)
|
if (equals) {
|
||||||
{
|
|
||||||
*equals = '\0';
|
*equals = '\0';
|
||||||
value = equals + 1;
|
value = equals + 1;
|
||||||
}
|
} else {
|
||||||
else
|
|
||||||
{
|
|
||||||
value = "1";
|
value = "1";
|
||||||
}
|
}
|
||||||
cldefines[cldefines_index++] = s;
|
cldefines[cldefines_index++] = s;
|
||||||
cldefines[cldefines_index++] = value;
|
cldefines[cldefines_index++] = value;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
static void opt_ParseDefines(void)
|
||||||
opt_ParseDefines()
|
|
||||||
{
|
{
|
||||||
int i;
|
int32_t i;
|
||||||
|
|
||||||
for(i = 0; i < cldefines_index; i += 2)
|
for (i = 0; i < cldefines_index; i += 2)
|
||||||
{
|
|
||||||
sym_AddString(cldefines[i], cldefines[i + 1]);
|
sym_AddString(cldefines[i], cldefines[i + 1]);
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Error handling
|
* Error handling
|
||||||
*/
|
*/
|
||||||
void
|
void verror(const char *fmt, va_list args)
|
||||||
verror(const char *fmt, va_list args)
|
|
||||||
{
|
{
|
||||||
fprintf(stderr, "ERROR: ");
|
fprintf(stderr, "ERROR: ");
|
||||||
fstk_Dump();
|
fstk_Dump();
|
||||||
@@ -238,32 +223,33 @@ verror(const char *fmt, va_list args)
|
|||||||
nErrors += 1;
|
nErrors += 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void yyerror(const char *fmt, ...)
|
||||||
yyerror(const char *fmt, ...)
|
|
||||||
{
|
{
|
||||||
va_list args;
|
va_list args;
|
||||||
|
|
||||||
va_start(args, fmt);
|
va_start(args, fmt);
|
||||||
verror(fmt, args);
|
verror(fmt, args);
|
||||||
va_end(args);
|
va_end(args);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void fatalerror(const char *fmt, ...)
|
||||||
fatalerror(const char *fmt, ...)
|
|
||||||
{
|
{
|
||||||
va_list args;
|
va_list args;
|
||||||
|
|
||||||
va_start(args, fmt);
|
va_start(args, fmt);
|
||||||
verror(fmt, args);
|
verror(fmt, args);
|
||||||
va_end(args);
|
va_end(args);
|
||||||
|
|
||||||
exit(5);
|
exit(5);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void warning(const char *fmt, ...)
|
||||||
warning(const char *fmt, ...)
|
|
||||||
{
|
{
|
||||||
if (!CurrentOptions.warnings)
|
if (!CurrentOptions.warnings)
|
||||||
return;
|
return;
|
||||||
|
|
||||||
va_list args;
|
va_list args;
|
||||||
|
|
||||||
va_start(args, fmt);
|
va_start(args, fmt);
|
||||||
|
|
||||||
fprintf(stderr, "warning: ");
|
fprintf(stderr, "warning: ");
|
||||||
@@ -275,17 +261,15 @@ warning(const char *fmt, ...)
|
|||||||
va_end(args);
|
va_end(args);
|
||||||
}
|
}
|
||||||
|
|
||||||
static void
|
static void print_usage(void)
|
||||||
usage(void)
|
|
||||||
{
|
{
|
||||||
printf(
|
printf(
|
||||||
"Usage: rgbasm [-EhVvw] [-b chars] [-Dname[=value]] [-g chars] [-i path]\n"
|
"usage: rgbasm [-EhVvw] [-b chars] [-Dname[=value]] [-g chars] [-i path]\n"
|
||||||
" [-M dependfile] [-o outfile] [-p pad_value] file.asm\n");
|
" [-M dependfile] [-o outfile] [-p pad_value] file.asm\n");
|
||||||
exit(1);
|
exit(1);
|
||||||
}
|
}
|
||||||
|
|
||||||
int
|
int main(int argc, char *argv[])
|
||||||
main(int argc, char *argv[])
|
|
||||||
{
|
{
|
||||||
int ch;
|
int ch;
|
||||||
char *ep;
|
char *ep;
|
||||||
@@ -297,15 +281,12 @@ main(int argc, char *argv[])
|
|||||||
dependfile = NULL;
|
dependfile = NULL;
|
||||||
|
|
||||||
cldefines_size = 32;
|
cldefines_size = 32;
|
||||||
cldefines = reallocarray(cldefines, cldefines_size,
|
cldefines = reallocarray(cldefines, cldefines_size, 2 * sizeof(void *));
|
||||||
2 * sizeof(void *));
|
if (!cldefines)
|
||||||
if(!cldefines)
|
|
||||||
{
|
|
||||||
fatalerror("No memory for command line defines");
|
fatalerror("No memory for command line defines");
|
||||||
}
|
|
||||||
|
|
||||||
if (argc == 1)
|
if (argc == 1)
|
||||||
usage();
|
print_usage();
|
||||||
|
|
||||||
/* yydebug=1; */
|
/* yydebug=1; */
|
||||||
|
|
||||||
@@ -332,8 +313,7 @@ main(int argc, char *argv[])
|
|||||||
newopt.binary[0] = optarg[1];
|
newopt.binary[0] = optarg[1];
|
||||||
newopt.binary[1] = optarg[2];
|
newopt.binary[1] = optarg[2];
|
||||||
} else {
|
} else {
|
||||||
errx(1, "Must specify exactly 2 characters for "
|
errx(1, "Must specify exactly 2 characters for option 'b'");
|
||||||
"option 'b'");
|
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case 'D':
|
case 'D':
|
||||||
@@ -349,8 +329,7 @@ main(int argc, char *argv[])
|
|||||||
newopt.gbgfx[2] = optarg[3];
|
newopt.gbgfx[2] = optarg[3];
|
||||||
newopt.gbgfx[3] = optarg[4];
|
newopt.gbgfx[3] = optarg[4];
|
||||||
} else {
|
} else {
|
||||||
errx(1, "Must specify exactly 4 characters for "
|
errx(1, "Must specify exactly 4 characters for option 'g'");
|
||||||
"option 'g'");
|
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case 'h':
|
case 'h':
|
||||||
@@ -360,22 +339,23 @@ main(int argc, char *argv[])
|
|||||||
fstk_AddIncludePath(optarg);
|
fstk_AddIncludePath(optarg);
|
||||||
break;
|
break;
|
||||||
case 'M':
|
case 'M':
|
||||||
if ((dependfile = fopen(optarg, "w")) == NULL) {
|
dependfile = fopen(optarg, "w");
|
||||||
|
if (dependfile == NULL)
|
||||||
err(1, "Could not open dependfile %s", optarg);
|
err(1, "Could not open dependfile %s", optarg);
|
||||||
}
|
|
||||||
break;
|
break;
|
||||||
case 'o':
|
case 'o':
|
||||||
out_SetFileName(optarg);
|
out_SetFileName(optarg);
|
||||||
break;
|
break;
|
||||||
case 'p':
|
case 'p':
|
||||||
newopt.fillchar = strtoul(optarg, &ep, 0);
|
newopt.fillchar = strtoul(optarg, &ep, 0);
|
||||||
if (optarg[0] == '\0' || *ep != '\0') {
|
|
||||||
|
if (optarg[0] == '\0' || *ep != '\0')
|
||||||
errx(1, "Invalid argument for option 'p'");
|
errx(1, "Invalid argument for option 'p'");
|
||||||
}
|
|
||||||
if (newopt.fillchar < 0 || newopt.fillchar > 0xFF) {
|
if (newopt.fillchar < 0 || newopt.fillchar > 0xFF)
|
||||||
errx(1, "Argument for option 'p' must be "
|
errx(1, "Argument for option 'p' must be between 0 and 0xFF");
|
||||||
"between 0 and 0xFF");
|
|
||||||
}
|
|
||||||
break;
|
break;
|
||||||
case 'V':
|
case 'V':
|
||||||
printf("rgbasm %s\n", get_package_version_string());
|
printf("rgbasm %s\n", get_package_version_string());
|
||||||
@@ -387,7 +367,7 @@ main(int argc, char *argv[])
|
|||||||
newopt.warnings = false;
|
newopt.warnings = false;
|
||||||
break;
|
break;
|
||||||
default:
|
default:
|
||||||
usage();
|
print_usage();
|
||||||
/* NOTREACHED */
|
/* NOTREACHED */
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -399,15 +379,14 @@ main(int argc, char *argv[])
|
|||||||
DefaultOptions = CurrentOptions;
|
DefaultOptions = CurrentOptions;
|
||||||
|
|
||||||
if (argc == 0)
|
if (argc == 0)
|
||||||
usage();
|
print_usage();
|
||||||
|
|
||||||
tzMainfile = argv[argc - 1];
|
tzMainfile = argv[argc - 1];
|
||||||
|
|
||||||
setuplex();
|
setup_lexer();
|
||||||
|
|
||||||
if (CurrentOptions.verbose) {
|
if (CurrentOptions.verbose)
|
||||||
printf("Assembling %s\n", tzMainfile);
|
printf("Assembling %s\n", tzMainfile);
|
||||||
}
|
|
||||||
|
|
||||||
if (dependfile) {
|
if (dependfile) {
|
||||||
if (!tzObjectname)
|
if (!tzObjectname)
|
||||||
@@ -431,23 +410,21 @@ main(int argc, char *argv[])
|
|||||||
fstk_Init(tzMainfile);
|
fstk_Init(tzMainfile);
|
||||||
opt_ParseDefines();
|
opt_ParseDefines();
|
||||||
|
|
||||||
if (CurrentOptions.verbose) {
|
if (CurrentOptions.verbose)
|
||||||
printf("Pass 1...\n");
|
printf("Pass 1...\n");
|
||||||
}
|
|
||||||
|
|
||||||
yy_set_state(LEX_STATE_NORMAL);
|
yy_set_state(LEX_STATE_NORMAL);
|
||||||
opt_SetCurrentOptions(&DefaultOptions);
|
opt_SetCurrentOptions(&DefaultOptions);
|
||||||
|
|
||||||
if (yyparse() != 0 || nErrors != 0) {
|
if (yyparse() != 0 || nErrors != 0)
|
||||||
errx(1, "Assembly aborted in pass 1 (%ld errors)!", nErrors);
|
errx(1, "Assembly aborted in pass 1 (%ld errors)!", nErrors);
|
||||||
}
|
|
||||||
|
|
||||||
if (nIFDepth != 0) {
|
if (nIFDepth != 0)
|
||||||
errx(1, "Unterminated IF construct (%ld levels)!", nIFDepth);
|
errx(1, "Unterminated IF construct (%ld levels)!", nIFDepth);
|
||||||
}
|
|
||||||
|
|
||||||
if (nUnionDepth != 0) {
|
if (nUnionDepth != 0) {
|
||||||
errx(1, "Unterminated UNION construct (%ld levels)!", nUnionDepth);
|
errx(1, "Unterminated UNION construct (%ld levels)!",
|
||||||
|
nUnionDepth);
|
||||||
}
|
}
|
||||||
|
|
||||||
nTotalLines = 0;
|
nTotalLines = 0;
|
||||||
@@ -465,13 +442,11 @@ main(int argc, char *argv[])
|
|||||||
opt_SetCurrentOptions(&DefaultOptions);
|
opt_SetCurrentOptions(&DefaultOptions);
|
||||||
opt_ParseDefines();
|
opt_ParseDefines();
|
||||||
|
|
||||||
if (CurrentOptions.verbose) {
|
if (CurrentOptions.verbose)
|
||||||
printf("Pass 2...\n");
|
printf("Pass 2...\n");
|
||||||
}
|
|
||||||
|
|
||||||
if (yyparse() != 0 || nErrors != 0) {
|
if (yyparse() != 0 || nErrors != 0)
|
||||||
errx(1, "Assembly aborted in pass 2 (%ld errors)!", nErrors);
|
errx(1, "Assembly aborted in pass 2 (%ld errors)!", nErrors);
|
||||||
}
|
|
||||||
|
|
||||||
double timespent;
|
double timespent;
|
||||||
|
|
||||||
@@ -479,13 +454,13 @@ main(int argc, char *argv[])
|
|||||||
timespent = ((double)(nEndClock - nStartClock))
|
timespent = ((double)(nEndClock - nStartClock))
|
||||||
/ (double)CLOCKS_PER_SEC;
|
/ (double)CLOCKS_PER_SEC;
|
||||||
if (CurrentOptions.verbose) {
|
if (CurrentOptions.verbose) {
|
||||||
printf("Success! %ld lines in %d.%02d seconds ", nTotalLines,
|
printf("Success! %u lines in %d.%02d seconds ", nTotalLines,
|
||||||
(int) timespent, ((int) (timespent * 100.0)) % 100);
|
(int)timespent, ((int)(timespent * 100.0)) % 100);
|
||||||
if (timespent == 0)
|
if (timespent == 0)
|
||||||
printf("(INFINITY lines/minute)\n");
|
printf("(INFINITY lines/minute)\n");
|
||||||
else
|
else
|
||||||
printf("(%d lines/minute)\n",
|
printf("(%d lines/minute)\n",
|
||||||
(int) (60 / timespent * nTotalLines));
|
(int)(60 / timespent * nTotalLines));
|
||||||
}
|
}
|
||||||
out_WriteObject();
|
out_WriteObject();
|
||||||
return 0;
|
return 0;
|
||||||
|
|||||||
@@ -3,146 +3,132 @@
|
|||||||
*/
|
*/
|
||||||
|
|
||||||
#include <math.h>
|
#include <math.h>
|
||||||
|
#include <stdint.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
|
|
||||||
#include "types.h"
|
|
||||||
#include "asm/mymath.h"
|
#include "asm/mymath.h"
|
||||||
#include "asm/symbol.h"
|
#include "asm/symbol.h"
|
||||||
|
|
||||||
#define fix2double(i) ((double)(i/65536.0))
|
#define fx2double(i) ((double)((i) / 65536.0))
|
||||||
#define double2fix(d) ((SLONG)(d*65536.0))
|
#define double2fx(d) ((int32_t)((d) * 65536.0))
|
||||||
#ifndef PI
|
|
||||||
#define PI (acos(-1))
|
#ifndef M_PI
|
||||||
|
#define M_PI 3.14159265358979323846
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Define the _PI symbol
|
* Define the _PI symbol
|
||||||
*/
|
*/
|
||||||
void
|
void math_DefinePI(void)
|
||||||
math_DefinePI(void)
|
|
||||||
{
|
{
|
||||||
sym_AddEqu("_PI", double2fix(PI));
|
sym_AddEqu("_PI", double2fx(M_PI));
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Print a fixed point value
|
* Print a fixed point value
|
||||||
*/
|
*/
|
||||||
void
|
void math_Print(int32_t i)
|
||||||
math_Print(SLONG i)
|
|
||||||
{
|
{
|
||||||
if (i >= 0)
|
if (i >= 0)
|
||||||
printf("%ld.%05ld", i >> 16,
|
printf("%d.%05d", i >> 16,
|
||||||
((SLONG) (fix2double(i) * 100000 + 0.5)) % 100000);
|
((int32_t)(fx2double(i) * 100000 + 0.5)) % 100000);
|
||||||
else
|
else
|
||||||
printf("-%ld.%05ld", (-i) >> 16,
|
printf("-%d.%05d", (-i) >> 16,
|
||||||
((SLONG) (fix2double(-i) * 100000 + 0.5)) % 100000);
|
((int32_t)(fx2double(-i) * 100000 + 0.5)) % 100000);
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Calculate sine
|
* Calculate sine
|
||||||
*/
|
*/
|
||||||
SLONG
|
int32_t math_Sin(int32_t i)
|
||||||
math_Sin(SLONG i)
|
|
||||||
{
|
{
|
||||||
return (double2fix(sin(fix2double(i) * 2 * PI / 65536)));
|
return double2fx(sin(fx2double(i) * 2 * M_PI / 65536));
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Calculate cosine
|
* Calculate cosine
|
||||||
*/
|
*/
|
||||||
SLONG
|
int32_t math_Cos(int32_t i)
|
||||||
math_Cos(SLONG i)
|
|
||||||
{
|
{
|
||||||
return (double2fix(cos(fix2double(i) * 2 * PI / 65536)));
|
return double2fx(cos(fx2double(i) * 2 * M_PI / 65536));
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Calculate tangent
|
* Calculate tangent
|
||||||
*/
|
*/
|
||||||
SLONG
|
int32_t math_Tan(int32_t i)
|
||||||
math_Tan(SLONG i)
|
|
||||||
{
|
{
|
||||||
return (double2fix(tan(fix2double(i) * 2 * PI / 65536)));
|
return double2fx(tan(fx2double(i) * 2 * M_PI / 65536));
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Calculate arcsine
|
* Calculate arcsine
|
||||||
*/
|
*/
|
||||||
SLONG
|
int32_t math_ASin(int32_t i)
|
||||||
math_ASin(SLONG i)
|
|
||||||
{
|
{
|
||||||
return (double2fix(asin(fix2double(i)) / 2 / PI * 65536));
|
return double2fx(asin(fx2double(i)) / 2 / M_PI * 65536);
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Calculate arccosine
|
* Calculate arccosine
|
||||||
*/
|
*/
|
||||||
SLONG
|
int32_t math_ACos(int32_t i)
|
||||||
math_ACos(SLONG i)
|
|
||||||
{
|
{
|
||||||
return (double2fix(acos(fix2double(i)) / 2 / PI * 65536));
|
return double2fx(acos(fx2double(i)) / 2 / M_PI * 65536);
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Calculate arctangent
|
* Calculate arctangent
|
||||||
*/
|
*/
|
||||||
SLONG
|
int32_t math_ATan(int32_t i)
|
||||||
math_ATan(SLONG i)
|
|
||||||
{
|
{
|
||||||
return (double2fix(atan(fix2double(i)) / 2 / PI * 65536));
|
return double2fx(atan(fx2double(i)) / 2 / M_PI * 65536);
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Calculate atan2
|
* Calculate atan2
|
||||||
*/
|
*/
|
||||||
SLONG
|
int32_t math_ATan2(int32_t i, int32_t j)
|
||||||
math_ATan2(SLONG i, SLONG j)
|
|
||||||
{
|
{
|
||||||
return (double2fix
|
return double2fx(atan2(fx2double(i), fx2double(j)) / 2 / M_PI * 65536);
|
||||||
(atan2(fix2double(i), fix2double(j)) / 2 / PI * 65536));
|
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Multiplication
|
* Multiplication
|
||||||
*/
|
*/
|
||||||
SLONG
|
int32_t math_Mul(int32_t i, int32_t j)
|
||||||
math_Mul(SLONG i, SLONG j)
|
|
||||||
{
|
{
|
||||||
return (double2fix(fix2double(i) * fix2double(j)));
|
return double2fx(fx2double(i) * fx2double(j));
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Division
|
* Division
|
||||||
*/
|
*/
|
||||||
SLONG
|
int32_t math_Div(int32_t i, int32_t j)
|
||||||
math_Div(SLONG i, SLONG j)
|
|
||||||
{
|
{
|
||||||
return (double2fix(fix2double(i) / fix2double(j)));
|
return double2fx(fx2double(i) / fx2double(j));
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Round
|
* Round
|
||||||
*/
|
*/
|
||||||
SLONG
|
int32_t math_Round(int32_t i)
|
||||||
math_Round(SLONG i)
|
|
||||||
{
|
{
|
||||||
return double2fix(round(fix2double(i)));
|
return double2fx(round(fx2double(i)));
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Ceil
|
* Ceil
|
||||||
*/
|
*/
|
||||||
SLONG
|
int32_t math_Ceil(int32_t i)
|
||||||
math_Ceil(SLONG i)
|
|
||||||
{
|
{
|
||||||
return double2fix(ceil(fix2double(i)));
|
return double2fx(ceil(fx2double(i)));
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Floor
|
* Floor
|
||||||
*/
|
*/
|
||||||
SLONG
|
int32_t math_Floor(int32_t i)
|
||||||
math_Floor(SLONG i)
|
|
||||||
{
|
{
|
||||||
return double2fix(floor(fix2double(i)));
|
return double2fx(floor(fx2double(i)));
|
||||||
}
|
}
|
||||||
|
|||||||
422
src/asm/output.c
422
src/asm/output.c
@@ -4,95 +4,107 @@
|
|||||||
|
|
||||||
#include <errno.h>
|
#include <errno.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
|
#include <stdint.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
||||||
#include "asm/asm.h"
|
#include "asm/asm.h"
|
||||||
#include "asm/charmap.h"
|
#include "asm/charmap.h"
|
||||||
#include "asm/output.h"
|
|
||||||
#include "asm/symbol.h"
|
|
||||||
#include "asm/mylink.h"
|
|
||||||
#include "asm/main.h"
|
|
||||||
#include "asm/rpn.h"
|
|
||||||
#include "asm/fstack.h"
|
#include "asm/fstack.h"
|
||||||
#include "common.h"
|
#include "asm/main.h"
|
||||||
|
#include "asm/output.h"
|
||||||
|
#include "asm/rpn.h"
|
||||||
|
#include "asm/symbol.h"
|
||||||
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
|
|
||||||
void out_SetCurrentSection(struct Section * pSect);
|
#include "common.h"
|
||||||
|
#include "linkdefs.h"
|
||||||
|
|
||||||
|
void out_SetCurrentSection(struct Section *pSect);
|
||||||
|
|
||||||
struct Patch {
|
struct Patch {
|
||||||
char tzFilename[_MAX_PATH + 1];
|
char tzFilename[_MAX_PATH + 1];
|
||||||
ULONG nLine;
|
uint32_t nLine;
|
||||||
ULONG nOffset;
|
uint32_t nOffset;
|
||||||
UBYTE nType;
|
uint8_t nType;
|
||||||
ULONG nRPNSize;
|
uint32_t nRPNSize;
|
||||||
UBYTE *pRPN;
|
uint8_t *pRPN;
|
||||||
struct Patch *pNext;
|
struct Patch *pNext;
|
||||||
};
|
};
|
||||||
|
|
||||||
struct PatchSymbol {
|
struct PatchSymbol {
|
||||||
ULONG ID;
|
uint32_t ID;
|
||||||
struct sSymbol *pSymbol;
|
struct sSymbol *pSymbol;
|
||||||
struct PatchSymbol *pNext;
|
struct PatchSymbol *pNext;
|
||||||
struct PatchSymbol *pBucketNext; // next symbol in hash table bucket
|
struct PatchSymbol *pBucketNext; /* next symbol in hash table bucket */
|
||||||
};
|
};
|
||||||
|
|
||||||
struct SectionStackEntry {
|
struct SectionStackEntry {
|
||||||
struct Section *pSection;
|
struct Section *pSection;
|
||||||
|
struct sSymbol *pScope; /* Section's symbol scope */
|
||||||
struct SectionStackEntry *pNext;
|
struct SectionStackEntry *pNext;
|
||||||
};
|
};
|
||||||
|
|
||||||
struct PatchSymbol *tHashedPatchSymbols[HASHSIZE];
|
struct PatchSymbol *tHashedPatchSymbols[HASHSIZE];
|
||||||
struct Section *pSectionList = NULL, *pCurrentSection = NULL;
|
struct Section *pSectionList, *pCurrentSection;
|
||||||
struct PatchSymbol *pPatchSymbols = NULL;
|
struct PatchSymbol *pPatchSymbols;
|
||||||
struct PatchSymbol **ppPatchSymbolsTail = &pPatchSymbols;
|
struct PatchSymbol **ppPatchSymbolsTail = &pPatchSymbols;
|
||||||
char *tzObjectname;
|
char *tzObjectname;
|
||||||
struct SectionStackEntry *pSectionStack = NULL;
|
struct SectionStackEntry *pSectionStack;
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Section stack routines
|
* Section stack routines
|
||||||
*/
|
*/
|
||||||
void
|
void out_PushSection(void)
|
||||||
out_PushSection(void)
|
|
||||||
{
|
{
|
||||||
struct SectionStackEntry *pSect;
|
struct SectionStackEntry *pSect;
|
||||||
|
|
||||||
if ((pSect = malloc(sizeof(struct SectionStackEntry))) != NULL) {
|
pSect = malloc(sizeof(struct SectionStackEntry));
|
||||||
|
if (pSect == NULL)
|
||||||
|
fatalerror("No memory for section stack");
|
||||||
|
|
||||||
pSect->pSection = pCurrentSection;
|
pSect->pSection = pCurrentSection;
|
||||||
|
pSect->pScope = sym_GetCurrentSymbolScope();
|
||||||
pSect->pNext = pSectionStack;
|
pSect->pNext = pSectionStack;
|
||||||
pSectionStack = pSect;
|
pSectionStack = pSect;
|
||||||
} else
|
|
||||||
fatalerror("No memory for section stack");
|
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void out_PopSection(void)
|
||||||
out_PopSection(void)
|
|
||||||
{
|
{
|
||||||
if (pSectionStack) {
|
if (pSectionStack == NULL)
|
||||||
|
fatalerror("No entries in the section stack");
|
||||||
|
|
||||||
struct SectionStackEntry *pSect;
|
struct SectionStackEntry *pSect;
|
||||||
|
|
||||||
pSect = pSectionStack;
|
pSect = pSectionStack;
|
||||||
out_SetCurrentSection(pSect->pSection);
|
out_SetCurrentSection(pSect->pSection);
|
||||||
|
sym_SetCurrentSymbolScope(pSect->pScope);
|
||||||
pSectionStack = pSect->pNext;
|
pSectionStack = pSect->pNext;
|
||||||
free(pSect);
|
free(pSect);
|
||||||
} else
|
|
||||||
fatalerror("No entries in the section stack");
|
|
||||||
}
|
}
|
||||||
|
|
||||||
ULONG
|
static uint32_t getmaxsectionsize(uint32_t secttype, char *sectname)
|
||||||
getmaxsectionsize(ULONG secttype, char * sectname)
|
|
||||||
{
|
{
|
||||||
switch (secttype)
|
switch (secttype) {
|
||||||
{
|
case SECT_ROM0:
|
||||||
case SECT_ROM0: return 0x8000; /* If ROMX sections not used. */
|
return 0x8000; /* If ROMX sections not used */
|
||||||
case SECT_ROMX: return 0x4000;
|
case SECT_ROMX:
|
||||||
case SECT_VRAM: return 0x2000;
|
return 0x4000;
|
||||||
case SECT_SRAM: return 0x2000;
|
case SECT_VRAM:
|
||||||
case SECT_WRAM0: return 0x2000; /* If WRAMX sections not used. */
|
return 0x2000;
|
||||||
case SECT_WRAMX: return 0x1000;
|
case SECT_SRAM:
|
||||||
case SECT_OAM: return 0xA0;
|
return 0x2000;
|
||||||
case SECT_HRAM: return 0x7F;
|
case SECT_WRAM0:
|
||||||
default: break;
|
return 0x2000; /* If WRAMX sections not used */
|
||||||
|
case SECT_WRAMX:
|
||||||
|
return 0x1000;
|
||||||
|
case SECT_OAM:
|
||||||
|
return 0xA0;
|
||||||
|
case SECT_HRAM:
|
||||||
|
return 0x7F;
|
||||||
|
default:
|
||||||
|
break;
|
||||||
}
|
}
|
||||||
errx(1, "Section \"%s\" has an invalid section type.", sectname);
|
errx(1, "Section \"%s\" has an invalid section type.", sectname);
|
||||||
}
|
}
|
||||||
@@ -100,11 +112,10 @@ getmaxsectionsize(ULONG secttype, char * sectname)
|
|||||||
/*
|
/*
|
||||||
* Count the number of symbols used in this object
|
* Count the number of symbols used in this object
|
||||||
*/
|
*/
|
||||||
ULONG
|
static uint32_t countsymbols(void)
|
||||||
countsymbols(void)
|
|
||||||
{
|
{
|
||||||
struct PatchSymbol *pSym;
|
struct PatchSymbol *pSym;
|
||||||
ULONG count = 0;
|
uint32_t count = 0;
|
||||||
|
|
||||||
pSym = pPatchSymbols;
|
pSym = pPatchSymbols;
|
||||||
|
|
||||||
@@ -119,11 +130,10 @@ countsymbols(void)
|
|||||||
/*
|
/*
|
||||||
* Count the number of sections used in this object
|
* Count the number of sections used in this object
|
||||||
*/
|
*/
|
||||||
ULONG
|
static uint32_t countsections(void)
|
||||||
countsections(void)
|
|
||||||
{
|
{
|
||||||
struct Section *pSect;
|
struct Section *pSect;
|
||||||
ULONG count = 0;
|
uint32_t count = 0;
|
||||||
|
|
||||||
pSect = pSectionList;
|
pSect = pSectionList;
|
||||||
|
|
||||||
@@ -138,11 +148,10 @@ countsections(void)
|
|||||||
/*
|
/*
|
||||||
* Count the number of patches used in this object
|
* Count the number of patches used in this object
|
||||||
*/
|
*/
|
||||||
ULONG
|
static uint32_t countpatches(struct Section *pSect)
|
||||||
countpatches(struct Section * pSect)
|
|
||||||
{
|
{
|
||||||
struct Patch *pPatch;
|
struct Patch *pPatch;
|
||||||
ULONG r = 0;
|
uint32_t r = 0;
|
||||||
|
|
||||||
pPatch = pSect->pPatches;
|
pPatch = pSect->pPatches;
|
||||||
while (pPatch) {
|
while (pPatch) {
|
||||||
@@ -156,8 +165,7 @@ countpatches(struct Section * pSect)
|
|||||||
/*
|
/*
|
||||||
* Write a long to a file (little-endian)
|
* Write a long to a file (little-endian)
|
||||||
*/
|
*/
|
||||||
void
|
static void fputlong(uint32_t i, FILE *f)
|
||||||
fputlong(ULONG i, FILE * f)
|
|
||||||
{
|
{
|
||||||
fputc(i, f);
|
fputc(i, f);
|
||||||
fputc(i >> 8, f);
|
fputc(i >> 8, f);
|
||||||
@@ -168,8 +176,7 @@ fputlong(ULONG i, FILE * f)
|
|||||||
/*
|
/*
|
||||||
* Write a NULL-terminated string to a file
|
* Write a NULL-terminated string to a file
|
||||||
*/
|
*/
|
||||||
void
|
static void fputstring(char *s, FILE *f)
|
||||||
fputstring(char *s, FILE * f)
|
|
||||||
{
|
{
|
||||||
while (*s)
|
while (*s)
|
||||||
fputc(*s++, f);
|
fputc(*s++, f);
|
||||||
@@ -179,30 +186,28 @@ fputstring(char *s, FILE * f)
|
|||||||
/*
|
/*
|
||||||
* Return a section's ID
|
* Return a section's ID
|
||||||
*/
|
*/
|
||||||
ULONG
|
static uint32_t getsectid(struct Section *pSect)
|
||||||
getsectid(struct Section * pSect)
|
|
||||||
{
|
{
|
||||||
struct Section *sec;
|
struct Section *sec;
|
||||||
ULONG ID = 0;
|
uint32_t ID = 0;
|
||||||
|
|
||||||
sec = pSectionList;
|
sec = pSectionList;
|
||||||
|
|
||||||
while (sec) {
|
while (sec) {
|
||||||
if (sec == pSect)
|
if (sec == pSect)
|
||||||
return (ID);
|
return ID;
|
||||||
ID += 1;
|
ID += 1;
|
||||||
sec = sec->pNext;
|
sec = sec->pNext;
|
||||||
}
|
}
|
||||||
|
|
||||||
fatalerror("INTERNAL: Unknown section");
|
fatalerror("%s: Unknown section", __func__);
|
||||||
return ((ULONG) - 1);
|
return (uint32_t)(-1);
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Write a patch to a file
|
* Write a patch to a file
|
||||||
*/
|
*/
|
||||||
void
|
static void writepatch(struct Patch *pPatch, FILE *f)
|
||||||
writepatch(struct Patch * pPatch, FILE * f)
|
|
||||||
{
|
{
|
||||||
fputstring(pPatch->tzFilename, f);
|
fputstring(pPatch->tzFilename, f);
|
||||||
fputlong(pPatch->nLine, f);
|
fputlong(pPatch->nLine, f);
|
||||||
@@ -215,8 +220,7 @@ writepatch(struct Patch * pPatch, FILE * f)
|
|||||||
/*
|
/*
|
||||||
* Write a section to a file
|
* Write a section to a file
|
||||||
*/
|
*/
|
||||||
void
|
static void writesection(struct Section *pSect, FILE *f)
|
||||||
writesection(struct Section * pSect, FILE * f)
|
|
||||||
{
|
{
|
||||||
fputstring(pSect->pzName, f);
|
fputstring(pSect->pzName, f);
|
||||||
|
|
||||||
@@ -228,8 +232,7 @@ writesection(struct Section * pSect, FILE * f)
|
|||||||
fputlong(pSect->nBank, f);
|
fputlong(pSect->nBank, f);
|
||||||
fputlong(pSect->nAlign, f);
|
fputlong(pSect->nAlign, f);
|
||||||
|
|
||||||
if ((pSect->nType == SECT_ROM0)
|
if ((pSect->nType == SECT_ROM0) || (pSect->nType == SECT_ROMX)) {
|
||||||
|| (pSect->nType == SECT_ROMX)) {
|
|
||||||
struct Patch *pPatch;
|
struct Patch *pPatch;
|
||||||
|
|
||||||
fwrite(pSect->tData, 1, pSect->nPC, f);
|
fwrite(pSect->tData, 1, pSect->nPC, f);
|
||||||
@@ -246,13 +249,12 @@ writesection(struct Section * pSect, FILE * f)
|
|||||||
/*
|
/*
|
||||||
* Write a symbol to a file
|
* Write a symbol to a file
|
||||||
*/
|
*/
|
||||||
void
|
static void writesymbol(struct sSymbol *pSym, FILE *f)
|
||||||
writesymbol(struct sSymbol * pSym, FILE * f)
|
|
||||||
{
|
{
|
||||||
char symname[MAXSYMLEN * 2 + 1];
|
char symname[MAXSYMLEN * 2 + 1];
|
||||||
ULONG type;
|
uint32_t type;
|
||||||
ULONG offset;
|
uint32_t offset;
|
||||||
SLONG sectid;
|
int32_t sectid;
|
||||||
|
|
||||||
if (pSym->nType & SYMF_IMPORT) {
|
if (pSym->nType & SYMF_IMPORT) {
|
||||||
/* Symbol should be imported */
|
/* Symbol should be imported */
|
||||||
@@ -294,12 +296,12 @@ writesymbol(struct sSymbol * pSym, FILE * f)
|
|||||||
/*
|
/*
|
||||||
* Add a symbol to the object
|
* Add a symbol to the object
|
||||||
*/
|
*/
|
||||||
ULONG
|
static uint32_t nextID;
|
||||||
addsymbol(struct sSymbol * pSym)
|
|
||||||
|
static uint32_t addsymbol(struct sSymbol *pSym)
|
||||||
{
|
{
|
||||||
struct PatchSymbol *pPSym, **ppPSym;
|
struct PatchSymbol *pPSym, **ppPSym;
|
||||||
static ULONG nextID = 0;
|
uint32_t hash;
|
||||||
ULONG hash;
|
|
||||||
|
|
||||||
hash = calchash(pSym->tzName);
|
hash = calchash(pSym->tzName);
|
||||||
ppPSym = &(tHashedPatchSymbols[hash]);
|
ppPSym = &(tHashedPatchSymbols[hash]);
|
||||||
@@ -310,13 +312,16 @@ addsymbol(struct sSymbol * pSym)
|
|||||||
ppPSym = &((*ppPSym)->pBucketNext);
|
ppPSym = &((*ppPSym)->pBucketNext);
|
||||||
}
|
}
|
||||||
|
|
||||||
if ((*ppPSym = pPSym = malloc(sizeof(struct PatchSymbol))) != NULL) {
|
pPSym = malloc(sizeof(struct PatchSymbol));
|
||||||
|
*ppPSym = pPSym;
|
||||||
|
|
||||||
|
if (pPSym == NULL)
|
||||||
|
fatalerror("No memory for patchsymbol");
|
||||||
|
|
||||||
pPSym->pNext = NULL;
|
pPSym->pNext = NULL;
|
||||||
pPSym->pBucketNext = NULL;
|
pPSym->pBucketNext = NULL;
|
||||||
pPSym->pSymbol = pSym;
|
pPSym->pSymbol = pSym;
|
||||||
pPSym->ID = nextID++;
|
pPSym->ID = nextID++;
|
||||||
} else
|
|
||||||
fatalerror("No memory for patchsymbol");
|
|
||||||
|
|
||||||
*ppPatchSymbolsTail = pPSym;
|
*ppPatchSymbolsTail = pPSym;
|
||||||
ppPatchSymbolsTail = &(pPSym->pNext);
|
ppPatchSymbolsTail = &(pPSym->pNext);
|
||||||
@@ -327,10 +332,9 @@ addsymbol(struct sSymbol * pSym)
|
|||||||
/*
|
/*
|
||||||
* Add all exported symbols to the object
|
* Add all exported symbols to the object
|
||||||
*/
|
*/
|
||||||
void
|
static void addexports(void)
|
||||||
addexports(void)
|
|
||||||
{
|
{
|
||||||
int i;
|
int32_t i;
|
||||||
|
|
||||||
for (i = 0; i < HASHSIZE; i += 1) {
|
for (i = 0; i < HASHSIZE; i += 1) {
|
||||||
struct sSymbol *pSym;
|
struct sSymbol *pSym;
|
||||||
@@ -347,34 +351,33 @@ addexports(void)
|
|||||||
/*
|
/*
|
||||||
* Allocate a new patchstructure and link it into the list
|
* Allocate a new patchstructure and link it into the list
|
||||||
*/
|
*/
|
||||||
struct Patch *
|
struct Patch *allocpatch(void)
|
||||||
allocpatch(void)
|
|
||||||
{
|
{
|
||||||
struct Patch *pPatch;
|
struct Patch *pPatch;
|
||||||
|
|
||||||
if ((pPatch = malloc(sizeof(struct Patch))) != NULL) {
|
pPatch = malloc(sizeof(struct Patch));
|
||||||
|
|
||||||
|
if (pPatch == NULL)
|
||||||
|
fatalerror("No memory for patch");
|
||||||
|
|
||||||
pPatch->pNext = pCurrentSection->pPatches;
|
pPatch->pNext = pCurrentSection->pPatches;
|
||||||
pPatch->nRPNSize = 0;
|
pPatch->nRPNSize = 0;
|
||||||
pPatch->pRPN = NULL;
|
pPatch->pRPN = NULL;
|
||||||
} else
|
|
||||||
fatalerror("No memory for patch");
|
|
||||||
|
|
||||||
pCurrentSection->pPatches = pPatch;
|
pCurrentSection->pPatches = pPatch;
|
||||||
|
|
||||||
return (pPatch);
|
return pPatch;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Create a new patch (includes the rpn expr)
|
* Create a new patch (includes the rpn expr)
|
||||||
*/
|
*/
|
||||||
void
|
void createpatch(uint32_t type, struct Expression *expr)
|
||||||
createpatch(ULONG type, struct Expression * expr)
|
|
||||||
{
|
{
|
||||||
struct Patch *pPatch;
|
struct Patch *pPatch;
|
||||||
UWORD rpndata;
|
uint16_t rpndata;
|
||||||
UBYTE rpnexpr[2048];
|
uint8_t rpnexpr[2048];
|
||||||
char tzSym[512];
|
char tzSym[512];
|
||||||
ULONG rpnptr = 0, symptr;
|
uint32_t rpnptr = 0, symptr;
|
||||||
|
|
||||||
pPatch = allocpatch();
|
pPatch = allocpatch();
|
||||||
pPatch->nType = type;
|
pPatch->nType = type;
|
||||||
@@ -393,9 +396,11 @@ createpatch(ULONG type, struct Expression * expr)
|
|||||||
break;
|
break;
|
||||||
case RPN_SYM:
|
case RPN_SYM:
|
||||||
symptr = 0;
|
symptr = 0;
|
||||||
while ((tzSym[symptr++] = rpn_PopByte(expr)) != 0);
|
while ((tzSym[symptr++] = rpn_PopByte(expr)) != 0)
|
||||||
|
;
|
||||||
|
|
||||||
if (sym_isConstant(tzSym)) {
|
if (sym_isConstant(tzSym)) {
|
||||||
ULONG value;
|
uint32_t value;
|
||||||
|
|
||||||
value = sym_GetConstantValue(tzSym);
|
value = sym_GetConstantValue(tzSym);
|
||||||
rpnexpr[rpnptr++] = RPN_CONST;
|
rpnexpr[rpnptr++] = RPN_CONST;
|
||||||
@@ -404,9 +409,11 @@ createpatch(ULONG type, struct Expression * expr)
|
|||||||
rpnexpr[rpnptr++] = value >> 16;
|
rpnexpr[rpnptr++] = value >> 16;
|
||||||
rpnexpr[rpnptr++] = value >> 24;
|
rpnexpr[rpnptr++] = value >> 24;
|
||||||
} else {
|
} else {
|
||||||
struct sSymbol *sym;
|
struct sSymbol *sym = sym_FindSymbol(tzSym);
|
||||||
if ((sym = sym_FindSymbol(tzSym)) == NULL)
|
|
||||||
|
if (sym == NULL)
|
||||||
break;
|
break;
|
||||||
|
|
||||||
symptr = addsymbol(sym);
|
symptr = addsymbol(sym);
|
||||||
rpnexpr[rpnptr++] = RPN_SYM;
|
rpnexpr[rpnptr++] = RPN_SYM;
|
||||||
rpnexpr[rpnptr++] = symptr & 0xFF;
|
rpnexpr[rpnptr++] = symptr & 0xFF;
|
||||||
@@ -415,26 +422,46 @@ createpatch(ULONG type, struct Expression * expr)
|
|||||||
rpnexpr[rpnptr++] = symptr >> 24;
|
rpnexpr[rpnptr++] = symptr >> 24;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case RPN_BANK: {
|
case RPN_BANK_SYM:
|
||||||
|
{
|
||||||
struct sSymbol *sym;
|
struct sSymbol *sym;
|
||||||
|
|
||||||
symptr = 0;
|
symptr = 0;
|
||||||
while ((tzSym[symptr++] = rpn_PopByte(expr)) != 0);
|
while ((tzSym[symptr++] = rpn_PopByte(expr)) != 0)
|
||||||
if ((sym = sym_FindSymbol(tzSym)) == NULL)
|
;
|
||||||
|
|
||||||
|
sym = sym_FindSymbol(tzSym);
|
||||||
|
if (sym == NULL)
|
||||||
break;
|
break;
|
||||||
|
|
||||||
symptr = addsymbol(sym);
|
symptr = addsymbol(sym);
|
||||||
rpnexpr[rpnptr++] = RPN_BANK;
|
rpnexpr[rpnptr++] = RPN_BANK_SYM;
|
||||||
rpnexpr[rpnptr++] = symptr & 0xFF;
|
rpnexpr[rpnptr++] = symptr & 0xFF;
|
||||||
rpnexpr[rpnptr++] = symptr >> 8;
|
rpnexpr[rpnptr++] = symptr >> 8;
|
||||||
rpnexpr[rpnptr++] = symptr >> 16;
|
rpnexpr[rpnptr++] = symptr >> 16;
|
||||||
rpnexpr[rpnptr++] = symptr >> 24;
|
rpnexpr[rpnptr++] = symptr >> 24;
|
||||||
}
|
|
||||||
break;
|
break;
|
||||||
|
}
|
||||||
|
case RPN_BANK_SECT:
|
||||||
|
{
|
||||||
|
uint16_t b;
|
||||||
|
|
||||||
|
rpnexpr[rpnptr++] = RPN_BANK_SECT;
|
||||||
|
|
||||||
|
do {
|
||||||
|
b = rpn_PopByte(expr);
|
||||||
|
rpnexpr[rpnptr++] = b & 0xFF;
|
||||||
|
} while (b != 0);
|
||||||
|
break;
|
||||||
|
}
|
||||||
default:
|
default:
|
||||||
rpnexpr[rpnptr++] = rpndata;
|
rpnexpr[rpnptr++] = rpndata;
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if ((pPatch->pRPN = malloc(rpnptr)) != NULL) {
|
|
||||||
|
pPatch->pRPN = malloc(rpnptr);
|
||||||
|
if (pPatch->pRPN != NULL) {
|
||||||
memcpy(pPatch->pRPN, rpnexpr, rpnptr);
|
memcpy(pPatch->pRPN, rpnexpr, rpnptr);
|
||||||
pPatch->nRPNSize = rpnptr;
|
pPatch->nRPNSize = rpnptr;
|
||||||
}
|
}
|
||||||
@@ -443,12 +470,9 @@ createpatch(ULONG type, struct Expression * expr)
|
|||||||
/*
|
/*
|
||||||
* A quick check to see if we have an initialized section
|
* A quick check to see if we have an initialized section
|
||||||
*/
|
*/
|
||||||
void
|
static void checksection(void)
|
||||||
checksection(void)
|
|
||||||
{
|
{
|
||||||
if (pCurrentSection)
|
if (pCurrentSection == NULL)
|
||||||
return;
|
|
||||||
else
|
|
||||||
fatalerror("Code generation before SECTION directive");
|
fatalerror("Code generation before SECTION directive");
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -456,8 +480,7 @@ checksection(void)
|
|||||||
* A quick check to see if we have an initialized section that can contain
|
* A quick check to see if we have an initialized section that can contain
|
||||||
* this much initialized data
|
* this much initialized data
|
||||||
*/
|
*/
|
||||||
void
|
static void checkcodesection(void)
|
||||||
checkcodesection(void)
|
|
||||||
{
|
{
|
||||||
checksection();
|
checksection();
|
||||||
if (pCurrentSection->nType != SECT_ROM0 &&
|
if (pCurrentSection->nType != SECT_ROM0 &&
|
||||||
@@ -472,10 +495,9 @@ checkcodesection(void)
|
|||||||
/*
|
/*
|
||||||
* Check if the section has grown too much.
|
* Check if the section has grown too much.
|
||||||
*/
|
*/
|
||||||
void
|
static void checksectionoverflow(uint32_t delta_size)
|
||||||
checksectionoverflow(ULONG delta_size)
|
|
||||||
{
|
{
|
||||||
ULONG maxsize = getmaxsectionsize(pCurrentSection->nType,
|
uint32_t maxsize = getmaxsectionsize(pCurrentSection->nType,
|
||||||
pCurrentSection->pzName);
|
pCurrentSection->pzName);
|
||||||
|
|
||||||
if (pCurrentSection->nPC + delta_size > maxsize) {
|
if (pCurrentSection->nPC + delta_size > maxsize) {
|
||||||
@@ -494,14 +516,20 @@ checksectionoverflow(ULONG delta_size)
|
|||||||
/*
|
/*
|
||||||
* Write an objectfile
|
* Write an objectfile
|
||||||
*/
|
*/
|
||||||
void
|
void out_WriteObject(void)
|
||||||
out_WriteObject(void)
|
|
||||||
{
|
{
|
||||||
FILE *f;
|
FILE *f;
|
||||||
|
|
||||||
addexports();
|
addexports();
|
||||||
|
|
||||||
if ((f = fopen(tzObjectname, "wb")) != NULL) {
|
/* If no path specified, don't write file */
|
||||||
|
if (tzObjectname == NULL)
|
||||||
|
return;
|
||||||
|
|
||||||
|
f = fopen(tzObjectname, "wb");
|
||||||
|
if (f == NULL)
|
||||||
|
fatalerror("Couldn't write file '%s'\n", tzObjectname);
|
||||||
|
|
||||||
struct PatchSymbol *pSym;
|
struct PatchSymbol *pSym;
|
||||||
struct Section *pSect;
|
struct Section *pSect;
|
||||||
|
|
||||||
@@ -524,14 +552,12 @@ out_WriteObject(void)
|
|||||||
}
|
}
|
||||||
|
|
||||||
fclose(f);
|
fclose(f);
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Prepare for pass #2
|
* Prepare for pass #2
|
||||||
*/
|
*/
|
||||||
void
|
void out_PrepPass2(void)
|
||||||
out_PrepPass2(void)
|
|
||||||
{
|
{
|
||||||
struct Section *pSect;
|
struct Section *pSect;
|
||||||
|
|
||||||
@@ -547,13 +573,12 @@ out_PrepPass2(void)
|
|||||||
/*
|
/*
|
||||||
* Set the objectfilename
|
* Set the objectfilename
|
||||||
*/
|
*/
|
||||||
void
|
void out_SetFileName(char *s)
|
||||||
out_SetFileName(char *s)
|
|
||||||
{
|
{
|
||||||
tzObjectname = s;
|
tzObjectname = s;
|
||||||
if (CurrentOptions.verbose) {
|
if (CurrentOptions.verbose)
|
||||||
printf("Output filename %s\n", s);
|
printf("Output filename %s\n", s);
|
||||||
}
|
|
||||||
pSectionList = NULL;
|
pSectionList = NULL;
|
||||||
pCurrentSection = NULL;
|
pCurrentSection = NULL;
|
||||||
pPatchSymbols = NULL;
|
pPatchSymbols = NULL;
|
||||||
@@ -562,8 +587,8 @@ out_SetFileName(char *s)
|
|||||||
/*
|
/*
|
||||||
* Find a section by name and type. If it doesn't exist, create it
|
* Find a section by name and type. If it doesn't exist, create it
|
||||||
*/
|
*/
|
||||||
struct Section *
|
struct Section *out_FindSection(char *pzName, uint32_t secttype, int32_t org,
|
||||||
out_FindSection(char *pzName, ULONG secttype, SLONG org, SLONG bank, SLONG alignment)
|
int32_t bank, int32_t alignment)
|
||||||
{
|
{
|
||||||
struct Section *pSect, **ppSect;
|
struct Section *pSect, **ppSect;
|
||||||
|
|
||||||
@@ -573,20 +598,27 @@ out_FindSection(char *pzName, ULONG secttype, SLONG org, SLONG bank, SLONG align
|
|||||||
while (pSect) {
|
while (pSect) {
|
||||||
if (strcmp(pzName, pSect->pzName) == 0) {
|
if (strcmp(pzName, pSect->pzName) == 0) {
|
||||||
if (secttype == pSect->nType
|
if (secttype == pSect->nType
|
||||||
&& ((ULONG) org) == pSect->nOrg
|
&& ((uint32_t)org) == pSect->nOrg
|
||||||
&& ((ULONG) bank) == pSect->nBank
|
&& ((uint32_t)bank) == pSect->nBank
|
||||||
&& ((ULONG) alignment == pSect->nAlign)) {
|
&& ((uint32_t)alignment == pSect->nAlign)) {
|
||||||
return (pSect);
|
return pSect;
|
||||||
} else
|
}
|
||||||
fatalerror
|
|
||||||
("Section already exists but with a different type");
|
fatalerror("Section already exists but with a different type");
|
||||||
}
|
}
|
||||||
ppSect = &(pSect->pNext);
|
ppSect = &(pSect->pNext);
|
||||||
pSect = pSect->pNext;
|
pSect = pSect->pNext;
|
||||||
}
|
}
|
||||||
|
|
||||||
if ((*ppSect = (pSect = malloc(sizeof(struct Section)))) != NULL) {
|
pSect = malloc(sizeof(struct Section));
|
||||||
if ((pSect->pzName = malloc(strlen(pzName) + 1)) != NULL) {
|
*ppSect = pSect;
|
||||||
|
if (pSect == NULL)
|
||||||
|
fatalerror("Not enough memory for section");
|
||||||
|
|
||||||
|
pSect->pzName = malloc(strlen(pzName) + 1);
|
||||||
|
if (pSect->pzName == NULL)
|
||||||
|
fatalerror("Not enough memory for sectionname");
|
||||||
|
|
||||||
strcpy(pSect->pzName, pzName);
|
strcpy(pSect->pzName, pzName);
|
||||||
pSect->nType = secttype;
|
pSect->nType = secttype;
|
||||||
pSect->nPC = 0;
|
pSect->nPC = 0;
|
||||||
@@ -598,32 +630,28 @@ out_FindSection(char *pzName, ULONG secttype, SLONG org, SLONG bank, SLONG align
|
|||||||
pSect->charmap = NULL;
|
pSect->charmap = NULL;
|
||||||
pPatchSymbols = NULL;
|
pPatchSymbols = NULL;
|
||||||
|
|
||||||
pSect->tData = NULL;
|
/* It is only needed to allocate memory for ROM sections. */
|
||||||
if (secttype == SECT_ROM0 || secttype == SECT_ROMX) {
|
if (secttype == SECT_ROM0 || secttype == SECT_ROMX) {
|
||||||
/* It is only needed to allocate memory for ROM
|
uint32_t sectsize;
|
||||||
* sections. */
|
|
||||||
ULONG sectsize = getmaxsectionsize(secttype, pzName);
|
|
||||||
if ((pSect->tData = malloc(sectsize)) == NULL)
|
|
||||||
fatalerror("Not enough memory for section");
|
|
||||||
}
|
|
||||||
return (pSect);
|
|
||||||
} else
|
|
||||||
fatalerror("Not enough memory for sectionname");
|
|
||||||
} else
|
|
||||||
fatalerror("Not enough memory for section");
|
|
||||||
|
|
||||||
return (NULL);
|
sectsize = getmaxsectionsize(secttype, pzName);
|
||||||
|
pSect->tData = malloc(sectsize);
|
||||||
|
if (pSect->tData == NULL)
|
||||||
|
fatalerror("Not enough memory for section");
|
||||||
|
} else {
|
||||||
|
pSect->tData = NULL;
|
||||||
|
}
|
||||||
|
|
||||||
|
return (pSect);
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Set the current section
|
* Set the current section
|
||||||
*/
|
*/
|
||||||
void
|
void out_SetCurrentSection(struct Section *pSect)
|
||||||
out_SetCurrentSection(struct Section * pSect)
|
|
||||||
{
|
{
|
||||||
if (nUnionDepth > 0) {
|
if (nUnionDepth > 0)
|
||||||
fatalerror("Cannot change the section within a UNION");
|
fatalerror("Cannot change the section within a UNION");
|
||||||
}
|
|
||||||
|
|
||||||
pCurrentSection = pSect;
|
pCurrentSection = pSect;
|
||||||
nPC = pSect->nPC;
|
nPC = pSect->nPC;
|
||||||
@@ -635,8 +663,7 @@ out_SetCurrentSection(struct Section * pSect)
|
|||||||
/*
|
/*
|
||||||
* Set the current section by name and type
|
* Set the current section by name and type
|
||||||
*/
|
*/
|
||||||
void
|
void out_NewSection(char *pzName, uint32_t secttype)
|
||||||
out_NewSection(char *pzName, ULONG secttype)
|
|
||||||
{
|
{
|
||||||
out_SetCurrentSection(out_FindSection(pzName, secttype, -1, -1, 1));
|
out_SetCurrentSection(out_FindSection(pzName, secttype, -1, -1, 1));
|
||||||
}
|
}
|
||||||
@@ -644,8 +671,8 @@ out_NewSection(char *pzName, ULONG secttype)
|
|||||||
/*
|
/*
|
||||||
* Set the current section by name and type
|
* Set the current section by name and type
|
||||||
*/
|
*/
|
||||||
void
|
void out_NewAbsSection(char *pzName, uint32_t secttype, int32_t org,
|
||||||
out_NewAbsSection(char *pzName, ULONG secttype, SLONG org, SLONG bank)
|
int32_t bank)
|
||||||
{
|
{
|
||||||
out_SetCurrentSection(out_FindSection(pzName, secttype, org, bank, 1));
|
out_SetCurrentSection(out_FindSection(pzName, secttype, org, bank, 1));
|
||||||
}
|
}
|
||||||
@@ -653,20 +680,20 @@ out_NewAbsSection(char *pzName, ULONG secttype, SLONG org, SLONG bank)
|
|||||||
/*
|
/*
|
||||||
* Set the current section by name and type, using a given byte alignment
|
* Set the current section by name and type, using a given byte alignment
|
||||||
*/
|
*/
|
||||||
void
|
void out_NewAlignedSection(char *pzName, uint32_t secttype, int32_t alignment,
|
||||||
out_NewAlignedSection(char *pzName, ULONG secttype, SLONG alignment, SLONG bank)
|
int32_t bank)
|
||||||
{
|
{
|
||||||
if (alignment < 0 || alignment > 16) {
|
if (alignment < 0 || alignment > 16)
|
||||||
yyerror("Alignment must be between 0-16 bits.");
|
yyerror("Alignment must be between 0-16 bits.");
|
||||||
}
|
|
||||||
out_SetCurrentSection(out_FindSection(pzName, secttype, -1, bank, 1 << alignment));
|
out_SetCurrentSection(out_FindSection(pzName, secttype, -1, bank,
|
||||||
|
1 << alignment));
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Output an absolute byte (bypassing ROM/union checks)
|
* Output an absolute byte (bypassing ROM/union checks)
|
||||||
*/
|
*/
|
||||||
void
|
void out_AbsByteBypassCheck(int32_t b)
|
||||||
out_AbsByteBypassCheck(int b)
|
|
||||||
{
|
{
|
||||||
checksectionoverflow(1);
|
checksectionoverflow(1);
|
||||||
b &= 0xFF;
|
b &= 0xFF;
|
||||||
@@ -681,15 +708,13 @@ out_AbsByteBypassCheck(int b)
|
|||||||
/*
|
/*
|
||||||
* Output an absolute byte
|
* Output an absolute byte
|
||||||
*/
|
*/
|
||||||
void
|
void out_AbsByte(int32_t b)
|
||||||
out_AbsByte(int b)
|
|
||||||
{
|
{
|
||||||
checkcodesection();
|
checkcodesection();
|
||||||
out_AbsByteBypassCheck(b);
|
out_AbsByteBypassCheck(b);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void out_AbsByteGroup(char *s, int32_t length)
|
||||||
out_AbsByteGroup(char *s, int length)
|
|
||||||
{
|
{
|
||||||
checkcodesection();
|
checkcodesection();
|
||||||
checksectionoverflow(length);
|
checksectionoverflow(length);
|
||||||
@@ -700,8 +725,7 @@ out_AbsByteGroup(char *s, int length)
|
|||||||
/*
|
/*
|
||||||
* Skip this many bytes
|
* Skip this many bytes
|
||||||
*/
|
*/
|
||||||
void
|
void out_Skip(int32_t skip)
|
||||||
out_Skip(int skip)
|
|
||||||
{
|
{
|
||||||
checksection();
|
checksection();
|
||||||
checksectionoverflow(skip);
|
checksectionoverflow(skip);
|
||||||
@@ -723,8 +747,7 @@ out_Skip(int skip)
|
|||||||
/*
|
/*
|
||||||
* Output a NULL terminated string (excluding the NULL-character)
|
* Output a NULL terminated string (excluding the NULL-character)
|
||||||
*/
|
*/
|
||||||
void
|
void out_String(char *s)
|
||||||
out_String(char *s)
|
|
||||||
{
|
{
|
||||||
checkcodesection();
|
checkcodesection();
|
||||||
checksectionoverflow(strlen(s));
|
checksectionoverflow(strlen(s));
|
||||||
@@ -736,9 +759,7 @@ out_String(char *s)
|
|||||||
* Output a relocatable byte. Checking will be done to see if it
|
* Output a relocatable byte. Checking will be done to see if it
|
||||||
* is an absolute value in disguise.
|
* is an absolute value in disguise.
|
||||||
*/
|
*/
|
||||||
|
void out_RelByte(struct Expression *expr)
|
||||||
void
|
|
||||||
out_RelByte(struct Expression * expr)
|
|
||||||
{
|
{
|
||||||
checkcodesection();
|
checkcodesection();
|
||||||
checksectionoverflow(1);
|
checksectionoverflow(1);
|
||||||
@@ -750,17 +771,16 @@ out_RelByte(struct Expression * expr)
|
|||||||
pCurrentSection->nPC += 1;
|
pCurrentSection->nPC += 1;
|
||||||
nPC += 1;
|
nPC += 1;
|
||||||
pPCSymbol->nValue += 1;
|
pPCSymbol->nValue += 1;
|
||||||
} else
|
} else {
|
||||||
out_AbsByte(expr->nVal);
|
out_AbsByte(expr->nVal);
|
||||||
|
}
|
||||||
rpn_Reset(expr);
|
rpn_Reset(expr);
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Output an absolute word
|
* Output an absolute word
|
||||||
*/
|
*/
|
||||||
void
|
void out_AbsWord(int32_t b)
|
||||||
out_AbsWord(int b)
|
|
||||||
{
|
{
|
||||||
checkcodesection();
|
checkcodesection();
|
||||||
checksectionoverflow(2);
|
checksectionoverflow(2);
|
||||||
@@ -778,10 +798,9 @@ out_AbsWord(int b)
|
|||||||
* Output a relocatable word. Checking will be done to see if
|
* Output a relocatable word. Checking will be done to see if
|
||||||
* it's an absolute value in disguise.
|
* it's an absolute value in disguise.
|
||||||
*/
|
*/
|
||||||
void
|
void out_RelWord(struct Expression *expr)
|
||||||
out_RelWord(struct Expression * expr)
|
|
||||||
{
|
{
|
||||||
ULONG b;
|
uint32_t b;
|
||||||
|
|
||||||
checkcodesection();
|
checkcodesection();
|
||||||
checksectionoverflow(2);
|
checksectionoverflow(2);
|
||||||
@@ -795,19 +814,19 @@ out_RelWord(struct Expression * expr)
|
|||||||
pCurrentSection->nPC += 2;
|
pCurrentSection->nPC += 2;
|
||||||
nPC += 2;
|
nPC += 2;
|
||||||
pPCSymbol->nValue += 2;
|
pPCSymbol->nValue += 2;
|
||||||
} else
|
} else {
|
||||||
out_AbsWord(expr->nVal);
|
out_AbsWord(expr->nVal);
|
||||||
|
}
|
||||||
rpn_Reset(expr);
|
rpn_Reset(expr);
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Output an absolute longword
|
* Output an absolute longword
|
||||||
*/
|
*/
|
||||||
void
|
void out_AbsLong(int32_t b)
|
||||||
out_AbsLong(SLONG b)
|
|
||||||
{
|
{
|
||||||
checkcodesection();
|
checkcodesection();
|
||||||
checksectionoverflow(sizeof(SLONG));
|
checksectionoverflow(sizeof(int32_t));
|
||||||
if (nPass == 2) {
|
if (nPass == 2) {
|
||||||
pCurrentSection->tData[nPC] = b & 0xFF;
|
pCurrentSection->tData[nPC] = b & 0xFF;
|
||||||
pCurrentSection->tData[nPC + 1] = b >> 8;
|
pCurrentSection->tData[nPC + 1] = b >> 8;
|
||||||
@@ -823,10 +842,9 @@ out_AbsLong(SLONG b)
|
|||||||
* Output a relocatable longword. Checking will be done to see if
|
* Output a relocatable longword. Checking will be done to see if
|
||||||
* is an absolute value in disguise.
|
* is an absolute value in disguise.
|
||||||
*/
|
*/
|
||||||
void
|
void out_RelLong(struct Expression *expr)
|
||||||
out_RelLong(struct Expression * expr)
|
|
||||||
{
|
{
|
||||||
SLONG b;
|
int32_t b;
|
||||||
|
|
||||||
checkcodesection();
|
checkcodesection();
|
||||||
checksectionoverflow(4);
|
checksectionoverflow(4);
|
||||||
@@ -842,18 +860,18 @@ out_RelLong(struct Expression * expr)
|
|||||||
pCurrentSection->nPC += 4;
|
pCurrentSection->nPC += 4;
|
||||||
nPC += 4;
|
nPC += 4;
|
||||||
pPCSymbol->nValue += 4;
|
pPCSymbol->nValue += 4;
|
||||||
} else
|
} else {
|
||||||
out_AbsLong(expr->nVal);
|
out_AbsLong(expr->nVal);
|
||||||
|
}
|
||||||
rpn_Reset(expr);
|
rpn_Reset(expr);
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Output a PC-relative byte
|
* Output a PC-relative byte
|
||||||
*/
|
*/
|
||||||
void
|
void out_PCRelByte(struct Expression *expr)
|
||||||
out_PCRelByte(struct Expression * expr)
|
|
||||||
{
|
{
|
||||||
SLONG b = expr->nVal;
|
int32_t b = expr->nVal;
|
||||||
|
|
||||||
checkcodesection();
|
checkcodesection();
|
||||||
checksectionoverflow(1);
|
checksectionoverflow(1);
|
||||||
@@ -868,17 +886,15 @@ out_PCRelByte(struct Expression * expr)
|
|||||||
/*
|
/*
|
||||||
* Output a binary file
|
* Output a binary file
|
||||||
*/
|
*/
|
||||||
void
|
void out_BinaryFile(char *s)
|
||||||
out_BinaryFile(char *s)
|
|
||||||
{
|
{
|
||||||
FILE *f;
|
FILE *f;
|
||||||
|
|
||||||
f = fstk_FindFile(s);
|
f = fstk_FindFile(s);
|
||||||
if (f == NULL) {
|
if (f == NULL)
|
||||||
err(1, "Unable to open incbin file '%s'", s);
|
err(1, "Unable to open incbin file '%s'", s);
|
||||||
}
|
|
||||||
|
|
||||||
SLONG fsize;
|
int32_t fsize;
|
||||||
|
|
||||||
fseek(f, 0, SEEK_END);
|
fseek(f, 0, SEEK_END);
|
||||||
fsize = ftell(f);
|
fsize = ftell(f);
|
||||||
@@ -888,8 +904,8 @@ out_BinaryFile(char *s)
|
|||||||
checksectionoverflow(fsize);
|
checksectionoverflow(fsize);
|
||||||
|
|
||||||
if (nPass == 2) {
|
if (nPass == 2) {
|
||||||
SLONG dest = nPC;
|
int32_t dest = nPC;
|
||||||
SLONG todo = fsize;
|
int32_t todo = fsize;
|
||||||
|
|
||||||
while (todo--)
|
while (todo--)
|
||||||
pCurrentSection->tData[dest++] = fgetc(f);
|
pCurrentSection->tData[dest++] = fgetc(f);
|
||||||
@@ -900,8 +916,7 @@ out_BinaryFile(char *s)
|
|||||||
fclose(f);
|
fclose(f);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void out_BinaryFileSlice(char *s, int32_t start_pos, int32_t length)
|
||||||
out_BinaryFileSlice(char *s, SLONG start_pos, SLONG length)
|
|
||||||
{
|
{
|
||||||
FILE *f;
|
FILE *f;
|
||||||
|
|
||||||
@@ -912,11 +927,10 @@ out_BinaryFileSlice(char *s, SLONG start_pos, SLONG length)
|
|||||||
fatalerror("Number of bytes to read must be greater than zero");
|
fatalerror("Number of bytes to read must be greater than zero");
|
||||||
|
|
||||||
f = fstk_FindFile(s);
|
f = fstk_FindFile(s);
|
||||||
if (f == NULL) {
|
if (f == NULL)
|
||||||
err(1, "Unable to open included file '%s'", s);
|
err(1, "Unable to open included file '%s'", s);
|
||||||
}
|
|
||||||
|
|
||||||
SLONG fsize;
|
int32_t fsize;
|
||||||
|
|
||||||
fseek(f, 0, SEEK_END);
|
fseek(f, 0, SEEK_END);
|
||||||
fsize = ftell(f);
|
fsize = ftell(f);
|
||||||
@@ -933,8 +947,8 @@ out_BinaryFileSlice(char *s, SLONG start_pos, SLONG length)
|
|||||||
checksectionoverflow(length);
|
checksectionoverflow(length);
|
||||||
|
|
||||||
if (nPass == 2) {
|
if (nPass == 2) {
|
||||||
SLONG dest = nPC;
|
int32_t dest = nPC;
|
||||||
SLONG todo = length;
|
int32_t todo = length;
|
||||||
|
|
||||||
while (todo--)
|
while (todo--)
|
||||||
pCurrentSection->tData[dest++] = fgetc(f);
|
pCurrentSection->tData[dest++] = fgetc(f);
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
.\" Copyright (c) 2017 Antonio Nino Diaz <antonio_nd@outlook.com>
|
.\" Copyright (c) 2017-2018 Antonio Nino Diaz <antonio_nd@outlook.com>
|
||||||
.\"
|
.\"
|
||||||
.\" Permission to use, copy, modify, and distribute this software for any
|
.\" Permission to use, copy, modify, and distribute this software for any
|
||||||
.\" purpose with or without fee is hereby granted, provided that the above
|
.\" purpose with or without fee is hereby granted, provided that the above
|
||||||
@@ -12,7 +12,7 @@
|
|||||||
.\" ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
.\" ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||||
.\" OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
.\" OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||||
.\"
|
.\"
|
||||||
.Dd July 22, 2017
|
.Dd January 7, 2018
|
||||||
.Dt RGBASM 5
|
.Dt RGBASM 5
|
||||||
.Os RGBDS Manual
|
.Os RGBDS Manual
|
||||||
.Sh NAME
|
.Sh NAME
|
||||||
@@ -558,30 +558,37 @@ The following symbols are defined by the assembler:
|
|||||||
.Ss Defining constant data
|
.Ss Defining constant data
|
||||||
.Ic DB
|
.Ic DB
|
||||||
defines a list of bytes that will be stored in the final image.
|
defines a list of bytes that will be stored in the final image.
|
||||||
Ideal for tables and text.
|
Ideal for tables and text (which is not zero-terminated).
|
||||||
.Pp
|
.Pp
|
||||||
.Dl DB 1,2,3,4,\[dq]This is a string\[dq]
|
.Dl DB 1,2,3,4,\[dq]This is a string\[dq]
|
||||||
.Pp
|
.Pp
|
||||||
Alternatively, you can use
|
Alternatively, you can use
|
||||||
.Ic DW
|
.Ic DW
|
||||||
to store a list of words.
|
to store a list of words (16-bits) or
|
||||||
|
.Ic DL
|
||||||
|
to store a list of doublewords/longs (32-bits).
|
||||||
Strings are not allowed as arguments to
|
Strings are not allowed as arguments to
|
||||||
.Ic DW .
|
.Ic DW
|
||||||
|
and
|
||||||
|
.Ic DL .
|
||||||
.Pp
|
.Pp
|
||||||
You can also use
|
You can also use
|
||||||
.Ic DB
|
.Ic DB ,
|
||||||
and
|
|
||||||
.Ic DW
|
.Ic DW
|
||||||
without arguments.
|
|
||||||
This works exactly like
|
|
||||||
.Sy DS 1
|
|
||||||
and
|
and
|
||||||
|
.Ic DL
|
||||||
|
without arguments, or leaving empty elements at any point in the list.
|
||||||
|
This works exactly like
|
||||||
|
.Sy DS 1 ,
|
||||||
.Sy DS 2
|
.Sy DS 2
|
||||||
|
and
|
||||||
|
.Sy DS 4
|
||||||
respectively.
|
respectively.
|
||||||
Consequently,
|
Consequently,
|
||||||
.Ic DB
|
.Ic DB ,
|
||||||
and
|
|
||||||
.Ic DW
|
.Ic DW
|
||||||
|
and
|
||||||
|
.Ic DL
|
||||||
can be used in a
|
can be used in a
|
||||||
.Sy WRAM0 No / Sy WRAMX No / Sy HRAM No / Sy VRAM No / Sy SRAM
|
.Sy WRAM0 No / Sy WRAMX No / Sy HRAM No / Sy VRAM No / Sy SRAM
|
||||||
section.
|
section.
|
||||||
@@ -591,9 +598,10 @@ allocates a number of bytes.
|
|||||||
The content is undefined.
|
The content is undefined.
|
||||||
This is the preferred method of allocationg space in a RAM section.
|
This is the preferred method of allocationg space in a RAM section.
|
||||||
You can, however, use
|
You can, however, use
|
||||||
.Ic DB
|
.Ic DB ,
|
||||||
and
|
|
||||||
.Ic DW
|
.Ic DW
|
||||||
|
and
|
||||||
|
.Ic DL
|
||||||
without any arguments instead.
|
without any arguments instead.
|
||||||
.Pp
|
.Pp
|
||||||
.Dl DS str_SIZEOF ;allocate str_SIZEOF bytes
|
.Dl DS str_SIZEOF ;allocate str_SIZEOF bytes
|
||||||
@@ -961,9 +969,15 @@ There are a few other functions that do various useful things:
|
|||||||
.Pp
|
.Pp
|
||||||
.Bl -column ".Sy String" ".Sy String"
|
.Bl -column ".Sy String" ".Sy String"
|
||||||
.It Sy Name Ta Ta Ta Sy Operation
|
.It Sy Name Ta Ta Ta Sy Operation
|
||||||
.It Li BANK(label) Ta Returns the bank number label is in.
|
.It Li BANK(\@/str/lbl) Ta Returns a bank number.
|
||||||
The linker will have to resolve this so it can't be used when the expression has
|
If the argument is the symbol
|
||||||
to be constant.
|
.Ic \@,
|
||||||
|
this function returns the bank of the current section.
|
||||||
|
If the argument is a string, it returns the bank of the section that has that
|
||||||
|
name.
|
||||||
|
If the argument is a label, it returns the bank number the label is in.
|
||||||
|
For labels, as the linker has to resolve this, it can't be used when the
|
||||||
|
expression has to be constant.
|
||||||
.It Li DEF(label) Ta Returns TRUE if label has been defined.
|
.It Li DEF(label) Ta Returns TRUE if label has been defined.
|
||||||
.It Li HIGH(r16/cnst/lbl) Ta Returns the top 8 bits of the operand if it is a
|
.It Li HIGH(r16/cnst/lbl) Ta Returns the top 8 bits of the operand if it is a
|
||||||
label or constant, or the top 8-bit register if it is a 16-bit register.
|
label or constant, or the top 8-bit register if it is a 16-bit register.
|
||||||
@@ -1036,6 +1050,7 @@ machine.
|
|||||||
.It Sx DB
|
.It Sx DB
|
||||||
.It Sx DEF
|
.It Sx DEF
|
||||||
.It Sx DIV
|
.It Sx DIV
|
||||||
|
.It Sx DL
|
||||||
.It Sx DS
|
.It Sx DS
|
||||||
.It Sx DW
|
.It Sx DW
|
||||||
.It Sx ELIF
|
.It Sx ELIF
|
||||||
|
|||||||
224
src/asm/rpn.c
224
src/asm/rpn.c
@@ -2,19 +2,19 @@
|
|||||||
* Controls RPN expressions for objectfiles
|
* Controls RPN expressions for objectfiles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
#include <stdint.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
||||||
#include "asm/mylink.h"
|
|
||||||
#include "types.h"
|
|
||||||
#include "asm/symbol.h"
|
|
||||||
#include "asm/asm.h"
|
#include "asm/asm.h"
|
||||||
#include "asm/main.h"
|
#include "asm/main.h"
|
||||||
#include "asm/rpn.h"
|
#include "asm/rpn.h"
|
||||||
|
#include "asm/symbol.h"
|
||||||
|
|
||||||
void
|
#include "linkdefs.h"
|
||||||
mergetwoexpressions(struct Expression * expr, struct Expression * src1,
|
|
||||||
struct Expression * src2)
|
void mergetwoexpressions(struct Expression *expr, const struct Expression *src1,
|
||||||
|
const struct Expression *src2)
|
||||||
{
|
{
|
||||||
*expr = *src1;
|
*expr = *src1;
|
||||||
memcpy(&(expr->tRPN[expr->nRPNLength]), src2->tRPN, src2->nRPNLength);
|
memcpy(&(expr->tRPN[expr->nRPNLength]), src2->tRPN, src2->nRPNLength);
|
||||||
@@ -23,13 +23,13 @@ mergetwoexpressions(struct Expression * expr, struct Expression * src1,
|
|||||||
expr->isReloc |= src2->isReloc;
|
expr->isReloc |= src2->isReloc;
|
||||||
expr->isPCRel |= src2->isPCRel;
|
expr->isPCRel |= src2->isPCRel;
|
||||||
}
|
}
|
||||||
#define joinexpr() mergetwoexpressions(expr,src1,src2)
|
|
||||||
|
#define joinexpr() mergetwoexpressions(expr, src1, src2)
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Add a byte to the RPN expression
|
* Add a byte to the RPN expression
|
||||||
*/
|
*/
|
||||||
void
|
void pushbyte(struct Expression *expr, int b)
|
||||||
pushbyte(struct Expression * expr, int b)
|
|
||||||
{
|
{
|
||||||
expr->tRPN[expr->nRPNLength++] = b & 0xFF;
|
expr->tRPN[expr->nRPNLength++] = b & 0xFF;
|
||||||
}
|
}
|
||||||
@@ -37,47 +37,45 @@ pushbyte(struct Expression * expr, int b)
|
|||||||
/*
|
/*
|
||||||
* Reset the RPN module
|
* Reset the RPN module
|
||||||
*/
|
*/
|
||||||
void
|
void rpn_Reset(struct Expression *expr)
|
||||||
rpn_Reset(struct Expression * expr)
|
|
||||||
{
|
{
|
||||||
expr->nRPNLength = expr->nRPNOut = expr->isReloc = expr->isPCRel = 0;
|
expr->nRPNLength = 0;
|
||||||
|
expr->nRPNOut = 0;
|
||||||
|
expr->isReloc = 0;
|
||||||
|
expr->isPCRel = 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Returns the next rpn byte in expression
|
* Returns the next rpn byte in expression
|
||||||
*/
|
*/
|
||||||
UWORD
|
uint16_t rpn_PopByte(struct Expression *expr)
|
||||||
rpn_PopByte(struct Expression * expr)
|
|
||||||
{
|
{
|
||||||
if (expr->nRPNOut == expr->nRPNLength) {
|
if (expr->nRPNOut == expr->nRPNLength)
|
||||||
return (0xDEAD);
|
return 0xDEAD;
|
||||||
} else
|
|
||||||
return (expr->tRPN[expr->nRPNOut++]);
|
return expr->tRPN[expr->nRPNOut++];
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Determine if the current expression is relocatable
|
* Determine if the current expression is relocatable
|
||||||
*/
|
*/
|
||||||
ULONG
|
uint32_t rpn_isReloc(const struct Expression *expr)
|
||||||
rpn_isReloc(struct Expression * expr)
|
|
||||||
{
|
{
|
||||||
return (expr->isReloc);
|
return expr->isReloc;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Determine if the current expression can be pc-relative
|
* Determine if the current expression can be pc-relative
|
||||||
*/
|
*/
|
||||||
ULONG
|
uint32_t rpn_isPCRelative(const struct Expression *expr)
|
||||||
rpn_isPCRelative(struct Expression * expr)
|
|
||||||
{
|
{
|
||||||
return (expr->isPCRel);
|
return expr->isPCRel;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Add symbols, constants and operators to expression
|
* Add symbols, constants and operators to expression
|
||||||
*/
|
*/
|
||||||
void
|
void rpn_Number(struct Expression *expr, uint32_t i)
|
||||||
rpn_Number(struct Expression * expr, ULONG i)
|
|
||||||
{
|
{
|
||||||
rpn_Reset(expr);
|
rpn_Reset(expr);
|
||||||
pushbyte(expr, RPN_CONST);
|
pushbyte(expr, RPN_CONST);
|
||||||
@@ -88,11 +86,10 @@ rpn_Number(struct Expression * expr, ULONG i)
|
|||||||
expr->nVal = i;
|
expr->nVal = i;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_Symbol(struct Expression *expr, char *tzSym)
|
||||||
rpn_Symbol(struct Expression * expr, char *tzSym)
|
|
||||||
{
|
{
|
||||||
if (!sym_isConstant(tzSym)) {
|
if (!sym_isConstant(tzSym)) {
|
||||||
struct sSymbol *psym;
|
const struct sSymbol *psym;
|
||||||
|
|
||||||
rpn_Reset(expr);
|
rpn_Reset(expr);
|
||||||
|
|
||||||
@@ -106,62 +103,96 @@ rpn_Symbol(struct Expression * expr, char *tzSym)
|
|||||||
while (*tzSym)
|
while (*tzSym)
|
||||||
pushbyte(expr, *tzSym++);
|
pushbyte(expr, *tzSym++);
|
||||||
pushbyte(expr, 0);
|
pushbyte(expr, 0);
|
||||||
} else
|
} else {
|
||||||
rpn_Number(expr, sym_GetConstantValue(tzSym));
|
rpn_Number(expr, sym_GetConstantValue(tzSym));
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_BankSelf(struct Expression *expr)
|
||||||
rpn_Bank(struct Expression * expr, char *tzSym)
|
|
||||||
{
|
{
|
||||||
|
rpn_Reset(expr);
|
||||||
|
|
||||||
|
/*
|
||||||
|
* This symbol is not really relocatable, but this makes the assembler
|
||||||
|
* write this expression as a RPN patch to the object file.
|
||||||
|
*/
|
||||||
|
expr->isReloc = 1;
|
||||||
|
|
||||||
|
pushbyte(expr, RPN_BANK_SELF);
|
||||||
|
}
|
||||||
|
|
||||||
|
void rpn_BankSymbol(struct Expression *expr, char *tzSym)
|
||||||
|
{
|
||||||
|
/* The @ symbol is treated differently. */
|
||||||
|
if (sym_FindSymbol(tzSym) == pPCSymbol) {
|
||||||
|
rpn_BankSelf(expr);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
if (!sym_isConstant(tzSym)) {
|
if (!sym_isConstant(tzSym)) {
|
||||||
rpn_Reset(expr);
|
rpn_Reset(expr);
|
||||||
|
|
||||||
/* Check that the symbol exists by evaluating and discarding the value. */
|
/*
|
||||||
|
* Check that the symbol exists by evaluating and discarding the
|
||||||
|
* value.
|
||||||
|
*/
|
||||||
sym_GetValue(tzSym);
|
sym_GetValue(tzSym);
|
||||||
|
|
||||||
expr->isReloc = 1;
|
expr->isReloc = 1;
|
||||||
pushbyte(expr, RPN_BANK);
|
pushbyte(expr, RPN_BANK_SYM);
|
||||||
while (*tzSym)
|
while (*tzSym)
|
||||||
pushbyte(expr, *tzSym++);
|
pushbyte(expr, *tzSym++);
|
||||||
pushbyte(expr, 0);
|
pushbyte(expr, 0);
|
||||||
} else
|
} else {
|
||||||
yyerror("BANK argument must be a relocatable identifier");
|
yyerror("BANK argument must be a relocatable identifier");
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_BankSection(struct Expression *expr, char *tzSectionName)
|
||||||
rpn_CheckHRAM(struct Expression * expr, struct Expression * src)
|
{
|
||||||
|
rpn_Reset(expr);
|
||||||
|
|
||||||
|
/*
|
||||||
|
* This symbol is not really relocatable, but this makes the assembler
|
||||||
|
* write this expression as a RPN patch to the object file.
|
||||||
|
*/
|
||||||
|
expr->isReloc = 1;
|
||||||
|
|
||||||
|
pushbyte(expr, RPN_BANK_SECT);
|
||||||
|
while (*tzSectionName)
|
||||||
|
pushbyte(expr, *tzSectionName++);
|
||||||
|
pushbyte(expr, 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
void rpn_CheckHRAM(struct Expression *expr, const struct Expression *src)
|
||||||
{
|
{
|
||||||
*expr = *src;
|
*expr = *src;
|
||||||
pushbyte(expr, RPN_HRAM);
|
pushbyte(expr, RPN_HRAM);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_LOGNOT(struct Expression *expr, const struct Expression *src)
|
||||||
rpn_LOGNOT(struct Expression * expr, struct Expression * src)
|
|
||||||
{
|
{
|
||||||
*expr = *src;
|
*expr = *src;
|
||||||
pushbyte(expr, RPN_LOGUNNOT);
|
pushbyte(expr, RPN_LOGUNNOT);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_LOGOR(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_LOGOR(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal || src2->nVal);
|
expr->nVal = (expr->nVal || src2->nVal);
|
||||||
pushbyte(expr, RPN_LOGOR);
|
pushbyte(expr, RPN_LOGOR);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_LOGAND(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_LOGAND(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal && src2->nVal);
|
expr->nVal = (expr->nVal && src2->nVal);
|
||||||
pushbyte(expr, RPN_LOGAND);
|
pushbyte(expr, RPN_LOGAND);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_HIGH(struct Expression *expr, const struct Expression *src)
|
||||||
rpn_HIGH(struct Expression * expr, struct Expression * src)
|
|
||||||
{
|
{
|
||||||
*expr = *src;
|
*expr = *src;
|
||||||
|
|
||||||
@@ -184,8 +215,7 @@ rpn_HIGH(struct Expression * expr, struct Expression * src)
|
|||||||
pushbyte(expr, RPN_AND);
|
pushbyte(expr, RPN_AND);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_LOW(struct Expression *expr, const struct Expression *src)
|
||||||
rpn_LOW(struct Expression * expr, struct Expression * src)
|
|
||||||
{
|
{
|
||||||
*expr = *src;
|
*expr = *src;
|
||||||
|
|
||||||
@@ -200,168 +230,150 @@ rpn_LOW(struct Expression * expr, struct Expression * src)
|
|||||||
pushbyte(expr, RPN_AND);
|
pushbyte(expr, RPN_AND);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_LOGEQU(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_LOGEQU(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal == src2->nVal);
|
expr->nVal = (expr->nVal == src2->nVal);
|
||||||
pushbyte(expr, RPN_LOGEQ);
|
pushbyte(expr, RPN_LOGEQ);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_LOGGT(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_LOGGT(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal > src2->nVal);
|
expr->nVal = (expr->nVal > src2->nVal);
|
||||||
pushbyte(expr, RPN_LOGGT);
|
pushbyte(expr, RPN_LOGGT);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_LOGLT(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_LOGLT(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal < src2->nVal);
|
expr->nVal = (expr->nVal < src2->nVal);
|
||||||
pushbyte(expr, RPN_LOGLT);
|
pushbyte(expr, RPN_LOGLT);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_LOGGE(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_LOGGE(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal >= src2->nVal);
|
expr->nVal = (expr->nVal >= src2->nVal);
|
||||||
pushbyte(expr, RPN_LOGGE);
|
pushbyte(expr, RPN_LOGGE);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_LOGLE(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_LOGLE(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal <= src2->nVal);
|
expr->nVal = (expr->nVal <= src2->nVal);
|
||||||
pushbyte(expr, RPN_LOGLE);
|
pushbyte(expr, RPN_LOGLE);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_LOGNE(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_LOGNE(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal != src2->nVal);
|
expr->nVal = (expr->nVal != src2->nVal);
|
||||||
pushbyte(expr, RPN_LOGNE);
|
pushbyte(expr, RPN_LOGNE);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_ADD(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_ADD(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal + src2->nVal);
|
expr->nVal = (expr->nVal + src2->nVal);
|
||||||
pushbyte(expr, RPN_ADD);
|
pushbyte(expr, RPN_ADD);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_SUB(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_SUB(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal - src2->nVal);
|
expr->nVal = (expr->nVal - src2->nVal);
|
||||||
pushbyte(expr, RPN_SUB);
|
pushbyte(expr, RPN_SUB);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_XOR(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_XOR(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal ^ src2->nVal);
|
expr->nVal = (expr->nVal ^ src2->nVal);
|
||||||
pushbyte(expr, RPN_XOR);
|
pushbyte(expr, RPN_XOR);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_OR(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_OR(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal | src2->nVal);
|
expr->nVal = (expr->nVal | src2->nVal);
|
||||||
pushbyte(expr, RPN_OR);
|
pushbyte(expr, RPN_OR);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_AND(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_AND(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal & src2->nVal);
|
expr->nVal = (expr->nVal & src2->nVal);
|
||||||
pushbyte(expr, RPN_AND);
|
pushbyte(expr, RPN_AND);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_SHL(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_SHL(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal << src2->nVal);
|
expr->nVal = (expr->nVal << src2->nVal);
|
||||||
pushbyte(expr, RPN_SHL);
|
pushbyte(expr, RPN_SHL);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_SHR(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_SHR(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal >> src2->nVal);
|
expr->nVal = (expr->nVal >> src2->nVal);
|
||||||
pushbyte(expr, RPN_SHR);
|
pushbyte(expr, RPN_SHR);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_MUL(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_MUL(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
expr->nVal = (expr->nVal * src2->nVal);
|
expr->nVal = (expr->nVal * src2->nVal);
|
||||||
pushbyte(expr, RPN_MUL);
|
pushbyte(expr, RPN_MUL);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_DIV(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_DIV(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
if (src2->nVal == 0) {
|
if (src2->nVal == 0)
|
||||||
fatalerror("division by zero");
|
fatalerror("division by zero");
|
||||||
}
|
|
||||||
expr->nVal = (expr->nVal / src2->nVal);
|
expr->nVal = (expr->nVal / src2->nVal);
|
||||||
pushbyte(expr, RPN_DIV);
|
pushbyte(expr, RPN_DIV);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_MOD(struct Expression *expr, const struct Expression *src1,
|
||||||
rpn_MOD(struct Expression * expr, struct Expression * src1,
|
const struct Expression *src2)
|
||||||
struct Expression * src2)
|
|
||||||
{
|
{
|
||||||
joinexpr();
|
joinexpr();
|
||||||
if (src2->nVal == 0) {
|
if (src2->nVal == 0)
|
||||||
fatalerror("division by zero");
|
fatalerror("division by zero");
|
||||||
}
|
|
||||||
expr->nVal = (expr->nVal % src2->nVal);
|
expr->nVal = (expr->nVal % src2->nVal);
|
||||||
pushbyte(expr, RPN_MOD);
|
pushbyte(expr, RPN_MOD);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_UNNEG(struct Expression *expr, const struct Expression *src)
|
||||||
rpn_UNNEG(struct Expression * expr, struct Expression * src)
|
|
||||||
{
|
{
|
||||||
*expr = *src;
|
*expr = *src;
|
||||||
expr->nVal = -expr->nVal;
|
expr->nVal = -expr->nVal;
|
||||||
pushbyte(expr, RPN_UNSUB);
|
pushbyte(expr, RPN_UNSUB);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void rpn_UNNOT(struct Expression *expr, const struct Expression *src)
|
||||||
rpn_UNNOT(struct Expression * expr, struct Expression * src)
|
|
||||||
{
|
{
|
||||||
*expr = *src;
|
*expr = *src;
|
||||||
expr->nVal = expr->nVal ^ 0xFFFFFFFF;
|
expr->nVal = ~expr->nVal;
|
||||||
pushbyte(expr, RPN_UNNOT);
|
pushbyte(expr, RPN_UNNOT);
|
||||||
}
|
}
|
||||||
|
|||||||
582
src/asm/symbol.c
582
src/asm/symbol.c
File diff suppressed because it is too large
Load Diff
23
src/extern/err.c
vendored
23
src/extern/err.c
vendored
@@ -21,16 +21,17 @@
|
|||||||
* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <stdio.h>
|
|
||||||
#include <stdarg.h>
|
#include <stdarg.h>
|
||||||
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
|
|
||||||
void rgbds_vwarn(const char *fmt, va_list ap)
|
void rgbds_vwarn(const char *fmt, va_list ap)
|
||||||
{
|
{
|
||||||
fprintf (stderr, "warning");
|
fprintf(stderr, "warning");
|
||||||
if (fmt) {
|
if (fmt) {
|
||||||
fputs (": ", stderr);
|
fputs(": ", stderr);
|
||||||
vfprintf(stderr, fmt, ap);
|
vfprintf(stderr, fmt, ap);
|
||||||
}
|
}
|
||||||
putc('\n', stderr);
|
putc('\n', stderr);
|
||||||
@@ -39,9 +40,9 @@ void rgbds_vwarn(const char *fmt, va_list ap)
|
|||||||
|
|
||||||
void rgbds_vwarnx(const char *fmt, va_list ap)
|
void rgbds_vwarnx(const char *fmt, va_list ap)
|
||||||
{
|
{
|
||||||
fprintf (stderr, "warning");
|
fprintf(stderr, "warning");
|
||||||
if (fmt) {
|
if (fmt) {
|
||||||
fputs (": ", stderr);
|
fputs(": ", stderr);
|
||||||
vfprintf(stderr, fmt, ap);
|
vfprintf(stderr, fmt, ap);
|
||||||
}
|
}
|
||||||
putc('\n', stderr);
|
putc('\n', stderr);
|
||||||
@@ -49,9 +50,9 @@ void rgbds_vwarnx(const char *fmt, va_list ap)
|
|||||||
|
|
||||||
noreturn void rgbds_verr(int status, const char *fmt, va_list ap)
|
noreturn void rgbds_verr(int status, const char *fmt, va_list ap)
|
||||||
{
|
{
|
||||||
fprintf (stderr, "error");
|
fprintf(stderr, "error");
|
||||||
if (fmt) {
|
if (fmt) {
|
||||||
fputs (": ", stderr);
|
fputs(": ", stderr);
|
||||||
vfprintf(stderr, fmt, ap);
|
vfprintf(stderr, fmt, ap);
|
||||||
}
|
}
|
||||||
putc('\n', stderr);
|
putc('\n', stderr);
|
||||||
@@ -60,9 +61,9 @@ noreturn void rgbds_verr(int status, const char *fmt, va_list ap)
|
|||||||
|
|
||||||
noreturn void rgbds_verrx(int status, const char *fmt, va_list ap)
|
noreturn void rgbds_verrx(int status, const char *fmt, va_list ap)
|
||||||
{
|
{
|
||||||
fprintf (stderr, "error");
|
fprintf(stderr, "error");
|
||||||
if (fmt) {
|
if (fmt) {
|
||||||
fputs (": ", stderr);
|
fputs(": ", stderr);
|
||||||
vfprintf(stderr, fmt, ap);
|
vfprintf(stderr, fmt, ap);
|
||||||
}
|
}
|
||||||
putc('\n', stderr);
|
putc('\n', stderr);
|
||||||
@@ -72,6 +73,7 @@ noreturn void rgbds_verrx(int status, const char *fmt, va_list ap)
|
|||||||
void rgbds_warn(const char *fmt, ...)
|
void rgbds_warn(const char *fmt, ...)
|
||||||
{
|
{
|
||||||
va_list ap;
|
va_list ap;
|
||||||
|
|
||||||
va_start(ap, fmt);
|
va_start(ap, fmt);
|
||||||
vwarn(fmt, ap);
|
vwarn(fmt, ap);
|
||||||
va_end(ap);
|
va_end(ap);
|
||||||
@@ -80,6 +82,7 @@ void rgbds_warn(const char *fmt, ...)
|
|||||||
void rgbds_warnx(const char *fmt, ...)
|
void rgbds_warnx(const char *fmt, ...)
|
||||||
{
|
{
|
||||||
va_list ap;
|
va_list ap;
|
||||||
|
|
||||||
va_start(ap, fmt);
|
va_start(ap, fmt);
|
||||||
vwarnx(fmt, ap);
|
vwarnx(fmt, ap);
|
||||||
va_end(ap);
|
va_end(ap);
|
||||||
@@ -88,6 +91,7 @@ void rgbds_warnx(const char *fmt, ...)
|
|||||||
noreturn void rgbds_err(int status, const char *fmt, ...)
|
noreturn void rgbds_err(int status, const char *fmt, ...)
|
||||||
{
|
{
|
||||||
va_list ap;
|
va_list ap;
|
||||||
|
|
||||||
va_start(ap, fmt);
|
va_start(ap, fmt);
|
||||||
verr(status, fmt, ap);
|
verr(status, fmt, ap);
|
||||||
va_end(ap);
|
va_end(ap);
|
||||||
@@ -96,6 +100,7 @@ noreturn void rgbds_err(int status, const char *fmt, ...)
|
|||||||
noreturn void rgbds_errx(int status, const char *fmt, ...)
|
noreturn void rgbds_errx(int status, const char *fmt, ...)
|
||||||
{
|
{
|
||||||
va_list ap;
|
va_list ap;
|
||||||
|
|
||||||
va_start(ap, fmt);
|
va_start(ap, fmt);
|
||||||
verrx(status, fmt, ap);
|
verrx(status, fmt, ap);
|
||||||
va_end(ap);
|
va_end(ap);
|
||||||
|
|||||||
9
src/extern/reallocarray.c
vendored
9
src/extern/reallocarray.c
vendored
@@ -15,10 +15,10 @@
|
|||||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <sys/types.h>
|
|
||||||
#include <errno.h>
|
#include <errno.h>
|
||||||
#include <stdint.h>
|
#include <stdint.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
|
#include <sys/types.h>
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* This is sqrt(SIZE_MAX+1), as s1*s2 <= SIZE_MAX
|
* This is sqrt(SIZE_MAX+1), as s1*s2 <= SIZE_MAX
|
||||||
@@ -26,11 +26,10 @@
|
|||||||
*/
|
*/
|
||||||
#define MUL_NO_OVERFLOW ((size_t)1 << (sizeof(size_t) * 4))
|
#define MUL_NO_OVERFLOW ((size_t)1 << (sizeof(size_t) * 4))
|
||||||
|
|
||||||
void *
|
void *rgbds_reallocarray(void *optr, size_t nmemb, size_t size)
|
||||||
rgbds_reallocarray(void *optr, size_t nmemb, size_t size)
|
|
||||||
{
|
{
|
||||||
if ((nmemb >= MUL_NO_OVERFLOW || size >= MUL_NO_OVERFLOW) &&
|
if (((nmemb >= MUL_NO_OVERFLOW) || (size >= MUL_NO_OVERFLOW)) &&
|
||||||
nmemb > 0 && SIZE_MAX / nmemb < size) {
|
(nmemb > 0) && (SIZE_MAX / nmemb < size)) {
|
||||||
errno = ENOMEM;
|
errno = ENOMEM;
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
|
|||||||
7
src/extern/strlcat.c
vendored
7
src/extern/strlcat.c
vendored
@@ -16,8 +16,8 @@
|
|||||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <sys/types.h>
|
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
#include <sys/types.h>
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Appends src to string dst of size dsize (unlike strncat, dsize is the
|
* Appends src to string dst of size dsize (unlike strncat, dsize is the
|
||||||
@@ -26,8 +26,7 @@
|
|||||||
* Returns strlen(src) + MIN(dsize, strlen(initial dst)).
|
* Returns strlen(src) + MIN(dsize, strlen(initial dst)).
|
||||||
* If retval >= dsize, truncation occurred.
|
* If retval >= dsize, truncation occurred.
|
||||||
*/
|
*/
|
||||||
size_t
|
size_t rgbds_strlcat(char *dst, const char *src, size_t dsize)
|
||||||
rgbds_strlcat(char *dst, const char *src, size_t dsize)
|
|
||||||
{
|
{
|
||||||
const char *odst = dst;
|
const char *odst = dst;
|
||||||
const char *osrc = src;
|
const char *osrc = src;
|
||||||
@@ -51,5 +50,5 @@ rgbds_strlcat(char *dst, const char *src, size_t dsize)
|
|||||||
}
|
}
|
||||||
*dst = '\0';
|
*dst = '\0';
|
||||||
|
|
||||||
return(dlen + (src - osrc)); /* count does not include NUL */
|
return dlen + (src - osrc); /* count does not include NUL */
|
||||||
}
|
}
|
||||||
|
|||||||
12
src/extern/strlcpy.c
vendored
12
src/extern/strlcpy.c
vendored
@@ -16,16 +16,15 @@
|
|||||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <sys/types.h>
|
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
#include <sys/types.h>
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Copy string src to buffer dst of size dsize. At most dsize-1
|
* Copy string src to buffer dst of size dsize. At most dsize-1
|
||||||
* chars will be copied. Always NUL terminates (unless dsize == 0).
|
* chars will be copied. Always NUL terminates (unless dsize == 0).
|
||||||
* Returns strlen(src); if retval >= dsize, truncation occurred.
|
* Returns strlen(src); if retval >= dsize, truncation occurred.
|
||||||
*/
|
*/
|
||||||
size_t
|
size_t rgbds_strlcpy(char *dst, const char *src, size_t dsize)
|
||||||
rgbds_strlcpy(char *dst, const char *src, size_t dsize)
|
|
||||||
{
|
{
|
||||||
const char *osrc = src;
|
const char *osrc = src;
|
||||||
size_t nleft = dsize;
|
size_t nleft = dsize;
|
||||||
@@ -33,7 +32,10 @@ rgbds_strlcpy(char *dst, const char *src, size_t dsize)
|
|||||||
/* Copy as many bytes as will fit. */
|
/* Copy as many bytes as will fit. */
|
||||||
if (nleft != 0) {
|
if (nleft != 0) {
|
||||||
while (--nleft != 0) {
|
while (--nleft != 0) {
|
||||||
if ((*dst++ = *src++) == '\0')
|
char n = *src++;
|
||||||
|
*dst++ = n;
|
||||||
|
|
||||||
|
if (n == '\0')
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -46,5 +48,5 @@ rgbds_strlcpy(char *dst, const char *src, size_t dsize)
|
|||||||
;
|
;
|
||||||
}
|
}
|
||||||
|
|
||||||
return(src - osrc - 1); /* count does not include NUL */
|
return (src - osrc - 1); /* count does not include NUL */
|
||||||
}
|
}
|
||||||
|
|||||||
2
src/extern/version.c
vendored
2
src/extern/version.c
vendored
@@ -19,7 +19,7 @@
|
|||||||
|
|
||||||
#include "extern/version.h"
|
#include "extern/version.h"
|
||||||
|
|
||||||
const char * get_package_version_string(void)
|
const char *get_package_version_string(void)
|
||||||
{
|
{
|
||||||
static char s[50];
|
static char s[50];
|
||||||
|
|
||||||
|
|||||||
112
src/fix/main.c
112
src/fix/main.c
@@ -24,8 +24,7 @@
|
|||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
#include "extern/version.h"
|
#include "extern/version.h"
|
||||||
|
|
||||||
static void
|
static void print_usage(void)
|
||||||
usage(void)
|
|
||||||
{
|
{
|
||||||
printf(
|
printf(
|
||||||
"usage: rgbfix [-CcjsVv] [-i game_id] [-k licensee_str] [-l licensee_id]\n"
|
"usage: rgbfix [-CcjsVv] [-i game_id] [-k licensee_str] [-l licensee_id]\n"
|
||||||
@@ -34,8 +33,7 @@ usage(void)
|
|||||||
exit(1);
|
exit(1);
|
||||||
}
|
}
|
||||||
|
|
||||||
int
|
int main(int argc, char *argv[])
|
||||||
main(int argc, char *argv[])
|
|
||||||
{
|
{
|
||||||
FILE *rom;
|
FILE *rom;
|
||||||
int ch;
|
int ch;
|
||||||
@@ -81,10 +79,9 @@ main(int argc, char *argv[])
|
|||||||
case 'i':
|
case 'i':
|
||||||
setid = true;
|
setid = true;
|
||||||
|
|
||||||
if (strlen(optarg) != 4) {
|
if (strlen(optarg) != 4)
|
||||||
errx(1, "Game ID %s must be exactly 4 "
|
errx(1, "Game ID %s must be exactly 4 characters",
|
||||||
"characters", optarg);
|
optarg);
|
||||||
}
|
|
||||||
|
|
||||||
id = optarg;
|
id = optarg;
|
||||||
break;
|
break;
|
||||||
@@ -94,10 +91,9 @@ main(int argc, char *argv[])
|
|||||||
case 'k':
|
case 'k':
|
||||||
setnewlicensee = true;
|
setnewlicensee = true;
|
||||||
|
|
||||||
if (strlen(optarg) != 2) {
|
if (strlen(optarg) != 2)
|
||||||
errx(1, "New licensee code %s is not the "
|
errx(1, "New licensee code %s is not the correct length of 2 characters",
|
||||||
"correct length of 2 characters", optarg);
|
optarg);
|
||||||
}
|
|
||||||
|
|
||||||
newlicensee = optarg;
|
newlicensee = optarg;
|
||||||
break;
|
break;
|
||||||
@@ -105,61 +101,59 @@ main(int argc, char *argv[])
|
|||||||
setlicensee = true;
|
setlicensee = true;
|
||||||
|
|
||||||
licensee = strtoul(optarg, &ep, 0);
|
licensee = strtoul(optarg, &ep, 0);
|
||||||
if (optarg[0] == '\0' || *ep != '\0') {
|
if (optarg[0] == '\0' || *ep != '\0')
|
||||||
errx(1, "Invalid argument for option 'l'");
|
errx(1, "Invalid argument for option 'l'");
|
||||||
}
|
|
||||||
if (licensee < 0 || licensee > 0xFF) {
|
if (licensee < 0 || licensee > 0xFF)
|
||||||
errx(1, "Argument for option 'l' must be "
|
errx(1, "Argument for option 'l' must be between 0 and 255");
|
||||||
"between 0 and 255");
|
|
||||||
}
|
|
||||||
break;
|
break;
|
||||||
case 'm':
|
case 'm':
|
||||||
setcartridge = true;
|
setcartridge = true;
|
||||||
|
|
||||||
cartridge = strtoul(optarg, &ep, 0);
|
cartridge = strtoul(optarg, &ep, 0);
|
||||||
if (optarg[0] == '\0' || *ep != '\0') {
|
if (optarg[0] == '\0' || *ep != '\0')
|
||||||
errx(1, "Invalid argument for option 'm'");
|
errx(1, "Invalid argument for option 'm'");
|
||||||
}
|
|
||||||
if (cartridge < 0 || cartridge > 0xFF) {
|
if (cartridge < 0 || cartridge > 0xFF)
|
||||||
errx(1, "Argument for option 'm' must be "
|
errx(1, "Argument for option 'm' must be between 0 and 255");
|
||||||
"between 0 and 255");
|
|
||||||
}
|
|
||||||
break;
|
break;
|
||||||
case 'n':
|
case 'n':
|
||||||
setversion = true;
|
setversion = true;
|
||||||
|
|
||||||
version = strtoul(optarg, &ep, 0);
|
version = strtoul(optarg, &ep, 0);
|
||||||
if (optarg[0] == '\0' || *ep != '\0') {
|
|
||||||
|
if (optarg[0] == '\0' || *ep != '\0')
|
||||||
errx(1, "Invalid argument for option 'n'");
|
errx(1, "Invalid argument for option 'n'");
|
||||||
}
|
|
||||||
if (version < 0 || version > 0xFF) {
|
if (version < 0 || version > 0xFF)
|
||||||
errx(1, "Argument for option 'n' must be "
|
errx(1, "Argument for option 'n' must be between 0 and 255");
|
||||||
"between 0 and 255");
|
|
||||||
}
|
|
||||||
break;
|
break;
|
||||||
case 'p':
|
case 'p':
|
||||||
resize = true;
|
resize = true;
|
||||||
|
|
||||||
padvalue = strtoul(optarg, &ep, 0);
|
padvalue = strtoul(optarg, &ep, 0);
|
||||||
if (optarg[0] == '\0' || *ep != '\0') {
|
|
||||||
|
if (optarg[0] == '\0' || *ep != '\0')
|
||||||
errx(1, "Invalid argument for option 'p'");
|
errx(1, "Invalid argument for option 'p'");
|
||||||
}
|
|
||||||
if (padvalue < 0 || padvalue > 0xFF) {
|
if (padvalue < 0 || padvalue > 0xFF)
|
||||||
errx(1, "Argument for option 'p' must be "
|
errx(1, "Argument for option 'p' must be between 0 and 255");
|
||||||
"between 0 and 255");
|
|
||||||
}
|
|
||||||
break;
|
break;
|
||||||
case 'r':
|
case 'r':
|
||||||
setramsize = true;
|
setramsize = true;
|
||||||
|
|
||||||
ramsize = strtoul(optarg, &ep, 0);
|
ramsize = strtoul(optarg, &ep, 0);
|
||||||
if (optarg[0] == '\0' || *ep != '\0') {
|
|
||||||
|
if (optarg[0] == '\0' || *ep != '\0')
|
||||||
errx(1, "Invalid argument for option 'r'");
|
errx(1, "Invalid argument for option 'r'");
|
||||||
}
|
|
||||||
if (ramsize < 0 || ramsize > 0xFF) {
|
if (ramsize < 0 || ramsize > 0xFF)
|
||||||
errx(1, "Argument for option 'r' must be "
|
errx(1, "Argument for option 'r' must be between 0 and 255");
|
||||||
"between 0 and 255");
|
|
||||||
}
|
|
||||||
break;
|
break;
|
||||||
case 's':
|
case 's':
|
||||||
super = true;
|
super = true;
|
||||||
@@ -167,14 +161,13 @@ main(int argc, char *argv[])
|
|||||||
case 't':
|
case 't':
|
||||||
settitle = true;
|
settitle = true;
|
||||||
|
|
||||||
if (strlen(optarg) > 16) {
|
if (strlen(optarg) > 16)
|
||||||
errx(1, "Title %s is greater than the "
|
errx(1, "Title \"%s\" is greater than the maximum of 16 characters",
|
||||||
"maximum of 16 characters", optarg);
|
optarg);
|
||||||
}
|
|
||||||
|
|
||||||
if (strlen(optarg) == 16)
|
if (strlen(optarg) == 16)
|
||||||
warnx("Title %s is 16 chars, it is best to "
|
warnx("Title \"%s\" is 16 chars, it is best to keep it to 15 or fewer",
|
||||||
"keep it to 15 or fewer", optarg);
|
optarg);
|
||||||
|
|
||||||
title = optarg;
|
title = optarg;
|
||||||
break;
|
break;
|
||||||
@@ -185,7 +178,7 @@ main(int argc, char *argv[])
|
|||||||
validate = true;
|
validate = true;
|
||||||
break;
|
break;
|
||||||
default:
|
default:
|
||||||
usage();
|
print_usage();
|
||||||
/* NOTREACHED */
|
/* NOTREACHED */
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -194,15 +187,16 @@ main(int argc, char *argv[])
|
|||||||
argv += optind;
|
argv += optind;
|
||||||
|
|
||||||
if (argc == 0)
|
if (argc == 0)
|
||||||
usage();
|
print_usage();
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Open the ROM file
|
* Open the ROM file
|
||||||
*/
|
*/
|
||||||
|
|
||||||
if ((rom = fopen(argv[argc - 1], "rb+")) == NULL) {
|
rom = fopen(argv[argc - 1], "rb+");
|
||||||
|
|
||||||
|
if (rom == NULL)
|
||||||
err(1, "Error opening file %s", argv[argc - 1]);
|
err(1, "Error opening file %s", argv[argc - 1]);
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Write changes to ROM
|
* Write changes to ROM
|
||||||
@@ -266,7 +260,7 @@ main(int argc, char *argv[])
|
|||||||
* characters).
|
* characters).
|
||||||
*/
|
*/
|
||||||
|
|
||||||
fseek(rom,0x13F,SEEK_SET);
|
fseek(rom, 0x13F, SEEK_SET);
|
||||||
fwrite(id, 1, 4, rom);
|
fwrite(id, 1, 4, rom);
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -332,8 +326,7 @@ main(int argc, char *argv[])
|
|||||||
*/
|
*/
|
||||||
|
|
||||||
if (!setlicensee)
|
if (!setlicensee)
|
||||||
warnx("You should probably set both '-s' and "
|
warnx("You should probably set both '-s' and '-l 0x33'");
|
||||||
"'-l 0x33'");
|
|
||||||
|
|
||||||
fseek(rom, 0x146, SEEK_SET);
|
fseek(rom, 0x146, SEEK_SET);
|
||||||
fputc(3, rom);
|
fputc(3, rom);
|
||||||
@@ -360,6 +353,7 @@ main(int argc, char *argv[])
|
|||||||
long romsize, newsize;
|
long romsize, newsize;
|
||||||
int headbyte;
|
int headbyte;
|
||||||
uint8_t *buf;
|
uint8_t *buf;
|
||||||
|
|
||||||
fseek(rom, 0, SEEK_END);
|
fseek(rom, 0, SEEK_END);
|
||||||
romsize = ftell(rom);
|
romsize = ftell(rom);
|
||||||
newsize = 0x8000;
|
newsize = 0x8000;
|
||||||
@@ -433,9 +427,8 @@ main(int argc, char *argv[])
|
|||||||
* Offset 0x14D: Header Checksum
|
* Offset 0x14D: Header Checksum
|
||||||
*/
|
*/
|
||||||
|
|
||||||
uint8_t headcksum;
|
uint8_t headcksum = 0;
|
||||||
|
|
||||||
headcksum = 0;
|
|
||||||
fseek(rom, 0x134, SEEK_SET);
|
fseek(rom, 0x134, SEEK_SET);
|
||||||
for (int i = 0; i < (0x14D - 0x134); ++i)
|
for (int i = 0; i < (0x14D - 0x134); ++i)
|
||||||
headcksum = headcksum - fgetc(rom) - 1;
|
headcksum = headcksum - fgetc(rom) - 1;
|
||||||
@@ -447,15 +440,14 @@ main(int argc, char *argv[])
|
|||||||
* Offset 0x14E–0x14F: Global Checksum
|
* Offset 0x14E–0x14F: Global Checksum
|
||||||
*/
|
*/
|
||||||
|
|
||||||
uint16_t globalcksum;
|
uint16_t globalcksum = 0;
|
||||||
|
|
||||||
globalcksum = 0;
|
|
||||||
|
|
||||||
rewind(rom);
|
rewind(rom);
|
||||||
for (int i = 0; i < 0x14E; ++i)
|
for (int i = 0; i < 0x14E; ++i)
|
||||||
globalcksum += fgetc(rom);
|
globalcksum += fgetc(rom);
|
||||||
|
|
||||||
int byte;
|
int byte;
|
||||||
|
|
||||||
fseek(rom, 0x150, SEEK_SET);
|
fseek(rom, 0x150, SEEK_SET);
|
||||||
while ((byte = fgetc(rom)) != EOF)
|
while ((byte = fgetc(rom)) != EOF)
|
||||||
globalcksum += byte;
|
globalcksum += byte;
|
||||||
|
|||||||
@@ -201,7 +201,7 @@ and
|
|||||||
.It Sx PUSH AF
|
.It Sx PUSH AF
|
||||||
.It Sx PUSH r16
|
.It Sx PUSH r16
|
||||||
.El
|
.El
|
||||||
.Ss Miscelaneous Instructions
|
.Ss Miscellaneous Instructions
|
||||||
.Bl -inset -compact
|
.Bl -inset -compact
|
||||||
.It Sx CCF
|
.It Sx CCF
|
||||||
.It Sx CPL
|
.It Sx CPL
|
||||||
|
|||||||
79
src/gfx/gb.c
79
src/gfx/gb.c
@@ -19,8 +19,7 @@
|
|||||||
|
|
||||||
#include "gfx/main.h"
|
#include "gfx/main.h"
|
||||||
|
|
||||||
void
|
void transpose_tiles(struct GBImage *gb, int width)
|
||||||
transpose_tiles(struct GBImage *gb, int width)
|
|
||||||
{
|
{
|
||||||
uint8_t *newdata;
|
uint8_t *newdata;
|
||||||
int i;
|
int i;
|
||||||
@@ -29,7 +28,9 @@ transpose_tiles(struct GBImage *gb, int width)
|
|||||||
newdata = calloc(gb->size, 1);
|
newdata = calloc(gb->size, 1);
|
||||||
for (i = 0; i < gb->size; i++) {
|
for (i = 0; i < gb->size; i++) {
|
||||||
newbyte = i / (8 * depth) * width * 8 * depth;
|
newbyte = i / (8 * depth) * width * 8 * depth;
|
||||||
newbyte = newbyte % gb->size + 8 * depth * (newbyte / gb->size) + i % (8 * depth);
|
newbyte = newbyte % gb->size
|
||||||
|
+ 8 * depth * (newbyte / gb->size)
|
||||||
|
+ i % (8 * depth);
|
||||||
newdata[newbyte] = gb->data[i];
|
newdata[newbyte] = gb->data[i];
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -38,8 +39,7 @@ transpose_tiles(struct GBImage *gb, int width)
|
|||||||
gb->data = newdata;
|
gb->data = newdata;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void png_to_gb(const struct PNGImage png, struct GBImage *gb)
|
||||||
png_to_gb(struct PNGImage png, struct GBImage *gb)
|
|
||||||
{
|
{
|
||||||
int x, y, byte;
|
int x, y, byte;
|
||||||
png_byte index;
|
png_byte index;
|
||||||
@@ -50,55 +50,55 @@ png_to_gb(struct PNGImage png, struct GBImage *gb)
|
|||||||
index &= (1 << depth) - 1;
|
index &= (1 << depth) - 1;
|
||||||
|
|
||||||
if (!gb->horizontal) {
|
if (!gb->horizontal) {
|
||||||
byte = y * depth + x / 8 * png.height / 8 * 8 * depth;
|
byte = y * depth
|
||||||
|
+ x / 8 * png.height / 8 * 8 * depth;
|
||||||
} else {
|
} else {
|
||||||
byte = y * depth + x / 8 * png.height / 8 * 8 * depth;
|
byte = y * depth
|
||||||
|
+ x / 8 * png.height / 8 * 8 * depth;
|
||||||
}
|
}
|
||||||
gb->data[byte] |= (index & 1) << (7 - x % 8);
|
gb->data[byte] |= (index & 1) << (7 - x % 8);
|
||||||
if (depth == 2) {
|
if (depth == 2) {
|
||||||
gb->data[byte + 1] |= (index >> 1) << (7 - x % 8);
|
gb->data[byte + 1] |=
|
||||||
|
(index >> 1) << (7 - x % 8);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
if (!gb->horizontal) {
|
if (!gb->horizontal)
|
||||||
transpose_tiles(gb, png.width / 8);
|
transpose_tiles(gb, png.width / 8);
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void output_file(const struct Options opts, const struct GBImage gb)
|
||||||
output_file(struct Options opts, struct GBImage gb)
|
|
||||||
{
|
{
|
||||||
FILE *f;
|
FILE *f;
|
||||||
|
|
||||||
f = fopen(opts.outfile, "wb");
|
f = fopen(opts.outfile, "wb");
|
||||||
if (!f) {
|
if (!f)
|
||||||
err(1, "Opening output file '%s' failed", opts.outfile);
|
err(1, "Opening output file '%s' failed", opts.outfile);
|
||||||
}
|
|
||||||
fwrite(gb.data, 1, gb.size - gb.trim * 8 * depth, f);
|
fwrite(gb.data, 1, gb.size - gb.trim * 8 * depth, f);
|
||||||
|
|
||||||
fclose(f);
|
fclose(f);
|
||||||
}
|
}
|
||||||
|
|
||||||
int
|
int get_tile_index(uint8_t *tile, uint8_t **tiles, int num_tiles, int tile_size)
|
||||||
get_tile_index(uint8_t *tile, uint8_t **tiles, int num_tiles, int tile_size)
|
|
||||||
{
|
{
|
||||||
int i, j;
|
int i, j;
|
||||||
|
|
||||||
for (i = 0; i < num_tiles; i++) {
|
for (i = 0; i < num_tiles; i++) {
|
||||||
for (j = 0; j < tile_size; j++) {
|
for (j = 0; j < tile_size; j++) {
|
||||||
if (tile[j] != tiles[i][j]) {
|
if (tile[j] != tiles[i][j])
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
if (j >= tile_size) {
|
if (j >= tile_size)
|
||||||
return i;
|
return i;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void create_tilemap(const struct Options opts, struct GBImage *gb,
|
||||||
create_tilemap(struct Options opts, struct GBImage *gb, struct Tilemap *tilemap)
|
struct Tilemap *tilemap)
|
||||||
{
|
{
|
||||||
int i, j;
|
int i, j;
|
||||||
int gb_i;
|
int gb_i;
|
||||||
@@ -113,7 +113,7 @@ create_tilemap(struct Options opts, struct GBImage *gb, struct Tilemap *tilemap)
|
|||||||
tile_size = sizeof(uint8_t) * depth * 8;
|
tile_size = sizeof(uint8_t) * depth * 8;
|
||||||
gb_size = gb->size - (gb->trim * tile_size);
|
gb_size = gb->size - (gb->trim * tile_size);
|
||||||
max_tiles = gb_size / tile_size;
|
max_tiles = gb_size / tile_size;
|
||||||
tiles = malloc(sizeof(uint8_t*) * max_tiles);
|
tiles = malloc(sizeof(uint8_t *) * max_tiles);
|
||||||
num_tiles = 0;
|
num_tiles = 0;
|
||||||
|
|
||||||
tilemap->data = malloc(sizeof(uint8_t) * max_tiles);
|
tilemap->data = malloc(sizeof(uint8_t) * max_tiles);
|
||||||
@@ -127,7 +127,8 @@ create_tilemap(struct Options opts, struct GBImage *gb, struct Tilemap *tilemap)
|
|||||||
gb_i++;
|
gb_i++;
|
||||||
}
|
}
|
||||||
if (opts.unique) {
|
if (opts.unique) {
|
||||||
index = get_tile_index(tile, tiles, num_tiles, tile_size);
|
index = get_tile_index(tile, tiles, num_tiles,
|
||||||
|
tile_size);
|
||||||
if (index < 0) {
|
if (index < 0) {
|
||||||
index = num_tiles;
|
index = num_tiles;
|
||||||
tiles[num_tiles] = tile;
|
tiles[num_tiles] = tile;
|
||||||
@@ -147,39 +148,35 @@ create_tilemap(struct Options opts, struct GBImage *gb, struct Tilemap *tilemap)
|
|||||||
gb->data = malloc(tile_size * num_tiles);
|
gb->data = malloc(tile_size * num_tiles);
|
||||||
for (i = 0; i < num_tiles; i++) {
|
for (i = 0; i < num_tiles; i++) {
|
||||||
tile = tiles[i];
|
tile = tiles[i];
|
||||||
for (j = 0; j < tile_size; j++) {
|
for (j = 0; j < tile_size; j++)
|
||||||
gb->data[i * tile_size + j] = tile[j];
|
gb->data[i * tile_size + j] = tile[j];
|
||||||
}
|
}
|
||||||
}
|
|
||||||
gb->size = i * tile_size;
|
gb->size = i * tile_size;
|
||||||
}
|
}
|
||||||
|
|
||||||
for (i = 0; i < num_tiles; i++) {
|
for (i = 0; i < num_tiles; i++)
|
||||||
free(tiles[i]);
|
free(tiles[i]);
|
||||||
}
|
|
||||||
free(tiles);
|
free(tiles);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void output_tilemap_file(const struct Options opts,
|
||||||
output_tilemap_file(struct Options opts, struct Tilemap tilemap)
|
const struct Tilemap tilemap)
|
||||||
{
|
{
|
||||||
FILE *f;
|
FILE *f;
|
||||||
|
|
||||||
f = fopen(opts.mapfile, "wb");
|
f = fopen(opts.mapfile, "wb");
|
||||||
if (!f) {
|
if (!f)
|
||||||
err(1, "Opening tilemap file '%s' failed", opts.mapfile);
|
err(1, "Opening tilemap file '%s' failed", opts.mapfile);
|
||||||
}
|
|
||||||
|
|
||||||
fwrite(tilemap.data, 1, tilemap.size, f);
|
fwrite(tilemap.data, 1, tilemap.size, f);
|
||||||
fclose(f);
|
fclose(f);
|
||||||
|
|
||||||
if (opts.mapout) {
|
if (opts.mapout)
|
||||||
free(opts.mapfile);
|
free(opts.mapfile);
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void output_palette_file(const struct Options opts, const struct PNGImage png)
|
||||||
output_palette_file(struct Options opts, struct PNGImage png)
|
|
||||||
{
|
{
|
||||||
FILE *f;
|
FILE *f;
|
||||||
int i, colors, color;
|
int i, colors, color;
|
||||||
@@ -188,16 +185,18 @@ output_palette_file(struct Options opts, struct PNGImage png)
|
|||||||
if (png_get_PLTE(png.png, png.info, &palette, &colors)) {
|
if (png_get_PLTE(png.png, png.info, &palette, &colors)) {
|
||||||
f = fopen(opts.palfile, "wb");
|
f = fopen(opts.palfile, "wb");
|
||||||
if (!f) {
|
if (!f) {
|
||||||
err(1, "Opening palette file '%s' failed", opts.palfile);
|
err(1, "Opening palette file '%s' failed",
|
||||||
|
opts.palfile);
|
||||||
}
|
}
|
||||||
for (i = 0; i < colors; i++) {
|
for (i = 0; i < colors; i++) {
|
||||||
color = palette[i].blue >> 3 << 10 | palette[i].green >> 3 << 5 | palette[i].red >> 3;
|
color = palette[i].blue >> 3 << 10
|
||||||
|
| palette[i].green >> 3 << 5
|
||||||
|
| palette[i].red >> 3;
|
||||||
fwrite(&color, 2, 1, f);
|
fwrite(&color, 2, 1, f);
|
||||||
}
|
}
|
||||||
fclose(f);
|
fclose(f);
|
||||||
}
|
}
|
||||||
|
|
||||||
if (opts.palout) {
|
if (opts.palout)
|
||||||
free(opts.palfile);
|
free(opts.palfile);
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|||||||
111
src/gfx/main.c
111
src/gfx/main.c
@@ -19,10 +19,10 @@
|
|||||||
#include <unistd.h>
|
#include <unistd.h>
|
||||||
|
|
||||||
#include "extern/version.h"
|
#include "extern/version.h"
|
||||||
|
|
||||||
#include "gfx/main.h"
|
#include "gfx/main.h"
|
||||||
|
|
||||||
static void
|
static void print_usage(void)
|
||||||
usage(void)
|
|
||||||
{
|
{
|
||||||
printf(
|
printf(
|
||||||
"usage: rgbgfx [-DFfhPTuVv] [-d #] [-o outfile] [-p palfile] [-t mapfile]\n"
|
"usage: rgbgfx [-DFfhPTuVv] [-d #] [-o outfile] [-p palfile] [-t mapfile]\n"
|
||||||
@@ -30,8 +30,7 @@ usage(void)
|
|||||||
exit(1);
|
exit(1);
|
||||||
}
|
}
|
||||||
|
|
||||||
int
|
int main(int argc, char *argv[])
|
||||||
main(int argc, char *argv[])
|
|
||||||
{
|
{
|
||||||
int ch, size;
|
int ch, size;
|
||||||
struct Options opts = {0};
|
struct Options opts = {0};
|
||||||
@@ -41,9 +40,8 @@ main(int argc, char *argv[])
|
|||||||
char *ext;
|
char *ext;
|
||||||
const char *errmsg = "Warning: The PNG's %s setting is not the same as the setting defined on the command line.";
|
const char *errmsg = "Warning: The PNG's %s setting is not the same as the setting defined on the command line.";
|
||||||
|
|
||||||
if (argc == 1) {
|
if (argc == 1)
|
||||||
usage();
|
print_usage();
|
||||||
}
|
|
||||||
|
|
||||||
opts.mapfile = "";
|
opts.mapfile = "";
|
||||||
opts.palfile = "";
|
opts.palfile = "";
|
||||||
@@ -51,8 +49,8 @@ main(int argc, char *argv[])
|
|||||||
|
|
||||||
depth = 2;
|
depth = 2;
|
||||||
|
|
||||||
while((ch = getopt(argc, argv, "Dd:Ffho:Tt:uPp:Vvx:")) != -1) {
|
while ((ch = getopt(argc, argv, "Dd:Ffho:Tt:uPp:Vvx:")) != -1) {
|
||||||
switch(ch) {
|
switch (ch) {
|
||||||
case 'D':
|
case 'D':
|
||||||
opts.debug = true;
|
opts.debug = true;
|
||||||
break;
|
break;
|
||||||
@@ -95,22 +93,21 @@ main(int argc, char *argv[])
|
|||||||
opts.trim = strtoul(optarg, NULL, 0);
|
opts.trim = strtoul(optarg, NULL, 0);
|
||||||
break;
|
break;
|
||||||
default:
|
default:
|
||||||
usage();
|
print_usage();
|
||||||
/* NOTREACHED */
|
/* NOTREACHED */
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
argc -= optind;
|
argc -= optind;
|
||||||
argv += optind;
|
argv += optind;
|
||||||
|
|
||||||
if (argc == 0) {
|
if (argc == 0)
|
||||||
usage();
|
print_usage();
|
||||||
}
|
|
||||||
|
|
||||||
opts.infile = argv[argc - 1];
|
opts.infile = argv[argc - 1];
|
||||||
|
|
||||||
if (depth != 1 && depth != 2) {
|
if (depth != 1 && depth != 2)
|
||||||
errx(1, "Depth option must be either 1 or 2.");
|
errx(1, "Depth option must be either 1 or 2.");
|
||||||
}
|
|
||||||
colors = 1 << depth;
|
colors = 1 << depth;
|
||||||
|
|
||||||
input_png_file(opts, &png);
|
input_png_file(opts, &png);
|
||||||
@@ -121,82 +118,77 @@ main(int argc, char *argv[])
|
|||||||
get_text(&png);
|
get_text(&png);
|
||||||
|
|
||||||
if (png.horizontal != opts.horizontal) {
|
if (png.horizontal != opts.horizontal) {
|
||||||
if (opts.verbose) {
|
if (opts.verbose)
|
||||||
warnx(errmsg, "horizontal");
|
warnx(errmsg, "horizontal");
|
||||||
}
|
|
||||||
if (opts.hardfix) {
|
if (opts.hardfix)
|
||||||
png.horizontal = opts.horizontal;
|
png.horizontal = opts.horizontal;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
if (png.horizontal) {
|
if (png.horizontal)
|
||||||
opts.horizontal = png.horizontal;
|
opts.horizontal = png.horizontal;
|
||||||
}
|
|
||||||
|
|
||||||
if (png.trim != opts.trim) {
|
if (png.trim != opts.trim) {
|
||||||
if (opts.verbose) {
|
if (opts.verbose)
|
||||||
warnx(errmsg, "trim");
|
warnx(errmsg, "trim");
|
||||||
}
|
|
||||||
if (opts.hardfix) {
|
if (opts.hardfix)
|
||||||
png.trim = opts.trim;
|
png.trim = opts.trim;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
if (png.trim) {
|
if (png.trim)
|
||||||
opts.trim = png.trim;
|
opts.trim = png.trim;
|
||||||
}
|
|
||||||
if (opts.trim > png.width / 8 - 1) {
|
if (opts.trim > png.width / 8 - 1) {
|
||||||
errx(1, "Trim (%i) for input png file '%s' too large (max: %i)", opts.trim, opts.infile, png.width / 8 - 1);
|
errx(1, "Trim (%i) for input png file '%s' too large (max: %i)",
|
||||||
|
opts.trim, opts.infile, png.width / 8 - 1);
|
||||||
}
|
}
|
||||||
|
|
||||||
if (strcmp(png.mapfile, opts.mapfile) != 0) {
|
if (strcmp(png.mapfile, opts.mapfile) != 0) {
|
||||||
if (opts.verbose) {
|
if (opts.verbose)
|
||||||
warnx(errmsg, "tilemap file");
|
warnx(errmsg, "tilemap file");
|
||||||
}
|
|
||||||
if (opts.hardfix) {
|
if (opts.hardfix)
|
||||||
png.mapfile = opts.mapfile;
|
png.mapfile = opts.mapfile;
|
||||||
}
|
}
|
||||||
}
|
if (!*opts.mapfile)
|
||||||
if (!*opts.mapfile) {
|
|
||||||
opts.mapfile = png.mapfile;
|
opts.mapfile = png.mapfile;
|
||||||
}
|
|
||||||
|
|
||||||
if (png.mapout != opts.mapout) {
|
if (png.mapout != opts.mapout) {
|
||||||
if (opts.verbose) {
|
if (opts.verbose)
|
||||||
warnx(errmsg, "tilemap file");
|
warnx(errmsg, "tilemap file");
|
||||||
}
|
|
||||||
if (opts.hardfix) {
|
if (opts.hardfix)
|
||||||
png.mapout = opts.mapout;
|
png.mapout = opts.mapout;
|
||||||
}
|
}
|
||||||
}
|
if (png.mapout)
|
||||||
if (png.mapout) {
|
|
||||||
opts.mapout = png.mapout;
|
opts.mapout = png.mapout;
|
||||||
}
|
|
||||||
|
|
||||||
if (strcmp(png.palfile, opts.palfile) != 0) {
|
if (strcmp(png.palfile, opts.palfile) != 0) {
|
||||||
if (opts.verbose) {
|
if (opts.verbose)
|
||||||
warnx(errmsg, "palette file");
|
warnx(errmsg, "palette file");
|
||||||
}
|
|
||||||
if (opts.hardfix) {
|
if (opts.hardfix)
|
||||||
png.palfile = opts.palfile;
|
png.palfile = opts.palfile;
|
||||||
}
|
}
|
||||||
}
|
if (!*opts.palfile)
|
||||||
if (!*opts.palfile) {
|
|
||||||
opts.palfile = png.palfile;
|
opts.palfile = png.palfile;
|
||||||
}
|
|
||||||
|
|
||||||
if (png.palout != opts.palout) {
|
if (png.palout != opts.palout) {
|
||||||
if (opts.verbose) {
|
if (opts.verbose)
|
||||||
warnx(errmsg, "palette file");
|
warnx(errmsg, "palette file");
|
||||||
}
|
|
||||||
if (opts.hardfix) {
|
if (opts.hardfix)
|
||||||
png.palout = opts.palout;
|
png.palout = opts.palout;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
if (png.palout) {
|
if (png.palout)
|
||||||
opts.palout = png.palout;
|
opts.palout = png.palout;
|
||||||
}
|
|
||||||
|
|
||||||
if (!*opts.mapfile && opts.mapout) {
|
if (!*opts.mapfile && opts.mapout) {
|
||||||
if ((ext = strrchr(opts.infile, '.')) != NULL) {
|
ext = strrchr(opts.infile, '.');
|
||||||
|
|
||||||
|
if (ext != NULL) {
|
||||||
size = ext - opts.infile + 9;
|
size = ext - opts.infile + 9;
|
||||||
opts.mapfile = malloc(size);
|
opts.mapfile = malloc(size);
|
||||||
strncpy(opts.mapfile, opts.infile, size);
|
strncpy(opts.mapfile, opts.infile, size);
|
||||||
@@ -210,7 +202,9 @@ main(int argc, char *argv[])
|
|||||||
}
|
}
|
||||||
|
|
||||||
if (!*opts.palfile && opts.palout) {
|
if (!*opts.palfile && opts.palout) {
|
||||||
if ((ext = strrchr(opts.infile, '.')) != NULL) {
|
ext = strrchr(opts.infile, '.');
|
||||||
|
|
||||||
|
if (ext != NULL) {
|
||||||
size = ext - opts.infile + 5;
|
size = ext - opts.infile + 5;
|
||||||
opts.palfile = malloc(size);
|
opts.palfile = malloc(size);
|
||||||
strncpy(opts.palfile, opts.infile, size);
|
strncpy(opts.palfile, opts.infile, size);
|
||||||
@@ -233,17 +227,14 @@ main(int argc, char *argv[])
|
|||||||
create_tilemap(opts, &gb, &tilemap);
|
create_tilemap(opts, &gb, &tilemap);
|
||||||
}
|
}
|
||||||
|
|
||||||
if (*opts.outfile) {
|
if (*opts.outfile)
|
||||||
output_file(opts, gb);
|
output_file(opts, gb);
|
||||||
}
|
|
||||||
|
|
||||||
if (*opts.mapfile) {
|
if (*opts.mapfile)
|
||||||
output_tilemap_file(opts, tilemap);
|
output_tilemap_file(opts, tilemap);
|
||||||
}
|
|
||||||
|
|
||||||
if (*opts.palfile) {
|
if (*opts.palfile)
|
||||||
output_palette_file(opts, png);
|
output_palette_file(opts, png);
|
||||||
}
|
|
||||||
|
|
||||||
if (opts.fix || opts.debug) {
|
if (opts.fix || opts.debug) {
|
||||||
set_text(&png);
|
set_text(&png);
|
||||||
|
|||||||
@@ -16,10 +16,10 @@
|
|||||||
|
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
||||||
#include "gfx/main.h"
|
#include "gfx/main.h"
|
||||||
|
|
||||||
void
|
void input_png_file(const struct Options opts, struct PNGImage *img)
|
||||||
input_png_file(struct Options opts, struct PNGImage *img)
|
|
||||||
{
|
{
|
||||||
FILE *f;
|
FILE *f;
|
||||||
int i, y, num_trans;
|
int i, y, num_trans;
|
||||||
@@ -30,24 +30,21 @@ input_png_file(struct Options opts, struct PNGImage *img)
|
|||||||
png_color *palette;
|
png_color *palette;
|
||||||
|
|
||||||
f = fopen(opts.infile, "rb");
|
f = fopen(opts.infile, "rb");
|
||||||
if (!f) {
|
if (!f)
|
||||||
err(1, "Opening input png file '%s' failed", opts.infile);
|
err(1, "Opening input png file '%s' failed", opts.infile);
|
||||||
}
|
|
||||||
|
|
||||||
img->png = png_create_read_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL);
|
img->png = png_create_read_struct(PNG_LIBPNG_VER_STRING,
|
||||||
if (!img->png) {
|
NULL, NULL, NULL);
|
||||||
|
if (!img->png)
|
||||||
errx(1, "Creating png structure failed");
|
errx(1, "Creating png structure failed");
|
||||||
}
|
|
||||||
|
|
||||||
img->info = png_create_info_struct(img->png);
|
img->info = png_create_info_struct(img->png);
|
||||||
if (!img->info) {
|
if (!img->info)
|
||||||
errx(1, "Creating png info structure failed");
|
errx(1, "Creating png info structure failed");
|
||||||
}
|
|
||||||
|
|
||||||
/* Better error handling here? */
|
/* TODO: Better error handling here? */
|
||||||
if (setjmp(png_jmpbuf(img->png))) {
|
if (setjmp(png_jmpbuf(img->png)))
|
||||||
exit(1);
|
exit(1);
|
||||||
}
|
|
||||||
|
|
||||||
png_init_io(img->png, f);
|
png_init_io(img->png, f);
|
||||||
|
|
||||||
@@ -58,9 +55,8 @@ input_png_file(struct Options opts, struct PNGImage *img)
|
|||||||
img->depth = png_get_bit_depth(img->png, img->info);
|
img->depth = png_get_bit_depth(img->png, img->info);
|
||||||
img->type = png_get_color_type(img->png, img->info);
|
img->type = png_get_color_type(img->png, img->info);
|
||||||
|
|
||||||
if (img->type & PNG_COLOR_MASK_ALPHA) {
|
if (img->type & PNG_COLOR_MASK_ALPHA)
|
||||||
png_set_strip_alpha(img->png);
|
png_set_strip_alpha(img->png);
|
||||||
}
|
|
||||||
|
|
||||||
if (img->depth != depth) {
|
if (img->depth != depth) {
|
||||||
if (opts.verbose) {
|
if (opts.verbose) {
|
||||||
@@ -70,14 +66,14 @@ input_png_file(struct Options opts, struct PNGImage *img)
|
|||||||
}
|
}
|
||||||
|
|
||||||
if (img->type == PNG_COLOR_TYPE_GRAY) {
|
if (img->type == PNG_COLOR_TYPE_GRAY) {
|
||||||
if (img->depth < 8) {
|
if (img->depth < 8)
|
||||||
png_set_expand_gray_1_2_4_to_8(img->png);
|
png_set_expand_gray_1_2_4_to_8(img->png);
|
||||||
}
|
|
||||||
png_set_gray_to_rgb(img->png);
|
png_set_gray_to_rgb(img->png);
|
||||||
} else {
|
} else {
|
||||||
if (img->depth < 8) {
|
if (img->depth < 8)
|
||||||
png_set_expand_gray_1_2_4_to_8(img->png);
|
png_set_expand_gray_1_2_4_to_8(img->png);
|
||||||
}
|
|
||||||
has_palette = png_get_PLTE(img->png, img->info, &palette,
|
has_palette = png_get_PLTE(img->png, img->info, &palette,
|
||||||
&colors);
|
&colors);
|
||||||
}
|
}
|
||||||
@@ -88,12 +84,11 @@ input_png_file(struct Options opts, struct PNGImage *img)
|
|||||||
full_alpha = malloc(sizeof(bool) * num_trans);
|
full_alpha = malloc(sizeof(bool) * num_trans);
|
||||||
|
|
||||||
for (i = 0; i < num_trans; i++) {
|
for (i = 0; i < num_trans; i++) {
|
||||||
if (trans_alpha[i] > 0) {
|
if (trans_alpha[i] > 0)
|
||||||
full_alpha[i] = false;
|
full_alpha[i] = false;
|
||||||
} else {
|
else
|
||||||
full_alpha[i] = true;
|
full_alpha[i] = true;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
|
|
||||||
for (i = 0; i < num_trans; i++) {
|
for (i = 0; i < num_trans; i++) {
|
||||||
if (full_alpha[i]) {
|
if (full_alpha[i]) {
|
||||||
@@ -182,9 +177,8 @@ input_png_file(struct Options opts, struct PNGImage *img)
|
|||||||
png_read_update_info(img->png, img->info);
|
png_read_update_info(img->png, img->info);
|
||||||
|
|
||||||
img->data = malloc(sizeof(png_byte *) * img->height);
|
img->data = malloc(sizeof(png_byte *) * img->height);
|
||||||
for (y = 0; y < img->height; y++) {
|
for (y = 0; y < img->height; y++)
|
||||||
img->data[y] = malloc(png_get_rowbytes(img->png, img->info));
|
img->data[y] = malloc(png_get_rowbytes(img->png, img->info));
|
||||||
}
|
|
||||||
|
|
||||||
png_read_image(img->png, img->data);
|
png_read_image(img->png, img->data);
|
||||||
png_read_end(img->png, img->info);
|
png_read_end(img->png, img->info);
|
||||||
@@ -192,8 +186,7 @@ input_png_file(struct Options opts, struct PNGImage *img)
|
|||||||
fclose(f);
|
fclose(f);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void get_text(struct PNGImage *png)
|
||||||
get_text(struct PNGImage *png)
|
|
||||||
{
|
{
|
||||||
png_text *text;
|
png_text *text;
|
||||||
int i, numtxts, numremoved;
|
int i, numtxts, numremoved;
|
||||||
@@ -221,11 +214,14 @@ get_text(struct PNGImage *png)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
/* TODO: Remove this and simply change the warning function not to warn instead. */
|
/*
|
||||||
|
* TODO: Remove this and simply change the warning function not to warn
|
||||||
|
* instead.
|
||||||
|
*/
|
||||||
for (i = 0, numremoved = 0; i < numtxts; i++) {
|
for (i = 0, numremoved = 0; i < numtxts; i++) {
|
||||||
if (text[i].key == NULL) {
|
if (text[i].key == NULL)
|
||||||
numremoved++;
|
numremoved++;
|
||||||
}
|
|
||||||
text[i].key = text[i + numremoved].key;
|
text[i].key = text[i + numremoved].key;
|
||||||
text[i].text = text[i + numremoved].text;
|
text[i].text = text[i + numremoved].text;
|
||||||
text[i].compression = text[i + numremoved].compression;
|
text[i].compression = text[i + numremoved].compression;
|
||||||
@@ -233,8 +229,7 @@ get_text(struct PNGImage *png)
|
|||||||
png_set_text(png->png, png->info, text, numtxts - numremoved);
|
png_set_text(png->png, png->info, text, numtxts - numremoved);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void set_text(const struct PNGImage *png)
|
||||||
set_text(struct PNGImage *png)
|
|
||||||
{
|
{
|
||||||
png_text *text;
|
png_text *text;
|
||||||
char buffer[3];
|
char buffer[3];
|
||||||
@@ -282,14 +277,16 @@ set_text(struct PNGImage *png)
|
|||||||
free(text);
|
free(text);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void output_png_file(const struct Options opts, const struct PNGImage *png)
|
||||||
output_png_file(struct Options opts, struct PNGImage *png)
|
|
||||||
{
|
{
|
||||||
FILE *f;
|
FILE *f;
|
||||||
char *outfile;
|
char *outfile;
|
||||||
png_struct *img;
|
png_struct *img;
|
||||||
|
|
||||||
/* Variable outfile is for debugging purposes. Eventually, opts.infile will be used directly. */
|
/*
|
||||||
|
* TODO: Variable outfile is for debugging purposes. Eventually,
|
||||||
|
* opts.infile will be used directly.
|
||||||
|
*/
|
||||||
if (opts.debug) {
|
if (opts.debug) {
|
||||||
outfile = malloc(strlen(opts.infile) + 5);
|
outfile = malloc(strlen(opts.infile) + 5);
|
||||||
strcpy(outfile, opts.infile);
|
strcpy(outfile, opts.infile);
|
||||||
@@ -299,19 +296,16 @@ output_png_file(struct Options opts, struct PNGImage *png)
|
|||||||
}
|
}
|
||||||
|
|
||||||
f = fopen(outfile, "wb");
|
f = fopen(outfile, "wb");
|
||||||
if (!f) {
|
if (!f)
|
||||||
err(1, "Opening output png file '%s' failed", outfile);
|
err(1, "Opening output png file '%s' failed", outfile);
|
||||||
}
|
|
||||||
|
|
||||||
img = png_create_write_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL);
|
img = png_create_write_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL);
|
||||||
if (!img) {
|
if (!img)
|
||||||
errx(1, "Creating png structure failed");
|
errx(1, "Creating png structure failed");
|
||||||
}
|
|
||||||
|
|
||||||
/* Better error handling here? */
|
/* TODO: Better error handling here? */
|
||||||
if (setjmp(png_jmpbuf(img))) {
|
if (setjmp(png_jmpbuf(img)))
|
||||||
exit(1);
|
exit(1);
|
||||||
}
|
|
||||||
|
|
||||||
png_init_io(img, f);
|
png_init_io(img, f);
|
||||||
|
|
||||||
@@ -322,18 +316,16 @@ output_png_file(struct Options opts, struct PNGImage *png)
|
|||||||
|
|
||||||
fclose(f);
|
fclose(f);
|
||||||
|
|
||||||
if (opts.debug) {
|
if (opts.debug)
|
||||||
free(outfile);
|
free(outfile);
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void free_png_data(const struct PNGImage *png)
|
||||||
free_png_data(struct PNGImage *png)
|
|
||||||
{
|
{
|
||||||
int y;
|
int y;
|
||||||
|
|
||||||
for (y = 0; y < png->height; y++) {
|
for (y = 0; y < png->height; y++)
|
||||||
free(png->data[y]);
|
free(png->data[y]);
|
||||||
}
|
|
||||||
free(png->data);
|
free(png->data);
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,9 +1,11 @@
|
|||||||
|
#include <stdint.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <stdbool.h>
|
#include <stdbool.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
|
|
||||||
#include "link/assign.h"
|
#include "link/assign.h"
|
||||||
#include "link/mylink.h"
|
#include "link/mylink.h"
|
||||||
#include "link/main.h"
|
#include "link/main.h"
|
||||||
@@ -11,62 +13,121 @@
|
|||||||
#include "link/symbol.h"
|
#include "link/symbol.h"
|
||||||
|
|
||||||
struct sFreeArea {
|
struct sFreeArea {
|
||||||
SLONG nOrg;
|
int32_t nOrg;
|
||||||
SLONG nSize;
|
int32_t nSize;
|
||||||
struct sFreeArea *pPrev, *pNext;
|
struct sFreeArea *pPrev, *pNext;
|
||||||
};
|
};
|
||||||
|
|
||||||
struct sSectionAttributes {
|
struct sSectionAttributes {
|
||||||
const char *name;
|
const char *name;
|
||||||
SLONG bank;
|
/* bank + offset = bank originally stored in a section struct */
|
||||||
SLONG offset; // bank + offset = bank originally stored in a section struct
|
int32_t bank;
|
||||||
SLONG minBank;
|
int32_t offset;
|
||||||
SLONG bankCount;
|
int32_t minBank;
|
||||||
|
int32_t bankCount;
|
||||||
};
|
};
|
||||||
|
|
||||||
struct sFreeArea *BankFree[MAXBANKS];
|
struct sFreeArea *BankFree[BANK_INDEX_MAX];
|
||||||
SLONG MaxAvail[MAXBANKS];
|
int32_t MaxAvail[BANK_INDEX_MAX];
|
||||||
SLONG MaxBankUsed;
|
int32_t MaxBankUsed;
|
||||||
SLONG MaxWBankUsed;
|
int32_t MaxWBankUsed;
|
||||||
SLONG MaxSBankUsed;
|
int32_t MaxSBankUsed;
|
||||||
SLONG MaxVBankUsed;
|
int32_t MaxVBankUsed;
|
||||||
|
|
||||||
const enum eSectionType SECT_MIN = SECT_WRAM0;
|
const enum eSectionType SECT_MIN = SECT_WRAM0;
|
||||||
const enum eSectionType SECT_MAX = SECT_OAM;
|
const enum eSectionType SECT_MAX = SECT_OAM;
|
||||||
const struct sSectionAttributes SECT_ATTRIBUTES[] = {
|
const struct sSectionAttributes SECT_ATTRIBUTES[] = {
|
||||||
{"WRAM0", BANK_WRAM0, 0, 0, BANK_COUNT_WRAM0},
|
{"WRAM0", BANK_INDEX_WRAM0, 0, 0, BANK_COUNT_WRAM0},
|
||||||
{"VRAM", BANK_VRAM, 0, 0, BANK_COUNT_VRAM},
|
{"VRAM", BANK_INDEX_VRAM, 0, 0, BANK_COUNT_VRAM},
|
||||||
{"ROMX", BANK_ROMX, -1, 1, BANK_COUNT_ROMX},
|
{"ROMX", BANK_INDEX_ROMX, -BANK_MIN_ROMX, BANK_MIN_ROMX, BANK_COUNT_ROMX},
|
||||||
{"ROM0", BANK_ROM0, 0, 0, BANK_COUNT_ROM0},
|
{"ROM0", BANK_INDEX_ROM0, 0, 0, BANK_COUNT_ROM0},
|
||||||
{"HRAM", BANK_HRAM, 0, 0, BANK_COUNT_HRAM},
|
{"HRAM", BANK_INDEX_HRAM, 0, 0, BANK_COUNT_HRAM},
|
||||||
{"WRAMX", BANK_WRAMX, 0, 0, BANK_COUNT_WRAMX},
|
{"WRAMX", BANK_INDEX_WRAMX, -BANK_MIN_WRAMX, BANK_MIN_WRAMX, BANK_COUNT_WRAMX},
|
||||||
{"SRAM", BANK_SRAM, 0, 0, BANK_COUNT_SRAM},
|
{"SRAM", BANK_INDEX_SRAM, 0, 0, BANK_COUNT_SRAM},
|
||||||
{"OAM", BANK_OAM, 0, 0, BANK_COUNT_OAM}
|
{"OAM", BANK_INDEX_OAM, 0, 0, BANK_COUNT_OAM}
|
||||||
};
|
};
|
||||||
|
|
||||||
#define DOMAXBANK(x, y) {switch (x) { \
|
static void do_max_bank(enum eSectionType Type, int32_t nBank)
|
||||||
case SECT_ROMX: DOMAXRBANK(y); break; \
|
|
||||||
case SECT_WRAMX: DOMAXWBANK(y); break; \
|
|
||||||
case SECT_SRAM: DOMAXSBANK(y); break; \
|
|
||||||
case SECT_VRAM: DOMAXVBANK(y); break; \
|
|
||||||
default: break; }}
|
|
||||||
#define DOMAXRBANK(x) {if( (x)>MaxBankUsed ) MaxBankUsed=(x);}
|
|
||||||
#define DOMAXWBANK(x) {if( (x)>MaxWBankUsed ) MaxWBankUsed=(x);}
|
|
||||||
#define DOMAXSBANK(x) {if( (x)>MaxSBankUsed ) MaxSBankUsed=(x);}
|
|
||||||
#define DOMAXVBANK(x) {if( (x)>MaxVBankUsed ) MaxVBankUsed=(x);}
|
|
||||||
|
|
||||||
void
|
|
||||||
ensureSectionTypeIsValid(enum eSectionType type)
|
|
||||||
{
|
{
|
||||||
if (type < SECT_MIN || type > SECT_MAX) {
|
switch (Type) {
|
||||||
errx(1, "(INTERNAL) Invalid section type found.");
|
case SECT_ROMX:
|
||||||
|
if (nBank > MaxBankUsed)
|
||||||
|
MaxBankUsed = nBank;
|
||||||
|
break;
|
||||||
|
case SECT_WRAMX:
|
||||||
|
if (nBank > MaxWBankUsed)
|
||||||
|
MaxWBankUsed = nBank;
|
||||||
|
break;
|
||||||
|
case SECT_SRAM:
|
||||||
|
if (nBank > MaxSBankUsed)
|
||||||
|
MaxSBankUsed = nBank;
|
||||||
|
break;
|
||||||
|
case SECT_VRAM:
|
||||||
|
if (nBank > MaxVBankUsed)
|
||||||
|
MaxVBankUsed = nBank;
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
break;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG
|
void ensureSectionTypeIsValid(enum eSectionType type)
|
||||||
area_Avail(SLONG bank)
|
|
||||||
{
|
{
|
||||||
SLONG r;
|
if (type < SECT_MIN || type > SECT_MAX)
|
||||||
|
errx(1, "%s: Invalid section type found: %d", __func__, type);
|
||||||
|
}
|
||||||
|
|
||||||
|
int BankIndexIsROM0(int32_t bank)
|
||||||
|
{
|
||||||
|
return (bank >= BANK_INDEX_ROM0) &&
|
||||||
|
(bank < (BANK_INDEX_ROM0 + BANK_COUNT_ROM0));
|
||||||
|
}
|
||||||
|
|
||||||
|
int BankIndexIsROMX(int32_t bank)
|
||||||
|
{
|
||||||
|
return (bank >= BANK_INDEX_ROMX) &&
|
||||||
|
(bank < (BANK_INDEX_ROMX + BANK_COUNT_ROMX));
|
||||||
|
}
|
||||||
|
|
||||||
|
int BankIndexIsWRAM0(int32_t bank)
|
||||||
|
{
|
||||||
|
return (bank >= BANK_INDEX_WRAM0) &&
|
||||||
|
(bank < (BANK_INDEX_WRAM0 + BANK_COUNT_WRAM0));
|
||||||
|
}
|
||||||
|
|
||||||
|
int BankIndexIsWRAMX(int32_t bank)
|
||||||
|
{
|
||||||
|
return (bank >= BANK_INDEX_WRAMX) &&
|
||||||
|
(bank < (BANK_INDEX_WRAMX + BANK_COUNT_WRAMX));
|
||||||
|
}
|
||||||
|
|
||||||
|
int BankIndexIsVRAM(int32_t bank)
|
||||||
|
{
|
||||||
|
return (bank >= BANK_INDEX_VRAM) &&
|
||||||
|
(bank < (BANK_INDEX_VRAM + BANK_COUNT_VRAM));
|
||||||
|
}
|
||||||
|
|
||||||
|
int BankIndexIsOAM(int32_t bank)
|
||||||
|
{
|
||||||
|
return (bank >= BANK_INDEX_OAM) &&
|
||||||
|
(bank < (BANK_INDEX_OAM + BANK_COUNT_OAM));
|
||||||
|
}
|
||||||
|
|
||||||
|
int BankIndexIsHRAM(int32_t bank)
|
||||||
|
{
|
||||||
|
return (bank >= BANK_INDEX_HRAM) &&
|
||||||
|
(bank < (BANK_INDEX_HRAM + BANK_COUNT_HRAM));
|
||||||
|
}
|
||||||
|
|
||||||
|
int BankIndexIsSRAM(int32_t bank)
|
||||||
|
{
|
||||||
|
return (bank >= BANK_INDEX_SRAM) &&
|
||||||
|
(bank < (BANK_INDEX_SRAM + BANK_COUNT_SRAM));
|
||||||
|
}
|
||||||
|
|
||||||
|
int32_t area_Avail(int32_t bank)
|
||||||
|
{
|
||||||
|
int32_t r;
|
||||||
struct sFreeArea *pArea;
|
struct sFreeArea *pArea;
|
||||||
|
|
||||||
r = 0;
|
r = 0;
|
||||||
@@ -77,54 +138,55 @@ area_Avail(SLONG bank)
|
|||||||
pArea = pArea->pNext;
|
pArea = pArea->pNext;
|
||||||
}
|
}
|
||||||
|
|
||||||
return (r);
|
return r;
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG
|
int32_t area_doAlloc(struct sFreeArea *pArea, int32_t org, int32_t size)
|
||||||
area_doAlloc(struct sFreeArea *pArea, SLONG org, SLONG size)
|
|
||||||
{
|
{
|
||||||
if (org >= pArea->nOrg && (org + size) <= (pArea->nOrg + pArea->nSize)) {
|
if ((org >= pArea->nOrg)
|
||||||
|
&& ((org + size) <= (pArea->nOrg + pArea->nSize))) {
|
||||||
|
|
||||||
if (org == pArea->nOrg) {
|
if (org == pArea->nOrg) {
|
||||||
pArea->nOrg += size;
|
pArea->nOrg += size;
|
||||||
pArea->nSize -= size;
|
pArea->nSize -= size;
|
||||||
return org;
|
return org;
|
||||||
} else {
|
}
|
||||||
|
|
||||||
if ((org + size) == (pArea->nOrg + pArea->nSize)) {
|
if ((org + size) == (pArea->nOrg + pArea->nSize)) {
|
||||||
pArea->nSize -= size;
|
pArea->nSize -= size;
|
||||||
return org;
|
return org;
|
||||||
} else {
|
}
|
||||||
|
|
||||||
struct sFreeArea *pNewArea;
|
struct sFreeArea *pNewArea;
|
||||||
|
|
||||||
if ((pNewArea = malloc(sizeof(struct sFreeArea))) != NULL) {
|
pNewArea = malloc(sizeof(struct sFreeArea));
|
||||||
|
|
||||||
|
if (pNewArea == NULL)
|
||||||
|
err(1, "%s: Failed to allocate memory", __func__);
|
||||||
|
|
||||||
*pNewArea = *pArea;
|
*pNewArea = *pArea;
|
||||||
pNewArea->pPrev = pArea;
|
pNewArea->pPrev = pArea;
|
||||||
pArea->pNext = pNewArea;
|
pArea->pNext = pNewArea;
|
||||||
pArea->nSize = org - pArea->nOrg;
|
pArea->nSize = org - pArea->nOrg;
|
||||||
pNewArea->nOrg = org + size;
|
pNewArea->nOrg = org + size;
|
||||||
pNewArea->nSize -= size + pArea->nSize;
|
pNewArea->nSize -= size + pArea->nSize;
|
||||||
return org;
|
|
||||||
|
|
||||||
} else {
|
return org;
|
||||||
err(1, NULL);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG
|
int32_t area_AllocAbs(struct sFreeArea **ppArea, int32_t org, int32_t size)
|
||||||
area_AllocAbs(struct sFreeArea ** ppArea, SLONG org, SLONG size)
|
|
||||||
{
|
{
|
||||||
struct sFreeArea *pArea;
|
struct sFreeArea *pArea;
|
||||||
|
|
||||||
pArea = *ppArea;
|
pArea = *ppArea;
|
||||||
while (pArea) {
|
while (pArea) {
|
||||||
SLONG result = area_doAlloc(pArea, org, size);
|
int32_t result = area_doAlloc(pArea, org, size);
|
||||||
if (result != -1) {
|
|
||||||
|
if (result != -1)
|
||||||
return result;
|
return result;
|
||||||
}
|
|
||||||
|
|
||||||
ppArea = &(pArea->pNext);
|
ppArea = &(pArea->pNext);
|
||||||
pArea = *ppArea;
|
pArea = *ppArea;
|
||||||
@@ -133,42 +195,41 @@ area_AllocAbs(struct sFreeArea ** ppArea, SLONG org, SLONG size)
|
|||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG
|
int32_t area_AllocAbsAnyBank(int32_t org, int32_t size, enum eSectionType type)
|
||||||
area_AllocAbsAnyBank(SLONG org, SLONG size, enum eSectionType type)
|
|
||||||
{
|
{
|
||||||
ensureSectionTypeIsValid(type);
|
ensureSectionTypeIsValid(type);
|
||||||
|
|
||||||
SLONG startBank = SECT_ATTRIBUTES[type].bank;
|
int32_t startBank = SECT_ATTRIBUTES[type].bank;
|
||||||
SLONG bankCount = SECT_ATTRIBUTES[type].bankCount;
|
int32_t bankCount = SECT_ATTRIBUTES[type].bankCount;
|
||||||
|
|
||||||
for (int i = 0; i < bankCount; i++) {
|
for (int32_t i = 0; i < bankCount; i++) {
|
||||||
if (area_AllocAbs(&BankFree[startBank + i], org, size) != -1) {
|
if (area_AllocAbs(&BankFree[startBank + i], org, size) != -1)
|
||||||
return startBank + i;
|
return startBank + i;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
|
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG
|
int32_t area_Alloc(struct sFreeArea **ppArea, int32_t size, int32_t alignment)
|
||||||
area_Alloc(struct sFreeArea ** ppArea, SLONG size, SLONG alignment) {
|
{
|
||||||
struct sFreeArea *pArea;
|
struct sFreeArea *pArea;
|
||||||
if (alignment < 1) {
|
|
||||||
|
if (alignment < 1)
|
||||||
alignment = 1;
|
alignment = 1;
|
||||||
}
|
|
||||||
|
|
||||||
pArea = *ppArea;
|
pArea = *ppArea;
|
||||||
while (pArea) {
|
while (pArea) {
|
||||||
SLONG org = pArea->nOrg;
|
int32_t org = pArea->nOrg;
|
||||||
if (org % alignment) {
|
|
||||||
|
if (org % alignment)
|
||||||
org += alignment;
|
org += alignment;
|
||||||
}
|
|
||||||
org -= org % alignment;
|
org -= org % alignment;
|
||||||
|
|
||||||
SLONG result = area_doAlloc(pArea, org, size);
|
int32_t result = area_doAlloc(pArea, org, size);
|
||||||
if (result != -1) {
|
|
||||||
|
if (result != -1)
|
||||||
return result;
|
return result;
|
||||||
}
|
|
||||||
|
|
||||||
ppArea = &(pArea->pNext);
|
ppArea = &(pArea->pNext);
|
||||||
pArea = *ppArea;
|
pArea = *ppArea;
|
||||||
@@ -177,34 +238,38 @@ area_Alloc(struct sFreeArea ** ppArea, SLONG size, SLONG alignment) {
|
|||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG
|
int32_t area_AllocAnyBank(int32_t size, int32_t alignment,
|
||||||
area_AllocAnyBank(SLONG size, SLONG alignment, enum eSectionType type) {
|
enum eSectionType type)
|
||||||
|
{
|
||||||
ensureSectionTypeIsValid(type);
|
ensureSectionTypeIsValid(type);
|
||||||
|
|
||||||
SLONG startBank = SECT_ATTRIBUTES[type].bank;
|
int32_t i, org;
|
||||||
SLONG bankCount = SECT_ATTRIBUTES[type].bankCount;
|
int32_t startBank = SECT_ATTRIBUTES[type].bank;
|
||||||
|
int32_t bankCount = SECT_ATTRIBUTES[type].bankCount;
|
||||||
|
|
||||||
for (int i = 0; i < bankCount; i++) {
|
for (i = 0; i < bankCount; i++) {
|
||||||
SLONG org = area_Alloc(&BankFree[startBank + i], size, alignment);
|
org = area_Alloc(&BankFree[startBank + i], size, alignment);
|
||||||
if (org != -1) {
|
if (org != -1)
|
||||||
return ((startBank + i) << 16) | org;
|
return ((startBank + i) << 16) | org;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
|
|
||||||
return -1;
|
return -1;
|
||||||
}
|
}
|
||||||
|
|
||||||
struct sSection *
|
struct sSection *FindLargestSection(enum eSectionType type, bool bankFixed)
|
||||||
FindLargestSection(enum eSectionType type, bool bankFixed)
|
|
||||||
{
|
{
|
||||||
struct sSection *pSection, *r = NULL;
|
struct sSection *pSection, *r = NULL;
|
||||||
SLONG nLargest = 0;
|
int32_t nLargest = 0;
|
||||||
SLONG nLargestAlignment = 0;
|
int32_t nLargestAlignment = 0;
|
||||||
|
|
||||||
pSection = pSections;
|
pSection = pSections;
|
||||||
while (pSection) {
|
while (pSection) {
|
||||||
if (pSection->oAssigned == 0 && pSection->Type == type && (bankFixed ^ (pSection->nBank == -1))) {
|
if (pSection->oAssigned == 0 && pSection->Type == type
|
||||||
if (pSection->nAlign > nLargestAlignment || (pSection->nAlign == nLargestAlignment && pSection->nByteSize > nLargest)) {
|
&& (bankFixed ^ (pSection->nBank == -1))) {
|
||||||
|
if (pSection->nAlign > nLargestAlignment
|
||||||
|
|| (pSection->nAlign == nLargestAlignment
|
||||||
|
&& pSection->nByteSize > nLargest)) {
|
||||||
|
|
||||||
nLargest = pSection->nByteSize;
|
nLargest = pSection->nByteSize;
|
||||||
nLargestAlignment = pSection->nAlign;
|
nLargestAlignment = pSection->nAlign;
|
||||||
r = pSection;
|
r = pSection;
|
||||||
@@ -216,12 +281,10 @@ FindLargestSection(enum eSectionType type, bool bankFixed)
|
|||||||
return r;
|
return r;
|
||||||
}
|
}
|
||||||
|
|
||||||
int
|
int32_t IsSectionNameInUse(const char *name)
|
||||||
IsSectionNameInUse(const char *name)
|
|
||||||
{
|
{
|
||||||
struct sSection *pSection;
|
const struct sSection *pSection = pSections;
|
||||||
|
|
||||||
pSection = pSections;
|
|
||||||
while (pSection) {
|
while (pSection) {
|
||||||
if (strcmp(pSection->pzName, name) == 0)
|
if (strcmp(pSection->pzName, name) == 0)
|
||||||
return 1;
|
return 1;
|
||||||
@@ -232,206 +295,256 @@ IsSectionNameInUse(const char *name)
|
|||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
struct sSection *GetSectionByName(const char *name)
|
||||||
int
|
|
||||||
IsSectionSameTypeBankAndFloating(const char *name, enum eSectionType type, int bank)
|
|
||||||
{
|
{
|
||||||
struct sSection *pSection;
|
struct sSection *pSection = pSections;
|
||||||
|
|
||||||
pSection = pSections;
|
|
||||||
while (pSection) {
|
while (pSection) {
|
||||||
if (pSection->oAssigned == 0) {
|
if (strcmp(pSection->pzName, name) == 0)
|
||||||
if (strcmp(pSection->pzName, name) == 0) {
|
return pSection;
|
||||||
|
|
||||||
|
pSection = pSection->pNext;
|
||||||
|
}
|
||||||
|
|
||||||
|
return NULL;
|
||||||
|
}
|
||||||
|
|
||||||
|
int32_t IsSectionSameTypeBankAndFloating(const char *name,
|
||||||
|
enum eSectionType type, int32_t bank)
|
||||||
|
{
|
||||||
|
const struct sSection *pSection;
|
||||||
|
|
||||||
|
for (pSection = pSections; pSection; pSection = pSection->pNext) {
|
||||||
|
/* Skip if it has already been assigned */
|
||||||
|
if (pSection->oAssigned == 1)
|
||||||
|
continue;
|
||||||
|
|
||||||
|
/* Check if it has the same name */
|
||||||
|
if (strcmp(pSection->pzName, name) != 0)
|
||||||
|
continue;
|
||||||
|
|
||||||
|
/*
|
||||||
|
* The section has the same name, now check if there is a
|
||||||
|
* mismatch or not.
|
||||||
|
*/
|
||||||
|
|
||||||
/* Section must be floating in source */
|
/* Section must be floating in source */
|
||||||
if (pSection->nOrg != -1 || pSection->nAlign != 1)
|
if (pSection->nOrg != -1 || pSection->nAlign != 1)
|
||||||
return 0;
|
return 0;
|
||||||
|
|
||||||
/* It must have the same type in source and linkerscript */
|
/* It must have the same type in source and linkerscript */
|
||||||
if (pSection->Type != type)
|
if (pSection->Type != type)
|
||||||
return 0;
|
return 0;
|
||||||
|
|
||||||
/* Bank number must be unassigned in source or equal */
|
/* Bank number must be unassigned in source or equal */
|
||||||
if (pSection->nBank != -1 && pSection->nBank != bank)
|
if (pSection->nBank != -1 && pSection->nBank != bank)
|
||||||
return 0;
|
return 0;
|
||||||
|
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
pSection = pSection->pNext;
|
|
||||||
}
|
|
||||||
|
|
||||||
errx(1, "Section \"%s\" not found (or already used).\n", name);
|
errx(1, "Section \"%s\" not found (or already used).\n", name);
|
||||||
}
|
}
|
||||||
|
|
||||||
unsigned int
|
uint32_t AssignSectionAddressAndBankByName(const char *name, uint32_t address,
|
||||||
AssignSectionAddressAndBankByName(const char *name, unsigned int address, int bank)
|
int32_t bank)
|
||||||
{
|
{
|
||||||
struct sSection *pSection;
|
struct sSection *pSection;
|
||||||
|
|
||||||
pSection = pSections;
|
for (pSection = pSections; pSection; pSection = pSection->pNext) {
|
||||||
while (pSection) {
|
/* Skip if it has already been assigned */
|
||||||
if (pSection->oAssigned == 0) {
|
if (pSection->oAssigned == 1)
|
||||||
if (strcmp(pSection->pzName, name) == 0) {
|
continue;
|
||||||
if (pSection->nOrg != -1 || pSection->nAlign != 1)
|
|
||||||
errx(1, "Section \"%s\" from linkerscript isn't floating.\n", name);
|
/* Check if it has the same name */
|
||||||
if (pSection->nBank != -1 && pSection->nBank != bank)
|
if (strcmp(pSection->pzName, name) != 0)
|
||||||
errx(1, "Section \"%s\" from linkerscript has different bank number than in the source.\n", name);
|
continue;
|
||||||
|
|
||||||
|
/* Section has been found. */
|
||||||
|
|
||||||
|
/*
|
||||||
|
* A section can be left as floating in the code if the location
|
||||||
|
* is assigned in the linkerscript.
|
||||||
|
*/
|
||||||
|
if (pSection->nOrg != -1 || pSection->nAlign != 1) {
|
||||||
|
errx(1, "Section \"%s\" from linkerscript isn't floating.\n",
|
||||||
|
name);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* The bank can be left as unassigned or be the same */
|
||||||
|
if (pSection->nBank != -1 && pSection->nBank != bank) {
|
||||||
|
errx(1, "Section \"%s\" from linkerscript has different bank number than in the source.\n",
|
||||||
|
name);
|
||||||
|
}
|
||||||
|
|
||||||
pSection->nOrg = address;
|
pSection->nOrg = address;
|
||||||
pSection->nBank = bank;
|
pSection->nBank = bank;
|
||||||
pSection->nAlign = -1;
|
pSection->nAlign = -1;
|
||||||
|
|
||||||
return pSection->nByteSize;
|
return pSection->nByteSize;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
pSection = pSection->pNext;
|
|
||||||
}
|
|
||||||
|
|
||||||
errx(1, "Section \"%s\" not found (or already used).\n", name);
|
errx(1, "Section \"%s\" not found (or already used).\n", name);
|
||||||
}
|
}
|
||||||
|
|
||||||
bool
|
bool VerifyAndSetBank(struct sSection *pSection)
|
||||||
VerifyAndSetBank(struct sSection *pSection)
|
|
||||||
{
|
{
|
||||||
ensureSectionTypeIsValid(pSection->Type);
|
enum eSectionType Type = pSection->Type;
|
||||||
|
|
||||||
if (pSection->nBank >= SECT_ATTRIBUTES[pSection->Type].minBank
|
ensureSectionTypeIsValid(Type);
|
||||||
&& pSection->nBank < SECT_ATTRIBUTES[pSection->Type].minBank + SECT_ATTRIBUTES[pSection->Type].bankCount) {
|
|
||||||
pSection->nBank += SECT_ATTRIBUTES[pSection->Type].bank + SECT_ATTRIBUTES[pSection->Type].offset;
|
if (pSection->nBank >= SECT_ATTRIBUTES[Type].minBank) {
|
||||||
|
if (pSection->nBank < SECT_ATTRIBUTES[Type].minBank
|
||||||
|
+ SECT_ATTRIBUTES[Type].bankCount) {
|
||||||
|
pSection->nBank += SECT_ATTRIBUTES[Type].bank
|
||||||
|
+ SECT_ATTRIBUTES[Type].offset;
|
||||||
return true;
|
return true;
|
||||||
|
|
||||||
} else {
|
|
||||||
return false;
|
|
||||||
}
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return false;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void AssignFixedBankSections(enum eSectionType type)
|
||||||
AssignFixedBankSections(enum eSectionType type)
|
|
||||||
{
|
{
|
||||||
ensureSectionTypeIsValid(type);
|
ensureSectionTypeIsValid(type);
|
||||||
|
|
||||||
struct sSection *pSection;
|
struct sSection *pSection;
|
||||||
|
|
||||||
while ((pSection = FindLargestSection(type, true))) {
|
while ((pSection = FindLargestSection(type, true))) {
|
||||||
if (VerifyAndSetBank(pSection) &&
|
if (VerifyAndSetBank(pSection)) {
|
||||||
(pSection->nOrg = area_Alloc(&BankFree[pSection->nBank], pSection->nByteSize, pSection->nAlign)) != -1) {
|
pSection->nOrg = area_Alloc(&BankFree[pSection->nBank],
|
||||||
|
pSection->nByteSize,
|
||||||
|
pSection->nAlign);
|
||||||
|
if (pSection->nOrg != -1) {
|
||||||
pSection->oAssigned = 1;
|
pSection->oAssigned = 1;
|
||||||
DOMAXBANK(pSection->Type, pSection->nBank);
|
do_max_bank(pSection->Type, pSection->nBank);
|
||||||
} else {
|
continue;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
if (pSection->nAlign <= 1) {
|
if (pSection->nAlign <= 1) {
|
||||||
errx(1, "Unable to place '%s' (%s section) in bank $%02lX",
|
errx(1, "Unable to place '%s' (%s section) in bank $%02lX",
|
||||||
pSection->pzName, SECT_ATTRIBUTES[pSection->Type].name, pSection->nBank);
|
pSection->pzName,
|
||||||
|
SECT_ATTRIBUTES[pSection->Type].name,
|
||||||
|
pSection->nBank);
|
||||||
} else {
|
} else {
|
||||||
errx(1, "Unable to place '%s' (%s section) in bank $%02lX (with $%lX-byte alignment)",
|
errx(1, "Unable to place '%s' (%s section) in bank $%02lX (with $%lX-byte alignment)",
|
||||||
pSection->pzName, SECT_ATTRIBUTES[pSection->Type].name, pSection->nBank, pSection->nAlign);
|
pSection->pzName,
|
||||||
}
|
SECT_ATTRIBUTES[pSection->Type].name,
|
||||||
|
pSection->nBank, pSection->nAlign);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void AssignFloatingBankSections(enum eSectionType type)
|
||||||
AssignFloatingBankSections(enum eSectionType type)
|
|
||||||
{
|
{
|
||||||
ensureSectionTypeIsValid(type);
|
ensureSectionTypeIsValid(type);
|
||||||
|
|
||||||
struct sSection *pSection;
|
struct sSection *pSection;
|
||||||
|
|
||||||
while ((pSection = FindLargestSection(type, false))) {
|
while ((pSection = FindLargestSection(type, false))) {
|
||||||
SLONG org;
|
int32_t org;
|
||||||
|
|
||||||
if ((org = area_AllocAnyBank(pSection->nByteSize, pSection->nAlign, type)) != -1) {
|
org = area_AllocAnyBank(pSection->nByteSize, pSection->nAlign,
|
||||||
if (options & OPT_OVERLAY) {
|
type);
|
||||||
|
|
||||||
|
if (org != -1) {
|
||||||
|
if (options & OPT_OVERLAY)
|
||||||
errx(1, "All sections must be fixed when using an overlay file.");
|
errx(1, "All sections must be fixed when using an overlay file.");
|
||||||
}
|
|
||||||
pSection->nOrg = org & 0xFFFF;
|
pSection->nOrg = org & 0xFFFF;
|
||||||
pSection->nBank = org >> 16;
|
pSection->nBank = org >> 16;
|
||||||
pSection->oAssigned = 1;
|
pSection->oAssigned = 1;
|
||||||
DOMAXBANK(pSection->Type, pSection->nBank);
|
do_max_bank(pSection->Type, pSection->nBank);
|
||||||
} else {
|
} else {
|
||||||
const char *locality = "anywhere";
|
const char *locality = "anywhere";
|
||||||
if (SECT_ATTRIBUTES[pSection->Type].bankCount > 1) {
|
|
||||||
|
if (SECT_ATTRIBUTES[pSection->Type].bankCount > 1)
|
||||||
locality = "in any bank";
|
locality = "in any bank";
|
||||||
}
|
|
||||||
|
|
||||||
if (pSection->nAlign <= 1) {
|
if (pSection->nAlign <= 1) {
|
||||||
errx(1, "Unable to place '%s' (%s section) %s",
|
errx(1, "Unable to place '%s' (%s section) %s",
|
||||||
pSection->pzName, SECT_ATTRIBUTES[type].name, locality);
|
pSection->pzName,
|
||||||
|
SECT_ATTRIBUTES[type].name, locality);
|
||||||
} else {
|
} else {
|
||||||
errx(1, "Unable to place '%s' (%s section) %s (with $%lX-byte alignment)",
|
errx(1, "Unable to place '%s' (%s section) %s (with $%lX-byte alignment)",
|
||||||
pSection->pzName, SECT_ATTRIBUTES[type].name, locality, pSection->nAlign);
|
pSection->pzName,
|
||||||
|
SECT_ATTRIBUTES[type].name, locality,
|
||||||
|
pSection->nAlign);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
char *tzLinkerscriptName = NULL;
|
char *tzLinkerscriptName;
|
||||||
|
|
||||||
void
|
void SetLinkerscriptName(char *tzLinkerscriptFile)
|
||||||
SetLinkerscriptName(char *tzLinkerscriptFile)
|
|
||||||
{
|
{
|
||||||
tzLinkerscriptName = tzLinkerscriptFile;
|
tzLinkerscriptName = tzLinkerscriptFile;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void AssignSections(void)
|
||||||
AssignSections(void)
|
|
||||||
{
|
{
|
||||||
SLONG i;
|
int32_t i;
|
||||||
struct sSection *pSection;
|
struct sSection *pSection;
|
||||||
|
|
||||||
MaxBankUsed = 0;
|
MaxBankUsed = 0;
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Initialize the memory areas
|
* Initialize the memory areas
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
|
|
||||||
for (i = 0; i < MAXBANKS; i += 1) {
|
for (i = 0; i < BANK_INDEX_MAX; i += 1) {
|
||||||
BankFree[i] = malloc(sizeof *BankFree[i]);
|
BankFree[i] = malloc(sizeof(*BankFree[i]));
|
||||||
|
|
||||||
if (!BankFree[i]) {
|
if (!BankFree[i]) {
|
||||||
err(1, NULL);
|
errx(1, "%s: Couldn't allocate mem for bank %d",
|
||||||
|
__func__, i);
|
||||||
}
|
}
|
||||||
|
|
||||||
if (i == BANK_ROM0) {
|
if (BankIndexIsROM0(i)) {
|
||||||
/* ROM0 bank */
|
/* ROM0 bank */
|
||||||
BankFree[i]->nOrg = 0x0000;
|
BankFree[i]->nOrg = 0x0000;
|
||||||
if (options & OPT_TINY) {
|
if (options & OPT_TINY)
|
||||||
BankFree[i]->nSize = 0x8000;
|
BankFree[i]->nSize = 0x8000;
|
||||||
} else {
|
else
|
||||||
BankFree[i]->nSize = 0x4000;
|
BankFree[i]->nSize = 0x4000;
|
||||||
}
|
} else if (BankIndexIsROMX(i)) {
|
||||||
} else if (i >= BANK_ROMX && i < BANK_ROMX + BANK_COUNT_ROMX) {
|
|
||||||
/* Swappable ROM bank */
|
/* Swappable ROM bank */
|
||||||
BankFree[i]->nOrg = 0x4000;
|
BankFree[i]->nOrg = 0x4000;
|
||||||
BankFree[i]->nSize = 0x4000;
|
BankFree[i]->nSize = 0x4000;
|
||||||
} else if (i == BANK_WRAM0) {
|
} else if (BankIndexIsWRAM0(i)) {
|
||||||
/* WRAM */
|
/* WRAM */
|
||||||
BankFree[i]->nOrg = 0xC000;
|
BankFree[i]->nOrg = 0xC000;
|
||||||
if (options & OPT_CONTWRAM) {
|
if (options & OPT_CONTWRAM)
|
||||||
BankFree[i]->nSize = 0x2000;
|
BankFree[i]->nSize = 0x2000;
|
||||||
} else {
|
else
|
||||||
BankFree[i]->nSize = 0x1000;
|
BankFree[i]->nSize = 0x1000;
|
||||||
}
|
} else if (BankIndexIsSRAM(i)) {
|
||||||
} else if (i >= BANK_SRAM && i < BANK_SRAM + BANK_COUNT_SRAM) {
|
|
||||||
/* Swappable SRAM bank */
|
/* Swappable SRAM bank */
|
||||||
BankFree[i]->nOrg = 0xA000;
|
BankFree[i]->nOrg = 0xA000;
|
||||||
BankFree[i]->nSize = 0x2000;
|
BankFree[i]->nSize = 0x2000;
|
||||||
} else if (i >= BANK_WRAMX && i < BANK_WRAMX + BANK_COUNT_WRAMX) {
|
} else if (BankIndexIsWRAMX(i)) {
|
||||||
/* Swappable WRAM bank */
|
/* Swappable WRAM bank */
|
||||||
BankFree[i]->nOrg = 0xD000;
|
BankFree[i]->nOrg = 0xD000;
|
||||||
BankFree[i]->nSize = 0x1000;
|
BankFree[i]->nSize = 0x1000;
|
||||||
} else if (i >= BANK_VRAM && i < BANK_VRAM + BANK_COUNT_VRAM) {
|
} else if (BankIndexIsVRAM(i)) {
|
||||||
/* Swappable VRAM bank */
|
/* Swappable VRAM bank */
|
||||||
BankFree[i]->nOrg = 0x8000;
|
BankFree[i]->nOrg = 0x8000;
|
||||||
if (options & OPT_DMG_MODE && i != BANK_VRAM) {
|
if (options & OPT_DMG_MODE && i != BANK_INDEX_VRAM)
|
||||||
BankFree[i]->nSize = 0;
|
BankFree[i]->nSize = 0;
|
||||||
} else {
|
else
|
||||||
BankFree[i]->nSize = 0x2000;
|
BankFree[i]->nSize = 0x2000;
|
||||||
}
|
} else if (BankIndexIsOAM(i)) {
|
||||||
} else if (i == BANK_OAM) {
|
|
||||||
BankFree[i]->nOrg = 0xFE00;
|
BankFree[i]->nOrg = 0xFE00;
|
||||||
BankFree[i]->nSize = 0x00A0;
|
BankFree[i]->nSize = 0x00A0;
|
||||||
} else if (i == BANK_HRAM) {
|
} else if (BankIndexIsHRAM(i)) {
|
||||||
/* HRAM */
|
/* HRAM */
|
||||||
BankFree[i]->nOrg = 0xFF80;
|
BankFree[i]->nOrg = 0xFF80;
|
||||||
BankFree[i]->nSize = 0x007F;
|
BankFree[i]->nSize = 0x007F;
|
||||||
} else {
|
} else {
|
||||||
errx(1, "(INTERNAL) Unknown bank type!");
|
errx(1, "%s: Unknown bank type %d", __func__, i);
|
||||||
}
|
}
|
||||||
|
|
||||||
MaxAvail[i] = BankFree[i]->nSize;
|
MaxAvail[i] = BankFree[i]->nSize;
|
||||||
@@ -441,7 +554,6 @@ AssignSections(void)
|
|||||||
|
|
||||||
/*
|
/*
|
||||||
* First, let's parse the linkerscript.
|
* First, let's parse the linkerscript.
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
|
|
||||||
if (tzLinkerscriptName) {
|
if (tzLinkerscriptName) {
|
||||||
@@ -451,13 +563,13 @@ AssignSections(void)
|
|||||||
|
|
||||||
/*
|
/*
|
||||||
* Second, let's assign all the fixed sections...
|
* Second, let's assign all the fixed sections...
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
|
|
||||||
pSection = pSections;
|
for (pSection = pSections ; pSection; pSection = pSection->pNext) {
|
||||||
while (pSection) {
|
if (!((pSection->nOrg != -1 || pSection->nBank != -1)
|
||||||
if ((pSection->nOrg != -1 || pSection->nBank != -1)
|
&& pSection->oAssigned == 0))
|
||||||
&& pSection->oAssigned == 0) {
|
continue;
|
||||||
|
|
||||||
/* User wants to have a say... */
|
/* User wants to have a say... */
|
||||||
|
|
||||||
switch (pSection->Type) {
|
switch (pSection->Type) {
|
||||||
@@ -466,10 +578,13 @@ AssignSections(void)
|
|||||||
case SECT_ROM0:
|
case SECT_ROM0:
|
||||||
case SECT_OAM:
|
case SECT_OAM:
|
||||||
pSection->nBank = SECT_ATTRIBUTES[pSection->Type].bank;
|
pSection->nBank = SECT_ATTRIBUTES[pSection->Type].bank;
|
||||||
if (area_AllocAbs(&BankFree[pSection->nBank], pSection->nOrg,
|
if (area_AllocAbs(&BankFree[pSection->nBank],
|
||||||
|
pSection->nOrg,
|
||||||
pSection->nByteSize) == -1) {
|
pSection->nByteSize) == -1) {
|
||||||
errx(1, "Unable to place '%s' (%s section) at $%lX",
|
errx(1, "Unable to place '%s' (%s section) at $%X",
|
||||||
pSection->pzName, SECT_ATTRIBUTES[pSection->Type].name, pSection->nOrg);
|
pSection->pzName,
|
||||||
|
SECT_ATTRIBUTES[pSection->Type].name,
|
||||||
|
pSection->nOrg);
|
||||||
}
|
}
|
||||||
pSection->oAssigned = 1;
|
pSection->oAssigned = 1;
|
||||||
break;
|
break;
|
||||||
@@ -478,109 +593,113 @@ AssignSections(void)
|
|||||||
case SECT_WRAMX:
|
case SECT_WRAMX:
|
||||||
case SECT_VRAM:
|
case SECT_VRAM:
|
||||||
case SECT_ROMX:
|
case SECT_ROMX:
|
||||||
if (pSection->nBank != -1 && pSection->nOrg != -1) {
|
if (!(pSection->nBank != -1 && pSection->nOrg != -1))
|
||||||
|
break;
|
||||||
|
|
||||||
if (VerifyAndSetBank(pSection) &&
|
if (VerifyAndSetBank(pSection) &&
|
||||||
area_AllocAbs(&BankFree[pSection->nBank], pSection->nOrg, pSection->nByteSize) != -1) {
|
area_AllocAbs(&BankFree[pSection->nBank],
|
||||||
DOMAXBANK(pSection->Type, pSection->nBank);
|
pSection->nOrg,
|
||||||
|
pSection->nByteSize) != -1) {
|
||||||
|
do_max_bank(pSection->Type, pSection->nBank);
|
||||||
pSection->oAssigned = 1;
|
pSection->oAssigned = 1;
|
||||||
} else {
|
} else {
|
||||||
errx(1, "Unable to place '%s' (%s section) at $%lX in bank $%02lX",
|
errx(1, "Unable to place '%s' (%s section) at $%X in bank $%02X",
|
||||||
pSection->pzName, SECT_ATTRIBUTES[pSection->Type].name, pSection->nOrg, pSection->nBank);
|
pSection->pzName,
|
||||||
}
|
SECT_ATTRIBUTES[pSection->Type].name,
|
||||||
|
pSection->nOrg, pSection->nBank);
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
pSection = pSection->pNext;
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Next, let's assign all the bankfixed ONLY sections...
|
* Next, let's assign all the bankfixed ONLY sections...
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
for (enum eSectionType i = SECT_MIN; i <= SECT_MAX; i++) {
|
for (enum eSectionType i = SECT_MIN; i <= SECT_MAX; i++)
|
||||||
AssignFixedBankSections(i);
|
AssignFixedBankSections(i);
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Now, let's assign all the floating bank but fixed ROMX sections...
|
* Now, let's assign all the floating bank but fixed ROMX sections...
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
|
|
||||||
pSection = pSections;
|
for (pSection = pSections ; pSection; pSection = pSection->pNext) {
|
||||||
while (pSection) {
|
if (!(pSection->oAssigned == 0
|
||||||
if (pSection->oAssigned == 0
|
&& pSection->nOrg != -1 && pSection->nBank == -1))
|
||||||
&& pSection->nOrg != -1 && pSection->nBank == -1) {
|
continue;
|
||||||
|
|
||||||
if (options & OPT_OVERLAY) {
|
if (options & OPT_OVERLAY) {
|
||||||
errx(1, "All sections must be fixed when using an overlay file.");
|
errx(1, "All sections must be fixed when using an overlay file: '%s'",
|
||||||
|
pSection->pzName);
|
||||||
}
|
}
|
||||||
|
|
||||||
switch (pSection->Type) {
|
switch (pSection->Type) {
|
||||||
case SECT_ROMX:
|
case SECT_ROMX:
|
||||||
case SECT_VRAM:
|
case SECT_VRAM:
|
||||||
case SECT_SRAM:
|
case SECT_SRAM:
|
||||||
case SECT_WRAMX:
|
case SECT_WRAMX:
|
||||||
if ((pSection->nBank =
|
pSection->nBank =
|
||||||
area_AllocAbsAnyBank(pSection->nOrg, pSection->nByteSize,
|
area_AllocAbsAnyBank(pSection->nOrg,
|
||||||
pSection->Type)) == -1) {
|
pSection->nByteSize,
|
||||||
errx(1, "Unable to place '%s' (%s section) at $%lX in any bank",
|
pSection->Type);
|
||||||
pSection->pzName, SECT_ATTRIBUTES[pSection->Type].name, pSection->nOrg);
|
|
||||||
|
if (pSection->nBank == -1) {
|
||||||
|
errx(1, "Unable to place '%s' (%s section) at $%X in any bank",
|
||||||
|
pSection->pzName,
|
||||||
|
SECT_ATTRIBUTES[pSection->Type].name,
|
||||||
|
pSection->nOrg);
|
||||||
}
|
}
|
||||||
pSection->oAssigned = 1;
|
pSection->oAssigned = 1;
|
||||||
DOMAXBANK(pSection->Type, pSection->nBank);
|
do_max_bank(pSection->Type, pSection->nBank);
|
||||||
break;
|
break;
|
||||||
|
|
||||||
default: // Handle other sections later
|
default: /* Handle other sections later */
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
pSection = pSection->pNext;
|
|
||||||
}
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* OK, all that nasty stuff is done so let's assign all the other
|
* OK, all that nasty stuff is done so let's assign all the other
|
||||||
* sections
|
* sections
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
for (enum eSectionType i = SECT_MIN; i <= SECT_MAX; i++) {
|
for (enum eSectionType i = SECT_MIN; i <= SECT_MAX; i++)
|
||||||
AssignFloatingBankSections(i);
|
AssignFloatingBankSections(i);
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void CreateSymbolTable(void)
|
||||||
CreateSymbolTable(void)
|
|
||||||
{
|
{
|
||||||
struct sSection *pSect;
|
const struct sSection *pSect;
|
||||||
|
|
||||||
sym_Init();
|
sym_Init();
|
||||||
|
|
||||||
pSect = pSections;
|
pSect = pSections;
|
||||||
|
|
||||||
while (pSect) {
|
while (pSect) {
|
||||||
SLONG i;
|
int32_t i;
|
||||||
|
|
||||||
i = pSect->nNumberOfSymbols;
|
i = pSect->nNumberOfSymbols;
|
||||||
|
|
||||||
while (i--) {
|
while (i--) {
|
||||||
if ((pSect->tSymbols[i]->Type == SYM_EXPORT) &&
|
const struct sSymbol *tSymbol = pSect->tSymbols[i];
|
||||||
((pSect->tSymbols[i]->pSection == pSect) ||
|
|
||||||
(pSect->tSymbols[i]->pSection == NULL))) {
|
if ((tSymbol->Type == SYM_EXPORT) &&
|
||||||
if (pSect->tSymbols[i]->pSection == NULL)
|
((tSymbol->pSection == pSect) ||
|
||||||
|
(tSymbol->pSection == NULL))) {
|
||||||
|
if (tSymbol->pSection == NULL)
|
||||||
sym_CreateSymbol(
|
sym_CreateSymbol(
|
||||||
pSect->tSymbols[i]->pzName,
|
tSymbol->pzName,
|
||||||
pSect->tSymbols[i]->nOffset,
|
tSymbol->nOffset,
|
||||||
-1,
|
-1,
|
||||||
pSect->tSymbols[i]->pzObjFileName,
|
tSymbol->pzObjFileName,
|
||||||
pSect->tSymbols[i]->pzFileName,
|
tSymbol->pzFileName,
|
||||||
pSect->tSymbols[i]->nFileLine);
|
tSymbol->nFileLine);
|
||||||
else
|
else
|
||||||
sym_CreateSymbol(
|
sym_CreateSymbol(
|
||||||
pSect->tSymbols[i]->pzName,
|
tSymbol->pzName,
|
||||||
pSect->nOrg + pSect->tSymbols[i]->nOffset,
|
pSect->nOrg + tSymbol->nOffset,
|
||||||
pSect->nBank,
|
pSect->nBank,
|
||||||
pSect->tSymbols[i]->pzObjFileName,
|
tSymbol->pzObjFileName,
|
||||||
pSect->tSymbols[i]->pzFileName,
|
tSymbol->pzFileName,
|
||||||
pSect->tSymbols[i]->nFileLine);
|
tSymbol->nFileLine);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
pSect = pSect->pNext;
|
pSect = pSect->pNext;
|
||||||
|
|||||||
@@ -19,25 +19,29 @@
|
|||||||
|
|
||||||
%{
|
%{
|
||||||
#include <stdarg.h>
|
#include <stdarg.h>
|
||||||
|
#include <stdint.h>
|
||||||
#include <unistd.h>
|
#include <unistd.h>
|
||||||
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
|
|
||||||
#include "link/mylink.h"
|
#include "link/mylink.h"
|
||||||
#include "link/script.h"
|
#include "link/script.h"
|
||||||
|
|
||||||
#include "parser.h"
|
#include "parser.h"
|
||||||
|
|
||||||
|
#include "types.h"
|
||||||
|
|
||||||
extern int yyparse();
|
extern int yyparse();
|
||||||
|
|
||||||
/* File include stack. */
|
/* File include stack. */
|
||||||
|
|
||||||
#define MAX_INCLUDE_DEPTH 8
|
#define MAX_INCLUDE_DEPTH 8
|
||||||
|
|
||||||
static int include_stack_ptr = 0;
|
static int32_t include_stack_ptr;
|
||||||
|
|
||||||
static YY_BUFFER_STATE include_stack[MAX_INCLUDE_DEPTH];
|
static YY_BUFFER_STATE include_stack[MAX_INCLUDE_DEPTH];
|
||||||
static char include_path[MAX_INCLUDE_DEPTH][_MAX_PATH + 1];
|
static char include_path[MAX_INCLUDE_DEPTH][_MAX_PATH + 1];
|
||||||
static int include_line[MAX_INCLUDE_DEPTH];
|
static int32_t include_line[MAX_INCLUDE_DEPTH];
|
||||||
|
|
||||||
static char linkerscript_path[_MAX_PATH + 1]; /* Base file */
|
static char linkerscript_path[_MAX_PATH + 1]; /* Base file */
|
||||||
%}
|
%}
|
||||||
@@ -45,14 +49,21 @@ static char linkerscript_path[_MAX_PATH + 1]; /* Base file */
|
|||||||
%%
|
%%
|
||||||
|
|
||||||
\"([^\\\"]|\\.)*\" {
|
\"([^\\\"]|\\.)*\" {
|
||||||
if (strlen(yytext) > sizeof(yylval.s) - 1)
|
if (strlen(yytext) > sizeof(yylval.s) - 1) {
|
||||||
script_fatalerror("String is too long: %s\n.", yytext);
|
script_fatalerror("String is too long: %s\n.",
|
||||||
if (strlen(yytext) < 3) /* 2 quotes + 1 character */
|
yytext);
|
||||||
script_fatalerror("String %s is invalid\n.", yytext);
|
}
|
||||||
|
|
||||||
yytext++; /* ignore first quote */
|
if (strlen(yytext) < 3) { /* 2 quotes + 1 character */
|
||||||
|
script_fatalerror("String %s is invalid\n.",
|
||||||
|
yytext);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Ignore first quote */
|
||||||
|
yytext++;
|
||||||
strcpy(yylval.s, yytext);
|
strcpy(yylval.s, yytext);
|
||||||
yylval.s[strlen(yylval.s)-1] = '\0'; /* remove end quote */
|
/* Remove end quote */
|
||||||
|
yylval.s[strlen(yylval.s)-1] = '\0';
|
||||||
|
|
||||||
return STRING;
|
return STRING;
|
||||||
}
|
}
|
||||||
@@ -108,12 +119,11 @@ void script_Parse(const char * path)
|
|||||||
} while (!feof(yyin));
|
} while (!feof(yyin));
|
||||||
|
|
||||||
fclose(yyin);
|
fclose(yyin);
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
void script_IncludeFile(const char * path)
|
void script_IncludeFile(const char * path)
|
||||||
{
|
{
|
||||||
if (include_stack_ptr == (MAX_INCLUDE_DEPTH-1))
|
if (include_stack_ptr == (MAX_INCLUDE_DEPTH - 1))
|
||||||
script_fatalerror("Includes nested too deeply.");
|
script_fatalerror("Includes nested too deeply.");
|
||||||
|
|
||||||
include_line[include_stack_ptr] = yylineno;
|
include_line[include_stack_ptr] = yylineno;
|
||||||
@@ -121,13 +131,13 @@ void script_IncludeFile(const char * path)
|
|||||||
|
|
||||||
include_stack_ptr++;
|
include_stack_ptr++;
|
||||||
|
|
||||||
yyin = fopen(path, "r" );
|
yyin = fopen(path, "r");
|
||||||
|
|
||||||
if (!yyin)
|
if (!yyin)
|
||||||
script_fatalerror("Couldn't open file \"%s\"", path);
|
script_fatalerror("Couldn't open file \"%s\"", path);
|
||||||
|
|
||||||
strncpy(include_path[include_stack_ptr], path, sizeof(include_path[0]));
|
strncpy(include_path[include_stack_ptr], path, sizeof(include_path[0]));
|
||||||
include_path[include_stack_ptr][sizeof(include_path[0])-1] = '\0';
|
include_path[include_stack_ptr][sizeof(include_path[0]) - 1] = '\0';
|
||||||
|
|
||||||
yy_switch_to_buffer(yy_create_buffer(yyin, YY_BUF_SIZE));
|
yy_switch_to_buffer(yy_create_buffer(yyin, YY_BUF_SIZE));
|
||||||
yylineno = 1;
|
yylineno = 1;
|
||||||
@@ -148,7 +158,7 @@ void script_IncludeFile(const char * path)
|
|||||||
unput('\n');
|
unput('\n');
|
||||||
}
|
}
|
||||||
|
|
||||||
int script_IncludeDepthGet(void)
|
int32_t script_IncludeDepthGet(void)
|
||||||
{
|
{
|
||||||
return include_stack_ptr;
|
return include_stack_ptr;
|
||||||
}
|
}
|
||||||
@@ -166,7 +176,7 @@ void script_IncludePop(void)
|
|||||||
|
|
||||||
void script_PrintFileStack(void)
|
void script_PrintFileStack(void)
|
||||||
{
|
{
|
||||||
int i = include_stack_ptr;
|
int32_t i = include_stack_ptr;
|
||||||
|
|
||||||
include_line[i] = yylineno;
|
include_line[i] = yylineno;
|
||||||
|
|
||||||
|
|||||||
@@ -1,73 +1,71 @@
|
|||||||
|
#include <stdint.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
#include "types.h"
|
|
||||||
#include "link/mylink.h"
|
#include "link/mylink.h"
|
||||||
#include "link/main.h"
|
#include "link/main.h"
|
||||||
|
|
||||||
static BBOOL
|
static uint8_t symboldefined(char *name)
|
||||||
symboldefined(char *name)
|
|
||||||
{
|
{
|
||||||
struct sSection *pSect;
|
const struct sSection *pSect;
|
||||||
|
|
||||||
pSect = pSections;
|
pSect = pSections;
|
||||||
|
|
||||||
while (pSect) {
|
while (pSect) {
|
||||||
int i;
|
int32_t i;
|
||||||
|
|
||||||
for (i = 0; i < pSect->nNumberOfSymbols; i += 1) {
|
for (i = 0; i < pSect->nNumberOfSymbols; i += 1) {
|
||||||
if ((pSect->tSymbols[i]->Type == SYM_EXPORT)
|
const struct sSymbol *tSymbol = pSect->tSymbols[i];
|
||||||
|| ((pSect->tSymbols[i]->Type == SYM_LOCAL)
|
|
||||||
&& (pSect == pSect->tSymbols[i]->pSection))) {
|
if ((tSymbol->Type == SYM_EXPORT)
|
||||||
if (strcmp(pSect->tSymbols[i]->pzName, name) ==
|
|| ((tSymbol->Type == SYM_LOCAL)
|
||||||
0)
|
&& (pSect == tSymbol->pSection))) {
|
||||||
return (1);
|
|
||||||
|
if (strcmp(tSymbol->pzName, name) == 0)
|
||||||
|
return 1;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
pSect = pSect->pNext;
|
pSect = pSect->pNext;
|
||||||
}
|
}
|
||||||
return (0);
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
static BBOOL
|
static uint8_t addmodulecontaining(char *name)
|
||||||
addmodulecontaining(char *name)
|
|
||||||
{
|
{
|
||||||
struct sSection **ppLSect;
|
struct sSection **ppLSect = &pLibSections;
|
||||||
|
|
||||||
ppLSect = &pLibSections;
|
|
||||||
|
|
||||||
while (*ppLSect) {
|
while (*ppLSect) {
|
||||||
int i;
|
int32_t i;
|
||||||
|
|
||||||
for (i = 0; i < (*ppLSect)->nNumberOfSymbols; i += 1) {
|
for (i = 0; i < (*ppLSect)->nNumberOfSymbols; i += 1) {
|
||||||
if (((*ppLSect)->tSymbols[i]->Type == SYM_EXPORT)
|
const struct sSymbol *tSymbol = (*ppLSect)->tSymbols[i];
|
||||||
|| (((*ppLSect)->tSymbols[i]->Type == SYM_LOCAL)
|
|
||||||
&& ((*ppLSect) ==
|
if ((tSymbol->Type == SYM_EXPORT)
|
||||||
(*ppLSect)->tSymbols[i]->pSection))) {
|
|| ((tSymbol->Type == SYM_LOCAL)
|
||||||
if (strcmp
|
&& ((*ppLSect) == tSymbol->pSection))) {
|
||||||
((*ppLSect)->tSymbols[i]->pzName,
|
|
||||||
name) == 0) {
|
if (strcmp(tSymbol->pzName, name) == 0) {
|
||||||
struct sSection **ppSect;
|
struct sSection **ppSect = &pSections;
|
||||||
ppSect = &pSections;
|
|
||||||
while (*ppSect)
|
while (*ppSect)
|
||||||
ppSect = &((*ppSect)->pNext);
|
ppSect = &((*ppSect)->pNext);
|
||||||
|
|
||||||
*ppSect = *ppLSect;
|
*ppSect = *ppLSect;
|
||||||
*ppLSect = (*ppLSect)->pNext;
|
*ppLSect = (*ppLSect)->pNext;
|
||||||
(*ppSect)->pNext = NULL;
|
(*ppSect)->pNext = NULL;
|
||||||
return (1);
|
return 1;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
ppLSect = &((*ppLSect)->pNext);
|
ppLSect = &((*ppLSect)->pNext);
|
||||||
}
|
}
|
||||||
return (0);
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void AddNeededModules(void)
|
||||||
AddNeededModules(void)
|
|
||||||
{
|
{
|
||||||
struct sSection *pSect;
|
struct sSection *pSect;
|
||||||
|
|
||||||
@@ -77,8 +75,8 @@ AddNeededModules(void)
|
|||||||
ppLSect = &pLibSections;
|
ppLSect = &pLibSections;
|
||||||
|
|
||||||
while (*ppLSect) {
|
while (*ppLSect) {
|
||||||
struct sSection **ppSect;
|
struct sSection **ppSect = &pSections;
|
||||||
ppSect = &pSections;
|
|
||||||
while (*ppSect)
|
while (*ppSect)
|
||||||
ppSect = &((*ppSect)->pNext);
|
ppSect = &((*ppSect)->pNext);
|
||||||
|
|
||||||
@@ -94,22 +92,21 @@ AddNeededModules(void)
|
|||||||
if (!addmodulecontaining(smartlinkstartsymbol)) {
|
if (!addmodulecontaining(smartlinkstartsymbol)) {
|
||||||
errx(1, "Can't find start symbol '%s'",
|
errx(1, "Can't find start symbol '%s'",
|
||||||
smartlinkstartsymbol);
|
smartlinkstartsymbol);
|
||||||
} else
|
} else {
|
||||||
printf("Smart linking with symbol '%s'\n",
|
printf("Smart linking with symbol '%s'\n",
|
||||||
smartlinkstartsymbol);
|
smartlinkstartsymbol);
|
||||||
}
|
}
|
||||||
|
}
|
||||||
pSect = pSections;
|
pSect = pSections;
|
||||||
|
|
||||||
while (pSect) {
|
while (pSect) {
|
||||||
int i;
|
int32_t i;
|
||||||
|
|
||||||
for (i = 0; i < pSect->nNumberOfSymbols; i += 1) {
|
for (i = 0; i < pSect->nNumberOfSymbols; i += 1) {
|
||||||
if ((pSect->tSymbols[i]->Type == SYM_IMPORT)
|
if ((pSect->tSymbols[i]->Type == SYM_IMPORT)
|
||||||
|| (pSect->tSymbols[i]->Type == SYM_LOCAL)) {
|
|| (pSect->tSymbols[i]->Type == SYM_LOCAL)) {
|
||||||
if (!symboldefined(pSect->tSymbols[i]->pzName)) {
|
if (!symboldefined(pSect->tSymbols[i]->pzName))
|
||||||
addmodulecontaining(pSect->tSymbols[i]->
|
addmodulecontaining(pSect->tSymbols[i]->pzName);
|
||||||
pzName);
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
pSect = pSect->pNext;
|
pSect = pSect->pNext;
|
||||||
|
|||||||
@@ -1,3 +1,4 @@
|
|||||||
|
#include <stdint.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
@@ -5,6 +6,7 @@
|
|||||||
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
#include "extern/version.h"
|
#include "extern/version.h"
|
||||||
|
|
||||||
#include "link/object.h"
|
#include "link/object.h"
|
||||||
#include "link/output.h"
|
#include "link/output.h"
|
||||||
#include "link/assign.h"
|
#include "link/assign.h"
|
||||||
@@ -21,17 +23,15 @@ enum eBlockType {
|
|||||||
BLOCK_OUTPUT
|
BLOCK_OUTPUT
|
||||||
};
|
};
|
||||||
|
|
||||||
SLONG options = 0;
|
int32_t options;
|
||||||
SLONG fillchar = 0;
|
int32_t fillchar;
|
||||||
char *smartlinkstartsymbol;
|
char *smartlinkstartsymbol;
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Print the usagescreen
|
* Print the usagescreen
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
|
|
||||||
static void
|
static void print_usage(void)
|
||||||
usage(void)
|
|
||||||
{
|
{
|
||||||
printf(
|
printf(
|
||||||
"usage: rgblink [-dtVw] [-l linkerscript] [-m mapfile] [-n symfile] [-O overlay]\n"
|
"usage: rgblink [-dtVw] [-l linkerscript] [-m mapfile] [-n symfile] [-O overlay]\n"
|
||||||
@@ -41,17 +41,15 @@ usage(void)
|
|||||||
|
|
||||||
/*
|
/*
|
||||||
* The main routine
|
* The main routine
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
|
|
||||||
int
|
int main(int argc, char *argv[])
|
||||||
main(int argc, char *argv[])
|
|
||||||
{
|
{
|
||||||
int ch;
|
int ch;
|
||||||
char *ep;
|
char *ep;
|
||||||
|
|
||||||
if (argc == 1)
|
if (argc == 1)
|
||||||
usage();
|
print_usage();
|
||||||
|
|
||||||
while ((ch = getopt(argc, argv, "dl:m:n:O:o:p:s:tVw")) != -1) {
|
while ((ch = getopt(argc, argv, "dl:m:n:O:o:p:s:tVw")) != -1) {
|
||||||
switch (ch) {
|
switch (ch) {
|
||||||
@@ -73,12 +71,10 @@ main(int argc, char *argv[])
|
|||||||
break;
|
break;
|
||||||
case 'p':
|
case 'p':
|
||||||
fillchar = strtoul(optarg, &ep, 0);
|
fillchar = strtoul(optarg, &ep, 0);
|
||||||
if (optarg[0] == '\0' || *ep != '\0') {
|
if (optarg[0] == '\0' || *ep != '\0')
|
||||||
errx(1, "Invalid argument for option 'p'");
|
errx(1, "Invalid argument for option 'p'");
|
||||||
}
|
if (fillchar < 0 || fillchar > 0xFF)
|
||||||
if (fillchar < 0 || fillchar > 0xFF) {
|
|
||||||
errx(1, "Argument for option 'p' must be between 0 and 0xFF");
|
errx(1, "Argument for option 'p' must be between 0 and 0xFF");
|
||||||
}
|
|
||||||
break;
|
break;
|
||||||
case 's':
|
case 's':
|
||||||
options |= OPT_SMART_C_LINK;
|
options |= OPT_SMART_C_LINK;
|
||||||
@@ -100,17 +96,19 @@ main(int argc, char *argv[])
|
|||||||
options |= OPT_DMG_MODE;
|
options |= OPT_DMG_MODE;
|
||||||
/* FALLTHROUGH */
|
/* FALLTHROUGH */
|
||||||
case 'w':
|
case 'w':
|
||||||
/* Set to set WRAM as a single continuous block as on
|
/*
|
||||||
|
* Set to set WRAM as a single continuous block as on
|
||||||
* DMG. All WRAM sections must be WRAM0 as bankable WRAM
|
* DMG. All WRAM sections must be WRAM0 as bankable WRAM
|
||||||
* sections do not exist in this mode. A WRAMX section
|
* sections do not exist in this mode. A WRAMX section
|
||||||
* will raise an error. */
|
* will raise an error.
|
||||||
|
*/
|
||||||
options |= OPT_CONTWRAM;
|
options |= OPT_CONTWRAM;
|
||||||
break;
|
break;
|
||||||
case 'V':
|
case 'V':
|
||||||
printf("rgblink %s\n", get_package_version_string());
|
printf("rgblink %s\n", get_package_version_string());
|
||||||
exit(0);
|
exit(0);
|
||||||
default:
|
default:
|
||||||
usage();
|
print_usage();
|
||||||
/* NOTREACHED */
|
/* NOTREACHED */
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -118,9 +116,9 @@ main(int argc, char *argv[])
|
|||||||
argv += optind;
|
argv += optind;
|
||||||
|
|
||||||
if (argc == 0)
|
if (argc == 0)
|
||||||
usage();
|
print_usage();
|
||||||
|
|
||||||
for (int i = 0; i < argc; ++i)
|
for (int32_t i = 0; i < argc; ++i)
|
||||||
obj_Readfile(argv[i]);
|
obj_Readfile(argv[i]);
|
||||||
|
|
||||||
AddNeededModules();
|
AddNeededModules();
|
||||||
@@ -130,5 +128,5 @@ main(int argc, char *argv[])
|
|||||||
Output();
|
Output();
|
||||||
CloseMapfile();
|
CloseMapfile();
|
||||||
|
|
||||||
return (0);
|
return 0;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,42 +1,39 @@
|
|||||||
#include <errno.h>
|
#include <errno.h>
|
||||||
|
#include <stdint.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
|
|
||||||
|
#include "link/assign.h"
|
||||||
#include "link/main.h"
|
#include "link/main.h"
|
||||||
#include "link/mylink.h"
|
#include "link/mylink.h"
|
||||||
#include "link/assign.h"
|
|
||||||
|
|
||||||
FILE *mf = NULL;
|
static int32_t currentbank;
|
||||||
FILE *sf = NULL;
|
static int32_t sfbank;
|
||||||
SLONG currentbank = 0;
|
static FILE *mf;
|
||||||
SLONG sfbank;
|
static FILE *sf;
|
||||||
|
|
||||||
void
|
void SetMapfileName(char *name)
|
||||||
SetMapfileName(char *name)
|
|
||||||
{
|
{
|
||||||
mf = fopen(name, "w");
|
mf = fopen(name, "w");
|
||||||
|
|
||||||
if (mf == NULL) {
|
if (mf == NULL)
|
||||||
err(1, "Cannot open mapfile '%s'", name);
|
err(1, "Cannot open mapfile '%s'", name);
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void SetSymfileName(char *name)
|
||||||
SetSymfileName(char *name)
|
|
||||||
{
|
{
|
||||||
sf = fopen(name, "w");
|
sf = fopen(name, "w");
|
||||||
|
|
||||||
if (sf == NULL) {
|
if (sf == NULL)
|
||||||
err(1, "Cannot open symfile '%s'", name);
|
err(1, "Cannot open symfile '%s'", name);
|
||||||
}
|
|
||||||
|
|
||||||
fprintf(sf, ";File generated by rgblink\n\n");
|
fprintf(sf, "; File generated by rgblink\n\n");
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void CloseMapfile(void)
|
||||||
CloseMapfile(void)
|
|
||||||
{
|
{
|
||||||
if (mf) {
|
if (mf) {
|
||||||
fclose(mf);
|
fclose(mf);
|
||||||
@@ -48,76 +45,81 @@ CloseMapfile(void)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void MapfileInitBank(int32_t bank)
|
||||||
MapfileInitBank(SLONG bank)
|
|
||||||
{
|
{
|
||||||
|
if ((bank < 0) || (bank >= BANK_INDEX_MAX))
|
||||||
|
errx(1, "%s: Unknown bank %d\n", __func__, bank);
|
||||||
|
|
||||||
if (mf) {
|
if (mf) {
|
||||||
currentbank = bank;
|
currentbank = bank;
|
||||||
if (bank == BANK_ROM0)
|
if (BankIndexIsROM0(bank)) {
|
||||||
fprintf(mf, "ROM Bank #0 (HOME):\n");
|
fprintf(mf, "ROM Bank #0 (HOME):\n");
|
||||||
else if (bank < BANK_WRAM0)
|
} else if (BankIndexIsROMX(bank)) {
|
||||||
fprintf(mf, "ROM Bank #%ld:\n", bank);
|
fprintf(mf, "ROM Bank #%d:\n",
|
||||||
else if (bank == BANK_WRAM0)
|
bank - BANK_INDEX_ROMX + 1);
|
||||||
|
} else if (BankIndexIsWRAM0(bank)) {
|
||||||
fprintf(mf, "WRAM Bank #0:\n");
|
fprintf(mf, "WRAM Bank #0:\n");
|
||||||
else if (bank < BANK_VRAM)
|
} else if (BankIndexIsWRAMX(bank)) {
|
||||||
fprintf(mf, "WRAM Bank #%ld:\n", bank - BANK_WRAMX + 1);
|
fprintf(mf, "WRAM Bank #%d:\n",
|
||||||
else if (bank == BANK_HRAM)
|
bank - BANK_INDEX_WRAMX + 1);
|
||||||
fprintf(mf, "HRAM:\n");
|
} else if (BankIndexIsVRAM(bank)) {
|
||||||
else if (bank == BANK_VRAM || bank == BANK_VRAM + 1)
|
fprintf(mf, "VRAM Bank #%d:\n", bank - BANK_INDEX_VRAM);
|
||||||
fprintf(mf, "VRAM Bank #%ld:\n", bank - BANK_VRAM);
|
} else if (BankIndexIsOAM(bank)) {
|
||||||
else if (bank == BANK_OAM)
|
|
||||||
fprintf(mf, "OAM:\n");
|
fprintf(mf, "OAM:\n");
|
||||||
else if (bank < MAXBANKS)
|
} else if (BankIndexIsHRAM(bank)) {
|
||||||
fprintf(mf, "SRAM Bank #%ld:\n", bank - BANK_SRAM);
|
fprintf(mf, "HRAM:\n");
|
||||||
|
} else if (BankIndexIsSRAM(bank)) {
|
||||||
|
fprintf(mf, "SRAM Bank #%d:\n", bank - BANK_INDEX_SRAM);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
if (sf) {
|
if (sf) {
|
||||||
if (bank < BANK_WRAM0)
|
if (BankIndexIsROM0(bank))
|
||||||
sfbank = bank;
|
|
||||||
else if (bank == BANK_WRAM0)
|
|
||||||
sfbank = 0;
|
sfbank = 0;
|
||||||
else if (bank < BANK_VRAM)
|
else if (BankIndexIsROMX(bank))
|
||||||
sfbank = bank - BANK_WRAMX + 1;
|
sfbank = bank - BANK_INDEX_ROMX + 1;
|
||||||
else if (bank == BANK_HRAM)
|
else if (BankIndexIsWRAM0(bank))
|
||||||
sfbank = 0;
|
sfbank = 0;
|
||||||
else if (bank == BANK_VRAM || bank == BANK_VRAM + 1)
|
else if (BankIndexIsWRAMX(bank))
|
||||||
sfbank = bank - BANK_VRAM;
|
sfbank = bank - BANK_INDEX_WRAMX + 1;
|
||||||
else if (bank == BANK_OAM)
|
else if (BankIndexIsVRAM(bank))
|
||||||
|
sfbank = bank - BANK_INDEX_VRAM;
|
||||||
|
else if (BankIndexIsOAM(bank))
|
||||||
sfbank = 0;
|
sfbank = 0;
|
||||||
else if (bank < MAXBANKS)
|
else if (BankIndexIsHRAM(bank))
|
||||||
sfbank = bank - BANK_SRAM;
|
sfbank = 0;
|
||||||
|
else if (BankIndexIsSRAM(bank))
|
||||||
|
sfbank = bank - BANK_INDEX_SRAM;
|
||||||
else
|
else
|
||||||
sfbank = 0;
|
sfbank = 0;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void MapfileWriteSection(const struct sSection *pSect)
|
||||||
MapfileWriteSection(struct sSection * pSect)
|
|
||||||
{
|
{
|
||||||
SLONG i;
|
int32_t i;
|
||||||
|
|
||||||
if (mf) {
|
if (mf) {
|
||||||
if (pSect->nByteSize > 0) {
|
if (pSect->nByteSize > 0) {
|
||||||
fprintf(mf, " SECTION: $%04lX-$%04lX ($%04lX bytes) [\"%s\"]\n",
|
fprintf(mf, " SECTION: $%04X-$%04X ($%04X bytes) [\"%s\"]\n",
|
||||||
pSect->nOrg, pSect->nOrg + pSect->nByteSize - 1,
|
pSect->nOrg, pSect->nOrg + pSect->nByteSize - 1,
|
||||||
pSect->nByteSize, pSect->pzName);
|
pSect->nByteSize, pSect->pzName);
|
||||||
} else {
|
} else {
|
||||||
fprintf(mf, " SECTION: $%04lX ($0 bytes) [\"%s\"]\n",
|
fprintf(mf, " SECTION: $%04X ($0 bytes) [\"%s\"]\n",
|
||||||
pSect->nOrg, pSect->pzName);
|
pSect->nOrg, pSect->pzName);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
for (i = 0; i < pSect->nNumberOfSymbols; i += 1) {
|
for (i = 0; i < pSect->nNumberOfSymbols; i += 1) {
|
||||||
struct sSymbol *pSym;
|
const struct sSymbol *pSym = pSect->tSymbols[i];
|
||||||
pSym = pSect->tSymbols[i];
|
|
||||||
if ((pSym->pSection == pSect)
|
if ((pSym->pSection == pSect) && (pSym->Type != SYM_IMPORT)) {
|
||||||
&& (pSym->Type != SYM_IMPORT)) {
|
|
||||||
if (mf) {
|
if (mf) {
|
||||||
fprintf(mf, " $%04lX = %s\n",
|
fprintf(mf, " $%04X = %s\n",
|
||||||
pSym->nOffset + pSect->nOrg,
|
pSym->nOffset + pSect->nOrg,
|
||||||
pSym->pzName);
|
pSym->pzName);
|
||||||
}
|
}
|
||||||
if (sf) {
|
if (sf) {
|
||||||
fprintf(sf, "%02lX:%04lX %s\n", sfbank,
|
fprintf(sf, "%02X:%04X %s\n", sfbank,
|
||||||
pSym->nOffset + pSect->nOrg,
|
pSym->nOffset + pSect->nOrg,
|
||||||
pSym->pzName);
|
pSym->pzName);
|
||||||
}
|
}
|
||||||
@@ -125,8 +127,7 @@ MapfileWriteSection(struct sSection * pSect)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void MapfileCloseBank(int32_t slack)
|
||||||
MapfileCloseBank(SLONG slack)
|
|
||||||
{
|
{
|
||||||
if (!mf)
|
if (!mf)
|
||||||
return;
|
return;
|
||||||
@@ -134,5 +135,5 @@ MapfileCloseBank(SLONG slack)
|
|||||||
if (slack == MaxAvail[currentbank])
|
if (slack == MaxAvail[currentbank])
|
||||||
fprintf(mf, " EMPTY\n\n");
|
fprintf(mf, " EMPTY\n\n");
|
||||||
else
|
else
|
||||||
fprintf(mf, " SLACK: $%04lX bytes\n\n", slack);
|
fprintf(mf, " SLACK: $%04X bytes\n\n", slack);
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,61 +1,47 @@
|
|||||||
/*
|
/*
|
||||||
* Here we have the routines that read an objectfile
|
* Here we have the routines that read an objectfile
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <ctype.h>
|
#include <ctype.h>
|
||||||
#include <errno.h>
|
#include <errno.h>
|
||||||
|
#include <stdint.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
||||||
#include "common.h"
|
#include "common.h"
|
||||||
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
|
|
||||||
#include "link/assign.h"
|
#include "link/assign.h"
|
||||||
#include "link/mylink.h"
|
#include "link/mylink.h"
|
||||||
#include "link/main.h"
|
#include "link/main.h"
|
||||||
|
|
||||||
struct sSymbol **tSymbols;
|
struct sSymbol **tSymbols;
|
||||||
struct sSection *pSections = NULL;
|
struct sSection *pSections;
|
||||||
struct sSection *pLibSections = NULL;
|
struct sSection *pLibSections;
|
||||||
UBYTE dummymem;
|
uint8_t dummymem;
|
||||||
BBOOL oReadLib = 0;
|
uint8_t oReadLib;
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* The usual byte order stuff
|
* Read 32-bit values with the correct endianness
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
|
static int32_t readlong(FILE *f)
|
||||||
SLONG
|
|
||||||
readlong(FILE * f)
|
|
||||||
{
|
{
|
||||||
SLONG r;
|
int32_t r;
|
||||||
|
|
||||||
r = fgetc(f);
|
r = fgetc(f);
|
||||||
r |= fgetc(f) << 8;
|
r |= fgetc(f) << 8;
|
||||||
r |= fgetc(f) << 16;
|
r |= fgetc(f) << 16;
|
||||||
r |= fgetc(f) << 24;
|
r |= fgetc(f) << 24;
|
||||||
|
|
||||||
return (r);
|
return r;
|
||||||
}
|
|
||||||
|
|
||||||
UWORD
|
|
||||||
readword(FILE * f)
|
|
||||||
{
|
|
||||||
UWORD r;
|
|
||||||
|
|
||||||
r = fgetc(f);
|
|
||||||
r |= fgetc(f) << 8;
|
|
||||||
|
|
||||||
return (r);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Read a NULL terminated string from a file
|
* Read a NULL terminated string from a file
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
SLONG
|
int32_t readasciiz(char **dest, FILE *f)
|
||||||
readasciiz(char **dest, FILE *f)
|
|
||||||
{
|
{
|
||||||
size_t r = 0;
|
size_t r = 0;
|
||||||
|
|
||||||
@@ -63,9 +49,8 @@ readasciiz(char **dest, FILE *f)
|
|||||||
char *start = malloc(bufferLength);
|
char *start = malloc(bufferLength);
|
||||||
char *s = start;
|
char *s = start;
|
||||||
|
|
||||||
if (!s) {
|
if (!s)
|
||||||
err(1, NULL);
|
err(1, "%s: Couldn't allocate memory", __func__);
|
||||||
}
|
|
||||||
|
|
||||||
while (((*s++) = fgetc(f)) != 0) {
|
while (((*s++) = fgetc(f)) != 0) {
|
||||||
r += 1;
|
r += 1;
|
||||||
@@ -74,7 +59,8 @@ readasciiz(char **dest, FILE *f)
|
|||||||
bufferLength *= 2;
|
bufferLength *= 2;
|
||||||
start = realloc(start, bufferLength);
|
start = realloc(start, bufferLength);
|
||||||
if (!start) {
|
if (!start) {
|
||||||
err(1, NULL);
|
err(1, "%s: Couldn't allocate memory",
|
||||||
|
__func__);
|
||||||
}
|
}
|
||||||
s = start + r;
|
s = start + r;
|
||||||
}
|
}
|
||||||
@@ -86,11 +72,8 @@ readasciiz(char **dest, FILE *f)
|
|||||||
|
|
||||||
/*
|
/*
|
||||||
* Allocate a new section and link it into the list
|
* Allocate a new section and link it into the list
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
|
struct sSection *AllocSection(void)
|
||||||
struct sSection *
|
|
||||||
AllocSection(void)
|
|
||||||
{
|
{
|
||||||
struct sSection **ppSections;
|
struct sSection **ppSections;
|
||||||
|
|
||||||
@@ -103,29 +86,26 @@ AllocSection(void)
|
|||||||
ppSections = &((*ppSections)->pNext);
|
ppSections = &((*ppSections)->pNext);
|
||||||
|
|
||||||
*ppSections = malloc(sizeof **ppSections);
|
*ppSections = malloc(sizeof **ppSections);
|
||||||
if (!*ppSections) {
|
if (!*ppSections)
|
||||||
err(1, NULL);
|
err(1, "%s: Couldn't allocate memory", __func__);
|
||||||
}
|
|
||||||
(*ppSections)->tSymbols = tSymbols;
|
(*ppSections)->tSymbols = tSymbols;
|
||||||
(*ppSections)->pNext = NULL;
|
(*ppSections)->pNext = NULL;
|
||||||
(*ppSections)->pPatches = NULL;
|
(*ppSections)->pPatches = NULL;
|
||||||
(*ppSections)->oAssigned = 0;
|
(*ppSections)->oAssigned = 0;
|
||||||
return *ppSections;
|
return *ppSections;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* Read a symbol from a file
|
* Read a symbol from a file
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
|
struct sSymbol *obj_ReadSymbol(FILE *f, char *tzObjectfile)
|
||||||
struct sSymbol *
|
|
||||||
obj_ReadSymbol(FILE * f, char *tzObjectfile)
|
|
||||||
{
|
{
|
||||||
struct sSymbol *pSym;
|
struct sSymbol *pSym;
|
||||||
|
|
||||||
pSym = malloc(sizeof *pSym);
|
pSym = malloc(sizeof(*pSym));
|
||||||
if (!pSym) {
|
if (!pSym)
|
||||||
err(1, NULL);
|
err(1, "%s: Couldn't allocate memory", __func__);
|
||||||
}
|
|
||||||
|
|
||||||
readasciiz(&pSym->pzName, f);
|
readasciiz(&pSym->pzName, f);
|
||||||
pSym->Type = (enum eSymbolType)fgetc(f);
|
pSym->Type = (enum eSymbolType)fgetc(f);
|
||||||
@@ -139,19 +119,18 @@ obj_ReadSymbol(FILE * f, char *tzObjectfile)
|
|||||||
pSym->nSectionID = readlong(f);
|
pSym->nSectionID = readlong(f);
|
||||||
pSym->nOffset = readlong(f);
|
pSym->nOffset = readlong(f);
|
||||||
}
|
}
|
||||||
|
|
||||||
return pSym;
|
return pSym;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* RGB object reader routines
|
* RGB object reader routines
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
struct sSection *
|
struct sSection *obj_ReadRGBSection(FILE *f)
|
||||||
obj_ReadRGBSection(FILE * f)
|
|
||||||
{
|
{
|
||||||
struct sSection *pSection;
|
struct sSection *pSection;
|
||||||
|
|
||||||
char *pzName;
|
char *pzName;
|
||||||
|
|
||||||
readasciiz(&pzName, f);
|
readasciiz(&pzName, f);
|
||||||
if (IsSectionNameInUse(pzName))
|
if (IsSectionNameInUse(pzName))
|
||||||
errx(1, "Section name \"%s\" is already in use.", pzName);
|
errx(1, "Section name \"%s\" is already in use.", pzName);
|
||||||
@@ -160,29 +139,27 @@ obj_ReadRGBSection(FILE * f)
|
|||||||
pSection->pzName = pzName;
|
pSection->pzName = pzName;
|
||||||
|
|
||||||
pSection->nByteSize = readlong(f);
|
pSection->nByteSize = readlong(f);
|
||||||
pSection->Type = (enum eSectionType) fgetc(f);
|
pSection->Type = (enum eSectionType)fgetc(f);
|
||||||
pSection->nOrg = readlong(f);
|
pSection->nOrg = readlong(f);
|
||||||
pSection->nBank = readlong(f);
|
pSection->nBank = readlong(f);
|
||||||
pSection->nAlign = readlong(f);
|
pSection->nAlign = readlong(f);
|
||||||
|
|
||||||
if ((options & OPT_TINY) && (pSection->Type == SECT_ROMX)) {
|
if ((options & OPT_TINY) && (pSection->Type == SECT_ROMX))
|
||||||
errx(1, "ROMX sections can't be used with option -t.");
|
errx(1, "ROMX sections can't be used with option -t.");
|
||||||
}
|
|
||||||
if ((options & OPT_CONTWRAM) && (pSection->Type == SECT_WRAMX)) {
|
if ((options & OPT_CONTWRAM) && (pSection->Type == SECT_WRAMX))
|
||||||
errx(1, "WRAMX sections can't be used with options -w or -d.");
|
errx(1, "WRAMX sections can't be used with options -w or -d.");
|
||||||
}
|
|
||||||
if (options & OPT_DMG_MODE) {
|
if (options & OPT_DMG_MODE) {
|
||||||
/* WRAMX sections are checked for OPT_CONTWRAM */
|
/* WRAMX sections are checked for OPT_CONTWRAM */
|
||||||
if (pSection->Type == SECT_VRAM && pSection->nBank == 1) {
|
if (pSection->Type == SECT_VRAM && pSection->nBank == 1)
|
||||||
errx(1, "VRAM bank 1 can't be used with option -d.");
|
errx(1, "VRAM bank 1 can't be used with option -d.");
|
||||||
}
|
}
|
||||||
}
|
|
||||||
|
|
||||||
unsigned int maxsize = 0;
|
uint32_t maxsize = 0;
|
||||||
|
|
||||||
/* Verify that the section isn't too big */
|
/* Verify that the section isn't too big */
|
||||||
switch (pSection->Type)
|
switch (pSection->Type) {
|
||||||
{
|
|
||||||
case SECT_ROM0:
|
case SECT_ROM0:
|
||||||
maxsize = (options & OPT_TINY) ? 0x8000 : 0x4000;
|
maxsize = (options & OPT_TINY) ? 0x8000 : 0x4000;
|
||||||
break;
|
break;
|
||||||
@@ -214,23 +191,30 @@ obj_ReadRGBSection(FILE * f)
|
|||||||
pzName, pSection->nByteSize, maxsize);
|
pzName, pSection->nByteSize, maxsize);
|
||||||
}
|
}
|
||||||
|
|
||||||
if ((pSection->Type == SECT_ROMX) || (pSection->Type == SECT_ROM0)) {
|
|
||||||
/*
|
/*
|
||||||
* These sectiontypes contain data...
|
* If the section doesn't contain data, it is ready
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
if (pSection->nByteSize) {
|
if ((pSection->Type != SECT_ROMX) && (pSection->Type != SECT_ROM0))
|
||||||
pSection->pData = malloc(pSection->nByteSize);
|
return pSection;
|
||||||
if (!pSection->pData) {
|
|
||||||
err(1, NULL);
|
/* If there is no data to read, exit */
|
||||||
|
if (pSection->nByteSize == 0) {
|
||||||
|
/* Skip number of patches */
|
||||||
|
readlong(f);
|
||||||
|
pSection->pData = &dummymem;
|
||||||
|
return pSection;
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG nNumberOfPatches;
|
pSection->pData = malloc(pSection->nByteSize);
|
||||||
|
if (!pSection->pData)
|
||||||
|
err(1, "%s: Couldn't allocate memory", __func__);
|
||||||
|
|
||||||
|
int32_t nNumberOfPatches;
|
||||||
struct sPatch **ppPatch, *pPatch;
|
struct sPatch **ppPatch, *pPatch;
|
||||||
|
|
||||||
if (fread(pSection->pData, sizeof(UBYTE),
|
if (fread(pSection->pData, sizeof(uint8_t), pSection->nByteSize, f)
|
||||||
pSection->nByteSize, f) != pSection->nByteSize) {
|
!= pSection->nByteSize) {
|
||||||
err(1, "Read error.");
|
err(1, "%s: Read error", __func__);
|
||||||
}
|
}
|
||||||
|
|
||||||
nNumberOfPatches = readlong(f);
|
nNumberOfPatches = readlong(f);
|
||||||
@@ -238,49 +222,45 @@ obj_ReadRGBSection(FILE * f)
|
|||||||
|
|
||||||
/*
|
/*
|
||||||
* And patches...
|
* And patches...
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
while (nNumberOfPatches--) {
|
while (nNumberOfPatches--) {
|
||||||
pPatch = malloc(sizeof *pPatch);
|
pPatch = malloc(sizeof(*pPatch));
|
||||||
if (!pPatch) {
|
if (!pPatch)
|
||||||
err(1, NULL);
|
err(1, "%s: Couldn't allocate memory", __func__);
|
||||||
}
|
|
||||||
|
|
||||||
*ppPatch = pPatch;
|
*ppPatch = pPatch;
|
||||||
readasciiz(&pPatch->pzFilename, f);
|
readasciiz(&pPatch->pzFilename, f);
|
||||||
pPatch->nLineNo = readlong(f);
|
pPatch->nLineNo = readlong(f);
|
||||||
pPatch->nOffset = readlong(f);
|
pPatch->nOffset = readlong(f);
|
||||||
pPatch->Type = (enum ePatchType) fgetc(f);
|
pPatch->Type = (enum ePatchType)fgetc(f);
|
||||||
if ((pPatch->nRPNSize = readlong(f)) > 0) {
|
pPatch->nRPNSize = readlong(f);
|
||||||
|
|
||||||
|
if (pPatch->nRPNSize > 0) {
|
||||||
pPatch->pRPN = malloc(pPatch->nRPNSize);
|
pPatch->pRPN = malloc(pPatch->nRPNSize);
|
||||||
if (!pPatch->pRPN) {
|
if (!pPatch->pRPN) {
|
||||||
err(1, NULL);
|
err(1, "%s: Couldn't allocate memory",
|
||||||
|
__func__);
|
||||||
}
|
}
|
||||||
|
|
||||||
if (fread(pPatch->pRPN, sizeof(UBYTE),
|
if (fread(pPatch->pRPN, sizeof(uint8_t),
|
||||||
pPatch->nRPNSize, f) != pPatch->nRPNSize) {
|
pPatch->nRPNSize, f) != pPatch->nRPNSize) {
|
||||||
errx(1, "Read error.");
|
errx(1, "%s: Read error", __func__);
|
||||||
}
|
}
|
||||||
} else
|
} else {
|
||||||
pPatch->pRPN = NULL;
|
pPatch->pRPN = NULL;
|
||||||
|
}
|
||||||
|
|
||||||
pPatch->pNext = NULL;
|
pPatch->pNext = NULL;
|
||||||
ppPatch = &(pPatch->pNext);
|
ppPatch = &(pPatch->pNext);
|
||||||
}
|
}
|
||||||
} else {
|
|
||||||
/* Skip number of patches */
|
|
||||||
readlong(f);
|
|
||||||
pSection->pData = &dummymem;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return pSection;
|
return pSection;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void obj_ReadRGB(FILE *pObjfile, char *tzObjectfile)
|
||||||
obj_ReadRGB(FILE * pObjfile, char *tzObjectfile)
|
|
||||||
{
|
{
|
||||||
struct sSection *pFirstSection;
|
struct sSection *pFirstSection;
|
||||||
SLONG nNumberOfSymbols, nNumberOfSections, i;
|
int32_t nNumberOfSymbols, nNumberOfSections, i;
|
||||||
|
|
||||||
nNumberOfSymbols = readlong(pObjfile);
|
nNumberOfSymbols = readlong(pObjfile);
|
||||||
nNumberOfSections = readlong(pObjfile);
|
nNumberOfSections = readlong(pObjfile);
|
||||||
@@ -288,15 +268,15 @@ obj_ReadRGB(FILE * pObjfile, char *tzObjectfile)
|
|||||||
/* First comes the symbols */
|
/* First comes the symbols */
|
||||||
|
|
||||||
if (nNumberOfSymbols) {
|
if (nNumberOfSymbols) {
|
||||||
tSymbols = malloc(nNumberOfSymbols * sizeof *tSymbols);
|
tSymbols = malloc(nNumberOfSymbols * sizeof(*tSymbols));
|
||||||
if (!tSymbols) {
|
if (!tSymbols)
|
||||||
err(1, NULL);
|
err(1, "%s: Couldn't allocate memory", __func__);
|
||||||
}
|
|
||||||
|
|
||||||
for (i = 0; i < nNumberOfSymbols; i += 1)
|
for (i = 0; i < nNumberOfSymbols; i += 1)
|
||||||
tSymbols[i] = obj_ReadSymbol(pObjfile, tzObjectfile);
|
tSymbols[i] = obj_ReadSymbol(pObjfile, tzObjectfile);
|
||||||
} else
|
} else {
|
||||||
tSymbols = (struct sSymbol **) & dummymem;
|
tSymbols = (struct sSymbol **)&dummymem;
|
||||||
|
}
|
||||||
|
|
||||||
/* Next we have the sections */
|
/* Next we have the sections */
|
||||||
|
|
||||||
@@ -313,37 +293,36 @@ obj_ReadRGB(FILE * pObjfile, char *tzObjectfile)
|
|||||||
/*
|
/*
|
||||||
* Fill in the pSection entry in the symbolstructure.
|
* Fill in the pSection entry in the symbolstructure.
|
||||||
* This REALLY needs some cleaning up... but, hey, it works
|
* This REALLY needs some cleaning up... but, hey, it works
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
|
|
||||||
for (i = 0; i < nNumberOfSymbols; i += 1) {
|
for (i = 0; i < nNumberOfSymbols; i += 1) {
|
||||||
struct sSection *pConvSect = pFirstSection;
|
struct sSection *pConvSect = pFirstSection;
|
||||||
|
|
||||||
if (tSymbols[i]->Type != SYM_IMPORT
|
if ((tSymbols[i]->Type != SYM_IMPORT) &&
|
||||||
&& tSymbols[i]->nSectionID != -1) {
|
(tSymbols[i]->nSectionID != -1)) {
|
||||||
SLONG j = 0;
|
int32_t j = 0;
|
||||||
|
|
||||||
while (j != tSymbols[i]->nSectionID) {
|
while (j != tSymbols[i]->nSectionID) {
|
||||||
j += 1;
|
j += 1;
|
||||||
pConvSect = pConvSect->pNext;
|
pConvSect = pConvSect->pNext;
|
||||||
}
|
}
|
||||||
tSymbols[i]->pSection = pConvSect;
|
tSymbols[i]->pSection = pConvSect;
|
||||||
} else
|
} else {
|
||||||
tSymbols[i]->pSection = NULL;
|
tSymbols[i]->pSection = NULL;
|
||||||
}
|
}
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* The main objectfileloadroutine (phew)
|
* The main objectfileloadroutine (phew)
|
||||||
*
|
|
||||||
*/
|
*/
|
||||||
|
void obj_ReadOpenFile(FILE *pObjfile, char *tzObjectfile)
|
||||||
void
|
|
||||||
obj_ReadOpenFile(FILE * pObjfile, char *tzObjectfile)
|
|
||||||
{
|
{
|
||||||
char tzHeader[strlen(RGBDS_OBJECT_VERSION_STRING) + 1];
|
char tzHeader[strlen(RGBDS_OBJECT_VERSION_STRING) + 1];
|
||||||
|
|
||||||
if (fread(tzHeader, sizeof(char), strlen(RGBDS_OBJECT_VERSION_STRING),
|
if (fread(tzHeader, sizeof(char), strlen(RGBDS_OBJECT_VERSION_STRING),
|
||||||
pObjfile) != strlen(RGBDS_OBJECT_VERSION_STRING)) {
|
pObjfile) != strlen(RGBDS_OBJECT_VERSION_STRING)) {
|
||||||
errx(1, "%s: Read error.", tzObjectfile);
|
errx(1, "%s: Read error", tzObjectfile);
|
||||||
}
|
}
|
||||||
|
|
||||||
tzHeader[strlen(RGBDS_OBJECT_VERSION_STRING)] = 0;
|
tzHeader[strlen(RGBDS_OBJECT_VERSION_STRING)] = 0;
|
||||||
@@ -352,16 +331,18 @@ obj_ReadOpenFile(FILE * pObjfile, char *tzObjectfile)
|
|||||||
strlen(RGBDS_OBJECT_VERSION_STRING)) == 0) {
|
strlen(RGBDS_OBJECT_VERSION_STRING)) == 0) {
|
||||||
obj_ReadRGB(pObjfile, tzObjectfile);
|
obj_ReadRGB(pObjfile, tzObjectfile);
|
||||||
} else {
|
} else {
|
||||||
for (int i = 0; i < strlen(RGBDS_OBJECT_VERSION_STRING); i++)
|
int32_t i;
|
||||||
|
|
||||||
|
for (i = 0; i < strlen(RGBDS_OBJECT_VERSION_STRING); i++)
|
||||||
if (!isprint(tzHeader[i]))
|
if (!isprint(tzHeader[i]))
|
||||||
tzHeader[i] = '?';
|
tzHeader[i] = '?';
|
||||||
|
|
||||||
errx(1, "%s: Invalid file or object file version [%s]",
|
errx(1, "%s: Invalid file or object file version [%s]",
|
||||||
tzObjectfile, tzHeader);
|
tzObjectfile, tzHeader);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void obj_Readfile(char *tzObjectfile)
|
||||||
obj_Readfile(char *tzObjectfile)
|
|
||||||
{
|
{
|
||||||
FILE *pObjfile;
|
FILE *pObjfile;
|
||||||
|
|
||||||
@@ -371,24 +352,23 @@ obj_Readfile(char *tzObjectfile)
|
|||||||
oReadLib = 0;
|
oReadLib = 0;
|
||||||
|
|
||||||
pObjfile = fopen(tzObjectfile, "rb");
|
pObjfile = fopen(tzObjectfile, "rb");
|
||||||
if (pObjfile == NULL) {
|
if (pObjfile == NULL)
|
||||||
err(1, "Unable to open object '%s'", tzObjectfile);
|
err(1, "Unable to open object '%s'", tzObjectfile);
|
||||||
}
|
|
||||||
obj_ReadOpenFile(pObjfile, tzObjectfile);
|
obj_ReadOpenFile(pObjfile, tzObjectfile);
|
||||||
fclose(pObjfile);
|
fclose(pObjfile);
|
||||||
|
|
||||||
oReadLib = 0;
|
oReadLib = 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG
|
int32_t file_Length(FILE *f)
|
||||||
file_Length(FILE * f)
|
|
||||||
{
|
{
|
||||||
ULONG r, p;
|
uint32_t r, p;
|
||||||
|
|
||||||
p = ftell(f);
|
p = ftell(f);
|
||||||
fseek(f, 0, SEEK_END);
|
fseek(f, 0, SEEK_END);
|
||||||
r = ftell(f);
|
r = ftell(f);
|
||||||
fseek(f, p, SEEK_SET);
|
fseek(f, p, SEEK_SET);
|
||||||
|
|
||||||
return (r);
|
return r;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,36 +1,37 @@
|
|||||||
|
#include <stdint.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
|
|
||||||
#include "link/mylink.h"
|
#include "link/mylink.h"
|
||||||
#include "link/mapfile.h"
|
#include "link/mapfile.h"
|
||||||
#include "link/main.h"
|
#include "link/main.h"
|
||||||
#include "link/assign.h"
|
#include "link/assign.h"
|
||||||
|
|
||||||
char *tzOutname;
|
char *tzOutname;
|
||||||
char *tzOverlayname = NULL;
|
char *tzOverlayname;
|
||||||
|
|
||||||
SLONG MaxOverlayBank;
|
int32_t MaxOverlayBank;
|
||||||
|
|
||||||
void
|
void writehome(FILE *f, FILE *f_overlay)
|
||||||
writehome(FILE * f, FILE * f_overlay)
|
|
||||||
{
|
{
|
||||||
struct sSection *pSect;
|
const struct sSection *pSect;
|
||||||
UBYTE *mem;
|
uint8_t *mem;
|
||||||
|
|
||||||
mem = malloc(MaxAvail[BANK_ROM0]);
|
mem = malloc(MaxAvail[BANK_INDEX_ROM0]);
|
||||||
if (!mem)
|
if (!mem)
|
||||||
return;
|
return;
|
||||||
|
|
||||||
if (f_overlay != NULL) {
|
if (f_overlay != NULL) {
|
||||||
fseek(f_overlay, 0L, SEEK_SET);
|
fseek(f_overlay, 0L, SEEK_SET);
|
||||||
if (fread(mem, 1, MaxAvail[BANK_ROM0], f_overlay) !=
|
if (fread(mem, 1, MaxAvail[BANK_INDEX_ROM0], f_overlay) !=
|
||||||
MaxAvail[BANK_ROM0]) {
|
MaxAvail[BANK_INDEX_ROM0]) {
|
||||||
warnx("Failed to read data from overlay file.");
|
warnx("Failed to read data from overlay file.");
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
memset(mem, fillchar, MaxAvail[BANK_ROM0]);
|
memset(mem, fillchar, MaxAvail[BANK_INDEX_ROM0]);
|
||||||
}
|
}
|
||||||
MapfileInitBank(0);
|
MapfileInitBank(0);
|
||||||
|
|
||||||
@@ -46,26 +47,23 @@ writehome(FILE * f, FILE * f_overlay)
|
|||||||
|
|
||||||
MapfileCloseBank(area_Avail(0));
|
MapfileCloseBank(area_Avail(0));
|
||||||
|
|
||||||
fwrite(mem, 1, MaxAvail[BANK_ROM0], f);
|
fwrite(mem, 1, MaxAvail[BANK_INDEX_ROM0], f);
|
||||||
free(mem);
|
free(mem);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void writebank(FILE *f, FILE *f_overlay, int32_t bank)
|
||||||
writebank(FILE * f, FILE * f_overlay, SLONG bank)
|
|
||||||
{
|
{
|
||||||
struct sSection *pSect;
|
const struct sSection *pSect;
|
||||||
UBYTE *mem;
|
uint8_t *mem;
|
||||||
|
|
||||||
mem = malloc(MaxAvail[bank]);
|
mem = malloc(MaxAvail[bank]);
|
||||||
if (!mem)
|
if (!mem)
|
||||||
return;
|
return;
|
||||||
|
|
||||||
if (f_overlay != NULL && bank <= MaxOverlayBank) {
|
if (f_overlay != NULL && bank <= MaxOverlayBank) {
|
||||||
fseek(f_overlay, bank*0x4000, SEEK_SET);
|
fseek(f_overlay, bank * 0x4000, SEEK_SET);
|
||||||
if (fread(mem, 1, MaxAvail[bank], f_overlay) !=
|
if (fread(mem, 1, MaxAvail[bank], f_overlay) != MaxAvail[bank])
|
||||||
MaxAvail[bank]) {
|
|
||||||
warnx("Failed to read data from overlay file.");
|
warnx("Failed to read data from overlay file.");
|
||||||
}
|
|
||||||
} else {
|
} else {
|
||||||
memset(mem, fillchar, MaxAvail[bank]);
|
memset(mem, fillchar, MaxAvail[bank]);
|
||||||
}
|
}
|
||||||
@@ -87,44 +85,50 @@ writebank(FILE * f, FILE * f_overlay, SLONG bank)
|
|||||||
free(mem);
|
free(mem);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void out_Setname(char *tzOutputfile)
|
||||||
out_Setname(char *tzOutputfile)
|
|
||||||
{
|
{
|
||||||
tzOutname = tzOutputfile;
|
tzOutname = tzOutputfile;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void out_SetOverlayname(char *tzOverlayfile)
|
||||||
out_SetOverlayname(char *tzOverlayfile)
|
|
||||||
{
|
{
|
||||||
tzOverlayname = tzOverlayfile;
|
tzOverlayname = tzOverlayfile;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
void Output(void)
|
||||||
void
|
|
||||||
Output(void)
|
|
||||||
{
|
{
|
||||||
SLONG i;
|
int32_t i;
|
||||||
FILE *f;
|
FILE *f;
|
||||||
FILE *f_overlay = NULL;
|
FILE *f_overlay = NULL;
|
||||||
|
|
||||||
if ((f = fopen(tzOutname, "wb"))) {
|
/*
|
||||||
|
* Apply overlay
|
||||||
|
*/
|
||||||
|
|
||||||
|
f = fopen(tzOutname, "wb");
|
||||||
|
|
||||||
|
if (f != NULL) {
|
||||||
if (tzOverlayname) {
|
if (tzOverlayname) {
|
||||||
f_overlay = fopen(tzOverlayname, "rb");
|
f_overlay = fopen(tzOverlayname, "rb");
|
||||||
|
|
||||||
if (!f_overlay) {
|
if (!f_overlay) {
|
||||||
errx(1, "Failed to open overlay file %s\n", tzOverlayname);
|
errx(1, "Failed to open overlay file %s\n",
|
||||||
|
tzOverlayname);
|
||||||
}
|
}
|
||||||
|
|
||||||
fseek(f_overlay, 0, SEEK_END);
|
fseek(f_overlay, 0, SEEK_END);
|
||||||
if (ftell(f_overlay) % 0x4000 != 0) {
|
|
||||||
|
if (ftell(f_overlay) % 0x4000 != 0)
|
||||||
errx(1, "Overlay file must be aligned to 0x4000 bytes.");
|
errx(1, "Overlay file must be aligned to 0x4000 bytes.");
|
||||||
}
|
|
||||||
MaxOverlayBank = (ftell(f_overlay) / 0x4000) - 1;
|
MaxOverlayBank = (ftell(f_overlay) / 0x4000) - 1;
|
||||||
if (MaxOverlayBank < 1) {
|
|
||||||
|
if (MaxOverlayBank < 1)
|
||||||
errx(1, "Overlay file must be at least 0x8000 bytes.");
|
errx(1, "Overlay file must be at least 0x8000 bytes.");
|
||||||
}
|
|
||||||
if (MaxOverlayBank > MaxBankUsed) {
|
if (MaxOverlayBank > MaxBankUsed)
|
||||||
MaxBankUsed = MaxOverlayBank;
|
MaxBankUsed = MaxOverlayBank;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
|
|
||||||
writehome(f, f_overlay);
|
writehome(f, f_overlay);
|
||||||
for (i = 1; i <= MaxBankUsed; i += 1)
|
for (i = 1; i <= MaxBankUsed; i += 1)
|
||||||
@@ -132,18 +136,22 @@ Output(void)
|
|||||||
|
|
||||||
fclose(f);
|
fclose(f);
|
||||||
|
|
||||||
if (tzOverlayname) {
|
if (tzOverlayname)
|
||||||
fclose(f_overlay);
|
fclose(f_overlay);
|
||||||
}
|
}
|
||||||
}
|
|
||||||
for (i = BANK_WRAM0; i < MAXBANKS; i++) {
|
/*
|
||||||
struct sSection *pSect;
|
* Add regular sections
|
||||||
|
*/
|
||||||
|
|
||||||
|
for (i = BANK_INDEX_WRAM0; i < BANK_INDEX_MAX; i++) {
|
||||||
|
const struct sSection *pSect;
|
||||||
|
|
||||||
MapfileInitBank(i);
|
MapfileInitBank(i);
|
||||||
pSect = pSections;
|
pSect = pSections;
|
||||||
while (pSect) {
|
while (pSect) {
|
||||||
if (pSect->nBank == i) {
|
if (pSect->nBank == i)
|
||||||
MapfileWriteSection(pSect);
|
MapfileWriteSection(pSect);
|
||||||
}
|
|
||||||
pSect = pSect->pNext;
|
pSect = pSect->pNext;
|
||||||
}
|
}
|
||||||
MapfileCloseBank(area_Avail(i));
|
MapfileCloseBank(area_Avail(i));
|
||||||
|
|||||||
@@ -15,9 +15,11 @@
|
|||||||
*/
|
*/
|
||||||
|
|
||||||
%{
|
%{
|
||||||
|
#include <stdint.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
|
|
||||||
#include "link/script.h"
|
#include "link/script.h"
|
||||||
|
|
||||||
int yylex();
|
int yylex();
|
||||||
@@ -26,7 +28,10 @@ void yyerror(char *);
|
|||||||
extern int yylineno;
|
extern int yylineno;
|
||||||
%}
|
%}
|
||||||
|
|
||||||
%union { int i; char s[512]; }
|
%union {
|
||||||
|
int32_t i;
|
||||||
|
char s[512];
|
||||||
|
}
|
||||||
|
|
||||||
%token<i> INTEGER
|
%token<i> INTEGER
|
||||||
%token<s> STRING
|
%token<s> STRING
|
||||||
@@ -48,55 +53,65 @@ extern int yylineno;
|
|||||||
lines:
|
lines:
|
||||||
/* empty */
|
/* empty */
|
||||||
| lines line NEWLINE
|
| lines line NEWLINE
|
||||||
;
|
;
|
||||||
|
|
||||||
line:
|
line:
|
||||||
/* empty */
|
/* empty */
|
||||||
| statement
|
| statement
|
||||||
;
|
;
|
||||||
|
|
||||||
statement:
|
statement:
|
||||||
/* Statements to set the current section */
|
/* Statements to set the current section */
|
||||||
SECTION_NONBANKED {
|
SECTION_NONBANKED
|
||||||
|
{
|
||||||
script_SetCurrentSectionType($1, 0);
|
script_SetCurrentSectionType($1, 0);
|
||||||
}
|
}
|
||||||
| SECTION_NONBANKED INTEGER {
|
| SECTION_NONBANKED INTEGER
|
||||||
|
{
|
||||||
script_fatalerror("Trying to assign a bank to a non-banked section.\n");
|
script_fatalerror("Trying to assign a bank to a non-banked section.\n");
|
||||||
}
|
}
|
||||||
|
|
||||||
| SECTION_BANKED {
|
| SECTION_BANKED
|
||||||
|
{
|
||||||
script_fatalerror("Banked section without assigned bank.\n");
|
script_fatalerror("Banked section without assigned bank.\n");
|
||||||
}
|
}
|
||||||
| SECTION_BANKED INTEGER {
|
| SECTION_BANKED INTEGER
|
||||||
|
{
|
||||||
script_SetCurrentSectionType($1, $2);
|
script_SetCurrentSectionType($1, $2);
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Commands to adjust the address inside the current section */
|
/* Commands to adjust the address inside the current section */
|
||||||
| COMMAND_ALIGN INTEGER {
|
| COMMAND_ALIGN INTEGER
|
||||||
|
{
|
||||||
script_SetAlignment($2);
|
script_SetAlignment($2);
|
||||||
}
|
}
|
||||||
| COMMAND_ALIGN {
|
| COMMAND_ALIGN
|
||||||
|
{
|
||||||
script_fatalerror("ALIGN keyword needs an argument.\n");
|
script_fatalerror("ALIGN keyword needs an argument.\n");
|
||||||
}
|
}
|
||||||
| COMMAND_ORG INTEGER {
|
| COMMAND_ORG INTEGER
|
||||||
|
{
|
||||||
script_SetAddress($2);
|
script_SetAddress($2);
|
||||||
}
|
}
|
||||||
| COMMAND_ORG {
|
| COMMAND_ORG
|
||||||
|
{
|
||||||
script_fatalerror("ORG keyword needs an argument.\n");
|
script_fatalerror("ORG keyword needs an argument.\n");
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Section name */
|
/* Section name */
|
||||||
| STRING {
|
| STRING
|
||||||
|
{
|
||||||
script_OutputSection($1);
|
script_OutputSection($1);
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Include file */
|
/* Include file */
|
||||||
| COMMAND_INCLUDE STRING {
|
| COMMAND_INCLUDE STRING
|
||||||
|
{
|
||||||
script_IncludeFile($2);
|
script_IncludeFile($2);
|
||||||
}
|
}
|
||||||
|
|
||||||
/* End */
|
/* End */
|
||||||
;
|
;
|
||||||
|
|
||||||
%%
|
%%
|
||||||
|
|
||||||
|
|||||||
168
src/link/patch.c
168
src/link/patch.c
@@ -1,92 +1,101 @@
|
|||||||
|
#include <stdint.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
|
|
||||||
#include "link/assign.h"
|
#include "link/assign.h"
|
||||||
|
#include "link/main.h"
|
||||||
#include "link/mylink.h"
|
#include "link/mylink.h"
|
||||||
#include "link/symbol.h"
|
#include "link/symbol.h"
|
||||||
#include "link/main.h"
|
|
||||||
|
|
||||||
struct sSection *pCurrentSection;
|
static struct sSection *pCurrentSection;
|
||||||
SLONG rpnstack[256];
|
static int32_t rpnstack[256];
|
||||||
SLONG rpnp;
|
static int32_t rpnp;
|
||||||
SLONG nPC;
|
int32_t nPC;
|
||||||
|
|
||||||
void
|
static void rpnpush(int32_t i)
|
||||||
rpnpush(SLONG i)
|
|
||||||
{
|
{
|
||||||
rpnstack[rpnp++] = i;
|
rpnstack[rpnp] = i;
|
||||||
|
rpnp++;
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG
|
static int32_t rpnpop(void)
|
||||||
rpnpop(void)
|
|
||||||
{
|
{
|
||||||
return (rpnstack[--rpnp]);
|
rpnp--;
|
||||||
|
return rpnstack[rpnp];
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG
|
static int32_t getsymvalue(int32_t symid)
|
||||||
getsymvalue(SLONG symid)
|
|
||||||
{
|
{
|
||||||
switch (pCurrentSection->tSymbols[symid]->Type) {
|
const struct sSymbol *tSymbol = pCurrentSection->tSymbols[symid];
|
||||||
|
|
||||||
|
switch (tSymbol->Type) {
|
||||||
case SYM_IMPORT:
|
case SYM_IMPORT:
|
||||||
return (sym_GetValue(pCurrentSection->tSymbols[symid]->pzName));
|
return sym_GetValue(tSymbol->pzName);
|
||||||
break;
|
|
||||||
case SYM_EXPORT:
|
case SYM_EXPORT:
|
||||||
case SYM_LOCAL:
|
case SYM_LOCAL:
|
||||||
{
|
if (strcmp(tSymbol->pzName, "@") == 0)
|
||||||
if (strcmp
|
return nPC;
|
||||||
(pCurrentSection->tSymbols[symid]->pzName,
|
|
||||||
"@") == 0) {
|
return tSymbol->nOffset + tSymbol->pSection->nOrg;
|
||||||
return (nPC);
|
|
||||||
} else
|
|
||||||
return (pCurrentSection->tSymbols[symid]->
|
|
||||||
nOffset +
|
|
||||||
pCurrentSection->tSymbols[symid]->
|
|
||||||
pSection->nOrg);
|
|
||||||
}
|
|
||||||
default:
|
default:
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
errx(1, "*INTERNAL* UNKNOWN SYMBOL TYPE");
|
|
||||||
|
errx(1, "%s: Unknown symbol type", __func__);
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG
|
|
||||||
getsymbank(SLONG symid)
|
static int32_t getrealbankfrominternalbank(int32_t n)
|
||||||
{
|
{
|
||||||
SLONG nBank;
|
if (BankIndexIsWRAM0(n) || BankIndexIsROM0(n) ||
|
||||||
|
BankIndexIsOAM(n) || BankIndexIsHRAM(n)) {
|
||||||
switch (pCurrentSection->tSymbols[symid]->Type) {
|
|
||||||
case SYM_IMPORT:
|
|
||||||
nBank = sym_GetBank(pCurrentSection->tSymbols[symid]->pzName);
|
|
||||||
break;
|
|
||||||
case SYM_EXPORT:
|
|
||||||
case SYM_LOCAL:
|
|
||||||
nBank = pCurrentSection->tSymbols[symid]->pSection->nBank;
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
errx(1, "*INTERNAL* UNKNOWN SYMBOL TYPE");
|
|
||||||
}
|
|
||||||
|
|
||||||
if (nBank == BANK_WRAM0 || nBank == BANK_ROM0 || nBank == BANK_OAM ||
|
|
||||||
nBank == BANK_HRAM) {
|
|
||||||
return 0;
|
return 0;
|
||||||
} else if (nBank >= BANK_WRAMX && nBank < (BANK_WRAMX + BANK_COUNT_WRAMX)) {
|
} else if (BankIndexIsROMX(n)) {
|
||||||
return nBank - BANK_WRAMX + 1;
|
return n - BANK_INDEX_ROMX + 1;
|
||||||
} else if (nBank >= BANK_VRAM && nBank < (BANK_VRAM + BANK_COUNT_VRAM)) {
|
} else if (BankIndexIsWRAMX(n)) {
|
||||||
return nBank - BANK_VRAM;
|
return n - BANK_INDEX_WRAMX + 1;
|
||||||
} else if (nBank >= BANK_SRAM && nBank < (BANK_SRAM + BANK_COUNT_SRAM)) {
|
} else if (BankIndexIsVRAM(n)) {
|
||||||
return nBank - BANK_SRAM;
|
return n - BANK_INDEX_VRAM;
|
||||||
|
} else if (BankIndexIsSRAM(n)) {
|
||||||
|
return n - BANK_INDEX_SRAM;
|
||||||
}
|
}
|
||||||
|
|
||||||
return nBank;
|
errx(1, "%s: Unknown bank %d", __func__, n);
|
||||||
|
|
||||||
|
return n;
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG
|
static int32_t getsymbank(int32_t symid)
|
||||||
calcrpn(struct sPatch * pPatch)
|
|
||||||
{
|
{
|
||||||
SLONG t, size;
|
int32_t nBank;
|
||||||
UBYTE *rpn;
|
const struct sSymbol *tSymbol = pCurrentSection->tSymbols[symid];
|
||||||
|
|
||||||
|
switch (tSymbol->Type) {
|
||||||
|
case SYM_IMPORT:
|
||||||
|
nBank = sym_GetBank(tSymbol->pzName);
|
||||||
|
break;
|
||||||
|
case SYM_EXPORT:
|
||||||
|
case SYM_LOCAL:
|
||||||
|
nBank = tSymbol->pSection->nBank;
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
errx(1, "%s: Unknown symbol type", __func__);
|
||||||
|
}
|
||||||
|
|
||||||
|
return getrealbankfrominternalbank(nBank);
|
||||||
|
}
|
||||||
|
|
||||||
|
int32_t calcrpn(struct sPatch *pPatch)
|
||||||
|
{
|
||||||
|
int32_t t, size;
|
||||||
|
uint8_t *rpn;
|
||||||
|
uint8_t rpn_cmd;
|
||||||
|
int32_t nBank;
|
||||||
|
|
||||||
rpnp = 0;
|
rpnp = 0;
|
||||||
|
|
||||||
@@ -96,7 +105,9 @@ calcrpn(struct sPatch * pPatch)
|
|||||||
|
|
||||||
while (size > 0) {
|
while (size > 0) {
|
||||||
size -= 1;
|
size -= 1;
|
||||||
switch (*rpn++) {
|
rpn_cmd = *rpn++;
|
||||||
|
|
||||||
|
switch (rpn_cmd) {
|
||||||
case RPN_ADD:
|
case RPN_ADD:
|
||||||
rpnpush(rpnpop() + rpnpop());
|
rpnpush(rpnpop() + rpnpop());
|
||||||
break;
|
break;
|
||||||
@@ -128,7 +139,7 @@ calcrpn(struct sPatch * pPatch)
|
|||||||
rpnpush(rpnpop() ^ rpnpop());
|
rpnpush(rpnpop() ^ rpnpop());
|
||||||
break;
|
break;
|
||||||
case RPN_UNNOT:
|
case RPN_UNNOT:
|
||||||
rpnpush(rpnpop() ^ 0xFFFFFFFF);
|
rpnpush(~rpnpop());
|
||||||
break;
|
break;
|
||||||
case RPN_LOGAND:
|
case RPN_LOGAND:
|
||||||
rpnpush(rpnpop() && rpnpop());
|
rpnpush(rpnpop() && rpnpop());
|
||||||
@@ -197,7 +208,7 @@ calcrpn(struct sPatch * pPatch)
|
|||||||
pPatch->oRelocPatch |= (getsymbank(t) != -1);
|
pPatch->oRelocPatch |= (getsymbank(t) != -1);
|
||||||
size -= 4;
|
size -= 4;
|
||||||
break;
|
break;
|
||||||
case RPN_BANK:
|
case RPN_BANK_SYM:
|
||||||
/* symbol */
|
/* symbol */
|
||||||
t = (*rpn++);
|
t = (*rpn++);
|
||||||
t |= (*rpn++) << 8;
|
t |= (*rpn++) << 8;
|
||||||
@@ -206,13 +217,40 @@ calcrpn(struct sPatch * pPatch)
|
|||||||
rpnpush(getsymbank(t));
|
rpnpush(getsymbank(t));
|
||||||
size -= 4;
|
size -= 4;
|
||||||
break;
|
break;
|
||||||
|
case RPN_BANK_SECT:
|
||||||
|
{
|
||||||
|
char *name = (char *)rpn;
|
||||||
|
|
||||||
|
struct sSection *pSection = GetSectionByName(name);
|
||||||
|
|
||||||
|
if (pSection == NULL) {
|
||||||
|
errx(1, "Requested BANK() of section \"%s\", which was not found.\n",
|
||||||
|
name);
|
||||||
|
}
|
||||||
|
|
||||||
|
nBank = pSection->nBank;
|
||||||
|
rpnpush(getrealbankfrominternalbank(nBank));
|
||||||
|
|
||||||
|
int len = strlen(name);
|
||||||
|
|
||||||
|
size -= len + 1;
|
||||||
|
rpn += len + 1;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case RPN_BANK_SELF:
|
||||||
|
nBank = pCurrentSection->nBank;
|
||||||
|
rpnpush(getrealbankfrominternalbank(nBank));
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
errx(1, "%s: Invalid command %d\n", __func__,
|
||||||
|
rpn_cmd);
|
||||||
|
break;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
return (rpnpop());
|
return rpnpop();
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void Patch(void)
|
||||||
Patch(void)
|
|
||||||
{
|
{
|
||||||
struct sSection *pSect;
|
struct sSection *pSect;
|
||||||
|
|
||||||
@@ -223,7 +261,7 @@ Patch(void)
|
|||||||
pCurrentSection = pSect;
|
pCurrentSection = pSect;
|
||||||
pPatch = pSect->pPatches;
|
pPatch = pSect->pPatches;
|
||||||
while (pPatch) {
|
while (pPatch) {
|
||||||
SLONG t;
|
int32_t t;
|
||||||
|
|
||||||
nPC = pSect->nOrg + pPatch->nOffset;
|
nPC = pSect->nOrg + pPatch->nOffset;
|
||||||
t = calcrpn(pPatch);
|
t = calcrpn(pPatch);
|
||||||
@@ -232,7 +270,7 @@ Patch(void)
|
|||||||
if (t >= -128 && t <= 255) {
|
if (t >= -128 && t <= 255) {
|
||||||
t &= 0xFF;
|
t &= 0xFF;
|
||||||
pSect->pData[pPatch->nOffset] =
|
pSect->pData[pPatch->nOffset] =
|
||||||
(UBYTE) t;
|
(uint8_t)t;
|
||||||
} else {
|
} else {
|
||||||
errx(1,
|
errx(1,
|
||||||
"%s(%ld) : Value must be 8-bit",
|
"%s(%ld) : Value must be 8-bit",
|
||||||
|
|||||||
@@ -14,147 +14,161 @@
|
|||||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
#include <stdint.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
|
|
||||||
#include "link/assign.h"
|
#include "link/assign.h"
|
||||||
#include "link/mylink.h"
|
#include "link/mylink.h"
|
||||||
|
|
||||||
static struct {
|
static struct {
|
||||||
unsigned int address; /* current address to write sections to */
|
uint32_t address; /* current address to write sections to */
|
||||||
unsigned int top_address; /* not inclusive */
|
uint32_t top_address; /* not inclusive */
|
||||||
enum eSectionType type;
|
enum eSectionType type;
|
||||||
} bank[MAXBANKS];
|
} bank[BANK_INDEX_MAX];
|
||||||
|
|
||||||
static int current_bank = -1; /* Bank as seen by the bank array */
|
static int32_t current_bank = -1; /* Bank as seen by the bank array */
|
||||||
static int current_real_bank = -1; /* bank as seen by the GB */
|
static int32_t current_real_bank = -1; /* bank as seen by the GB */
|
||||||
|
|
||||||
void script_InitSections(void)
|
void script_InitSections(void)
|
||||||
{
|
{
|
||||||
int i;
|
int32_t i;
|
||||||
for (i = 0; i < MAXBANKS; i++) {
|
|
||||||
if (i == BANK_ROM0) {
|
for (i = 0; i < BANK_INDEX_MAX; i++) {
|
||||||
|
if (BankIndexIsROM0(i)) {
|
||||||
/* ROM0 bank */
|
/* ROM0 bank */
|
||||||
bank[i].address = 0x0000;
|
bank[i].address = 0x0000;
|
||||||
if (options & OPT_TINY) {
|
if (options & OPT_TINY)
|
||||||
bank[i].top_address = 0x8000;
|
bank[i].top_address = 0x8000;
|
||||||
} else {
|
else
|
||||||
bank[i].top_address = 0x4000;
|
bank[i].top_address = 0x4000;
|
||||||
}
|
|
||||||
bank[i].type = SECT_ROM0;
|
bank[i].type = SECT_ROM0;
|
||||||
} else if (i >= BANK_ROMX && i < BANK_ROMX + BANK_COUNT_ROMX) {
|
} else if (BankIndexIsROMX(i)) {
|
||||||
/* Swappable ROM bank */
|
/* Swappable ROM bank */
|
||||||
bank[i].address = 0x4000;
|
bank[i].address = 0x4000;
|
||||||
bank[i].top_address = 0x8000;
|
bank[i].top_address = 0x8000;
|
||||||
bank[i].type = SECT_ROMX;
|
bank[i].type = SECT_ROMX;
|
||||||
} else if (i == BANK_WRAM0) {
|
} else if (BankIndexIsWRAM0(i)) {
|
||||||
/* WRAM */
|
/* WRAM */
|
||||||
bank[i].address = 0xC000;
|
bank[i].address = 0xC000;
|
||||||
if (options & OPT_CONTWRAM) {
|
if (options & OPT_CONTWRAM)
|
||||||
bank[i].top_address = 0xE000;
|
bank[i].top_address = 0xE000;
|
||||||
} else {
|
else
|
||||||
bank[i].top_address = 0xD000;
|
bank[i].top_address = 0xD000;
|
||||||
}
|
|
||||||
bank[i].type = SECT_WRAM0;
|
bank[i].type = SECT_WRAM0;
|
||||||
} else if (i >= BANK_SRAM && i < BANK_SRAM + BANK_COUNT_SRAM) {
|
} else if (BankIndexIsSRAM(i)) {
|
||||||
/* Swappable SRAM bank */
|
/* Swappable SRAM bank */
|
||||||
bank[i].address = 0xA000;
|
bank[i].address = 0xA000;
|
||||||
bank[i].top_address = 0xC000;
|
bank[i].top_address = 0xC000;
|
||||||
bank[i].type = SECT_SRAM;
|
bank[i].type = SECT_SRAM;
|
||||||
} else if (i >= BANK_WRAMX && i < BANK_WRAMX + BANK_COUNT_WRAMX) {
|
} else if (BankIndexIsWRAMX(i)) {
|
||||||
/* Swappable WRAM bank */
|
/* Swappable WRAM bank */
|
||||||
bank[i].address = 0xD000;
|
bank[i].address = 0xD000;
|
||||||
bank[i].top_address = 0xE000;
|
bank[i].top_address = 0xE000;
|
||||||
bank[i].type = SECT_WRAMX;
|
bank[i].type = SECT_WRAMX;
|
||||||
} else if (i >= BANK_VRAM && i < BANK_VRAM + BANK_COUNT_VRAM) {
|
} else if (BankIndexIsVRAM(i)) {
|
||||||
/* Swappable VRAM bank */
|
/* Swappable VRAM bank */
|
||||||
bank[i].address = 0x8000;
|
bank[i].address = 0x8000;
|
||||||
bank[i].type = SECT_VRAM;
|
bank[i].type = SECT_VRAM;
|
||||||
if (options & OPT_DMG_MODE && i != BANK_VRAM) {
|
if (options & OPT_DMG_MODE && i != BANK_INDEX_VRAM) {
|
||||||
/* In DMG the only available bank is bank 0. */
|
/* In DMG the only available bank is bank 0. */
|
||||||
bank[i].top_address = 0x8000;
|
bank[i].top_address = 0x8000;
|
||||||
} else {
|
} else {
|
||||||
bank[i].top_address = 0xA000;
|
bank[i].top_address = 0xA000;
|
||||||
}
|
}
|
||||||
} else if (i == BANK_OAM) {
|
} else if (BankIndexIsOAM(i)) {
|
||||||
/* OAM */
|
/* OAM */
|
||||||
bank[i].address = 0xFE00;
|
bank[i].address = 0xFE00;
|
||||||
bank[i].top_address = 0xFEA0;
|
bank[i].top_address = 0xFEA0;
|
||||||
bank[i].type = SECT_OAM;
|
bank[i].type = SECT_OAM;
|
||||||
} else if (i == BANK_HRAM) {
|
} else if (BankIndexIsHRAM(i)) {
|
||||||
/* HRAM */
|
/* HRAM */
|
||||||
bank[i].address = 0xFF80;
|
bank[i].address = 0xFF80;
|
||||||
bank[i].top_address = 0xFFFF;
|
bank[i].top_address = 0xFFFF;
|
||||||
bank[i].type = SECT_HRAM;
|
bank[i].type = SECT_HRAM;
|
||||||
} else {
|
} else {
|
||||||
errx(1, "(INTERNAL) Unknown bank type!");
|
errx(1, "%s: Unknown bank type %d", __func__, i);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void script_SetCurrentSectionType(const char *type, unsigned int bank)
|
void script_SetCurrentSectionType(const char *type, uint32_t bank)
|
||||||
{
|
{
|
||||||
if (strcmp(type, "ROM0") == 0) {
|
if (strcmp(type, "ROM0") == 0) {
|
||||||
if (bank != 0)
|
if (bank != 0)
|
||||||
errx(1, "(Internal) Trying to assign a bank number to ROM0.\n");
|
errx(1, "Trying to assign a bank number to ROM0.\n");
|
||||||
current_bank = BANK_ROM0;
|
current_bank = BANK_INDEX_ROM0;
|
||||||
current_real_bank = 0;
|
current_real_bank = 0;
|
||||||
return;
|
return;
|
||||||
} else if (strcmp(type, "ROMX") == 0) {
|
} else if (strcmp(type, "ROMX") == 0) {
|
||||||
if (bank == 0)
|
if (bank == 0)
|
||||||
errx(1, "ROMX index can't be 0.\n");
|
errx(1, "ROMX index can't be 0.\n");
|
||||||
if (bank > BANK_COUNT_ROMX)
|
if (bank > BANK_COUNT_ROMX) {
|
||||||
errx(1, "ROMX index too big (%d > %d).\n", bank, BANK_COUNT_ROMX);
|
errx(1, "ROMX index too big (%d > %d).\n", bank,
|
||||||
current_bank = BANK_ROMX + bank - 1;
|
BANK_COUNT_ROMX);
|
||||||
|
}
|
||||||
|
current_bank = BANK_INDEX_ROMX + bank - 1;
|
||||||
current_real_bank = bank;
|
current_real_bank = bank;
|
||||||
return;
|
return;
|
||||||
} else if (strcmp(type, "VRAM") == 0) {
|
} else if (strcmp(type, "VRAM") == 0) {
|
||||||
if (bank >= BANK_COUNT_VRAM)
|
if (bank >= BANK_COUNT_VRAM) {
|
||||||
errx(1, "VRAM index too big (%d >= %d).\n", bank, BANK_COUNT_VRAM);
|
errx(1, "VRAM index too big (%d >= %d).\n", bank,
|
||||||
current_bank = BANK_VRAM + bank;
|
BANK_COUNT_VRAM);
|
||||||
|
}
|
||||||
|
current_bank = BANK_INDEX_VRAM + bank;
|
||||||
current_real_bank = bank;
|
current_real_bank = bank;
|
||||||
return;
|
return;
|
||||||
} else if (strcmp(type, "WRAM0") == 0) {
|
} else if (strcmp(type, "WRAM0") == 0) {
|
||||||
if (bank != 0)
|
if (bank != 0) {
|
||||||
errx(1, "(Internal) Trying to assign a bank number to WRAM0.\n");
|
errx(1, "Trying to assign a bank number to WRAM0.\n");
|
||||||
current_bank = BANK_WRAM0;
|
}
|
||||||
|
current_bank = BANK_INDEX_WRAM0;
|
||||||
current_real_bank = 0;
|
current_real_bank = 0;
|
||||||
return;
|
return;
|
||||||
} else if (strcmp(type, "WRAMX") == 0) {
|
} else if (strcmp(type, "WRAMX") == 0) {
|
||||||
if (bank == 0)
|
if (bank == 0)
|
||||||
errx(1, "WRAMX index can't be 0.\n");
|
errx(1, "WRAMX index can't be 0.\n");
|
||||||
if (bank > BANK_COUNT_WRAMX)
|
if (bank > BANK_COUNT_WRAMX) {
|
||||||
errx(1, "WRAMX index too big (%d > %d).\n", bank, BANK_COUNT_WRAMX);
|
errx(1, "WRAMX index too big (%d > %d).\n", bank,
|
||||||
current_bank = BANK_WRAMX + bank - 1;
|
BANK_COUNT_WRAMX);
|
||||||
|
}
|
||||||
|
current_bank = BANK_INDEX_WRAMX + bank - 1;
|
||||||
current_real_bank = bank - 1;
|
current_real_bank = bank - 1;
|
||||||
return;
|
return;
|
||||||
} else if (strcmp(type, "SRAM") == 0) {
|
} else if (strcmp(type, "SRAM") == 0) {
|
||||||
if (bank >= BANK_COUNT_SRAM)
|
if (bank >= BANK_COUNT_SRAM) {
|
||||||
errx(1, "SRAM index too big (%d >= %d).\n", bank, BANK_COUNT_SRAM);
|
errx(1, "SRAM index too big (%d >= %d).\n", bank,
|
||||||
current_bank = BANK_SRAM + bank;
|
BANK_COUNT_SRAM);
|
||||||
|
}
|
||||||
|
current_bank = BANK_INDEX_SRAM + bank;
|
||||||
current_real_bank = bank;
|
current_real_bank = bank;
|
||||||
return;
|
return;
|
||||||
} else if (strcmp(type, "OAM") == 0) {
|
} else if (strcmp(type, "OAM") == 0) {
|
||||||
if (bank != 0)
|
if (bank != 0) {
|
||||||
errx(1, "(Internal) Trying to assign a bank number to OAM.\n");
|
errx(1, "%s: Trying to assign a bank number to OAM.\n",
|
||||||
current_bank = BANK_OAM;
|
__func__);
|
||||||
|
}
|
||||||
|
current_bank = BANK_INDEX_OAM;
|
||||||
current_real_bank = 0;
|
current_real_bank = 0;
|
||||||
return;
|
return;
|
||||||
} else if (strcmp(type, "HRAM") == 0) {
|
} else if (strcmp(type, "HRAM") == 0) {
|
||||||
if (bank != 0)
|
if (bank != 0) {
|
||||||
errx(1, "(Internal) Trying to assign a bank number to HRAM.\n");
|
errx(1, "%s: Trying to assign a bank number to HRAM.\n",
|
||||||
current_bank = BANK_HRAM;
|
__func__);
|
||||||
|
}
|
||||||
|
current_bank = BANK_INDEX_HRAM;
|
||||||
current_real_bank = 0;
|
current_real_bank = 0;
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
errx(1, "(Internal) Unknown section type \"%s\".\n", type);
|
errx(1, "%s: Unknown section type \"%s\".\n", __func__, type);
|
||||||
}
|
}
|
||||||
|
|
||||||
void script_SetAddress(unsigned int addr)
|
void script_SetAddress(uint32_t addr)
|
||||||
{
|
{
|
||||||
if (current_bank == -1) {
|
if (current_bank == -1)
|
||||||
errx(1, "Trying to set an address without assigned bank\n");
|
errx(1, "Trying to set an address without assigned bank\n");
|
||||||
}
|
|
||||||
|
|
||||||
/* Make sure that we don't go back. */
|
/* Make sure that we don't go back. */
|
||||||
if (bank[current_bank].address > addr) {
|
if (bank[current_bank].address > addr) {
|
||||||
@@ -167,22 +181,21 @@ void script_SetAddress(unsigned int addr)
|
|||||||
/* Make sure we don't overflow */
|
/* Make sure we don't overflow */
|
||||||
if (bank[current_bank].address >= bank[current_bank].top_address) {
|
if (bank[current_bank].address >= bank[current_bank].top_address) {
|
||||||
errx(1, "Bank overflowed (0x%04X >= 0x%04X)\n",
|
errx(1, "Bank overflowed (0x%04X >= 0x%04X)\n",
|
||||||
bank[current_bank].address, bank[current_bank].top_address);
|
bank[current_bank].address,
|
||||||
|
bank[current_bank].top_address);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void script_SetAlignment(unsigned int alignment)
|
void script_SetAlignment(uint32_t alignment)
|
||||||
{
|
{
|
||||||
if (current_bank == -1) {
|
if (current_bank == -1)
|
||||||
errx(1, "Trying to set an alignment without assigned bank\n");
|
errx(1, "Trying to set an alignment without assigned bank\n");
|
||||||
}
|
|
||||||
|
|
||||||
if (alignment > 15) {
|
if (alignment > 15)
|
||||||
errx(1, "Trying to set an alignment too big: %d\n", alignment);
|
errx(1, "Trying to set an alignment too big: %d\n", alignment);
|
||||||
}
|
|
||||||
|
|
||||||
unsigned int size = 1 << alignment;
|
uint32_t size = 1 << alignment;
|
||||||
unsigned int mask = size - 1;
|
uint32_t mask = size - 1;
|
||||||
|
|
||||||
if (bank[current_bank].address & mask) {
|
if (bank[current_bank].address & mask) {
|
||||||
bank[current_bank].address &= ~mask;
|
bank[current_bank].address &= ~mask;
|
||||||
@@ -192,17 +205,20 @@ void script_SetAlignment(unsigned int alignment)
|
|||||||
/* Make sure we don't overflow */
|
/* Make sure we don't overflow */
|
||||||
if (bank[current_bank].address >= bank[current_bank].top_address) {
|
if (bank[current_bank].address >= bank[current_bank].top_address) {
|
||||||
errx(1, "Bank overflowed (0x%04X >= 0x%04X)\n",
|
errx(1, "Bank overflowed (0x%04X >= 0x%04X)\n",
|
||||||
bank[current_bank].address, bank[current_bank].top_address);
|
bank[current_bank].address,
|
||||||
|
bank[current_bank].top_address);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void script_OutputSection(const char *section_name)
|
void script_OutputSection(const char *section_name)
|
||||||
{
|
{
|
||||||
if (current_bank == -1) {
|
if (current_bank == -1) {
|
||||||
errx(1, "Trying to place section \"%s\" without assigned bank\n", section_name);
|
errx(1, "Trying to place section \"%s\" without assigned bank\n",
|
||||||
|
section_name);
|
||||||
}
|
}
|
||||||
|
|
||||||
if (!IsSectionSameTypeBankAndFloating(section_name, bank[current_bank].type,
|
if (!IsSectionSameTypeBankAndFloating(section_name,
|
||||||
|
bank[current_bank].type,
|
||||||
current_real_bank)) {
|
current_real_bank)) {
|
||||||
errx(1, "Different attributes for \"%s\" in source and linkerscript\n",
|
errx(1, "Different attributes for \"%s\" in source and linkerscript\n",
|
||||||
section_name);
|
section_name);
|
||||||
@@ -211,6 +227,7 @@ void script_OutputSection(const char *section_name)
|
|||||||
/* Move section to its place. */
|
/* Move section to its place. */
|
||||||
bank[current_bank].address +=
|
bank[current_bank].address +=
|
||||||
AssignSectionAddressAndBankByName(section_name,
|
AssignSectionAddressAndBankByName(section_name,
|
||||||
bank[current_bank].address, current_real_bank);
|
bank[current_bank].address,
|
||||||
|
current_real_bank);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
@@ -1,85 +1,85 @@
|
|||||||
|
#include <stdint.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
||||||
#include "extern/err.h"
|
#include "extern/err.h"
|
||||||
|
|
||||||
#include "link/main.h"
|
#include "link/main.h"
|
||||||
#include "link/patch.h"
|
#include "link/patch.h"
|
||||||
|
|
||||||
#include "types.h"
|
#include "types.h"
|
||||||
|
|
||||||
#define HASHSIZE 73
|
#define HASHSIZE 73
|
||||||
|
|
||||||
struct ISymbol {
|
struct ISymbol {
|
||||||
char *pzName;
|
char *pzName;
|
||||||
SLONG nValue;
|
int32_t nValue;
|
||||||
SLONG nBank; /* -1 = constant */
|
int32_t nBank; /* -1 = constant */
|
||||||
char tzObjFileName[_MAX_PATH + 1]; /* Object file where the symbol was defined. */
|
/* Object file where the symbol was defined. */
|
||||||
char tzFileName[_MAX_PATH + 1]; /* Source file where the symbol was defined. */
|
char tzObjFileName[_MAX_PATH + 1];
|
||||||
ULONG nFileLine; /* Line where the symbol was defined. */
|
/* Source file where the symbol was defined. */
|
||||||
|
char tzFileName[_MAX_PATH + 1];
|
||||||
|
/* Line where the symbol was defined. */
|
||||||
|
uint32_t nFileLine;
|
||||||
struct ISymbol *pNext;
|
struct ISymbol *pNext;
|
||||||
};
|
};
|
||||||
|
|
||||||
struct ISymbol *tHash[HASHSIZE];
|
struct ISymbol *tHash[HASHSIZE];
|
||||||
|
|
||||||
SLONG
|
int32_t calchash(char *s)
|
||||||
calchash(char *s)
|
|
||||||
{
|
{
|
||||||
SLONG r = 0;
|
int32_t r = 0;
|
||||||
|
|
||||||
while (*s)
|
while (*s)
|
||||||
r += *s++;
|
r += *s++;
|
||||||
|
|
||||||
return (r % HASHSIZE);
|
return r % HASHSIZE;
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void sym_Init(void)
|
||||||
sym_Init(void)
|
|
||||||
{
|
{
|
||||||
SLONG i;
|
int32_t i;
|
||||||
|
|
||||||
for (i = 0; i < HASHSIZE; i += 1)
|
for (i = 0; i < HASHSIZE; i += 1)
|
||||||
tHash[i] = NULL;
|
tHash[i] = NULL;
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG
|
int32_t sym_GetValue(char *tzName)
|
||||||
sym_GetValue(char *tzName)
|
|
||||||
{
|
{
|
||||||
if (strcmp(tzName, "@") == 0) {
|
if (strcmp(tzName, "@") == 0)
|
||||||
return (nPC);
|
return nPC;
|
||||||
} else {
|
|
||||||
struct ISymbol **ppSym;
|
struct ISymbol **ppSym;
|
||||||
|
|
||||||
ppSym = &(tHash[calchash(tzName)]);
|
ppSym = &(tHash[calchash(tzName)]);
|
||||||
while (*ppSym) {
|
while (*ppSym) {
|
||||||
if (strcmp(tzName, (*ppSym)->pzName)) {
|
if (strcmp(tzName, (*ppSym)->pzName))
|
||||||
ppSym = &((*ppSym)->pNext);
|
ppSym = &((*ppSym)->pNext);
|
||||||
} else {
|
else
|
||||||
return ((*ppSym)->nValue);
|
return ((*ppSym)->nValue);
|
||||||
}
|
}
|
||||||
}
|
|
||||||
|
|
||||||
errx(1, "Unknown symbol '%s'", tzName);
|
errx(1, "Unknown symbol '%s'", tzName);
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
SLONG
|
int32_t sym_GetBank(char *tzName)
|
||||||
sym_GetBank(char *tzName)
|
|
||||||
{
|
{
|
||||||
struct ISymbol **ppSym;
|
struct ISymbol **ppSym;
|
||||||
|
|
||||||
ppSym = &(tHash[calchash(tzName)]);
|
ppSym = &(tHash[calchash(tzName)]);
|
||||||
while (*ppSym) {
|
while (*ppSym) {
|
||||||
if (strcmp(tzName, (*ppSym)->pzName)) {
|
if (strcmp(tzName, (*ppSym)->pzName))
|
||||||
ppSym = &((*ppSym)->pNext);
|
ppSym = &((*ppSym)->pNext);
|
||||||
} else {
|
else
|
||||||
return ((*ppSym)->nBank);
|
return ((*ppSym)->nBank);
|
||||||
}
|
}
|
||||||
}
|
|
||||||
|
|
||||||
errx(1, "Unknown symbol '%s'", tzName);
|
errx(1, "Unknown symbol '%s'", tzName);
|
||||||
}
|
}
|
||||||
|
|
||||||
void
|
void sym_CreateSymbol(char *tzName, int32_t nValue, int32_t nBank,
|
||||||
sym_CreateSymbol(char *tzName, SLONG nValue, SLONG nBank, char *tzObjFileName,
|
char *tzObjFileName, char *tzFileName, uint32_t nFileLine)
|
||||||
char *tzFileName, ULONG nFileLine)
|
|
||||||
{
|
{
|
||||||
if (strcmp(tzName, "@") == 0)
|
if (strcmp(tzName, "@") == 0)
|
||||||
return;
|
return;
|
||||||
@@ -102,8 +102,12 @@ sym_CreateSymbol(char *tzName, SLONG nValue, SLONG nBank, char *tzObjFileName,
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
if ((*ppSym = malloc(sizeof **ppSym))) {
|
*ppSym = malloc(sizeof **ppSym);
|
||||||
if (((*ppSym)->pzName = malloc(strlen(tzName) + 1))) {
|
|
||||||
|
if (*ppSym != NULL) {
|
||||||
|
(*ppSym)->pzName = malloc(strlen(tzName) + 1);
|
||||||
|
|
||||||
|
if ((*ppSym)->pzName != NULL) {
|
||||||
strcpy((*ppSym)->pzName, tzName);
|
strcpy((*ppSym)->pzName, tzName);
|
||||||
(*ppSym)->nValue = nValue;
|
(*ppSym)->nValue = nValue;
|
||||||
(*ppSym)->nBank = nBank;
|
(*ppSym)->nBank = nBank;
|
||||||
|
|||||||
48
src/rgbds.5
48
src/rgbds.5
@@ -1,4 +1,4 @@
|
|||||||
.\" Copyright (c) 2017 Antonio Nino Diaz <antonio_nd@outlook.com>
|
.\" Copyright (c) 2017-2018 Antonio Nino Diaz <antonio_nd@outlook.com>
|
||||||
.\"
|
.\"
|
||||||
.\" Permission to use, copy, modify, and distribute this software for any
|
.\" Permission to use, copy, modify, and distribute this software for any
|
||||||
.\" purpose with or without fee is hereby granted, provided that the above
|
.\" purpose with or without fee is hereby granted, provided that the above
|
||||||
@@ -12,7 +12,7 @@
|
|||||||
.\" ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
.\" ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||||
.\" OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
.\" OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||||
.\"
|
.\"
|
||||||
.Dd July 22, 2017
|
.Dd January 7, 2018
|
||||||
.Dt RGBDS 5
|
.Dt RGBDS 5
|
||||||
.Os RGBDS Manual
|
.Os RGBDS Manual
|
||||||
.Sh NAME
|
.Sh NAME
|
||||||
@@ -42,7 +42,7 @@ is a 0‐terminated string of
|
|||||||
.Bd -literal
|
.Bd -literal
|
||||||
; Header
|
; Header
|
||||||
|
|
||||||
BYTE ID[4] ; "RGB5"
|
BYTE ID[4] ; "RGB6"
|
||||||
LONG NumberOfSymbols ; The number of symbols used in this file
|
LONG NumberOfSymbols ; The number of symbols used in this file
|
||||||
LONG NumberOfSections ; The number of sections used in this file
|
LONG NumberOfSections ; The number of sections used in this file
|
||||||
|
|
||||||
@@ -155,25 +155,29 @@ special prefixes for integers and symbols.
|
|||||||
.It Li $03 Ta Li / operator
|
.It Li $03 Ta Li / operator
|
||||||
.It Li $04 Ta Li % operator
|
.It Li $04 Ta Li % operator
|
||||||
.It Li $05 Ta Li unary -
|
.It Li $05 Ta Li unary -
|
||||||
.It Li $06 Ta Li | operator
|
.It Li $10 Ta Li | operator
|
||||||
.It Li $07 Ta Li & operator
|
.It Li $11 Ta Li & operator
|
||||||
.It Li $08 Ta Li ^ operator
|
.It Li $12 Ta Li ^ operator
|
||||||
.It Li $09 Ta Li unary ~
|
.It Li $13 Ta Li unary ~
|
||||||
.It Li $0A Ta Li && comparison
|
.It Li $21 Ta Li && comparison
|
||||||
.It Li $0B Ta Li || comparison
|
.It Li $22 Ta Li || comparison
|
||||||
.It Li $0C Ta Li unary !
|
.It Li $23 Ta Li unary !
|
||||||
.It Li $0D Ta Li == comparison
|
.It Li $30 Ta Li == comparison
|
||||||
.It Li $0E Ta Li != comparison
|
.It Li $31 Ta Li != comparison
|
||||||
.It Li $0F Ta Li > comparison
|
.It Li $32 Ta Li > comparison
|
||||||
.It Li $10 Ta Li < comparison
|
.It Li $33 Ta Li < comparison
|
||||||
.It Li $11 Ta Li >= comparison
|
.It Li $34 Ta Li >= comparison
|
||||||
.It Li $12 Ta Li <= comparison
|
.It Li $35 Ta Li <= comparison
|
||||||
.It Li $13 Ta Li << comparison
|
.It Li $40 Ta Li << comparison
|
||||||
.It Li $14 Ta Li >> comparison
|
.It Li $41 Ta Li >> comparison
|
||||||
.It Li $15 Ta Li BANK()
|
.It Li $50 Ta Li BANK(symbol),
|
||||||
function.
|
a
|
||||||
A symbol ID follows.
|
.Ar LONG
|
||||||
.It Li $16 Ta Li HRAMCheck.
|
Symbol ID follows.
|
||||||
|
.It Li $51 Ta Li BANK(section_name),
|
||||||
|
a null-terminated string follows.
|
||||||
|
.It Li $52 Ta Li Current BANK() .
|
||||||
|
.It Li $60 Ta Li HRAMCheck.
|
||||||
Check if the value is in HRAM, AND it with 0xFF.
|
Check if the value is in HRAM, AND it with 0xFF.
|
||||||
.It Li $80 Ta Ar LONG
|
.It Li $80 Ta Ar LONG
|
||||||
integer follows.
|
integer follows.
|
||||||
|
|||||||
@@ -1,2 +1,2 @@
|
|||||||
ERROR: null-in-macro.asm(1):
|
ERROR: null-in-macro.asm(1):
|
||||||
Unterminated MACRO definition
|
Unterminated MACRO definition.
|
||||||
|
|||||||
Reference in New Issue
Block a user