change ENTRY & ASENTRY to allow setting the register save mask
authorSam Leffler <sam@ucbvax.Berkeley.EDU>
Fri, 2 Nov 1984 15:52:36 +0000 (07:52 -0800)
committerSam Leffler <sam@ucbvax.Berkeley.EDU>
Fri, 2 Nov 1984 15:52:36 +0000 (07:52 -0800)
SCCS-vsn: lib/libc/vax/DEFS.h 4.3
SCCS-vsn: lib/libc/vax/gen/_setjmp.s 4.3
SCCS-vsn: lib/libc/vax/gen/abort.s 4.2
SCCS-vsn: lib/libc/vax/stdlib/abs.s 4.2
SCCS-vsn: lib/libc/vax/gen/alloca.s 4.2
SCCS-vsn: lib/libc/vax/stdlib/atof.s 4.3
SCCS-vsn: lib/libc/vax/string/bcmp.s 4.3
SCCS-vsn: lib/libc/vax/string/bcopy.s 4.5
SCCS-vsn: lib/libc/vax/string/bzero.s 4.3
SCCS-vsn: lib/libc/vax/gen/fabs.s 4.2
SCCS-vsn: lib/libc/vax/string/ffs.s 4.2
SCCS-vsn: lib/libc/vax/gen/frexp.s 4.2
SCCS-vsn: lib/libc/vax/string/index.s 4.2
SCCS-vsn: lib/libcompat/4.3/vax/insque.s 4.2
SCCS-vsn: lib/libc/vax/gen/ldexp.s 4.2
SCCS-vsn: lib/libc/vax/gen/modf.s 4.2
SCCS-vsn: lib/libcompat/4.3/vax/nargs.s 4.2
SCCS-vsn: lib/libcompat/4.3/vax/remque.s 4.2
SCCS-vsn: lib/libc/vax/string/rindex.s 4.2
SCCS-vsn: lib/libc/vax/gen/setjmp.s 4.6
SCCS-vsn: lib/libc/vax/string/strcat.s 4.2
SCCS-vsn: lib/libc/vax/string/strcmp.s 4.2
SCCS-vsn: lib/libc/vax/string/strcpy.s 4.2
SCCS-vsn: lib/libc/vax/string/strlen.s 4.2
SCCS-vsn: lib/libc/vax/string/strncat.s 4.2
SCCS-vsn: lib/libc/vax/string/strncmp.s 4.2
SCCS-vsn: lib/libc/vax/string/strncpy.s 4.2
SCCS-vsn: lib/libc/vax/gen/udiv.s 4.3
SCCS-vsn: lib/libc/vax/gen/urem.s 4.3

29 files changed:
usr/src/lib/libc/vax/DEFS.h
usr/src/lib/libc/vax/gen/_setjmp.s
usr/src/lib/libc/vax/gen/abort.s
usr/src/lib/libc/vax/gen/alloca.s
usr/src/lib/libc/vax/gen/fabs.s
usr/src/lib/libc/vax/gen/frexp.s
usr/src/lib/libc/vax/gen/ldexp.s
usr/src/lib/libc/vax/gen/modf.s
usr/src/lib/libc/vax/gen/setjmp.s
usr/src/lib/libc/vax/gen/udiv.s
usr/src/lib/libc/vax/gen/urem.s
usr/src/lib/libc/vax/stdlib/abs.s
usr/src/lib/libc/vax/stdlib/atof.s
usr/src/lib/libc/vax/string/bcmp.s
usr/src/lib/libc/vax/string/bcopy.s
usr/src/lib/libc/vax/string/bzero.s
usr/src/lib/libc/vax/string/ffs.s
usr/src/lib/libc/vax/string/index.s
usr/src/lib/libc/vax/string/rindex.s
usr/src/lib/libc/vax/string/strcat.s
usr/src/lib/libc/vax/string/strcmp.s
usr/src/lib/libc/vax/string/strcpy.s
usr/src/lib/libc/vax/string/strlen.s
usr/src/lib/libc/vax/string/strncat.s
usr/src/lib/libc/vax/string/strncmp.s
usr/src/lib/libc/vax/string/strncpy.s
usr/src/lib/libcompat/4.3/vax/insque.s
usr/src/lib/libcompat/4.3/vax/nargs.s
usr/src/lib/libcompat/4.3/vax/remque.s

