shithub: mc

Info  •  Files  •  Log  •  Branches

Merge branch 'master' of git+ssh://mimir.eigenstate.org/git/ori/mc2

--- a/8/main.c

+++ b/8/main.c

@@ -42,7 +42,6 @@

     char objfile[1024];

     char cmd[1024];

-

     swapsuffix(objfile, 1024, f, ".s", ".o");

     snprintf(cmd, 1024, Asmcmd, objfile, f);

     system(cmd);

--- a/8/reduce.c

+++ b/8/reduce.c

@@ -644,10 +644,10 @@

             break;

         case Olit:

             switch (args[0]->lit.littype) {

-                case Lchr: case Lbool: case Lint: case Lflt:

+                case Lchr: case Lbool: case Lint:

                     r = n;

                     break;

-                case Lstr: case Larray:

+                case Lstr: case Larray: case Lflt:

                     r = bloblit(s, n);

                     break;

                 case Lfunc:

--- a/test/hello/sys.myr

+++ b/test/hello/sys.myr

@@ -65,5 +65,5 @@

 const creat	= {path, mode;		-> syscall(Syscreat, 2, path castto(char*), mode);}

 const read	= {fd, buf;		-> syscall(Sysread,  3, fd, buf castto(char*), buf.len);}

 const write	= {fd, buf;		-> syscall(Syswrite, 3, fd, buf castto(char*), buf.len);}

-const lseek	= {fd, off:uint, whence;-> syscall(Syslseek, 2, fd, off, whence);}

+const lseek	= {fd, off, whence;	-> syscall(Syslseek, 2, fd, off, whence);}

 const fstat	= {fd, sb;		-> syscall(Sysfstat, 2, fd, sb);}