add _nsec() syscall 53 for binary compatibility with labs distribution

[plan9front.git] / sys / src / 9 / port / sysproc.c

diff --git a/sys/src/9/port/sysproc.c b/sys/src/9/port/sysproc.c
index 8f2ee849caf866e91214a317c62b4e426cf7fac2..fbe4f2fbc24b5ba8c7ac3679d0126a22d479115b 100644 (file)
--- a/sys/src/9/port/sysproc.c
+++ b/sys/src/9/port/sysproc.c
@@ -251,8 +251,7 @@ sysexec(va_list list)
        Image *img;
        Tos *tos;
 
-       a = nil;
-       elem = nil;
+       args = elem = nil;
        file0 = va_arg(list, char*);
        validaddr((uintptr)file0, 1, 0);
        argp0 = va_arg(list, char**);
@@ -260,7 +259,7 @@ sysexec(va_list list)
        if(waserror()){
                free(file0);
                free(elem);
-               free(a);
+               free(args);
                /* Disaster after commit */
                if(!up->seg[SSEG])
                        pexit(up->errstr, 1);
@@ -362,7 +361,7 @@ sysexec(va_list list)
         * 8-byte align SP for those (e.g. sparc) that need it.
         * execregs() will subtract another 4 bytes for argc.
         */
-       if((ssize+4) & 7)
+       if(BY2WD == 4 && (ssize+4) & 7)
                ssize += 4;
 
        if(PGROUND(ssize) >= USTKSIZE)
@@ -396,7 +395,7 @@ sysexec(va_list list)
 
        argv = (char**)(tstk - ssize);
        charp = (char*)(tstk - nbytes);
-       args = charp;
+       a = charp;
        if(indir)
                argp = progarg;
        else
@@ -414,18 +413,18 @@ sysexec(va_list list)
        }
 
        /* copy args; easiest from new process's stack */
-       n = charp - args;
+       n = charp - a;
        if(n > 128)     /* don't waste too much space on huge arg lists */
                n = 128;
-       a = smalloc(n);
-       memmove(a, args, n);
-       if(n>0 && a[n-1]!='\0'){
+       args = smalloc(n);
+       memmove(args, a, n);
+       if(n>0 && args[n-1]!='\0'){
                /* make sure last arg is NUL-terminated */
                /* put NUL at UTF-8 character boundary */
                for(i=n-1; i>0; --i)
-                       if(fullrune(a+i, n-i))
+                       if(fullrune(args+i, n-i))
                                break;
-               a[i] = 0;
+               args[i] = 0;
                n = i+1;
        }
 
@@ -505,7 +504,7 @@ sysexec(va_list list)
        free(up->text);
        up->text = elem;
        free(up->args);
-       up->args = a;
+       up->args = args;
        up->nargs = n;
        up->setargs = 0;
 
@@ -1183,3 +1182,16 @@ syssemrelease(va_list list)
                error(Ebadarg);
        return (uintptr)semrelease(s, addr, delta);
 }
+
+/* For binary compatibility */
+uintptr
+sys_nsec(va_list list)
+{
+       vlong *v;
+
+       v = va_arg(list, vlong*);
+       evenaddr((uintptr)v);
+       validaddr((uintptr)v, sizeof(vlong), 1);
+       *v = todget(nil);
+       return 0;
+}