index e532ed3..405e4be 100644 (file)
@@ -1,11 +1,28 @@
-/* DEFS.h 4.2 83/06/27 */
+/*     DEFS.h  4.3     84/11/01        */
+
+#define R0     0x001
+#define R1     0x002
+#define R2     0x004
+#define R3     0x008
+#define R4     0x010
+#define R5     0x020
+#define R6     0x040
+#define        R7      0x080
+#define        R8      0x100
+#define        R9      0x200
+#define        R10     0x400
+#define        R11     0x800
 
 #ifdef PROF
 
 #ifdef PROF
-#define        ENTRY(x)        .globl _/**/x; .align 2; _/**/x: .word 0; \
-                       .data; 1:; .long 0; .text; moval 1b,r0; jsb mcount
-#define        ASENTRY(x)      .globl x; .align 2; x: .word 0; \
-                       .data; 1:; .long 0; .text; moval 1b,r0; jsb mcount
+#define        ENTRY(x, regs) \
+       .globl _/**/x; .align 2; _/**/x: .word regs; \
+       .data; 1:; .long 0; .text; moval 1b,r0; jsb mcount
+#define        ASENTRY(x, regs) \
+       .globl x; .align 2; x: .word regs; \
+       .data; 1:; .long 0; .text; moval 1b,r0; jsb mcount
 #else
 #else
-#define        ENTRY(x)        .globl _/**/x; .align 2; _/**/x: .word 0
-#define        ASENTRY(x)      .globl x; .align 2; x: .word 0
+#define        ENTRY(x, regs) \
+       .globl _/**/x; .align 2; _/**/x: .word regs
+#define        ASENTRY(x, regs) \
+       .globl x; .align 2; x: .word regs
 #endif
 #endif
index 74c26de..977b52d 100644 (file)
@@ -1,4 +1,4 @@
-/*     _setjmp.s       4.2     83/07/02        */
+/*     _setjmp.s       4.3     84/11/01        */
 
 /*
  * C library -- _setjmp, _longjmp
 
 /*
  * C library -- _setjmp, _longjmp
 
 #include "DEFS.h"
 
 
 #include "DEFS.h"
 
-ENTRY(_setjmp)
+ENTRY(_setjmp, 0)
        movl    4(ap),r0
        movl    12(fp),(r0)             # save frame pointer of caller
        movl    16(fp),4(r0)            # save pc of caller
        clrl    r0
        ret
 
        movl    4(ap),r0
        movl    12(fp),(r0)             # save frame pointer of caller
        movl    16(fp),4(r0)            # save pc of caller
        clrl    r0
        ret
 
-ENTRY(_longjmp)
+ENTRY(_longjmp, 0)
        movl    8(ap),r0                # return(v)
        movl    4(ap),r1                # fetch buffer
        tstl    (r1)
        movl    8(ap),r0                # return(v)
        movl    4(ap),r1                # fetch buffer
        tstl    (r1)
index 5f1bd07..fd286ca 100644 (file)
@@ -1,10 +1,10 @@
-/*     abort.s 4.1     83/06/27        */
+/*     abort.s 4.2     84/11/01        */
 
 /* C library -- abort */
 
 #include "DEFS.h"
 
 
 /* C library -- abort */
 
 #include "DEFS.h"
 
-ENTRY(abort)
+ENTRY(abort, 0)
        halt
        clrl    r0
        ret
        halt
        clrl    r0
        ret
index 6831af7..2aa6d58 100644 (file)
@@ -1,9 +1,9 @@
-/*     alloca.s        4.1     83/06/27        */
-/* like alloc, but automatic automatic free in return */
+/*     alloca.s        4.2     84/11/01        */
+/* like alloc, but automatic free in return */
 
 #include "DEFS.h"
 
 
 #include "DEFS.h"
 
