artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity
mes/scaffold/main.c

109 lines
2.2 KiB
C
Raw Normal View History

mescc: Beginning of expression and test template. * scaffold/t.c: New file. * GNUmakefile (mescc-check, t-check): New targets. * module/language/c99/compiler.mes (write-any): Catch weirdness. (make): Add <function> slot. (.function): New accessor. (clone): Handle it. (function->info): Set it. (ast->info): Make tests generic in if, for, while. Add goto, label, !, ==, !=, -, &&. * module/mes/elf-util.mes (lambda/label->list): New function. (text->list): Use it. (functions->text, function-prefix): New function. (function-offset): Use it. (label-offset): New function. * module/mes/elf-util.scm (mes): Export them. * module/mes/elf.mes (make-elf): Use text->list. * module/mes/libc-i386.mes (eputs, puts): Remove. (i386:byte-base-sub): Rename from sub-byte-base. (i386:byte-jump-z): Rename from i386:Xjump-byte-z. (i386:byte-mem->accu): Rename from i386:Xmem-byte->accu. (i386:byte-mem->base): Rename from i386:Xmem-byte->base. (i386:accu->local, i386:accu-non-zero?, i386:accu-zero?, i386:base-sub, i386:byte-sub-base, i386:jump-c, i386:jump-cz, i386:jump-nc, i386:jump-ncz, i386:byte-mem->base, i386:sub-base, i386:test-accu, i386:test-base, i386:test-jump-z, i386:value->base, i386:xor-zf): New functions.
2017-04-02 10:23:00 +00:00
/* -*-comment-start: "//";comment-end:""-*-
* Mes --- Maxwell Equations of Software
* Copyright © 2016,2017 Jan Nieuwenhuizen <janneke@gnu.org>
*
* This file is part of Mes.
*
* Mes is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 3 of the License, or (at
* your option) any later version.
*
* Mes is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with Mes. If not, see <http://www.gnu.org/licenses/>.
*/
mescc: Compile specific for loop. * module/language/c99/compiler.mes (ast->info): Handle for, pre-inc. * GNUmakefile (main): New target. * doc/examples/main.c: (exit, write, strlen,puts)[__GNUC__]: New functions; import from micro-mes.c (_start): New function.
2017-01-05 20:24:56 +00:00
tinycc: scaffold/main.c: running tcc-compiled binary #2. * scaffold/main.c (main)[__i386__]: Rename from _start.
2017-09-02 22:37:39 +00:00
// #if __i386__
// #define main _start
// #endif
tinycc: scaffold/main.c: first running tcc-compiled binary. * scaffold/main.c (_start): Exit 42 using asm.
2017-08-19 09:35:58 +00:00
mescc: Use Nyacc frontend. * module/language/c99/compiler.mes: New file. * module/language/c99/compiler.scm: Include it. * module/mes/elf.mes: Move (mes-use-module) into cond-expand. * module/mes/elf.scm: New file. * module/mes/libc-i386.scm: New file. * module/nyacc/lang/c99/parser.mes: Add missing module includes. * module/nyacc/lang/util.mes: Add missing module include. * scripts/mescc.mes: Use Nyacc. * guile/mescc.scm: New file. * GNUmakefile (guile-mescc): Run it.
2016-12-31 08:03:07 +00:00
int
mescc: Beginning of expression and test template. * scaffold/t.c: New file. * GNUmakefile (mescc-check, t-check): New targets. * module/language/c99/compiler.mes (write-any): Catch weirdness. (make): Add <function> slot. (.function): New accessor. (clone): Handle it. (function->info): Set it. (ast->info): Make tests generic in if, for, while. Add goto, label, !, ==, !=, -, &&. * module/mes/elf-util.mes (lambda/label->list): New function. (text->list): Use it. (functions->text, function-prefix): New function. (function-offset): Use it. (label-offset): New function. * module/mes/elf-util.scm (mes): Export them. * module/mes/elf.mes (make-elf): Use text->list. * module/mes/libc-i386.mes (eputs, puts): Remove. (i386:byte-base-sub): Rename from sub-byte-base. (i386:byte-jump-z): Rename from i386:Xjump-byte-z. (i386:byte-mem->accu): Rename from i386:Xmem-byte->accu. (i386:byte-mem->base): Rename from i386:Xmem-byte->base. (i386:accu->local, i386:accu-non-zero?, i386:accu-zero?, i386:base-sub, i386:byte-sub-base, i386:jump-c, i386:jump-cz, i386:jump-nc, i386:jump-ncz, i386:byte-mem->base, i386:sub-base, i386:test-accu, i386:test-base, i386:test-jump-z, i386:value->base, i386:xor-zf): New functions.
2017-04-02 10:23:00 +00:00
main (int argc, char *argv[])
mescc.scm: parse simple main.c.
2016-07-24 21:18:53 +00:00
{
tinycc: scaffold/main.c: running tcc-compiled binary #2. * scaffold/main.c (main)[__i386__]: Rename from _start.
2017-09-02 22:37:39 +00:00
#if 0
tinycc: scaffold/main.c: first running tcc-compiled binary. * scaffold/main.c (_start): Exit 42 using asm.
2017-08-19 09:35:58 +00:00
#if __MESC__
asm ("mov____$i32,%ebx !42");
asm ("mov____$i32,%eax !1");
asm ("int____$0x80");
#elif __i386__
asm (".byte 144");
asm (".byte 144");
asm (".byte 144");
#if 1 //MESC_TCC
tinycc: scaffold/main.c: running tcc-compiled binary #2. * scaffold/main.c (main)[__i386__]: Rename from _start.
2017-09-02 22:37:39 +00:00
asm (".byte 184"); //mov $1,%eax
tinycc: scaffold/main.c: first running tcc-compiled binary. * scaffold/main.c (_start): Exit 42 using asm.
2017-08-19 09:35:58 +00:00
asm (".byte 42");
asm (".byte 0");
asm (".byte 0");
asm (".byte 0");
tinycc: scaffold/main.c: running tcc-compiled binary #2. * scaffold/main.c (main)[__i386__]: Rename from _start.
2017-09-02 22:37:39 +00:00
asm (".byte 201"); // leave
asm (".byte 195"); // ret
#if 0
asm (".byte 187"); // mov $42,%ebx
asm (".byte 42");
asm (".byte 0");
asm (".byte 0");
asm (".byte 0");
asm (".byte 184"); //mov $1,%eax
tinycc: scaffold/main.c: first running tcc-compiled binary. * scaffold/main.c (_start): Exit 42 using asm.
2017-08-19 09:35:58 +00:00
asm (".byte 1");
asm (".byte 0");
asm (".byte 0");
asm (".byte 0");
tinycc: scaffold/main.c: running tcc-compiled binary #2. * scaffold/main.c (main)[__i386__]: Rename from _start.
2017-09-02 22:37:39 +00:00
asm (".byte 201"); // leave
asm (".byte 195"); // ret
asm (".byte 205"); //int $0x80
tinycc: scaffold/main.c: first running tcc-compiled binary. * scaffold/main.c (_start): Exit 42 using asm.
2017-08-19 09:35:58 +00:00
asm (".byte 128");
tinycc: scaffold/main.c: running tcc-compiled binary #2. * scaffold/main.c (main)[__i386__]: Rename from _start.
2017-09-02 22:37:39 +00:00
asm (".byte 137"); //%eax,-0x4(%ebp)
tinycc: scaffold/main.c: first running tcc-compiled binary. * scaffold/main.c (_start): Exit 42 using asm.
2017-08-19 09:35:58 +00:00
asm (".byte 69");
asm (".byte 252");
tinycc: scaffold/main.c: running tcc-compiled binary #2. * scaffold/main.c (main)[__i386__]: Rename from _start.
2017-09-02 22:37:39 +00:00
asm (".byte 244"); //hlt
// asm (".byte 201");
// asm (".byte 195");
#endif
tinycc: scaffold/main.c: first running tcc-compiled binary. * scaffold/main.c (_start): Exit 42 using asm.
2017-08-19 09:35:58 +00:00
#else
tinycc: scaffold/main.c: running tcc-compiled binary #2. * scaffold/main.c (main)[__i386__]: Rename from _start.
2017-09-02 22:37:39 +00:00
asm ("mov $42,%eax");
asm ("leave");
asm ("ret");
// asm ("mov $42,%ebx");
// asm ("mov $1,%eax");
// asm ("int $128");
tinycc: scaffold/main.c: first running tcc-compiled binary. * scaffold/main.c (_start): Exit 42 using asm.
2017-08-19 09:35:58 +00:00
#endif
asm (".byte 144");
asm (".byte 144");
asm (".byte 144");
#elif __x86_64__
asm (".byte 144");
asm ("mov $42,%rbx");
asm ("mov $1,%rax");
asm ("int $128");
tinycc: scaffold/main.c: running tcc-compiled binary #2. * scaffold/main.c (main)[__i386__]: Rename from _start.
2017-09-02 22:37:39 +00:00
asm ("hlt");
tinycc: scaffold/main.c: first running tcc-compiled binary. * scaffold/main.c (_start): Exit 42 using asm.
2017-08-19 09:35:58 +00:00
#else
#error "platform not supported"
#endif
// not reached
tinycc: scaffold/main.c: running tcc-compiled binary #2. * scaffold/main.c (main)[__i386__]: Rename from _start.
2017-09-02 22:37:39 +00:00
#endif
Resurrect guile-mescc with guile-2.1.5. * scripts/include.mes: Grep all files. * GNUmakefile (mescc.cat): Update for mes-use-module; list all toplevel inputs. * module/language/c/lexer.mes: Use (system base lalr). * module/language/c/parser.mes: Likewise. * module/language/c/compiler.mes: Likewise. Remove encoding on output port. * scripts/mescc.mes: Remove BROKEN comment.
2016-12-17 09:57:38 +00:00
return 42;
mescc.scm: parse simple main.c.
2016-07-24 21:18:53 +00:00
}
Reference in a new issue Copy permalink