mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-07-02 23:50:47 +02:00
66ff15e2f0
* module/Makefile.am: Add language/sassy.scm. Probably EXTRA_DIST the dependant files, too. * module/language/sassy.scm: New file, the sassy loader. Sassy is originally R5RS code that loads a number of files. I've converted that toplevel file to be a Guile module that *includes* the subfiles, so that it all gets compiled together. It's a pretty bad hack though, because what I should be doing is including them relative to the sassy.scm source location, but we don't know that at expansion time. Something to fix. really bad hack in it so that it will compile correctly -- p * module/language/sassy/: All the sassy files and some changelog information. All of these files are LGPLv2.1+, so they can be included in Guile. * test-suite/standalone/sassy/tests/: Add the sassy unit tests. * test-suite/standalone/Makefile.am: * test-suite/standalone/test-sassy: Hook the sassy unit tests up to our test suite.
115 lines
3.3 KiB
Scheme
115 lines
3.3 KiB
Scheme
(
|
|
(add eax (& ecx))
|
|
(add eax (& ebp))
|
|
(add eax (& esp))
|
|
(add eax (& #x64))
|
|
(add eax (& #x640))
|
|
(add eax (& (* ecx 1)))
|
|
(add eax (& (* ecx 2)))
|
|
(add eax (& (* ecx 4)))
|
|
(add eax (& (* ecx 8)))
|
|
(add eax (& (* ebp 1)))
|
|
(add eax (& (* ebp 2)))
|
|
(add eax (& (* ebp 4)))
|
|
(add eax (& (* ebp 8)))
|
|
(add eax (& ecx 100))
|
|
(add eax (& ecx 1600))
|
|
(add eax (& ebp 100))
|
|
(add eax (& ebp 1600))
|
|
(add eax (& esp 100))
|
|
(add eax (& esp 1600))
|
|
(add eax (& 100 ecx))
|
|
(add eax (& 1600 ecx))
|
|
(add eax (& 100 ebp))
|
|
(add eax (& 1000 ebp 600))
|
|
(add eax (& 100 esp))
|
|
(add eax (& 1600 esp))
|
|
(add eax (& ecx (* edx 1)))
|
|
(add eax (& (* ebp 1) ecx))
|
|
(add eax (& ecx (* edx 2)))
|
|
(add eax (& (* ebp 2) ecx))
|
|
(add eax (& ecx (* edx 4)))
|
|
(add eax (& (* ebp 4) ecx))
|
|
(add eax (& ecx (* edx 8)))
|
|
(add eax (& ecx (* ebp 8)))
|
|
(add eax (& (* edx 1) ebp))
|
|
(add eax (& ebp (* ebp 1)))
|
|
(add eax (& ebp (* edx 2)))
|
|
(add eax (& ebp (* ebp 2)))
|
|
(add eax (& ebp (* edx 4)))
|
|
(add eax (& (* ebp 4) ebp))
|
|
(add eax (& ebp (* edx 8)))
|
|
(add eax (& ebp (* ebp 8)))
|
|
(add eax (& esp (* edx 1)))
|
|
(add eax (& esp (* ebp 1)))
|
|
(add eax (& esp (* edx 2)))
|
|
(add eax (& (* ebp 2) esp))
|
|
(add eax (& esp (* edx 4)))
|
|
(add eax (& esp (* ebp 4)))
|
|
(add eax (& esp (* edx 8)))
|
|
(add eax (& esp (* ebp 8)))
|
|
(add eax (& (* ecx 1) 100))
|
|
(add eax (& (* ecx 2) 100))
|
|
(add eax (& 100 (* ecx 4)))
|
|
(add eax (& (* ecx 8) 100))
|
|
(add eax (& 100 (* ebp 1)))
|
|
(add eax (& (* ebp 2) 100))
|
|
(add eax (& 100 (* ebp 4)))
|
|
(add eax (& (* ebp 8) 100))
|
|
(add eax (& 1600 (* ecx 1)))
|
|
(add eax (& (* ecx 2) 1600))
|
|
(add eax (& (* ecx 4) 1600))
|
|
(add eax (& 1600 (* ecx 8)))
|
|
(add eax (& (* ebp 1) 1600))
|
|
(add eax (& 1600 (* ebp 2)))
|
|
(add eax (& (* ebp 4) 1600))
|
|
(add eax (& (* ebp 8) 1600))
|
|
(add eax (& ecx 100 (* edx 1)))
|
|
(add eax (& ecx (* edx 2) 100))
|
|
(add eax (& (* edx 4) ecx 100))
|
|
(add eax (& ecx (* edx 8) 100))
|
|
(add eax (& ecx (* ebp 1) 100))
|
|
(add eax (& ecx (* ebp 2) 100))
|
|
(add eax (& ecx (* ebp 4) 100))
|
|
(add eax (& 100 ecx (* ebp 8)))
|
|
(add eax (& ebp (* edx 1) 100))
|
|
(add eax (& ebp (* edx 2) 100))
|
|
(add eax (& ebp (* edx 4) 100))
|
|
(add eax (& ebp (* edx 8) 100))
|
|
(add eax (& ebp (* ebp 1) 100))
|
|
(add eax (& 100 (* ebp 2) ebp))
|
|
(add eax (& ebp (* ebp 4) 100))
|
|
(add eax (& ebp (* ebp 8) 100))
|
|
(add eax (& esp (* edx 1) 100))
|
|
(add eax (& esp (* edx 2) 100))
|
|
(add eax (& esp (* edx 4) 100))
|
|
(add eax (& esp (* edx 8) 100))
|
|
(add eax (& esp (* ebp 1) 100))
|
|
(add eax (& esp (* ebp 2) 100))
|
|
(add eax (& esp (* ebp 4) 100))
|
|
(add eax (& esp (* ebp 8) 100))
|
|
(add eax (& ecx (* edx 1) 1600))
|
|
(add eax (& ecx (* edx 2) 1600))
|
|
(add eax (& ecx (* edx 4) 1600))
|
|
(add eax (& ecx (* edx 8) 1600))
|
|
(add eax (& ecx (* ebp 1) 1600))
|
|
(add eax (& ecx (* ebp 2) 1600))
|
|
(add eax (& ecx (* ebp 4) 1600))
|
|
(add eax (& ecx (* ebp 8) 1600))
|
|
(add eax (& ebp (* edx 1) 1600))
|
|
(add eax (& ebp (* edx 2) 1600))
|
|
(add eax (& ebp (* edx 4) 1600))
|
|
(add eax (& ebp (* edx 8) 1600))
|
|
(add eax (& ebp (* ebp 1) 1600))
|
|
(add eax (& ebp (* ebp 2) 1600))
|
|
(add eax (& ebp (* ebp 4) 1600))
|
|
(add eax (& ebp (* ebp 8) 1600))
|
|
(add eax (& esp (* edx 1) 1600))
|
|
(add eax (& esp (* edx 2) 1600))
|
|
(add eax (& esp (* edx 4) 1600))
|
|
(add eax (& esp (* edx 8) 1600))
|
|
(add eax (& esp (* ebp 1) 1600))
|
|
(add eax (& esp (* ebp 2) 1600))
|
|
(add eax (& esp (* ebp 4) 1600))
|
|
(add eax (& esp (* ebp 8) 1600))
|
|
)
|