-ENTRY(alloca)
+ENTRY(alloca, 0)
        subl2   4(ap),sp        /* crude allocation */
        movl    16(fp),r1       /* pc */
        movq    8(fp),ap        /* new (old) ap and fp */
        subl2   4(ap),sp        /* crude allocation */
        movl    16(fp),r1       /* pc */
        movq    8(fp),ap        /* new (old) ap and fp */
index 73a1c87..948632e 100644 (file)
@@ -1,9 +1,9 @@
-/*     fabs.s  4.1     83/06/27        */
+/*     fabs.s  4.2     84/11/01        */
 /* fabs - floating absolute value */
 
 #include "DEFS.h"
 
 /* fabs - floating absolute value */
 
 #include "DEFS.h"
 
-ENTRY(fabs)
+ENTRY(fabs, 0)
        movd    4(ap),r0
        bgeq    1f
        mnegd   r0,r0
        movd    4(ap),r0
        bgeq    1f
        mnegd   r0,r0
index b55ff67..5bd8135 100644 (file)
@@ -1,10 +1,10 @@
-/*     frexp.s 4.1     84/08/22        */
+/*     frexp.s 4.2     84/11/01        */
 
 /* C library -- frexp(value, eptr) */
 
 #include "DEFS.h"
 
 
 /* C library -- frexp(value, eptr) */
 
 #include "DEFS.h"
 
-ENTRY(frexp)
+ENTRY(frexp, 0)
        movd    4(ap),r0                # (r0,r1) := value
        extzv   $7,$8,r0,*12(ap)        # Fetch exponent
        jeql    1f                      # If exponent zero, we're done
        movd    4(ap),r0                # (r0,r1) := value
        extzv   $7,$8,r0,*12(ap)        # Fetch exponent
        jeql    1f                      # If exponent zero, we're done
index 479822d..7e2a530 100644 (file)
@@ -1,4 +1,4 @@
-/*     ldexp.s 4.1     83/06/27        */
+/*     ldexp.s 4.2     84/11/01        */
 
 /*
  * double ldexp (value, exp)
 
 /*
  * double ldexp (value, exp)
@@ -18,7 +18,7 @@
 
        .globl  _errno
 
 
        .globl  _errno
 
-ENTRY(ldexp)
+ENTRY(ldexp, 0)
        movd    4(ap),r0        /* fetch "value" */
        extzv   $7,$8,r0,r2     /* r2 := biased exponent */
        jeql    1f              /* if zero, done */
        movd    4(ap),r0        /* fetch "value" */
        extzv   $7,$8,r0,r2     /* r2 := biased exponent */
        jeql    1f              /* if zero, done */
index 35872bb..ba57d5c 100644 (file)
@@ -1,4 +1,4 @@
-/*     modf.s  4.1     83/06/27        */
+/*     modf.s  4.2     84/11/01        */
 
 /*
  * double modf (value, iptr)
 
 /*
  * double modf (value, iptr)
@@ -10,7 +10,7 @@
 
 #include "DEFS.h"
 
 
 #include "DEFS.h"
 
-ENTRY(modf)
+ENTRY(modf, 0)
        emodd   4(ap),$0,$0f1.0,r2,r0
        jvs     1f                      # integer overflow
        cvtld   r2,*12(ap)
        emodd   4(ap),$0,$0f1.0,r2,r0
        jvs     1f                      # integer overflow
        cvtld   r2,*12(ap)
index ec844d6..8fb18b8 100644 (file)
@@ -1,4 +1,4 @@
-/*     setjmp.s        4.5     83/08/14        */
+/*     setjmp.s        4.6     84/11/01        */
 
 /*
  * C library -- setjmp, longjmp
 
 /*
  * C library -- setjmp, longjmp
@@ -15,7 +15,7 @@
 
 #include "DEFS.h"
 
 
 #include "DEFS.h"
 
-ENTRY(setjmp)
+ENTRY(setjmp, 0)
        pushl   $0
        calls   $1,_sigblock            # get signal mask
        movl    r0,r1
        pushl   $0
        calls   $1,_sigblock            # get signal mask
        movl    r0,r1
@@ -27,7 +27,7 @@ ENTRY(setjmp)
        clrl    r0
        ret
 
        clrl    r0
        ret
 
-ENTRY(longjmp)
+ENTRY(longjmp, 0)
        movl    8(ap),r0                # return(v)
        movl    4(ap),r1                # fetch buffer
        tstl    (r1)
        movl    8(ap),r0                # return(v)
        movl    4(ap),r1                # fetch buffer
        tstl    (r1)
index d53b9b3..f2e9d60 100644 (file)
@@ -1,4 +1,4 @@
-/*     udiv.s  4.2     83/06/27        */
+/*     udiv.s  4.3     84/11/01        */
 
 /*
  * udiv - unsigned division for vax-11
 
 /*
  * udiv - unsigned division for vax-11
@@ -19,7 +19,7 @@
 
 #include "DEFS.h"
 
 
 #include "DEFS.h"
 
-ASENTRY(udiv)
+ASENTRY(udiv, 0)
        movl    4(ap),r0        /* dividend */
        movl    8(ap),r2        /* divisor */
        jeql    1f              /* if divisor=0, force exception */
        movl    4(ap),r0        /* dividend */
        movl    8(ap),r2        /* divisor */
        jeql    1f              /* if divisor=0, force exception */
