2018-07-23 17:10:34 +00:00
|
|
|
-*- org -*-
|
2018-07-22 12:24:36 +00:00
|
|
|
#+TITLE: Hacking GNU Mes
|
|
|
|
|
|
2017-04-02 15:01:29 +00:00
|
|
|
* SETUP
|
2018-12-20 06:44:18 +00:00
|
|
|
guix environment -l guix.scm #64 bit + 32bit
|
2018-04-09 05:12:38 +00:00
|
|
|
|
2020-08-22 18:32:02 +00:00
|
|
|
CC=i686-unknown-linux-gnu-gcc ./configure
|
|
|
|
|
CC=arm-unknown-linux-gnu-gcc ./configure
|
2018-04-09 05:12:38 +00:00
|
|
|
or
|
2019-12-09 06:26:16 +00:00
|
|
|
./configure
|
2018-04-09 05:12:38 +00:00
|
|
|
|
2019-12-09 06:26:16 +00:00
|
|
|
The 64bit bootstrap is not supported; MesCC needs work to be able to
|
|
|
|
|
compile a functional tinycc.
|
2018-04-09 05:12:38 +00:00
|
|
|
|
2017-05-28 16:32:53 +00:00
|
|
|
* BUILD
|
|
|
|
|
|
2019-12-09 06:26:16 +00:00
|
|
|
GNU Guile can be used as a replacement for Mes. It's faster and has
|
|
|
|
|
much better error handling.
|
2017-05-28 16:32:53 +00:00
|
|
|
|
2019-12-09 06:26:16 +00:00
|
|
|
#+BEGIN_SRC bash
|
|
|
|
|
make MES=guile
|
|
|
|
|
make check MES=guile
|
|
|
|
|
#+END_SRC
|
2017-05-28 16:32:53 +00:00
|
|
|
|
2019-12-09 06:26:16 +00:00
|
|
|
Configure to compile with Tiny CC
|
2018-09-05 05:05:08 +00:00
|
|
|
|
2019-12-09 06:26:16 +00:00
|
|
|
#+BEGIN_SRC bash
|
|
|
|
|
./configure CC=tcc --host=i686-unknown-linux-gnu --with-courage
|
|
|
|
|
#+END_SRC
|
2018-04-09 05:12:38 +00:00
|
|
|
|
|
|
|
|
* DEBUG
|
|
|
|
|
MES_DEBUG=<level> mes
|
|
|
|
|
** Levels
|
2018-05-23 20:48:00 +00:00
|
|
|
1) Informational:
|
2018-04-09 05:12:38 +00:00
|
|
|
- MODULEDIR
|
|
|
|
|
- included SCM modules and sources
|
|
|
|
|
- result of program
|
|
|
|
|
- gc stats at exit
|
|
|
|
|
2) opened files
|
|
|
|
|
3) runtime gc stats
|
|
|
|
|
4) detailed info
|
|
|
|
|
- parsed, expanded program
|
|
|
|
|
- list of builtins
|
|
|
|
|
- list of symbol
|
|
|
|
|
- opened input strings
|
|
|
|
|
- gc details
|
2019-05-27 19:30:48 +00:00
|
|
|
5) lots of data
|
|
|
|
|
- usage of opened input strings
|
|
|
|
|
- bytes read
|
|
|
|
|
6) globals
|
2018-04-09 05:12:38 +00:00
|
|
|
|
2016-12-24 16:22:34 +00:00
|
|
|
* Bugs
|
2018-10-20 07:53:44 +00:00
|
|
|
** mes: performance, Mes is now 2-10x slower than Guile.
|
2019-12-09 06:26:16 +00:00
|
|
|
** mes/mescc lack support for fork/exec on the Hurd.
|
2018-10-20 07:53:44 +00:00
|
|
|
** mes: gcc-x86_64 compiled mes segfaults with small arena, or gc_up_arena.
|
2018-07-21 13:20:01 +00:00
|
|
|
** mes: gcc-x86 compiled, tests/srfi-13.test number->string INT-MIN fails:
|
|
|
|
|
test: number->string INT-MIN: fail
|
|
|
|
|
expected: -2147483648
|
|
|
|
|
actual: -./,),(-*,(
|
2018-06-24 11:13:13 +00:00
|
|
|
** tcc: tcc-built lib/libc+tcc.c segfaults with mes, with tcc.
|
2017-11-21 18:22:26 +00:00
|
|
|
** mes: remove pmatch-car/pmatch-cdr hack.
|
2018-04-21 22:45:00 +00:00
|
|
|
** mescc: softcode stack frame size, now hardcoded and very large
|
2017-11-21 18:22:26 +00:00
|
|
|
** mes+mescc: parse tcc.c->tcc.E works, compile tcc.E -> tcc.M1 segfaults.
|
2018-04-21 22:45:00 +00:00
|
|
|
time GUILE_LOAD_PATH=/home/janneke/src/nyacc/module:$GUILE_LOAD_PATH ../mes/scripts/mescc -E -o tcc.E -I . -I ../mes/lib -I ../mes/include -D 'CONFIG_TCCDIR="usr/lib/tcc"' -D 'CONFIG_TCC_CRTPREFIX="usr/lib:{B}/lib:."' -D 'CONFIG_TCC_ELFINTERP="/gnu/store/70jxsnpffkl7fdb7qv398n8yi1a3w5nx-glibc-2.26.105-g0890d5379c/lib/ld-linux.so.2"' -D 'CONFIG_TCC_LIBPATHS="/home/janneke/src/tinycc/usr/lib:{B}/lib:."' -D 'CONFIG_TCC_SYSINCLUDEPATHS="../mes/include:usr/include:{B}/include"' -D CONFIG_USE_LIBGCC=1 -D 'TCC_LIBGCC="/home/janneke/src/tinycc/usr/lib/libc+tcc-gcc.mlibc-o"' -D CONFIG_TCC_STATIC=1 -D ONE_SOURCE=yes -D TCC_TARGET_I386=1 -D BOOTSTRAP=1 tcc.c
|
|
|
|
|
time GUILE_LOAD_PATH=/home/janneke/src/nyacc/module:$GUILE_LOAD_PATH MES_ARENA=200000000 ../mes/scripts/mescc -c -o tcc.M1 tcc.E
|
2019-05-27 19:33:20 +00:00
|
|
|
** mescc: 64 bit compiled mes loses top 4 bytes
|
|
|
|
|
*** 64 bit mescc-compiled mes:
|
|
|
|
|
#x100000000 => 0
|
|
|
|
|
(modulo 1 #x100000000) => divide-by-zero
|
|
|
|
|
*** 64 bit gcc-compiled mes:
|
|
|
|
|
#x100000000 => 0
|
|
|
|
|
(modulo 1 #x100000000) => 1
|
2017-11-11 12:09:26 +00:00
|
|
|
** mescc: 7n-struct-struct-array.c: struct file f = {"first.h"};
|
2017-04-01 13:06:07 +00:00
|
|
|
** test/match.test ("nyacc-simple"): hygiene problem in match
|
2016-10-15 09:54:24 +00:00
|
|
|
* OLD: Booting from LISP-1.5 into Mes
|
2016-07-22 20:12:05 +00:00
|
|
|
|
|
|
|
|
Mes started out experimenting with booting from a hex-coded minimal
|
2016-10-15 09:54:24 +00:00
|
|
|
LISP-1.5 (prototype in mes.c), into an almost-RRS Scheme.
|
2016-07-22 20:12:05 +00:00
|
|
|
|
|
|
|
|
When EOF is read, the LISP-1.5 machine calls loop2 from loop2.mes,
|
|
|
|
|
which reads the rest of stdin and takes over control. The functions
|
|
|
|
|
readenv, eval and apply-env in mes.mes introduced define, define-macro
|
|
|
|
|
quasiquote and macro expansion.
|
|
|
|
|
|
|
|
|
|
While this works, it's amazingly slow. We implemented a full reader
|
|
|
|
|
in mes.c, which makes running mes:apply-env mes:eval somewhat
|
|
|
|
|
bearable, still over 1000x slower than running mes.c.
|
|
|
|
|
|
2016-10-15 09:54:24 +00:00
|
|
|
Bootstrapping has been removed and mes.c implements enough of RRS to
|
2016-07-22 20:12:05 +00:00
|
|
|
run a macro-based define-syntax and syntax-rules.
|
|
|
|
|
|
|
|
|
|
loop.mes and mes.mes are unused and lagging behind. Probably it's not
|
|
|
|
|
worth considering this route without a VM. GNU Epsilon is taking the
|
|
|
|
|
more usual VM-route to provide multiple personas. While that sounds
|
2016-10-15 09:54:24 +00:00
|
|
|
neat, Lisp/Scheme, bootstrapping and trusted binaries are probably not
|
|
|
|
|
in scope as there is no mention of such things; only ML is mentioned
|
|
|
|
|
while Guile is used for bootstrapping.
|
2016-07-22 20:12:05 +00:00
|
|
|
|
2018-05-23 20:48:00 +00:00
|
|
|
* Assorted ideas and info
|
2017-01-22 13:16:22 +00:00
|
|
|
** Using GDB on assembly/a.out
|
|
|
|
|
info registers
|
|
|
|
|
p/x $eax
|
|
|
|
|
p/x $edx
|
2017-11-21 18:22:26 +00:00
|
|
|
set disassemble-next-line on
|
2017-01-22 13:16:22 +00:00
|
|
|
gdb-display-disassembly-buffer
|
|
|
|
|
b *0x804a79d
|
|
|
|
|
** Create memory dump with 32 bit Gcc compiled Mes
|
core: Always include reader.c, drop binary read-0-32.mo dependency.
* module/language/c99/compiler.mes (c99-input->full-ast): Remove
obsolete __NYACC__ and MES_FULL defines.
* src/mes.c [!MES_FULL]: Include reader-mes.h.
(mes_builtins) [!MES_FULL]: Include reader.mes.i, reader.me.environment.i.
[!MES_FULL]: Include reader.c.
(main) [!MES_FULL]: By default call load_env, only call bload_env
when --load is supplied. WAS: Always bload read-0-32.mo.
* src/reader.c (__end_of__mes_): Remove.
(dump): Remove option of dumping tiny test program.
* make/mescc-mes.make ($(OUT)/$(TARGET), mescc.mes-ccompile,
mescc.mes.c-compile-E): Depend on $(OUT)/mes, scripts/mes.
* src/src.make (mes.guile): Remove module/mes/read-32-0 dependency.
Do not build $(OUT)/mes.mes.
* module/module.make (module/mes/read-0.mo, module/mes/read-0-32.mo,
module/mes/tiny-0-32.mo): Remove targets.
(CLEAN): Do not add them. Neither install $(OUT)/mes.mes.
* .gitignore: Remove exceptions for them.
* make/install.make (install): Do not install them.
* HACKING: Update info about creating module/mes/read-32-0.mo.
* scaffold/mini-mes.c: Remove.
* scaffold/tiny-mes.c: Remove.
* scaffold/cons-mes.c: Remove.
* scaffold/scaffold.make (tiny-mes.libc, tiny-mes.guile, tiny-mes.mes,
mini-mes.libc, mini-mes.guile, mini-mes.mes): Reemove targets.
2017-05-28 14:03:45 +00:00
|
|
|
make out/i686-unknown-linux-gnu-mes
|
|
|
|
|
out/i686-unknown-linux-gnu-mes --dump < module/mes/read-0.mes > module/mes/read-0-32.mo
|
2018-08-10 15:05:01 +00:00
|
|
|
|
|
|
|
|
x/s *((char **)($rsp+8))
|
|
|
|
|
|
2016-10-15 09:54:24 +00:00
|
|
|
** C parser/compiler
|
|
|
|
|
*** [[https://savannah.gnu.org/projects/nyacc][nyacc]]
|
|
|
|
|
*** PEG: [[http://piumarta.com/software/peg/][parse C using PEG]]
|
|
|
|
|
*** [[https://en.wikipedia.org/wiki/Tiny_C_Compiler][Tiny C Compiler]]
|
|
|
|
|
*** [[http://www.t3x.org/subc/index.html][Sub C]]
|
|
|
|
|
*** [[https://groups.google.com/forum/#!topic/comp.lang.lisp/VPuX0VsjTTE][C intepreter in LISP/Scheme/Python]]
|
|
|
|
|
|
|
|
|
|
** C assembler/linker
|
|
|
|
|
*** [[http://www.tldp.org/HOWTO/Assembly-HOWTO/linux.html][Assembly HOWTO]]
|
|
|
|
|
*** ELF
|
|
|
|
|
7f 45 4c 46
|
|
|
|
|
*** [[http://www.muppetlabs.com/~breadbox/software/tiny/][Small ELF programs]]
|
|
|
|
|
*** [[http://www.cirosantilli.com/elf-hello-world/][Elf hello world]]
|
2016-12-10 21:47:13 +00:00
|
|
|
** SC - c as s-expressions
|
|
|
|
|
sc: http://sph.mn/content/3d3
|
2016-10-15 09:54:24 +00:00
|
|
|
** RNRS
|
2018-05-23 20:48:00 +00:00
|
|
|
*** [[http://www.scheme-reports.org/][Scheme Reports]]
|
2016-10-15 09:54:24 +00:00
|
|
|
*** [[ftp://publications.ai.mit.edu/ai-publications/pdf/AIM-349.pdf][Scheme - Report on Scheme]]
|
|
|
|
|
*** [[ftp://publications.ai.mit.edu/ai-publications/pdf/AIM-452.pdf][RRS - Revised Report on Scheme]]
|
mescc: Run mini-mes.
* .gitignore: Ignore tiny-mes and tiny .mo's.
* doc/examples/tiny-mes.c: Simplify.
* doc/examples/mini-mes.c: Use simplifications from tiny-mes.
* doc/examples/t.c (read_test, struct_test): New functions.
(test): Add tests for arena, g_cells globals.
* module/mes/elf-util.mes (dec->hex): New function.
(lambda/label->list): Add text-address parameter. Update callers.
* module/language/c99/compiler.mes (make, info, clone): Add init field.
(.init): New function.
(ident->accu): Add exceptions for globals.
* module/mes/elf-util.scm: Export it.
* module/mes/libc-i386.mes (i386:accu->base-ref,
i386:byte-accu->base-ref, i386:accu->base-ref+n,
i386:accu->global-ref, i386:global-ref->accu, i386:global-ref->base,
i386:global-add, i386:global->accu):, i386:local-ref->accu,
i386:local-ptr->accu, i386:local-ptr->base): New functions.
* module/mes/libc-i386.scm: Export them.
2017-01-29 14:22:39 +00:00
|
|
|
|
|
|
|
|
** tiny schemes
|
|
|
|
|
http://forum.osdev.org/viewtopic.php?f=15&t=19937
|
|
|
|
|
|
|
|
|
|
http://www.stripedgazelle.org/joey/dreamos.html
|
|
|
|
|
http://armpit.sourceforge.net/
|
|
|
|
|
http://common-lisp.net/project/movitz/movitz.html
|
|
|
|
|
|
|
|
|
|
<civodul> janneke: https://github.com/namin/inc looks interesting [15:18]
|
2017-03-29 06:05:18 +00:00
|
|
|
** Orians Jeremiah
|
|
|
|
|
<OriansJ> janneke: also, if you look at
|
|
|
|
|
https://github.com/oriansj/stage0/tree/master/stage2/High_level_prototypes
|
|
|
|
|
[the garbage collected lisp I implemented], if there are any pieces
|
|
|
|
|
I could add to finish off your mes lisp bootstrap just let me know
|
|
|
|
|
because I would be more than happy to do that :D
|
|
|
|
|
<janneke> OriansJ: that's what I'm hoping for, that our efforts can be
|
|
|
|
|
complementary and we can work together
|
|
|
|
|
*** lfam (~lfam@2601:47:4180:2ffb:7c05:17de:cf5f:23ef) has quit: Ping timeout:
|
|
|
|
|
246 seconds [00:22]
|
|
|
|
|
<janneke> exciting times! [00:23]
|
|
|
|
|
<janneke> OriansJ: i looked a few times and saw 'LISP empty', so thanks for
|
|
|
|
|
the pointer! [00:24]
|
|
|
|
|
<civodul> OriansJ, janneke: from that page, there's also:
|
|
|
|
|
https://web.archive.org/web/20160604035203fw_/http://homepage.ntlworld.com/edmund.grimley-evans/bcompiler.html
|
|
|
|
|
|
|
|
|
|
** C4/C500
|
|
|
|
|
https://web.archive.org/web/20160604041431/http://homepage.ntlworld.com/edmund.grimley-evans/cc500/cc500.c
|
|
|
|
|
https://github.com/rswier/c4/blob/master/c4.c
|
2017-04-02 15:01:29 +00:00
|
|
|
** Compilers for free
|
|
|
|
|
http://codon.com/compilers-for-free
|
2017-05-22 21:35:39 +00:00
|
|
|
** Small lisps
|
|
|
|
|
*** [[https://www.mirrorservice.org/sites/www.bitsavers.org/bits/TI/Explorer/zeta-c/][ZETA-C]]
|
|
|
|
|
** Small C compilers
|
|
|
|
|
*** tinycc
|
|
|
|
|
*** [[https://github.com/rui314/8cc][8cc]] -- a C11 compiler, but simple
|
|
|
|
|
8cc is a compiler for the C programming language. It's intended to
|
|
|
|
|
support all C11 language features while keeping the code as small and
|
|
|
|
|
simple as possible.
|
|
|
|
|
*** pcc
|
|
|
|
|
*** early GCC?
|
2017-11-11 12:09:26 +00:00
|
|
|
https://miyuki.github.io/2017/10/04/gcc-archaeology-1.html
|
2017-05-22 21:35:39 +00:00
|
|
|
*** [[http://tack.sourceforge.net/][ack]]
|
|
|
|
|
<rain1> it may be possible to compile like this: mes |> ack |> pcc |> tcc |>
|
|
|
|
|
gcc 4.7.4 |> gcc later version... up to modern
|
2017-06-08 18:39:24 +00:00
|
|
|
*** [[https://web.archive.org/web/20160402225843/http://homepage.ntlworld.com/edmund.grimley-evans/cc500/][cc500]]
|
2017-05-22 21:35:39 +00:00
|
|
|
** rain1's Bootstrapping Wiki: https://bootstrapping.miraheze.org/wiki/Main_Page
|
2017-06-08 18:39:24 +00:00
|
|
|
** rain1's hex86
|
|
|
|
|
https://notabug.org/rain1/hex86/src/master/tests/hex0b3.hex86
|
2018-09-05 05:05:08 +00:00
|
|
|
** <pdewacht> janneke, have you ever tried testing mescc with csmith? [10:55]
|
|
|
|
|
** <pdewacht> e.g. as described here
|
|
|
|
|
https://jamey.thesharps.us/2016/07/15/testing-strategies-for-corrode/
|
|
|
|
|
("Randomized testing with Csmith and C-Reduce") [10:58]
|
2018-12-20 06:44:18 +00:00
|
|
|
** linux syscalls: https://fedora.juszkiewicz.com.pl/syscalls.html
|
2019-12-09 06:26:16 +00:00
|
|
|
* legalese
|
|
|
|
|
|
|
|
|
|
Copyright © 2016,2017,2018,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
|
|
|
|
|
|
|
|
|
Copying and distribution of this file, with or without modification,
|
|
|
|
|
are permitted in any medium without royalty provided the copyright
|
|
|
|
|
notice and this notice are preserved.
|