picolisp

commit 5666c60c724d863f86a9038a488e925db2a8962e
parent 0d66f41184d7ad649a2e2bdfde4bdb87d1b040b4
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 16 Oct 2012 08:01:36 +0200

emu64 continued
Diffstat:
M
src64/arch/emu.l
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src64/arch/emu.l b/src64/arch/emu.l
@@ -1236,7 +1236,7 @@
          "   }"
          "}"
          NIL
-         "void main(int ac, char *av[]) {"
+         "int main(int ac, char *av[]) {"
          "   int i;"
          NIL
          "   S.p = (Stack = malloc(STACK)) + STACK;"
@@ -1248,6 +1248,7 @@
          "   X.p = ((ptr)Y.p)->p,  Y.p += 8;"
          "   Z.p = Y.p + (ac - 2) * sizeof(op);" ) )
    (prinl (pack "   run(" (absCode "main") ");"))
+   (prinl "   return 0;")
    (prinl "}")
    (unless *FPic
       (out "emu.symtab"