index df7dcc0..9199cf3 100644 (file)
@@ -1,4 +1,4 @@
-/*     urem.s  4.2     83/06/27        */
+/*     urem.s  4.3     84/11/01        */
 
 /*
  * urem - unsigned remainder for vax-11
 
 /*
  * urem - unsigned remainder for vax-11
@@ -18,7 +18,7 @@
  */
 #include "DEFS.h"
 
  */
 #include "DEFS.h"
 
-ASENTRY(urem)
+ASENTRY(urem, 0)
        movl    4(ap),r0        /* dividend */
        movl    8(ap),r2        /* divisor */
        jeql    1f              /* if divisor=0, force exception */
        movl    4(ap),r0        /* dividend */
        movl    8(ap),r2        /* divisor */
        jeql    1f              /* if divisor=0, force exception */
index c5be804..cc290d4 100644 (file)
@@ -1,10 +1,10 @@
-/*     abs.s   4.1     83/06/27        */
+/*     abs.s   4.2     84/11/01        */
 
 /* abs - int absolute value */
 
 #include "DEFS.h"
 
 
 /* abs - int absolute value */
 
 #include "DEFS.h"
 
-ENTRY(abs)
+ENTRY(abs, 0)
        movl    4(ap),r0
        bgeq    1f
        mnegl   r0,r0
        movl    4(ap),r0
        bgeq    1f
        mnegl   r0,r0
index 3860c1d..3f708d2 100644 (file)
@@ -1,4 +1,4 @@
-/*     atof.s  4.2     83/06/30        */
+/*     atof.s  4.3     84/11/01        */
 
 #include "DEFS.h"
 
 
 #include "DEFS.h"
 
  *                     second section: scratch
  *             r5:     the decimal exponent
  *             r6-7:   scratch
  *                     second section: scratch
  *             r5:     the decimal exponent
  *             r6-7:   scratch
- *
- *     Flag definitions
  */
        .set    msign,0         # mantissa has negative sign
        .set    esign,1         # exponent has negative sign
        .set    decpt,2         # decimal point encountered
 
  */
        .set    msign,0         # mantissa has negative sign
        .set    esign,1         # exponent has negative sign
        .set    decpt,2         # decimal point encountered
 
-       .align  2
-two31: .word   0x5000          # 2 ** 31
-       .word   0               # (=2147483648)
-       .word   0               # in floating-point
-       .word   0               # (so atof doesn't have to convert it)
-/*
- *     Entry point
- */
-ENTRY(atof)
-       pushl   r6
-       pushl   r7
+ENTRY(atof, R6|R7)
 /*
  *     Initialization
  */
 /*
  *     Initialization
  */
@@ -319,8 +307,11 @@ cm2:       pushl   r2              # Put exponent in parameter list
        movd    r0,-(sp)        #    and also mantissa
        calls   $3,_ldexp       # go combine them
 
        movd    r0,-(sp)        #    and also mantissa
        calls   $3,_ldexp       # go combine them
 
-
 exit:
 exit:
-       movl    (sp)+,r7
-       movl    (sp)+,r6
        ret
        ret
+
+       .align  2
+two31: .word   0x5000          # 2 ** 31
+       .word   0               # (=2147483648)
+       .word   0               # in floating-point
+       .word   0               # (so atof doesn't have to convert it)
index e1dc99e..69db6b5 100644 (file)
@@ -1,9 +1,9 @@
-/* @(#)bcmp.s  4.2 %G% */
+/* @(#)bcmp.s  4.3 %G% */
 /* bcmp(s1, s2, n) */
 
 #include "DEFS.h"
 
 /* bcmp(s1, s2, n) */
 
 #include "DEFS.h"
 
-ENTRY(bcmp)
+ENTRY(bcmp, 0)
        movl    4(ap),r1
        movl    8(ap),r3
        movl    12(ap),r4
        movl    4(ap),r1
        movl    8(ap),r3
        movl    12(ap),r4
index ec495e3..96f2fc7 100644 (file)
@@ -1,14 +1,9 @@
-/* @(#)bcopy.s 4.4 %G% */
+/* @(#)bcopy.s 4.5 %G% */
 /* bcopy(from, to, size) */
 
 #include "DEFS.h"
 
 /* bcopy(from, to, size) */
 
 #include "DEFS.h"
 
-       .globl  _bcopy
-_bcopy:
-       .word   0x0040
-#ifdef PROF
-       .data; 1:; .long 0; .text; moval 1b,r0; jsb mcount
-#endif PROF
+ENTRY(bcopy, R6)
        movl    4(ap),r1
        movl    8(ap),r3
        movl    12(ap),r6
        movl    4(ap),r1
        movl    8(ap),r3
        movl    12(ap),r6
index 5d6f2bd..32742cc 100644 (file)
@@ -1,9 +1,9 @@
-/* @(#)bzero.s 4.2 %G% */
+/* @(#)bzero.s 4.3 %G% */
 /* bzero(base, length) */
 
 #include "DEFS.h"
 
 /* bzero(base, length) */
 
 #include "DEFS.h"
 
-ENTRY(bzero)
+ENTRY(bzero, 0)
        movl    4(ap),r3
        jbr     2f
 1:
        movl    4(ap),r3
        jbr     2f
 1:
index dea3aaf..f51761e 100644 (file)
@@ -1,9 +1,9 @@
-/* @(#)ffs.s   4.1 %G% */
+/* @(#)ffs.s   4.2 %G% */
 /* bit = ffs(value) */
 
 #include "DEFS.h"
 
 /* bit = ffs(value) */
 
 #include "DEFS.h"
 
-ENTRY(ffs)
+ENTRY(ffs, 0)
        ffs     $0,$32,4(ap),r0
        bneq    1f
        mnegl   $1,r0
        ffs     $0,$32,4(ap),r0
        bneq    1f
        mnegl   $1,r0
index 9ba2471..3afb612 100644 (file)
@@ -1,4 +1,4 @@
-/*     index.s 4.1     84/11/01        */
+/*     index.s 4.2     84/11/01        */
 
 /*
  * Find the first occurence of c in the string cp.
 
 /*
  * Find the first occurence of c in the string cp.
@@ -8,10 +8,9 @@
  * index(cp, c)
  *     char *cp, c;
  */
  * index(cp, c)
  *     char *cp, c;
  */
-       .globl  _index
+#include "DEFS.h"
 
 
-_index:
-       .word   0x0
+ENTRY(index, 0)
        movq    4(ap),r1        # r1 = cp; r2 = c
        tstl    r2              # check for special case c == '\0'
        bneq    2f
        movq    4(ap),r1        # r1 = cp; r2 = c
        tstl    r2              # check for special case c == '\0'
        bneq    2f
index f52657b..591e0bb 100644 (file)
@@ -1,4 +1,4 @@
-/*     rindex.s        4.1     84/11/01        */
+/*     rindex.s        4.2     84/11/01        */
 
 /*
  * Find the last occurence of c in the string cp.
 
 /*
  * Find the last occurence of c in the string cp.
@@ -8,10 +8,9 @@
  * rindex(cp, c)
  *     char *cp, c;
  */
  * rindex(cp, c)
  *     char *cp, c;
  */
-       .globl  _rindex
+#include "DEFS.h"
 
 
-_rindex:
-       .word   0x0
+ENTRY(rindex, 0)
        movq    4(ap),r1        # r1 = cp; r2 = c
        tstl    r2              # check for special case c == '\0'
        bneq    2f
        movq    4(ap),r1        # r1 = cp; r2 = c
        tstl    r2              # check for special case c == '\0'
        bneq    2f
index 14addc5..90de5f8 100644 (file)
@@ -1,4 +1,4 @@
-/*     strcat.s        4.1     84/11/01        */
+/*     strcat.s        4.2     84/11/01        */
 
 /*
  * Concatenate string s2 to the end of s1
 
 /*
  * Concatenate string s2 to the end of s1
@@ -8,10 +8,9 @@
  * strcat(s1, s2)
  *     char *s1, *s2;
  */
  * strcat(s1, s2)
  *     char *s1, *s2;
  */
-       .globl  _strcat
+#include "DEFS.h"
 
 
-_strcat:
-       .word   0x1c0
+ENTRY(strcat, R6|R7)
        movq    4(ap), r6       # r6 = s1; r7 = s2
        movl    r6,r1
 0:
        movq    4(ap), r6       # r6 = s1; r7 = s2
        movl    r6,r1
 0:
index 2b7f4d4..19e1897 100644 (file)
@@ -1,4 +1,4 @@
-/*     strcmp.s        4.1     84/11/01        */
+/*     strcmp.s        4.2     84/11/01        */
 
 /*
  * Compare string s1 lexicographically to string s2.
 
 /*
  * Compare string s1 lexicographically to string s2.
  * strcmp(s1, s2)
  *     char *s1, *s2;
  */
  * strcmp(s1, s2)
  *     char *s1, *s2;
  */
-       .globl  _strcmp
+#include "DEFS.h"
 
 
-_strcmp:
-       .word   0x0
+ENTRY(strcmp, 0)
        movq    4(ap),r3        # r3 = s1; r4 = s2
 1:
        locc    $0,$65535,(r4)  # look for '\0' in s2
        movq    4(ap),r3        # r3 = s1; r4 = s2
 1:
        locc    $0,$65535,(r4)  # look for '\0' in s2
index 83c11cf..d62489c 100644 (file)
@@ -1,4 +1,4 @@
-/*     strcpy.s        4.1     84/11/01        */
+/*     strcpy.s        4.2     84/11/01        */
 
 /*
  * Copy string s2 over top of s1.
 
 /*
  * Copy string s2 over top of s1.
@@ -7,10 +7,9 @@
  * strcpy(s1, s2)
  *     char *s1, *s2;
  */
  * strcpy(s1, s2)
  *     char *s1, *s2;
  */
-       .globl  _strcpy
+#include "DEFS.h"
 
 
-_strcpy:
-       .word   0x80
+ENTRY(strcpy, R6)
        movl    4(ap), r3       # r3 = s1
        movl    8(ap), r6       # r6 = s2
 1:
        movl    4(ap), r3       # r3 = s1
        movl    8(ap), r6       # r6 = s2
 1:
index 77b2469..f65203e 100644 (file)
@@ -1,4 +1,4 @@
-/*     strlen.s        4.1     84/11/01        */
+/*     strlen.s        4.2     84/11/01        */
 
 /*
  * Return the length of cp (not counting '\0').
 
 /*
  * Return the length of cp (not counting '\0').
@@ -6,10 +6,9 @@
  * strlen(cp)
  *     char *cp;
  */
  * strlen(cp)
  *     char *cp;
  */
-       .globl  _strlen
+#include "DEFS.h"
 
 
-_strlen:
-       .word   0x0
+ENTRY(strlen, 0)
        movl    4(ap),r2
 0:
        locc    $0,$65535,(r2)  # look for '\0'
        movl    4(ap),r2
 0:
        locc    $0,$65535,(r2)  # look for '\0'
index 65429ba..a0a2b87 100644 (file)
@@ -1,4 +1,4 @@
-/*     strncat.s       4.1     84/11/01        */
+/*     strncat.s       4.2     84/11/01        */
 
 /*
  * Concatenate string s2 on the end of s1
 
 /*
  * Concatenate string s2 on the end of s1
  *     char *s1, *s2;
  *     int n;
  */
  *     char *s1, *s2;
  *     int n;
  */
-       .globl  _strncat
+#include "DEFS.h"
 
 
-_strncat:
-       .word   0x40
+ENTRY(strncat, R6)
        movl    12(ap),r6       # r6 = n
        bleq    done            # n <= 0
        movl    4(ap),r3        # r3 = s1
        movl    12(ap),r6       # r6 = n
        bleq    done            # n <= 0
        movl    4(ap),r3        # r3 = s1
index cecb4d5..fadf0bf 100644 (file)
@@ -1,4 +1,4 @@
-/*     strncmp.s       4.1     84/11/01        */
+/*     strncmp.s       4.2     84/11/01        */
 
 /*
  * Compare at most n characters of string
 
 /*
  * Compare at most n characters of string
  *     char *s1, *s2;
  *     int n;
  */
  *     char *s1, *s2;
  *     int n;
  */
-       .globl  _strncmp
+#include "DEFS.h"
 
 
-_strncmp:
-       .word   0x0
+ENTRY(strncmp, 0)
        movl    12(ap),r5       # r5 = n
        movq    4(ap),r3        # r3 = s1; r4 = s2
 1:
        movl    12(ap),r5       # r5 = n
        movq    4(ap),r3        # r3 = s1; r4 = s2
 1:
index 0e08288..6a6f21c 100644 (file)
@@ -1,4 +1,4 @@
-/*     strncpy.s       4.1     84/11/01        */
+/*     strncpy.s       4.2     84/11/01        */
 
 /*
  * Copy string s2 over top of string s1.
 
 /*
  * Copy string s2 over top of string s1.
@@ -8,10 +8,9 @@
  * strncpy(s1, s2, n)
  *     char *s1, *s2;
  */
  * strncpy(s1, s2, n)
  *     char *s1, *s2;
  */
-       .globl  _strncpy
+#include "DEFS.h"
 
 
-_strncpy:
-       .word   0x40
+ENTRY(strncpy, R6)
        movl    12(ap),r6       # r6 = n
        bleq    done            # n <= 0
        movl    4(ap),r3        # r3 = s1
        movl    12(ap),r6       # r6 = n
        bleq    done            # n <= 0
        movl    4(ap),r3        # r3 = s1
index 07b29e5..931e5f6 100644 (file)
@@ -1,8 +1,8 @@
-/* @(#)insque.s        4.1 %G% */
+/* @(#)insque.s        4.2 %G% */
 /* insque(new, pred) */
 
 #include "DEFS.h"
 
 /* insque(new, pred) */
 
 #include "DEFS.h"
 
-ENTRY(insque)
+ENTRY(insque, 0)
        insque  *4(ap), *8(ap)
        ret
        insque  *4(ap), *8(ap)
        ret
index c681bcd..e84d7db 100644 (file)
@@ -1,8 +1,8 @@
-/*     nargs.s 4.1     83/06/27        */
+/*     nargs.s 4.2     84/11/01        */
 /* C library -- nargs */
 
 #include "DEFS.h"
 
 /* C library -- nargs */
 
 #include "DEFS.h"
 
-ENTRY(nargs)
+ENTRY(nargs, 0)
        movzbl  *8(fp),r0       /* 8(fp) is old ap */
        ret
        movzbl  *8(fp),r0       /* 8(fp) is old ap */
        ret
index ba2be46..c9c0df7 100644 (file)
@@ -1,8 +1,8 @@
-/* @(#)remque.s        4.1 %G% */
+/* @(#)remque.s        4.2 %G% */
 /* remque(entry) */
 
 #include "DEFS.h"
 
 /* remque(entry) */
 
 #include "DEFS.h"
 
-ENTRY(remque)
+ENTRY(remque, 0)
        remque  *4(ap),r0
        ret
        remque  *4(ap),r0
        ret